numbered-capture

Vocabulary

regexp.captures.private

Definition

USING: regexp.ast ;

IN: regexp.captures.private

TUPLE: numbered-capture < capture-group index ;

Methods

USING: accessors kernel math namespaces regexp.ast
regexp.captures.private regexp.nfa ;

M:: numbered-capture nfa-node
    ( ast -- start-state end-state )
    recording-captures? get [
        ast index>> 2 * capture-save boa
        <tagged-epsilon> nfa-node :> ( s0 s1 ) ast term>>
        nfa-node :> ( s2 s3 ) ast index>> 2 * 1 +
        capture-save boa
        <tagged-epsilon> nfa-node :> ( s4 s5 ) s1 s2
        epsilon-transition s3 s4 epsilon-transition s0 s5
    ] [ ast term>> nfa-node ] if ;