suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

a line-item can also be terminated by an EOF

Browse Source 
svn: r6802
This commit is contained in:
Eli Barzilay 2007-07-03 03:32:07 +00:00
parent 3a65433b20
commit fe4857ee3c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scribble/reader.ss
View File

@ -62,9 +62,10 @@
(define str:end-of-line "[ \t]*\r?\n[ \t]*") ; eat spaces on the next line
(define re:end-of-line (^px str:end-of-line))
(define (re:line-item* bgn end)
(^px "(.+?)(?:"bgn"|"end"|"ch:command"|"str:end-of-line")"))
(^px "(.+?)(?:" (if bgn `(,bgn"|") "") (if end `(,end"|") "")
ch:command"|"str:end-of-line"|$)"))
(define re:line-item (re:line-item* ch:lines-begin ch:lines-end))
(define re:line-item-no-nests (^px "(.+?)(?:"ch:command"|"str:end-of-line")"))
(define re:line-item-no-nests (re:line-item* #f #f))
;; --------------------------------------------------------------------------
;; utilities