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

io.encodings: allow encode-string to be called with non-strings.

locals-and-roots
John Benediktsson 2016-04-07 12:17:00 -07:00
parent b0e6796a95
commit 0988df1e5a
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/io/encodings/utf16/utf16.factor
View File

@ -2,7 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors byte-arrays combinators io io.binary USING: accessors byte-arrays combinators io io.binary
io.encodings kernel math math.private namespaces sbufs io.encodings kernel math math.private namespaces sbufs
sequences sequences.private splitting strings.private vectors ; sequences sequences.private splitting strings strings.private
vectors ;
IN: io.encodings.utf16 IN: io.encodings.utf16
SINGLETON: utf16be SINGLETON: utf16be
@ -115,13 +116,13 @@ M: utf16le encode-char ( char stream encoding -- )
M: utf16le encode-string M: utf16le encode-string
drop drop
over aux>> over dup string? [ aux>> ] [ drop t ] if
[ [ char>utf16le ] curry each ] [ [ char>utf16le ] curry each ]
[ ascii-string>utf16le ] if ; [ ascii-string>utf16le ] if ;
M: utf16be encode-string M: utf16be encode-string
drop drop
over aux>> over dup string? [ aux>> ] [ drop t ] if
[ [ char>utf16be ] curry each ] [ [ char>utf16be ] curry each ]
[ ascii-string>utf16be ] if ; [ ascii-string>utf16be ] if ;

4
core/io/encodings/utf8/utf8.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2006, 2008 Daniel Ehrenberg. ! Copyright (C) 2006, 2008 Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators io io.encodings USING: accessors combinators io io.encodings
io.encodings.private kernel math math.order sequences ; io.encodings.private kernel math math.order sequences strings ;
IN: io.encodings.utf8 IN: io.encodings.utf8
! Decoding UTF-8 ! Decoding UTF-8
@ -86,7 +86,7 @@ M: utf8 encode-char
M: utf8 encode-string M: utf8 encode-string
drop drop
over aux>> over dup string? [ aux>> ] [ drop t ] if
[ [ char>utf8 ] curry each ] [ [ char>utf8 ] curry each ]
[ [ string>byte-array-fast ] dip stream-write ] if ; [ [ string>byte-array-fast ] dip stream-write ] if ;