start< ( -- tag )

Vocabulary

xml.autoencoding

Inputs

None

Outputs

tag

an object

Definition

USING: combinators kernel xml.elements xml.state xml.tokenize ;

IN: xml.autoencoding

: start< ( -- tag )
    get-next {
        { 0 [ next next start-utf16le ] }
        { 63 [ go-utf8 instruct dup instruct-encoding ] }
        { 33 [ go-utf8 direct ] }
        [ check start<name ]
    } case ;