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

Vocabulary

xmode.loader.syntax

Inputs

rule	an object
tag	an object

Outputs

None

Definition

USING: accessors combinators kernel xml.syntax.private ;

IN: xmode.loader.syntax

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