instruct ( -- instruction )

Vocabulary

xml.elements

Inputs

None

Outputs

instruction

an object

Definition

USING: combinators kernel sequences unicode xml.data xml.errors
xml.name xml.tokenize ;

IN: xml.elements

: instruct ( -- instruction )
    take-name {
        { [ dup "xml" = ] [ drop parse-prolog ] }
        { [ dup >lower "xml" = ] [ capitalized-prolog ] }
        { [ dup valid-name? not ] [ bad-name ] }
        [ "?>" take-string append <instruction> ]
    } cond ;