~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ecdf14f
)
src/lexer-proto.lisp: Export some more symbols.
author
Mark Wooding
<mdw@distorted.org.uk>
Sun, 30 Aug 2015 09:58:38 +0000
(10:58 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sun, 20 Sep 2015 13:15:39 +0000
(14:15 +0100)
src/lexer-proto.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/lexer-proto.lisp
b/src/lexer-proto.lisp
index
d2181e1
..
b7653b4
100644
(file)
--- a/
src/lexer-proto.lisp
+++ b/
src/lexer-proto.lisp
@@
-99,6
+99,7
@@
(scanner-current-char char-scanner))
(and consumedp (file-location char-scanner))))
(scanner-current-char char-scanner))
(and consumedp (file-location char-scanner))))
+(export 'skip-until)
(defparse skip-until (:context (context token-scanner-context)
(&key (keep-end nil keep-end-p))
&rest token-types)
(defparse skip-until (:context (context token-scanner-context)
(&key (keep-end nil keep-end-p))
&rest token-types)
@@
-113,6
+114,7
@@
:keep-end ,(if keep-end-p keep-end
(> (length token-types) 1))))
:keep-end ,(if keep-end-p keep-end
(> (length token-types) 1))))
+(export 'error)
(defparse error (:context (context token-scanner-context)
(&key) sub &optional (recover t))
"Try to parse SUB; if it fails then report an error, and parse RECOVER.
(defparse error (:context (context token-scanner-context)
(&key) sub &optional (recover t))
"Try to parse SUB; if it fails then report an error, and parse RECOVER.
@@
-132,6
+134,7
@@
;;;--------------------------------------------------------------------------
;;; Lexical analysis utilities.
;;;--------------------------------------------------------------------------
;;; Lexical analysis utilities.
+(export 'scan-comment)
(defun scan-comment (char-scanner)
"Scan a comment (either `/* ... */' or `// ...') from CHAR-SCANNER.
(defun scan-comment (char-scanner)
"Scan a comment (either `/* ... */' or `// ...') from CHAR-SCANNER.