diff options
author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2024-10-13 03:52:47 -0300 |
---|---|---|
committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2024-10-13 03:52:47 -0300 |
commit | 6659f26d557d792a0bf3f596a0d87aa69a7f2317 (patch) | |
tree | 4d5dfedef0b55b7d594a283e8eb4be1b7793c41d /core.lisp | |
parent | 1af10ddc10e35805c6723d7a2a85d7e3768497f8 (diff) | |
download | monparser-6659f26d557d792a0bf3f596a0d87aa69a7f2317.tar.gz monparser-6659f26d557d792a0bf3f596a0d87aa69a7f2317.zip |
Improve safety based on json parser tests
Diffstat (limited to 'core.lisp')
-rw-r--r-- | core.lisp | 14 |
1 files changed, 10 insertions, 4 deletions
@@ -11,11 +11,15 @@ (setf predicate `(,predicate it))) ((characterp predicate) (setf predicate `(char-equal ,predicate it))) - (t (setf predicate + ((listp predicate) + (if (eq (car predicate) 'function) + (setf predicate `(funcall ,predicate it)) + (setf predicate (nsubst-if 'it (lambda (x) (and (symbolp x) (string-equal (symbol-name x) "IT"))) predicate)))) + (t (error (format nil "Invalid predicate: ~a." predicate)))) `(lambda (input &key limit lazy) (declare (ignore lazy)) (if (and limit (<= limit 0)) @@ -33,7 +37,8 @@ (declare (ignore lazy)) (labels ((one-of-rec (parsers) (let ((intermediate-parsers '()) - (result nil)) + (result (make-failure :place input + :message "Exhausted options."))) (dolist (p parsers) (let ((r (funcall p input @@ -48,8 +53,9 @@ (setf result r))) ((failure-p r) (when (or (failure-p result) - (= (length parsers) 1)) - (setf result r)))))) + (= (length parsers) 1)) + (setf result r))) + (t (error (format nil "Invalid return value: ~a" r)))))) (if intermediate-parsers (one-of-rec intermediate-parsers) result)))) |