euc

Vocabulary

io.encodings.euc

Definition

USING: biassocs ;

IN: io.encodings.euc

TUPLE: euc { table biassoc read-only initial: T{ biassoc } } ;

Methods

USING: accessors assocs combinators io io.encodings
io.encodings.euc io.encodings.euc.private kernel ;

M:: euc decode-char ( stream encoding -- char/f )
    stream stream-read1 {
        { [ dup not ] [ drop f ] }
        {
            [ dup euc-multibyte? ]
            [ stream encoding decode-multibyte ]
        }
        [ encoding table>> at ]
    } cond ;


USING: accessors assocs byte-arrays io io.encodings
io.encodings.euc io.encodings.euc.private kernel math.bitwise ;

M: euc encode-char
    swapd table>> value-at [
        dup byte?
        [ swap stream-write1 ]
        [ h>b/b swap 2byte-array swap stream-write ] if
    ] [ encode-error ] if* ;