decode-multibyte ( ch stream encoding -- char )

Vocabulary

io.encodings.euc.private

Inputs

ch	an object
stream	an object
encoding	an object

Outputs

char

an object

Definition

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

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* ;