parse-mode-tag ( modes tag -- )

Vocabulary

xmode.catalog

Inputs

modes	an object
tag	an object

Outputs

None

Definition

USING: accessors assocs combinators kernel xml.data
xml.syntax.private xmode.utilities ;

IN: xmode.catalog

: parse-mode-tag ( modes tag -- )
    dup main>> {
        {
            "MODE"
            [
                dup "NAME" attr [
                    mode new
                    { ~array~ ~array~ ~array~ } init-from-tag
                    [ ~quotation~ ~quotation~ if* ]
                    change-file-name-glob
                    [ ~quotation~ ~quotation~ if* ]
                    change-first-line-glob
                ] dip rot set-at
            ]
        }
        [ \ parse-mode-tag no-tag ]
    } case ;