From b0213128f7c0cde618c0c3ca958c6b79f2de4b72 Mon Sep 17 00:00:00 2001 From: colin Date: Wed, 2 Aug 2023 21:30:20 -0700 Subject: Improved docgen --- argot.lisp | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'argot.lisp') diff --git a/argot.lisp b/argot.lisp index f394e2a..1eb7fc5 100644 --- a/argot.lisp +++ b/argot.lisp @@ -133,7 +133,17 @@ and it returns VAR in that case." (terpri) (terpri) (loop :for (lhs pattern . more) :in parsed-rules :do (write-rule-doc lhs pattern) - (terpri))))) + (terpri)) + (terpri) + (princ "KEY: ") (terpri) + (princ "::TOKEN:: Any ole token") (terpri) + (princ "::EOF:: Explicitly match the end of the input") (terpri) + (princ "{GRAMMAR} Parse a sublist of tokens with GRAMMAR") (terpri) + (princ "(a|b|..) One of the alternavites a b ...") (terpri) + (princ "PATTERN+ One or more PATTERN") (terpri) + (princ "PATTERN* Zero or more PATTERN") (terpri) + (princ " A nonterminal symbol - naming a parse rule") (terpri) + (princ "[OPT] Zero or one of OPT")))) `(progn (defvar ,name nil) (setf ,name (make-instance 'grammar -- cgit v1.2.3