From 50dac6e1b245538aa0868fddc595c349f37455ae Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sat, 7 Mar 2009 16:52:27 -0600 Subject: [PATCH 1/2] Fixing simple-flat-file unit tests --- basis/simple-flat-file/simple-flat-file.factor | 2 +- basis/simple-flat-file/test1.txt | 15 +++++++++++++++ 2 files changed, 16 insertions(+), 1 deletion(-) create mode 100644 basis/simple-flat-file/test1.txt diff --git a/basis/simple-flat-file/simple-flat-file.factor b/basis/simple-flat-file/simple-flat-file.factor index 53f5f16425..721f4986a0 100644 --- a/basis/simple-flat-file/simple-flat-file.factor +++ b/basis/simple-flat-file/simple-flat-file.factor @@ -7,7 +7,7 @@ IN: simple-flat-file [ "#" split1 drop ] map harvest ; : split-column ( line -- columns ) - "\t" split 2 head ; + " \t" split harvest 2 head ; : parse-hex ( s -- n ) 2 short tail hex> ; diff --git a/basis/simple-flat-file/test1.txt b/basis/simple-flat-file/test1.txt new file mode 100644 index 0000000000..3437a61c38 --- /dev/null +++ b/basis/simple-flat-file/test1.txt @@ -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 From f9283bd0af101e31b64c6e82dd424403e7b9da10 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sat, 7 Mar 2009 16:53:48 -0600 Subject: [PATCH 2/2] Fixing case of reference to file in Big5 encoding --- basis/io/encodings/big5/big5.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/io/encodings/big5/big5.factor b/basis/io/encodings/big5/big5.factor index 97943a52ad..749815a22d 100644 --- a/basis/io/encodings/big5/big5.factor +++ b/basis/io/encodings/big5/big5.factor @@ -3,7 +3,7 @@ USING: io.encodings.iana io.encodings.euc ; IN: io.encodings.big5 -EUC: big5 "vocab:io/encodings/big5/CP950.txt" +EUC: big5 "vocab:io/encodings/big5/CP950.TXT" big5 "Big5" register-encoding