Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding char-set->sre.

Browse source
This commit is contained in:
Alex Shinn 2013-11-29 23:52:43 +09:00
parent 300184b160
commit 9c5871484f
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/regexp.scm
View file

@ -627,6 +627,9 @@
(else (error "invalid sre char-set" sre))))) (else (error "invalid sre char-set" sre)))))
(else (error "invalid sre char-set" sre))))) (else (error "invalid sre char-set" sre)))))
(define (char-set->sre cset)
(list (char-set->string cset)))
(define (strip-submatches sre) (define (strip-submatches sre)
(if (pair? sre) (if (pair? sre)
(case (car sre) (case (car sre)

2
lib/chibi/regexp.sld
View file

@ -1,6 +1,6 @@
(define-library (chibi regexp) (define-library (chibi regexp)
(export regexp regexp? rx regexp->sre (export regexp regexp? rx regexp->sre char-set->sre
regexp-matches regexp-matches? regexp-search regexp-matches regexp-matches? regexp-search
regexp-replace regexp-replace-all regexp-replace regexp-replace-all
regexp-fold regexp-extract regexp-split regexp-fold regexp-extract regexp-split