A implementation of JADEXMLDocument -> JADEJSONDocument might be the way to go.
I agree with this - it would provide a full implementation that would work equivalent to the Jade XML classes.
Currently I have only had to serialise outbound data as JSON and have implemented several methods called asJsonString() on the classes where they are required.
These are limited and include String, StringArray and JadeDynamicObject, which I use to build up some JSON structured data.
examples:
Code: Select all
JadeDynamicObject::asJsonString() : String;
/*
Return the contents formatted as a JSON string, e.g. { "custno":1234, "name":"Joe Bloggs", isActive:true }
Recursion is possible into arrays and other JadeDynamicObjects (so it is possible for endless self-recusion).
*/
vars
i : Integer;
ptype : Type;
pval : Any;
pname : String;
sval : String;
delim : String;
result : String;
begin
foreach i in 1 to propertyCount do
ptype := getPropertyTypeByIndex( i );
pname := getPropertyName( i ).asJsonString;
pval := getPropertyValueByIndex( i );
if pval.isKindOf( Object ) and pval = null then
if pval.isKindOf( StringArray) then
sval := '[]';
else
sval := "null";
endif;
else
if ptype = Integer then sval := pval.Integer.String;
elseif ptype = String then sval := pval.String.asJsonString;
elseif ptype = Decimal then sval := pval.Decimal.String;
elseif ptype = Boolean then sval := pval.Boolean.String;
elseif ptype = Character then sval := pval.Character.String.asJsonString;
elseif ptype = Integer64 then sval := pval.Integer64.String;
elseif ptype = Real then sval := pval.Real.String;
elseif ptype = StringArray then sval := pval.StringArray.asJsonString();
elseif ptype = HugeStringArray then sval := pval.HugeStringArray.asJsonString();
elseif ptype = JadeDynamicObject then sval := pval.JadeDynamicObject.asJsonString();
elseif ptype = JadeDynamicObjectArray then sval := pval.JadeDynamicObjectArray.asJsonString();
else
// all other data types not implemented yet - add when required
endif;
endif;
result := result & delim & pname & ":" & sval;
delim := ', ';
endforeach;
return '{' & result & '}';
end;
Code: Select all
String::asJsonString() : String;
/*
Return the string formatted as per JSON specification, including the enclosing double-quotes.
Input of abc"123\xyz will be output as "abc\"123\\xyz" (note the addition of enclosing quotes).
Standard escaping will be included (e.g. Cr, Lf, Tab, "), but unprintable characters that
would require expression as Unicode hex values ("\uHHHH") will NOT be included.
*/
vars
c : Character;
i : Integer;
s : String;
begin
foreach i in 1 to self.length do
c := self[i];
if c.isOneOf( '"', '\', '/') then
s := s & '\' & c;
elseif c = Cr then
s := s & '\r';
elseif c = Lf then
s := s & '\n';
elseif c = Tab then
s := s & '\t';
elseif c = Control_BS then
s := s & '\b';
elseif c = Control_FF then
s := s & '\f';
elseif c >= ' ' and c <= '~' then
s := s & c;
endif;
endforeach;
return '"' & s & '"';
end;
.