start-document ( -- tag )

Vocabulary

xml.autoencoding

Inputs

None

Outputs

tag

an object

Definition

USING: combinators io.encodings.utf8 kernel xml.state ;

IN: xml.autoencoding

: start-document ( -- tag )
    get-char {
        { 60 [ start< ] }
        { 0 [ start-utf16be ] }
        { 239 [ skip-utf8-bom ] }
        { 255 [ skip-utf16le-bom ] }
        { 254 [ skip-utf16be-bom ] }
        [ drop utf8 decode-stream check f ]
    } case ;