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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-03-07 19:39:22 -06:00
parent c2bc2c0705 f9283bd0af
commit ba0d3a7990
3 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@
USING: io.encodings.iana io.encodings.euc ; USING: io.encodings.iana io.encodings.euc ;
IN: io.encodings.big5 IN: io.encodings.big5
EUC: big5 "vocab:io/encodings/big5/CP950.txt" EUC: big5 "vocab:io/encodings/big5/CP950.TXT"
big5 "Big5" register-encoding big5 "Big5" register-encoding

2
basis/simple-flat-file/simple-flat-file.factor
View File

@ -7,7 +7,7 @@ IN: simple-flat-file
[ "#" split1 drop ] map harvest ; [ "#" split1 drop ] map harvest ;
: split-column ( line -- columns ) : split-column ( line -- columns )
"\t" split 2 head ; " \t" split harvest 2 head ;
: parse-hex ( s -- n ) : parse-hex ( s -- n )
2 short tail hex> ; 2 short tail hex> ;

15
basis/simple-flat-file/test1.txt Normal file
View File

@ -0,0 +1,15 @@
#
# Name: cp949 to Unicode table (for testing, partial)
#
0x00 0x0000 #NULL
0x01 0x0001 #START OF HEADING
0x02 0x0002 #START OF TEXT
0x03 0x0003 #END OF TEXT
0x04 0x0004 #END OF TRANSMISSION
0x8253 0xAD2A #HANGUL SYLLABLE KIYEOK WAE PIEUPSIOS
0x8254 0xAD2B #HANGUL SYLLABLE KIYEOK WAE SIOS
0x8255 0xAD2E #HANGUL SYLLABLE KIYEOK WAE CIEUC
0x8256 0xAD2F #HANGUL SYLLABLE KIYEOK WAE CHIEUCH
0x8257 0xAD30 #HANGUL SYLLABLE KIYEOK WAE KHIEUKH
0x8258 0xAD31 #HANGUL SYLLABLE KIYEOK WAE THIEUTH
0x8259 0xAD32 #HANGUL SYLLABLE KIYEOK WAE PHIEUPH