construct-nfa ( ast -- nfa-table )

Vocabulary

regexp.nfa

Inputs

ast

an object

Outputs

nfa-table

an object

Definition

USING: accessors arrays kernel namespaces
regexp.transition-tables sets ;

IN: regexp.nfa

: construct-nfa ( ast -- nfa-table )
    [
        0 state set <transition-table> nfa-table set
        nfa-node nfa-table get swap 1array fast-set
        >>final-states swap >>start-state
    ] with-scope ;