negate-table ( transition-table -- transition-table )

Vocabulary

regexp.negation

Inputs

transition-table

an object

Outputs

transition-table

an object

Definition

USING: accessors kernel ;

IN: regexp.negation

: negate-table ( transition-table -- transition-table )
    clone [ add-fail-state ] change-transitions
    dup inverse-final-states >>final-states ;