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

remove flags from transition-tables

db4
Doug Coleman 2008-11-24 22:16:29 -06:00
parent 37f991420b
commit e4a2b671d3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/regexp/transition-tables/transition-tables.factor
View File

@ -20,18 +20,19 @@ TUPLE: default ;
: <literal-transition> ( from to obj -- transition ) : <literal-transition> ( from to obj -- transition )
literal-transition make-transition ; literal-transition make-transition ;
: <class-transition> ( from to obj -- transition ) : <class-transition> ( from to obj -- transition )
class-transition make-transition ; class-transition make-transition ;
: <default-transition> ( from to -- transition ) : <default-transition> ( from to -- transition )
t default-transition make-transition ; t default-transition make-transition ;
TUPLE: transition-table transitions start-state final-states flags ; TUPLE: transition-table transitions start-state final-states ;
: <transition-table> ( -- transition-table ) : <transition-table> ( -- transition-table )
transition-table new transition-table new
H{ } clone >>transitions H{ } clone >>transitions
H{ } clone >>final-states H{ } clone >>final-states ;
H{ } clone >>flags ;
: maybe-initialize-key ( key hashtable -- ) : maybe-initialize-key ( key hashtable -- )
2dup key? [ 2drop ] [ H{ } clone -rot set-at ] if ; 2dup key? [ 2drop ] [ H{ } clone -rot set-at ] if ;