match-group-regexp ( regexp n -- skip-regexp match-regexp )

Vocabulary

xmode.marker.private

Inputs

regexp	an object
n	an object

Outputs

skip-regexp	an object
match-regexp	an object

Definition

USING: accessors assocs kernel regexp regexp.parser ;

IN: xmode.marker.private

: match-group-regexp
    ( regexp n -- skip-regexp match-regexp )
    [ [ options>> options>string ] [ raw>> ] bi ] dip
    swap nth-group rot
    [ H{ } [ <optioned-regexp> ] 2cache ] curry bi@ ;