Changeset trunk,9 for trunk/csv.lisp

Timestamp:

06/18/2007 03:47:51 PM (19 years ago)

Author:

dsowen

revision id:

svn-v3-trunk0:2948df59-2b31-0410-8e06-c40c0b09d5b6:trunk:9

Message:

Added match-only matcher (consumes but doesn't add to tree).
Fixed: String-matching against short input would fail.
In process of changing tree representation (to match original parse.lisp).
Re-indenting GNU-Emacs--style.

File:

• trunk/csv.lisp (modified) (2 diffs)

trunk/csv.lisp

@@ -4 +4 @@
 (import 'parse::with-gensyms)
 (import 'cl-ppcre:scan)
-(load "lisp/parse/parse3")
+(load "parse/parse3")
 
 (defmacro defparser (name rule)
@@ -20 +20 @@
 (defgrammar
   (file (+ row))
-  (row (value (* (comma value)) #\Newline))
+  (row (value (* ((= comma) value)) (= #\Newline)))
   (comma #\,)
   (value (? (/ dquoted-value squoted-value raw-value)))