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

*** empty log message ***

Browse Source 
original commit: 0f48582a9dcca459732fee3b7e949bcd5402ed37
tokens
Scott Owens 23 years ago
parent e8c9c4d877
commit f520a564ed
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File

6
collects/parser-tools/private-yacc/parser-builder.ss
Unescape Escape View File

@ -118,7 +118,9 @@
(lambda () (lambda ()
,(if src-pos ,(if src-pos
`(err #t (token-name tok) (token-value tok) (cadr ip) (caddr ip)) `(err #t (token-name tok) (token-value tok) (cadr ip) (caddr ip))
`(err #t (token-name tok) (token-value tok))))))))) `(err #t (token-name tok) (token-value tok)))
(raise-read-error (format "parser: got token of unknown type ~a" (token-name tok)))))))))
(lambda (get-token) (lambda (get-token)
(let parsing-loop ((stack (list 0)) (let parsing-loop ((stack (list 0))
(ip (get-token))) (ip (get-token)))
@ -141,7 +143,7 @@
((symbol? ip) (make-token ip #f)) ((symbol? ip) (make-token ip #f))
((token? ip) ip) ((token? ip) ip)
(else (raise-type-error 'parser "token or symbol" 0 ip))))) (else (raise-type-error 'parser "token or symbol" 0 ip)))))
(action (find-action stack tok) ,@(if src-pos `(ip) `()))) (action (find-action stack tok ,@(if src-pos `(ip) `()))))
(cond (cond
((shift? action) ((shift? action)
;; (printf "shift:~a~n" (shift-state action)) ;; (printf "shift:~a~n" (shift-state action))

Write Preview
Loading…
Cancel
Save