(parse-rules-tag) ( tag -- rule-set )

Vocabulary

xmode.loader

Inputs

tag

an object

Outputs

rule-set

an object

Definition

USING: accessors namespaces xmode.loader.syntax xmode.rules
xmode.tokens xmode.utilities ;

IN: xmode.loader

: (parse-rules-tag) ( tag -- rule-set )
    rule-set get {
        { "SET" string>rule-set-name name<< }
        { "IGNORE_CASE" string>boolean ignore-case?<< }
        {
            "HIGHLIGHT_DIGITS"
            string>boolean
            highlight-digits?<<
        }
        { "DIGIT_RE" ?<regexp> digit-re<< }
        { "ESCAPE" f add-escape-rule }
        { "DEFAULT" string>token default<< }
        { "NO_WORD_SEP" f no-word-sep<< }
    } init-from-tag ;