Added a character-match rule
authorD Herring <dherring@at.tentpost.dot.com>
Sat, 10 Mar 2007 22:53:32 +0000 (17:53 -0500)
committerD Herring <dherring@at.tentpost.dot.com>
Sat, 10 Mar 2007 22:53:32 +0000 (17:53 -0500)
parser.lisp

index 7ad28f6..3e8e51d 100644 (file)
         nil
         (string= prefix string :start2 start :end2 end))))
 
+(defmacro grammar-char (c)
+  "match = 'c'"
+  `(when (and
+          (< start (length string))
+          (eq ,c (char string start)))
+    (values (1+ start) ,(string c))))
+
 (defmacro grammar-string (str)
   "match = 'str'"
   (let ((l (length str)))