decode-multibyte ( ch stream encoding -- char )

Vocabulary
io.encodings.euc.private

Definition

USING: accessors assocs byte-arrays io io.binary io.encodings
kernel locals ;

IN: io.encodings.euc.private

:: decode-multibyte ( ch stream encoding -- char )
    stream stream-read1
    [ ch swap 2byte-array be> encoding table>> at ]
    [ replacement-char ] if* ;