8-bit

Vocabulary

io.encodings.8-bit.private

Definition

USING: arrays hashtables ;

IN: io.encodings.8-bit.private

TUPLE: 8-bit
    { from array read-only initial: { } }
    { to hashtable read-only initial: H{ } } ;

Methods

USING: accessors io io.encodings io.encodings.8-bit.private
kernel sequences ;

M: 8-bit decode-char
    swap stream-read1
    [ swap from>> ?nth [ replacement-char ] unless* ] [ drop f ]
    if* ;


USING: io io.encodings io.encodings.8-bit.private kernel ;

M: 8-bit encode-char swap [ 8-bit-encode ] dip stream-write1 ;


USING: io io.encodings io.encodings.8-bit.private kernel
sequences ;

M: 8-bit encode-string
    swap [ [ 8-bit-encode ] curry B{ } map-as ] dip stream-write
    ;