steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add match-range to regexp

db4
Doug Coleman 2008-09-19 15:14:05 -05:00
parent c6db662b3b
commit 40009dac87
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
unfinished/regexp/regexp.factor
View File

@ -33,7 +33,19 @@ IN: regexp
dupd match
[ [ length ] [ length>> 1- ] bi* = ] [ drop f ] if* ;
: match-head ( string regexp -- end ) match length>> 1- ;
: match-head ( string regexp -- end/f ) match [ length>> 1- ] [ f ] if* ;
: match-at ( string m regexp -- n/f finished? )
[
2dup swap length > [ 2drop f f ] [ tail-slice t ] if
] dip swap [ match-head f ] [ 2drop f t ] if ;
: match-range ( string m regexp -- a/f b/f )
3dup match-at over [
drop nip rot drop dupd +
] [
[ 3drop drop f f ] [ drop [ 1+ ] dip match-range ] if
] if ;
: initial-option ( regexp option -- regexp' )
over options>> conjoin ;