<capture-code> ( ast options -- code )

Vocabulary

regexp.captures.private

Inputs

ast	an object
options	an object

Outputs

code

an object

Definition

USING: accessors kernel namespaces regexp.ast regexp.compiler
regexp.nfa sequences ;

IN: regexp.captures.private

:: <capture-code> ( ast options -- code )
    [
        { 0 } clone capture-number set
        H{ } clone capture-names set t captures-enabled? set
        t recording-captures? set f backwards? set
        f shortest? set ast number-captures options clone
        [ reversed-regexp swap remove ] change-on <with-options>
        construct-nfa prepare-capture-table capture-number get
        first capture-names get capture-code boa
    ] with-scope ;