factor/basis/io/encodings/latin1/latin1.factor

USING: io io.encodings io.encodings.iana kernel math sequences ;

IN: io.encodings.latin1

SINGLETON: latin1

: latin1-encode ( char -- byte )
    dup 256 < [ encode-error ] unless ; inline

M: latin1 encode-char
    drop [ latin1-encode ] dip stream-write1 ;

M: latin1 encode-string
    drop [ [ latin1-encode ] B{ } map-as ] dip stream-write ;

M: latin1 decode-char
    drop stream-read1 [
        dup 256 < [ drop replacement-char ] unless
    ] [ f ] if* ;

latin1 "ISO_8859-1:1987" register-encoding