Add FFI definitions for json along with a JSON parser

json/spago.yaml

@@ -0,0 +1,18 @@
+package:
+  name: json
+  dependencies:
+  - prelude
+  - arrays
+  - functions
+  - integers
+  - maybe
+  - either
+  - tuples
+  - foldable-traversable
+  - gen
+  - strings
+  - unfoldable
+  test:
+    main: Test.JSON.Main
+    dependencies:
+      - assert

json/src/JSON.ss

@@ -0,0 +1,31 @@
+(library (JSON foreign)
+  (export _null
+          fromBoolean
+          fromInt
+          fromString
+          fromJArray
+          fromJObject
+          print
+          printIndented)
+  (import (chezscheme)
+          (only (JSON.Internal foreign) json-stringify))
+
+  (define (coerce x) x)
+
+  (define _null 'null)
+
+  (define fromBoolean coerce)
+
+  (define fromInt inexact)
+
+  (define fromString coerce)
+
+  (define fromJArray coerce)
+
+  (define fromJObject coerce)
+
+  (define print json-stringify)
+
+  (define printIndented json-stringify)
+
+  )

json/src/JSON/Array.ss

@@ -0,0 +1,9 @@
+(library (JSON.Array foreign)
+  (export singleton)
+  (import (chezscheme)
+          (prefix (purs runtime srfi :214) srfi:214:))
+
+  (define (singleton x) (srfi:214:flexvector x))
+
+  )
+