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;

Task/JSON/Go/json-1.go

@@ -0,0 +1,25 @@
+package main
+
+import "encoding/json"
+import "fmt"
+
+func main() {
+    var data interface{}
+    err := json.Unmarshal([]byte(`{"foo":1, "bar":[10, "apples"]}`), &data)
+    if err == nil {
+        fmt.Println(data)
+    } else {
+        fmt.Println(err)
+    }
+
+    sample := map[string]interface{}{
+        "blue":  []interface{}{1, 2},
+        "ocean": "water",
+    }
+    json_string, err := json.Marshal(sample)
+    if err == nil {
+        fmt.Println(string(json_string))
+    } else {
+        fmt.Println(err)
+    }
+}

Task/JSON/JavaScript/json-1.js

@@ -0,0 +1,4 @@
+var data = JSON.parse('{ "foo": 1, "bar": [10, "apples"] }');
+
+var sample = { "blue": [1,2], "ocean": "water" };
+var json_string = JSON.stringify(sample);

Task/JSON/Python/json-1.py

@@ -0,0 +1,10 @@
+>>> import json
+>>> data = json.loads('{ "foo": 1, "bar": [10, "apples"] }')
+>>> sample = { "blue": [1,2], "ocean": "water" }
+>>> json_string = json.dumps(sample)
+>>> json_string
+'{"blue": [1, 2], "ocean": "water"}'
+>>> sample
+{'blue': [1, 2], 'ocean': 'water'}
+>>> data
+{'foo': 1, 'bar': [10, 'apples']}

Task/JSON/R/json-1.r

@@ -0,0 +1,3 @@
+library(rjson)
+data <- fromJSON('{ "foo": 1, "bar": [10, "apples"] }')
+data

Task/JSON/Tcl/json-1.tcl

@@ -0,0 +1,5 @@
+package require json
+set sample {{ "foo": 1, "bar": [10, "apples"] }}
+
+set parsed [json::json2dict $sample]
+puts $parsed