From 7a6f4586c2e83ffcdb5a8b7b2c5591f6e80e038f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= Date: Sun, 13 Oct 2024 00:34:11 -0300 Subject: Change project file structure and api --- main.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 main.lisp (limited to 'main.lisp') diff --git a/main.lisp b/main.lisp new file mode 100644 index 0000000..6357cc4 --- /dev/null +++ b/main.lisp @@ -0,0 +1,11 @@ +(in-package #:monparser) + +(defun parse (parser data) + (let* ((result (funcall parser + (make-instance 'parser-input + :cursor 0 + :data data)))) + (if (parsing-p result) + (let ((finished? (not (has-data? (parsing-left result))))) + (values (parsing-tree result) finished?)) + result))) -- cgit v1.2.3