parse-regexp-begin/end-tag ( rule tag -- )

Vocabulary

xmode.loader.syntax

Inputs

rule	an object
tag	an object

Outputs

None

Definition

USING: accessors combinators kernel xml.data xml.syntax.private
;

IN: xmode.loader.syntax

: parse-regexp-begin/end-tag ( rule tag -- )
    dup main>> {
        {
            "END"
            [
                dup "REGEXP" attr string>boolean
                [ parse-regexp-matcher ]
                [ parse-literal-matcher ] if >>end drop
            ]
        }
        { "BEGIN" [ parse-regexp-matcher >>start drop ] }
        [ \ parse-regexp-begin/end-tag no-tag ]
    } case ;