mbutterick
/
br-parser-tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
original commit: a2449d4255164becbd71626ee707c6b908079434
tokens
Scott Owens 23 years ago
parent a261d785d0
commit 08d835e993
1 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File

26
collects/parser-tools/lex.ss
Unescape Escape View File

@ -14,7 +14,6 @@
get-position position-offset position-line position-col position? get-position position-offset position-line position-col position?
define-tokens define-empty-tokens) define-tokens define-empty-tokens)
(define-syntaxes (lexer lexer-src-pos) (define-syntaxes (lexer lexer-src-pos)
(let ((build-lexer (let ((build-lexer
(lambda (wrap?) (lambda (wrap?)
@ -37,22 +36,15 @@
(trans-table-stx (table-trans table)) (trans-table-stx (table-trans table))
(eof-table-stx (table-eof table)) (eof-table-stx (table-eof table))
(no-lookahead-stx (table-no-lookahead table)) (no-lookahead-stx (table-no-lookahead table))
(actions-stx `(vector ,@(vector->list (table-actions table))))) (actions-stx `(vector ,@(vector->list (table-actions table))))
(if wrap? (wrap? wrap?))
(syntax (syntax
(lexer-body start-state-stx (lexer-body start-state-stx
trans-table-stx trans-table-stx
eof-table-stx eof-table-stx
actions-stx actions-stx
no-lookahead-stx no-lookahead-stx
#t)) wrap?)))))))))))
(syntax
(lexer-body start-state-stx
trans-table-stx
eof-table-stx
actions-stx
no-lookahead-stx
#f))))))))))))
(values (values
(build-lexer #f) (build-lexer #f)
(build-lexer #t)))) (build-lexer #t))))

Write Preview
Loading…
Cancel
Save