JSON: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 4: | Line 4: | ||
However, beware that this web application accepts extra commas, so [1,2,3,] validates as correct, which is at odds with the grammar given at json.org [http://www.json.org/fatfree.html]. |
However, beware that this web application accepts extra commas, so [1,2,3,] validates as correct, which is at odds with the grammar given at json.org [http://www.json.org/fatfree.html]. |
||
=={{header|Ada}}== |
|||
<lang 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; |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
{"parents":["Linus Torvalds", "Alan Cox", "Greg Kroah-Hartman"], "name":"Linux", "born":1992} |
|||
{"parents":["Otmar Gutmann", "Silvio Mazzola"], "name":"Pingu", "born":1986} |
|||
</pre> |
|||
=={{header|ANTLR}}== |
=={{header|ANTLR}}== |