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

fix regexp2

db4
Doug Coleman 2008-09-09 19:16:11 -05:00
parent 0f8c6bfd83
commit 6d62a34ba0
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
unfinished/regexp2/regexp2.factor
View File

@ -29,7 +29,7 @@ IN: regexp2
: matches? ( string regexp -- ? ) : matches? ( string regexp -- ? )
dupd match dupd match
[ [ length ] [ range-length 1- ] bi* = ] [ drop f ] if* ; [ [ length ] [ length>> 1- ] bi* = ] [ drop f ] if* ;
: match-head ( string regexp -- end ) match length>> 1- ; : match-head ( string regexp -- end ) match length>> 1- ;

2
unfinished/regexp2/traversal/traversal.factor
View File

@ -18,7 +18,7 @@ TUPLE: dfa-traverser
matches ; matches ;
: <dfa-traverser> ( text regexp -- match ) : <dfa-traverser> ( text regexp -- match )
[ dfa-table>> ] [ traversal-flags>> ] bi [ dfa-table>> ] [ dfa-traversal-flags>> ] bi
dfa-traverser new dfa-traverser new
swap >>traversal-flags swap >>traversal-flags
swap [ start-state>> >>current-state ] keep swap [ start-state>> >>current-state ] keep