Merge branch 'unicode' of git://factorcode.org/git/littledan into unicode
commit
d95231cc43
|
@ -6,6 +6,6 @@ ARTICLE: "io.encodings.utf8" "Working with UTF8-encoded data"
|
||||||
{ $subsection utf8 } ;
|
{ $subsection utf8 } ;
|
||||||
|
|
||||||
HELP: utf8
|
HELP: utf8
|
||||||
{ $class-description "This is the class of encoding tuples which denote a UTF-8 encoding. You can pass this class symbol as an encoding descriptor to words like " { $link <file-reader> } " and " { $link encode-string } ". This conforms to the " { $link "encodings-protocol" } "." } ;
|
{ $class-description "This is the class of encoding tuples which denote a UTF-8 encoding. This conforms to the " { $link "encodings-protocol" } "." } ;
|
||||||
|
|
||||||
ABOUT: "io.encodings.utf8"
|
ABOUT: "io.encodings.utf8"
|
||||||
|
|
|
@ -4,7 +4,7 @@ USING: io io.encodings strings kernel math sequences byte-arrays io.encodings ;
|
||||||
IN: io.encodings.ascii
|
IN: io.encodings.ascii
|
||||||
|
|
||||||
: encode-check<= ( string stream max -- )
|
: encode-check<= ( string stream max -- )
|
||||||
[ pick > [ encode-error ] [ stream-write1 ] if ] 2curry each ;
|
[ pick <= [ encode-error ] [ stream-write1 ] if ] 2curry each ;
|
||||||
|
|
||||||
TUPLE: ascii ;
|
TUPLE: ascii ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue