16 lines
462 B
Factor
16 lines
462 B
Factor
|
! Copyright (C) 2008 Daniel Ehrenberg.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: io io.encodings strings kernel math sequences byte-arrays io.encodings ;
|
||
|
|
IN: io.encodings.ascii
|
||
|
|
|
||
|
|
: encode-check>= ( string max -- byte-array )
|
||
|
|
dupd [ >= ] curry all? [ >byte-array ] [ encode-error ] if ;
|
||
|
|
|
||
|
|
TUPLE: ascii ;
|
||
|
|
|
||
|
|
M: ascii encode-string
|
||
|
|
drop 127 encode-check>= ;
|
||
|
|
|
||
|
|
M: ascii decode-step
|
||
|
|
3drop dup 127 >= [ encode-error ] when over push f f ;
|