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

changed pregexp-replace[*] to accept a procedure as the last argument

Browse Source 
svn: r2706
This commit is contained in:
Matthew Flatt 2006-04-18 17:21:59 +00:00
parent b36f20b804
commit 4185aceefe
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/mzlib/pregexp.ss
View File

@ -655,17 +655,23 @@
(let* ((n (string-length str)) (pp (pregexp-match-positions pat str 0 n)))
(if (not pp)
str
(let ((ins-len (string-length ins)) (m-i (caar pp)) (m-n (cdar pp)))
(let ((m-i (caar pp)) (m-n (cdar pp)))
(string-append
(substring str 0 m-i)
(pregexp-replace-aux str ins ins-len pp)
(if (procedure? ins)
(apply ins
(map (lambda (p)
(substring str (car p) (cdr p)))
pp))
(pregexp-replace-aux str ins (string-length ins) pp))
(substring str m-n n)))))))
(define pregexp-replace*
(lambda (pat str ins)
(let ((pat (if (string? pat) (pregexp pat) pat))
(n (string-length str))
(ins-len (string-length ins)))
(ins-len (and (string? ins)
(string-length ins))))
(let loop ((i 0) (r ""))
(if (>= i n)
r
@ -677,7 +683,12 @@
(string-append
r
(substring str i (caar pp))
(pregexp-replace-aux str ins ins-len pp))))))))))
(if (procedure? ins)
(apply ins
(map (lambda (p)
(substring str (car p) (cdr p)))
pp))
(pregexp-replace-aux str ins ins-len pp)))))))))))
(define pregexp-quote
(lambda (s)