start<name ( ch -- tag )

Vocabulary

xml.autoencoding

Inputs

ch

an object

Outputs

tag

an object

Definition

USING: ascii io.encodings.string io.encodings.utf8 kernel
sequences xml.elements xml.state xml.tokenize ;

IN: xml.autoencoding

: start<name ( ch -- tag )
    ascii?
    [ utf8 decode-stream next make-tag ] [
        next
        [ drop get-next 10xxxxxx? not ] take-until get-char
        suffix utf8 decode utf8 decode-stream
        next continue-make-tag
    ] if ;