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

regexp-replace*: recognize \$ as empty string

Browse Source
This commit is contained in:
Matthew Flatt 2015-10-05 13:28:53 -06:00
parent d988055a49
commit c9c03dd40b
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-test-core/tests/racket/basic.rktl
View File

@ -1121,6 +1121,8 @@
(test "x&cy&z" regexp-replace* #rx"a(.)" "xabcyawz" "\\&") (test "x&cy&z" regexp-replace* #rx"a(.)" "xabcyawz" "\\&")
(test "x\\cy\\z" regexp-replace* #rx"a(.)" "xabcyawz" "\\\\") (test "x\\cy\\z" regexp-replace* #rx"a(.)" "xabcyawz" "\\\\")
(test "ap0p0le" regexp-replace* #rx"p" "apple" "\\0\\$0")
;; Test sub-matches with procedure replace (second example by synx) ;; Test sub-matches with procedure replace (second example by synx)
(test "myCERVEZA myMI Mi" (test "myCERVEZA myMI Mi"
regexp-replace* "([Mm])i ([a-zA-Z]*)" "mi cerveza Mi Mi Mi" regexp-replace* "([Mm])i ([a-zA-Z]*)" "mi cerveza Mi Mi Mi"

4
racket/collects/racket/private/string.rkt
View File

@ -410,7 +410,9 @@
(or (and (equal? (char->integer #\&) next) (or (and (equal? (char->integer #\&) next)
#"&") #"&")
(and (equal? (char->integer #\\) next) (and (equal? (char->integer #\\) next)
#"\\"))) #"\\")
(and (equal? (char->integer #\$) next)
#"")))
=> (lambda (s) => (lambda (s)
(cons s (loop (add1 (cdar m)))))] (cons s (loop (add1 (cdar m)))))]
[else [else