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

*** empty log message ***

Browse Source 
original commit: eebe6d7120d6e7366dc24491c2d829d780785df2
tokens
Scott Owens 23 years ago
parent 6529029f20
commit fc326539e2
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File

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

@ -200,20 +200,18 @@
((eq? #\tab char-in) ((eq? #\tab char-in)
(let ((skip-amt (- 8 (modulo (lex-buffer-col lb) 8)))) (let ((skip-amt (- 8 (modulo (lex-buffer-col lb) 8))))
(set-lex-buffer-tab-skips! lb (cons skip-amt (lex-buffer-tab-skips lb))) (set-lex-buffer-tab-skips! lb (cons skip-amt (lex-buffer-tab-skips lb)))
(set-lex-buffer-col! lb (+ skip-amt (lex-buffer-col lb))) (set-lex-buffer-col! lb (+ skip-amt (lex-buffer-col lb)))))
(set-lex-buffer-offset! lb (+ skip-amt (lex-buffer-col lb)))))
((eq? #\newline char-in) ((eq? #\newline char-in)
(set-lex-buffer-line-lengths! (set-lex-buffer-line-lengths!
lb lb
(cons (lex-buffer-col lb) (cons (lex-buffer-col lb)
(lex-buffer-line-lengths lb))) (lex-buffer-line-lengths lb)))
(set-lex-buffer-line! lb (add1 (lex-buffer-line lb))) (set-lex-buffer-line! lb (add1 (lex-buffer-line lb)))
(set-lex-buffer-col! lb 1) (set-lex-buffer-col! lb 1))
(set-lex-buffer-offset! lb (add1 (lex-buffer-offset lb))))
(else (else
(set-lex-buffer-col! lb (add1 (lex-buffer-col lb))) (set-lex-buffer-col! lb (add1 (lex-buffer-col lb)))))
(set-lex-buffer-offset! lb (add1 (lex-buffer-offset lb))))) (set-lex-buffer-offset! lb (add1 (lex-buffer-offset lb)))
char-in))) char-in)))
;; push-back: lex-buf * int -> c list ;; push-back: lex-buf * int -> c list
;; pushes the last read i characters back to be read again ;; pushes the last read i characters back to be read again
@ -240,8 +238,6 @@
((eq? #\tab (car from)) ((eq? #\tab (car from))
(set-lex-buffer-col! lb (- (lex-buffer-col lb) (set-lex-buffer-col! lb (- (lex-buffer-col lb)
(car (lex-buffer-tab-skips lb)))) (car (lex-buffer-tab-skips lb))))
(set-lex-buffer-offset! lb (- (add1 (lex-buffer-offset lb))
(car (lex-buffer-tab-skips lb))))
(set-lex-buffer-tab-skips! lb (cdr (lex-buffer-tab-skips lb)))) (set-lex-buffer-tab-skips! lb (cdr (lex-buffer-tab-skips lb))))
(else (else
(set-lex-buffer-col! lb (sub1 (lex-buffer-col lb))))) (set-lex-buffer-col! lb (sub1 (lex-buffer-col lb)))))

Write Preview
Loading…
Cancel
Save