Changeset 8 for trunk

Timestamp:

05/31/2007 03:40:43 AM (19 years ago)

Author:

dsowen

Message:

Added example and documentation.

Location:

trunk

Files:

• example.lisp (added)
• lex.lisp (modified) (2 diffs)

trunk/lex.lisp

@@ -1 +1 @@
 (defpackage #:dso-lex
+    (:documentation "Allows the definition of lexers.  See DEFLEXER.")
   (:use #:cl #:cl-ppcre)
   (:export #:deflexer))
@@ -17 +18 @@
 
 (defmacro deflexer (name &body body)
+  "Defines lexers, called as a function of the given NAME.  The body
+consists of token-class definitions, each being a list of a regular
+expression, the name of the class, and an optional filter.
+
+Currently, matching is done using *only* priority (first match wins),
+and does not look for the longest match."
   (let ((regex (combine (mapcar #'first body)))
         (classes (map 'vector #'second body))