compile-capture-assertion ( ast reverse? -- assertion )

Vocabulary

regexp.captures.private

Inputs

ast	an object
reverse?	an object

Outputs

assertion

an object

Definition

USING: kernel namespaces regexp.ast regexp.compiler
regexp.negation regexp.nfa ;

IN: regexp.captures.private

:: compile-capture-assertion ( ast reverse? -- assertion )
    ast lookaround-options :> tree f recording-captures? [
        reverse? [
            tree { reversed-regexp } f <options> <with-options>
            ast>dfa dfa>reverse-word
        ] [ tree ast>dfa dfa>word ] if
    ] with-variable
    :> detector tree construct-nfa prepare-capture-table
    detector reverse? capture-assertion boa ;