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

regexp: trivial refactoring

db4
Doug Coleman 2011-11-28 11:46:15 -08:00
parent 4dc12f1660
commit 9a55bfb5a2
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/negation/negation.factor
View File

@ -46,8 +46,11 @@ CONSTANT: fail-state -1
[ final-states>> members first ] [ final-states>> members first ]
[ nfa-table get [ transitions>> ] bi@ swap assoc-union! drop ] tri ; [ nfa-table get [ transitions>> ] bi@ swap assoc-union! drop ] tri ;
: ast>nfa ( parse-tree -- minimal-dfa )
construct-nfa disambiguate ;
: ast>dfa ( parse-tree -- minimal-dfa ) : ast>dfa ( parse-tree -- minimal-dfa )
construct-nfa disambiguate construct-dfa minimize ; ast>nfa construct-dfa minimize ;
M: negation nfa-node ( node -- start end ) M: negation nfa-node ( node -- start end )
term>> ast>dfa negate-table adjoin-dfa ; term>> ast>dfa negate-table adjoin-dfa ;