json

This is a JSON parser implemented in Coalton.

Installation

Since it depends on Coalton, please refer to the link below to install Coalton.

https://github.com/coalton-lang/coalton

Next, place tokyo.tojo.parser and its dependencies in your local repository (~/common-lisp, etc.).

git clone https://github.com/tojoqk/tokyo.tojo.iterable.git
git clone https://github.com/tojoqk/tokyo.tojo.parser.git
git clone https://github.com/tojoqk/tokyo.tojo.json.git

If you are using Quicklisp, you can load the system with the following.

(ql:quickload :tokyo.tojo.json)

Usage

See docs/reference.md file.

Examples

(defpackage #:json-parser-example
  (:use #:coalton
        #:coalton-prelude)
  (:local-nicknames
   (#:json #:tokyo.tojo.json)
   (#:map #:coalton-library/ord-map)))

(in-package #:json-parser-example)

(named-readtables:in-readtable coalton:coalton)

(coalton-toplevel
  (declare get-number (json:JSON -> (Optional Double-Float)))
  (define (get-number x)
    (match x
      ((json:Number n) (Some n))
      (_ None)))

  (declare get-string (json:JSON -> (Optional String)))
  (define (get-string x)
    (match x
      ((json:String str) (Some str))
      (_ None)))

  (declare get-object (json:JSON -> (Optional (map:Map String json:JSON))))
  (define (get-object x)
    (match x
      ((json:Object m) (Some m))
      (_ None)))

  (declare eval (String -> (Optional Double-Float)))
  (define (eval str)
    (do (json <- (as-optional (tryInto str)))
        (obj <- (get-object json))
        (left <- (>>= (map:lookup obj "left")
                      get-number))
        (op <- (>>= (map:lookup obj "op")
                    get-string))
        (right <- (>>= (map:lookup obj "right")
                       get-number))
        (match op
          ("+" (pure (+ left right)))
          (_ (default))))))

in REPL:

CL-USER> (in-package #:json-parser-example)
#<COMMON-LISP:PACKAGE "JSON-PARSER-EXAMPLE">
JSON-PARSER-EXAMPLE> (coalton (eval "{\"left\": 10, \"op\": \"+\", \"right\": 32.0}"))
#.(SOME 42.0d0)
JSON-PARSER-EXAMPLE> (coalton (eval "{\"left\": 10, \"op\": \"-\", \"right\": 32.0}"))
#.NONE
JSON-PARSER-EXAMPLE>

LICENSE

This program is licensed under the MIT License. See the LICENSE file for details.