42 lines
1.1 KiB
Ada
42 lines
1.1 KiB
Ada
with Ada.Text_IO;
|
|
with GNATCOLL.JSON;
|
|
|
|
procedure JSON_Test is
|
|
use Ada.Text_IO;
|
|
use GNATCOLL.JSON;
|
|
|
|
JSON_String : constant String := "{""name"":""Pingu"",""born"":1986}";
|
|
|
|
Penguin : JSON_Value := Create_Object;
|
|
Parents : JSON_Array;
|
|
begin
|
|
Penguin.Set_Field (Field_Name => "name",
|
|
Field => "Linux");
|
|
|
|
Penguin.Set_Field (Field_Name => "born",
|
|
Field => 1992);
|
|
|
|
Append (Parents, Create ("Linus Torvalds"));
|
|
Append (Parents, Create ("Alan Cox"));
|
|
Append (Parents, Create ("Greg Kroah-Hartman"));
|
|
|
|
Penguin.Set_Field (Field_Name => "parents",
|
|
Field => Parents);
|
|
|
|
Put_Line (Penguin.Write);
|
|
|
|
Penguin := Read (JSON_String, "json.errors");
|
|
|
|
Penguin.Set_Field (Field_Name => "born",
|
|
Field => 1986);
|
|
|
|
Parents := Empty_Array;
|
|
Append (Parents, Create ("Otmar Gutmann"));
|
|
Append (Parents, Create ("Silvio Mazzola"));
|
|
|
|
Penguin.Set_Field (Field_Name => "parents",
|
|
Field => Parents);
|
|
|
|
Put_Line (Penguin.Write);
|
|
end JSON_Test;
|