new files

Task/JSON/Ada/json.ada

@@ -0,0 +1,41 @@
+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;