A set of grammar reader macros to parse JSON in ASM programming language

gistfile1.scm

# ;; JSON anybody?
(grammar ((JObject <- (: "\\{") (? JPair (* (:",") JPair)) (:"\\}"))
                   `($(car JObject)
                     $(cdr JObject)))
         ((JPair   <- JString (: ":") JValue)
                   `($(car JPair)
                     $(cdr JPair)))
         ((JString <- (:"\"") "[^\"]*" (:"\"")))
         ((JValue  <- (/ JString JNumber JObject JArray JTrue JFalse JNull)))
         ((JNumber <- (/ "0" "[1-9][0-9]*(\\.[0-9]*)?"))
                   `($(car JNumber)
                     ($(str->num (caadr JNumber)))))
         ((JArray  <- (:"\\[") (? JValue (* (:",") JValue)) (:"\\]"))
                   `($(car JArray)
                     ($(vectorof (cadr JArray)))))
         ((JTrue   <- "true"))
         ((JFalse  <- "false"))
         ((JNull   <- "null")))

# ;; Let's test it:
(write (JObject "{
    \"Number\": 42,
    \"Decimal\": 123.456,
    \"String\": \"abc\",
    \"Empty\" : {},
    \"Array\" : [0,1,2],
    \"Array2\": [0, [0,1,2], \"abc\"],
    \"Obj\"   : { \"Member\":0, \"Member\":[0,1,2] },
    \"True\"  : true,
    \"False\" : false,
    \"Null\"  : null
  }"))

# ;; Parses to:
(("Number" 42)
 ("Decimal" 123.456)
 ("String" "abc")
 ("Empty" ())
 ("Array" [0 1 2])
 ("Array2" [0 [0 1 2] "abc"])
 ("Obj" (("Member" 0)
         ("Member" [0 1 2])))
 ("True" "true")
 ("False" "false")
 ("Null" "null"))