steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.encodings.latin1: re-implement M\ latin1 encode-string.

windows-high-dpi
John Benediktsson 2018-02-28 10:35:23 -08:00
parent 1b3a07ca44
commit f43f88e7f0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/io/encodings/latin1/latin1.factor
View File

@ -1,11 +1,17 @@
USING: io io.encodings io.encodings.iana kernel math ;
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 over 256 < [ stream-write1 ] [ encode-error ] if ;
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 [