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

unbreak regexp

db4
Doug Coleman 2009-04-06 19:43:50 -05:00
parent a380ae2239
commit fb37e0eaca
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/regexp/dfa/dfa.factor
View File

@ -51,10 +51,13 @@ IN: regexp.dfa
[ condition-states ] 2dip [ condition-states ] 2dip
'[ _ _ add-todo-state ] each ; '[ _ _ add-todo-state ] each ;
: ensure-state ( key table -- )
2dup key? [ 2drop ] [ [ H{ } clone ] 2dip set-at ] if ; inline
:: new-transitions ( nfa dfa new-states visited-states -- nfa dfa ) :: new-transitions ( nfa dfa new-states visited-states -- nfa dfa )
new-states [ nfa dfa ] [ new-states [ nfa dfa ] [
pop :> state pop :> state
state dfa transitions>> maybe-initialize-key state dfa transitions>> ensure-state
state nfa find-transitions state nfa find-transitions
[| trans | [| trans |
state trans nfa find-closure :> new-state state trans nfa find-closure :> new-state