From eb0bb80c86c9539712b78cf8902d230e0c4e778e Mon Sep 17 00:00:00 2001 From: NalaGinrut Date: Thu, 29 Dec 2011 17:25:03 +0800 Subject: [PATCH] ADD regexp-split --- module/ice-9/regex.scm | 23 ++++++++++++++++++++++- 1 files changed, 22 insertions(+), 1 deletions(-) diff --git a/module/ice-9/regex.scm b/module/ice-9/regex.scm index f7b94b7..5a90c67 100644 --- a/module/ice-9/regex.scm +++ b/module/ice-9/regex.scm @@ -41,7 +41,7 @@ #:export (match:count match:string match:prefix match:suffix regexp-match? regexp-quote match:start match:end match:substring string-match regexp-substitute fold-matches list-matches - regexp-substitute/global)) + regexp-substitute/global regexp-split)) ;; References: ;; @@ -226,3 +226,24 @@ (begin (do-item (car items)) ; This is not. (next-item (cdr items))))))))))) + +(define regexp-split + (lambda (regex str) + (let* ([len (string-length str)] + [ret (fold-matches + regex str (list '() 0 0 '("")) + (lambda (m prev) + (let* ([ll (car prev)] + [count (1+ (cadr prev))] + [start (caddr prev)] + [tail (match:suffix m)] + [end (match:start m)] + [s (string-copy str start end)] + ) + (list `(,@ll ,s ,(match:substring m)) + count (match:end m) tail) + )))] ;; end fold-matches + ) ;; end let* + `(,@(car ret) ,(cadddr ret)) + ))) + -- 1.7.0.4