From 401fd8f16664d81d84c2fd7ecbc2333d6f3ec108 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Fri, 28 Aug 2026 06:16:12 -0300 Subject: Prepare for new tracing and tidy up testing Main stuff was moved into base so that I can better incorporate tracing in the future. I'm thinking it will involve modifying new and bind. --- main.lisp | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 main.lisp (limited to 'main.lisp') diff --git a/main.lisp b/main.lisp deleted file mode 100644 index b557327..0000000 --- a/main.lisp +++ /dev/null @@ -1,27 +0,0 @@ -(in-package #:monparser) - -(declaim (ftype (function (parser string) result) parse)) -(defun parse (parser data) - (funcall parser (make-cursor :data data))) - -(declaim (ftype (function (parser string) parser) append-on-failure)) -(defun append-on-failure (p message) - (lambda (input) - (let ((result (funcall p input))) - (if (failure-p result) - (make-failure :place (result-place result) - :message (concatenate 'string message (failure-message result)) - :priority (failure-priority result)) - result)))) - -(defmacro defparser (name args parser) - (let ((message (format nil "In ~a:~&" name))) - (if (and (listp args) (every #'symbolp args)) - (let (definition) - (when (= (length args) 0) - (push `(defparameter ,name (,name)) definition)) - (push `(defun ,name (,@args) (append-on-failure ,parser ,message)) - definition) - (push 'progn definition) - definition) - (error "Malformed argument list.")))) -- cgit v1.2.3