jis

Vocabulary

io.encodings.shift-jis.private

Definition

IN: io.encodings.shift-jis.private

TUPLE: jis assoc ;

Methods

USING: arrays endian io io.encodings
io.encodings.shift-jis.private kernel ;

M: jis decode-char
    swap dup stream-read1 [
        dup small?
        [ nip swap jis>ch ] [
            swap stream-read1
            [ 2array be> swap jis>ch ]
            [ 2drop replacement-char ] if*
        ] if
    ] [ 2drop f ] if* ;


USING: io io.encodings io.encodings.shift-jis.private kernel ;

M: jis encode-char
    swapd ch>jis dup small?
    [ swap stream-write1 ] [ write-halfword ] if ;