JSON: Difference between revisions

Content added Content deleted
Line 108: Line 108:
Put_Line (To_JSON_Document (Penguin).To_JSON.To_Wide_Wide_String);
Put_Line (To_JSON_Document (Penguin).To_JSON.To_Wide_Wide_String);


Penguin := From_JSON (JSON_String).To_JSON._Object;
Penguin := From_JSON (JSON_String).To_JSON_Object;


Parents := Empty_JSON_Array;
Parents := Empty_JSON_Array;