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

*** empty log message ***

Browse Source 
original commit: 4e9ab6a96f6c37d0f561bba49043d3b36ff1baa4
tokens
Scott Owens 22 years ago
parent 3b49e208ac
commit 09d88646df
1 changed files with 65 additions and 68 deletions
Show Stats Download Patch File Download Diff File

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

@ -40,23 +40,19 @@
(actions-stx `(vector ,@(vector->list (table-actions table)))))
(if wrap?
(syntax
(let-values (((a b c d e)
(values start-state-stx
(lexer-body start-state-stx
trans-table-stx
eof-table-stx
actions-stx
no-lookahead-stx)))
(lambda (lb)
(lexer-body lb a b c d e #t))))
no-lookahead-stx
#t))
(syntax
(let-values (((a b c d e)
(values start-state-stx
(lexer-body start-state-stx
trans-table-stx
eof-table-stx
actions-stx
no-lookahead-stx)))
(lambda (lb)
(lexer-body lb a b c d e #f))))))))))))))
no-lookahead-stx
#f))))))))))))
(values
(build-lexer #f)
(build-lexer #t))))
@ -100,7 +96,8 @@
(define (lexer-body lb start-state trans-table eof-table actions no-lookahead wrap?)
(define (lexer-body start-state trans-table eof-table actions no-lookahead wrap?)
(lambda (lb)
(unless (lex-buffer? lb)
(raise-type-error
'lexer
@ -151,7 +148,7 @@
(add1 length)
(if act
length
longest-match-length)))))))))
longest-match-length))))))))))
(define (do-match lb first-pos longest-match-length longest-match-action wrap?)
(let* ((match (get-match lb longest-match-length))

Write Preview
Loading…
Cancel
Save