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

Re-add 8dfc63eb99

db4
slava 2009-02-03 00:33:22 -06:00
parent 7c804591b1
commit f340e4d649
4 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/io/encodings/iana/iana.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: kernel strings values io.files assocs USING: kernel strings values io.files assocs
splitting sequences io namespaces sets io.encodings.8-bit splitting sequences io namespaces sets io.encodings.8-bit
io.encodings.ascii io.encodings.utf8 io.encodings.utf16 ; io.encodings.ascii io.encodings.utf8 io.encodings.utf16
io.encodings.chinese io.encodings.japanese ;
IN: io.encodings.iana IN: io.encodings.iana
<PRIVATE <PRIVATE
@ -24,6 +25,9 @@ VALUE: n>e-table
{ latin/hebrew "ISO-8859-8" } { latin/hebrew "ISO-8859-8" }
{ latin5 "ISO-8859-9" } { latin5 "ISO-8859-9" }
{ latin6 "ISO-8859-10" } { latin6 "ISO-8859-10" }
{ shift-jis "Shift_JIS" }
{ windows-31j "Windows-31J" }
{ gb18030 "GB18030" }
} ; } ;
PRIVATE> PRIVATE>

0
basis/io/encodings/japanese/CP932.txt → basis/io/encodings/japanese/CP932.TXT
View File

2
basis/io/encodings/japanese/japanese-docs.factor
View File

@ -4,7 +4,7 @@ USING: help.markup help.syntax ;
IN: io.encodings.japanese IN: io.encodings.japanese
ARTICLE: "io.encodings.japanese" "Japanese text encodings" ARTICLE: "io.encodings.japanese" "Japanese text encodings"
"Several encodings are used for Japanese text besides the standard UTF encodings for Unicode strings. These are mostly based on the character set defined in the JIS X 208 standard. Current coverage of encodings is incomplete." "The " { $vocab-link "io.encodings.japanese" } " vocabulary implements Japanese-specific text encodings. Several encodings are used for Japanese text besides the standard UTF encodings for Unicode strings. These are mostly based on the character set defined in the JIS X 208 standard. Current coverage of encodings is incomplete."
{ $subsection shift-jis } { $subsection shift-jis }
{ $subsection windows-31j } ; { $subsection windows-31j } ;

2
basis/io/encodings/japanese/japanese.factor
View File

@ -15,7 +15,7 @@ VALUE: windows-31j
TUPLE: jis assoc ; TUPLE: jis assoc ;
: <jis> ( assoc -- jis ) : <jis> ( assoc -- jis )
[ nip ] assoc-filter H{ } assoc-like [ nip ] assoc-filter
>biassoc jis boa ; >biassoc jis boa ;
: ch>jis ( ch tuple -- jis ) assoc>> value-at [ encode-error ] unless* ; : ch>jis ( ch tuple -- jis ) assoc>> value-at [ encode-error ] unless* ;