prolog-encoding ( prolog -- )

Vocabulary

xml.autoencoding

Inputs

prolog

an object

Outputs

None

Definition

USING: accessors io.encodings.iana kernel xml.errors ;

IN: xml.autoencoding

: prolog-encoding ( prolog -- )
    encoding>> dup "UTF-16" =
    [ drop ]
    [ [ name>encoding ] [ decode-stream ] [ bad-encoding ] ?if ]
    if ;