expand-or ( state-transitions -- new-transitions )

Vocabulary

regexp.transition-tables

Inputs

state-transitions

an object

Outputs

new-transitions

an object

Definition

USING: arrays assocs hashtables kernel regexp.classes sequences
;

IN: regexp.transition-tables

: expand-or ( state-transitions -- new-transitions )
    >alist [
        first2 over or-class?
        [ expand-one-or ] [ 2array 1array ] if
    ] map concat >hashtable ;