transitions>quot ( transitions final-state? -- quot )

Vocabulary

regexp.compiler.private

Inputs

transitions	an object
final-state?	an object

Outputs

quot

an object

Definition

USING: combinators kernel kernel.private namespaces
regexp.compiler ;

IN: regexp.compiler.private

: transitions>quot ( transitions final-state? -- quot )
    dup shortest? get and
    [ 2drop [ drop nip ] ] [
        [ split-literals swap case>quot ] dip backwards? get
        [ [ [ [ ~array~ declare ] ] dip ] dip ] dip
        [ step ] 3curry compose
    ] if ;