latin1 and binary encodings updated

db4
Daniel Ehrenberg 2008-02-15 20:29:08 -06:00
parent a800d5fca7
commit 017c57fab1
2 changed files with 4 additions and 16 deletions

View File

@ -1,6 +1,3 @@
USING: kernel io.encodings ;
TUPLE: binary ;
M: binary init-decoding drop ;
M: binary init-encoding drop ;

View File

@ -1,19 +1,10 @@
USING: io io.encodings strings kernel ;
IN: io.encodings.latin1
TUPLE: latin1 stream ;
TUPLE: latin1 ;
M: latin1 init-decoding tuck set-latin1-stream ;
M: latin1 init-encoding drop ;
M: latin1 stream-read delegate stream-read >string ;
M: latin1 stream-read1
latin1-stream stream-read1 ;
M: latin1 stream-read-until delegate stream-read-until >string ;
M: latin1 stream-read
latin1-stream stream-read >string ;
M: latin1 stream-read-until
latin1-stream stream-read-until >string ;
M: latin1 stream-readln
latin1-stream stream-readln >string ;
M: latin1 stream-read-partial delegate stream-read-partial >string ;