48 lines
1.7 KiB
Scheme
48 lines
1.7 KiB
Scheme
;pregexp.ss
|
|
;; Originally:
|
|
;; ;Portable regular expressions for Scheme
|
|
;; ;Dorai Sitaram
|
|
;; ;http://www.ccs.neu.edu/~dorai/pregexp/pregexp.html
|
|
;; but `pregexp' functionality is now built into MzScheme, so
|
|
;; this is mostly a wrapper module.
|
|
|
|
(module pregexp mzscheme
|
|
(require mzlib/string
|
|
mzlib/kw)
|
|
(provide pregexp
|
|
pregexp-match-positions
|
|
pregexp-match
|
|
pregexp-split
|
|
pregexp-replace
|
|
pregexp-replace*
|
|
(rename regexp-quote pregexp-quote))
|
|
|
|
(define (pattern->pregexp who pattern)
|
|
(cond
|
|
[(bytes? pattern) (byte-pregexp pattern)]
|
|
[(string? pattern) (pregexp pattern)]
|
|
[(regexp? pattern) pattern]
|
|
[(byte-regexp? pattern) pattern]
|
|
[else (raise-type-error who "regexp, byte-regexp, string, or byte string"
|
|
pattern)]))
|
|
|
|
(define/kw (pregexp-match pattern input #:optional [start-k 0] [end-k #f] [output-port #f])
|
|
(let ([pattern (pattern->pregexp 'pregexp-match pattern)])
|
|
(regexp-match pattern input start-k end-k output-port)))
|
|
|
|
(define/kw (pregexp-match-positions pattern input #:optional [start-k 0] [end-k #f] [output-port #f])
|
|
(let ([pattern (pattern->pregexp 'pregexp-match-positions pattern)])
|
|
(regexp-match-positions pattern input start-k end-k output-port)))
|
|
|
|
(define/kw (pregexp-split pattern string #:optional [start 0] [end #f])
|
|
(let ([pattern (pattern->pregexp 'pregexp-split pattern)])
|
|
(regexp-split pattern string start end)))
|
|
|
|
(define/kw (pregexp-replace pattern input insert)
|
|
(let ([pattern (pattern->pregexp 'regexp-replace pattern)])
|
|
(regexp-replace pattern input insert)))
|
|
|
|
(define/kw (pregexp-replace* pattern input insert)
|
|
(let ([pattern (pattern->pregexp 'regexp-replace* pattern)])
|
|
(regexp-replace* pattern input insert))))
|