diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-11-24 07:01:47 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2025-11-24 07:01:47 -0300 |
| commit | 2ebab36f8c689fa3e6f88cfc25cecd83848ca129 (patch) | |
| tree | 63208a8be028b19974b8a5e686470bd4fb3fc657 /extra.lisp | |
| parent | 1c1162747d8d7e12140329a105c0776d5555a351 (diff) | |
| download | monparser-2ebab36f8c689fa3e6f88cfc25cecd83848ca129.tar.gz monparser-2ebab36f8c689fa3e6f88cfc25cecd83848ca129.zip | |
Big update
Diffstat (limited to 'extra.lisp')
| -rw-r--r-- | extra.lisp | 9 |
1 files changed, 2 insertions, 7 deletions
@@ -1,13 +1,8 @@ (in-package #:monparser) (defparameter whitespace - (many (unit #'char:whitespace?))) - -(defparameter end-of-input - (lambda (input) - (if (cursed:has-data? input) - (make-failure :place input :message "Didn't reach end of input.") - (make-parsing :tree nil :start input :end input)))) + (many (unit (or (char= it #\Space) + (not (graphic-char-p it)))))) (defun repeat (p min &optional (max 0)) (if (> min 0) |