diff options
-rw-r--r-- | json.asd | 2 | ||||
-rw-r--r-- | json.lisp | 21 | ||||
-rw-r--r-- | package.lisp | 2 |
3 files changed, 23 insertions, 2 deletions
@@ -1,6 +1,6 @@ (asdf:defsystem #:json :serial t - :depends-on () + :depends-on (#:monparser) :components ((:file "package") (:file "json"))) @@ -1 +1,22 @@ (in-package #:json) + +(defparameter number-parser + (let ((signed-digits + (comp ((sign (zero-or-one (unit (lambda (x) (or (char= x #\-) + (char= x #\+)))))) + (natural (one-or-more (unit #'digit-char-p)))) + (cons sign natural)))) + (comp ((base (any signed-digits + (fail "Malformed number."))) + (dot (zero-or-one (unit (lambda (x) (char= x #\.))))) + (fraction (if dot + (any (one-or-more (unit #'digit-char-p)) + (fail "Malformed fractional part.")) + (new nil))) + (e (zero-or-one (unit (lambda (x) (or (char= x #\e) + (char= x #\E)))))) + (exponent (if e + (any signed-digits + (fail "Malformed exponent part.")) + (new nil)))) + (list 'number base fraction exponent)))) diff --git a/package.lisp b/package.lisp index df3e37c..609b6b4 100644 --- a/package.lisp +++ b/package.lisp @@ -1,2 +1,2 @@ (defpackage #:json - (:use #:cl)) + (:use #:cl #:parser)) |