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

(pregexp "[") -- aka (pregexp "\133") -- should signal better error.

Browse Source 
(Related to bug 6114.)

original commit: af9f6c1316aca40d2ed03a974f82d250d4530469
This commit is contained in:
Dorai Sitaram 2005-04-25 13:32:41 +00:00
parent 8467c12dec
commit e41a34ee34
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/mzlib/pregexp.ss
View File

@ -17,7 +17,7 @@
;(c) Dorai Sitaram,
;http://www.ccs.neu.edu/~dorai/scmxlate/scmxlate.html
(define *pregexp-version* 20050424)
(define *pregexp-version* 20050425)
(define *pregexp-comment-char* #\;)
@ -56,14 +56,15 @@
((#\$) (list ':eos (+ i 1)))
((#\.) (pregexp-wrap-quantifier-if-any (list ':any (+ i 1)) s n))
((#\[)
(pregexp-wrap-quantifier-if-any
(case (string-ref s (+ i 1))
((#\^)
(let ((vv (pregexp-read-char-list s (+ i 2) n)))
(list (list ':neg-char (car vv)) (cadr vv))))
(else (pregexp-read-char-list s (+ i 1) n)))
s
n))
(let ((i+1 (+ i 1)))
(pregexp-wrap-quantifier-if-any
(case (and (< i+1 n) (string-ref s i+1))
((#\^)
(let ((vv (pregexp-read-char-list s (+ i 2) n)))
(list (list ':neg-char (car vv)) (cadr vv))))
(else (pregexp-read-char-list s i+1 n)))
s
n)))
((#\()
(pregexp-wrap-quantifier-if-any
(pregexp-read-subpattern s (+ i 1) n)
@ -662,4 +663,5 @@
(cons c r))))))))
)
)