Define JSON structure for data exchange which supports table & column properties

vt_sailor

Good Morning,

 

I'm working on a standard data exchange structure to allow JMP and our other applications to exchange data.  JMP's native JSON capability handles the data fine, but offers no options for saving properties.  I'm wondering if anyone has already gone through this exercise and would be willing to share to you came up with?

 

Thank you

Ray Bunkofske

acosand

Hi Ray,
I put this together for saving some data out to JSON. No guarantees, but you're welcome to give it a shot.
Cheers
-andrew

// Serialize Associative Arrays, Lists, or nestings of them to JSON (http://www.json.org/)
// Iterate through Associative Array keys or List, recurse on values.
// Use "Local" and "Recurse" to isolates scopes.
// https://www.jmp.com/support/help/13-2/Recursion.shtml
// http://www.jmp.com/support/help/Global_and_Local_Variables.shtml
toJSON = Function( {input, depth=0, maxdepth=16},
	Local( {output, current_item},
		if (
			depth > maxdepth,
				Throw("toJSON recursion depth " || depth || " exceeds limit of " || maxdepth),
			Is List(input),
				output = "[";
				current_item = input << First;
				While (Is Empty(current_item) == 0,
					output = output || Recurse(current_item, depth+1);
					current_item = input << Next(current_item);
					If (Is Empty(current_item) == 0, output = output || ",";);
				);
				output =  output || "]",
			Is Associative Array(input),
				output = "{";
				current_item = input << First;
				While (Is Empty(current_item) == 0,
					output = output || "\!"" || Char(current_item) || "\!":" || Recurse(input[current_item], depth+1);
					current_item = input << Next(current_item);
					If (Is Empty(current_item) == 0, output = output || ",";);
				);
				output =  output || "}",
			Is Number(input),
				output = Char(input),
			Uppercase(input) == "FALSE",
				output = "false",
			Uppercase(input) == "TRUE",
				output = "true",
			// else
				output = "\!"" || Char(input) || "\!"",
		);
		// return:
		output;
	);
);