factor/basis/io/encodings/ascii/ascii.factor

! Copyright (C) 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: io io.encodings kernel math io.encodings.private ;
IN: io.encodings.ascii

<PRIVATE
: encode-if< ( char stream encoding max -- )
    nip 1 - pick < [ encode-error ] [ stream-write1 ] if ; inline

: decode-if< ( stream encoding max -- character )
    nip swap stream-read1 dup
    [ [ nip ] [ > ] 2bi [ >fixnum ] [ drop replacement-char ] if ]
    [ 2drop f ] if ; inline
PRIVATE>

SINGLETON: ascii

M: ascii encode-char
    128 encode-if< ; inline

M: ascii decode-char
    128 decode-if< ; inline