star

Vocabulary

regexp.ast

Definition

IN: regexp.ast

TUPLE: star term ;

Methods

USING: accessors regexp.ast regexp.nfa ;

M:: star nfa-node ( node -- start-state end-state )
    node term>> nfa-node :> ( s0 s1 ) next-state :> s2
    next-state :> s3 s1 s0 epsilon-transition
    s2 s0 epsilon-transition s2 s3 epsilon-transition
    s1 s3 epsilon-transition s2 s3 ;