19 lines
507 B
Factor
19 lines
507 B
Factor
|
! Copyright (C) 2008 Daniel Ehrenberg
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
USING: io.encodings kernel accessors summary ;
|
||
|
|
IN: io.encodings.strict
|
||
|
|
|
||
|
|
TUPLE: strict code ;
|
||
|
|
C: strict strict
|
||
|
|
|
||
|
|
TUPLE: decode-error ;
|
||
|
: decode-error ( -- * ) \ decode-error new throw ;
|
||
|
|
M: decode-error summary
|
||
|
|
drop "Error in decoding input stream" ;
|
||
|
|
|
||
|
|
M: strict <decoder>
|
||
|
|
code>> <decoder> [ strict ] change-code ;
|
||
|
|
|
||
|
|
M: strict decode-char
|
||
|
|
code>> decode-char dup replacement-char = [ decode-error ] when ;
|