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

remove mysterious parsing of backslash-dollar in #px mode

Browse Source 
svn: r4397
This commit is contained in:
Matthew Flatt 2006-09-20 13:39:55 +00:00
parent 0828cd338c
commit b0f28a2611
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/rx.ss
View File

@ -1658,8 +1658,6 @@
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Check that rx doesn't parse as px:
(test '(#"") regexp-match #px#"\\$" #"a$b")
(test '(#"$") regexp-match #rx#"\\$" #"a$b")
(test '(#"aa" #"a") regexp-match #px#"(a)\\1" #"aa")
(test '(#"a1" #"a") regexp-match #rx#"(a)\\1" #"a1")
(test '(#"a") regexp-match #px#"\\w" #"aw")

6
src/mzscheme/src/regexp.c
View File

@ -1263,11 +1263,7 @@ regatom(int *flagp, int parse_flags, int at_start)
if (regparse == regparse_end)
FAIL("trailing backslash in pattern");
c = regparsestr[regparse++];
if ((c == '$') && (parse_flags & PARSE_PCRE)) {
ret = regnode(NOTHING);
regmatchmin = regmatchmax = 0;
*flagp |= SIMPLE|SPNOTHING;
} else if ((parse_flags & PARSE_PCRE) && (c == 'b')) {
if ((parse_flags & PARSE_PCRE) && (c == 'b')) {
ret = regnode(WORDBOUND);
regmatchmin = regmatchmax = 0;
if (!regmaxlookback)