From 1c1162747d8d7e12140329a105c0776d5555a351 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Mon, 23 Jun 2025 02:22:51 -0300 Subject: Extract input to cursed --- extra.lisp | 41 +++++++++++++++++++++++++++-------------- 1 file changed, 27 insertions(+), 14 deletions(-) (limited to 'extra.lisp') diff --git a/extra.lisp b/extra.lisp index 11e32f8..81776a7 100644 --- a/extra.lisp +++ b/extra.lisp @@ -1,11 +1,24 @@ (in-package #:monparser) -(defun whitespace? (x) - (or (char= x #\Space) - (not (graphic-char-p x)))) - (defparameter whitespace - (many (unit #'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)))) + +(defun repeat (p min &optional (max 0)) + (if (> min 0) + (comp ((x p) + (xs (repeat p (1- min) (1- max)))) + (cons x xs)) + (if (> max 0) + (comp ((x (optional p)) + (xs (repeat p 0 (if x (1- max) 0)))) + (if x (cons x xs) x)) + nothing))) (defmacro literal (word) (when (not (stringp word)) @@ -20,13 +33,13 @@ `(comp ,(reverse binding-list) ,(cons 'list (reverse name-list))))) -(defun separated-list (p separator) - (many - (comp ((v p) - (_ (optional separator))) - v))) +(defmacro within (left p right) + `(comp ((_ ,left) + (cell ,p) + (_ ,right)) + cell)) -(defun surround (left p &optional right) - (comp ((_ left) - (value p) - (_ (or right nothing))))) +(defmacro interlinked (p separator) + `(many (comp ((cell ,p) + (_ (optional ,separator))) + cell))) -- cgit v1.2.3