Permalink
Browse files

Introduced :EOF command.

  • Loading branch information...
1 parent 28d19dd commit 96fc5412dc43c2b385d509c37ffc50f767632e95 Volkan YAZICI committed Jul 15, 2007
Showing with 4 additions and 0 deletions.
  1. +3 −0 README
  2. +1 −0 meta-sexp.lisp
View
@@ -173,6 +173,9 @@ SPACE? TAB? UPPER? WHITE-SPACE?
(:CHAR-RESET CHAR-ACCUM)
Resets supplied accumulators.
+(:EOF)
+ Returns true when reached to the end of supplied input data.
+
(:READ-ATOM)
Reads current atom at the cursor position.
View
@@ -204,6 +204,7 @@
`(char-accum-push ,(cadr form) ,(caddr form))
`(char-accum-push (read-atom ,ctx) ,(cadr form))))
(:char-reset `(reset-char-accum ,(cadr form)))
+ (:eof `(= (parser-context-cursor ,ctx) (parser-context-size ,ctx)))
(:read-atom `(read-atom ,ctx))
(:debug
`(prog1 t

0 comments on commit 96fc541

Please sign in to comment.