IBM864 single-byte transcoding

enc/trans/ibm864-tbl.rb

@@ -0,0 +1,126 @@
+IBM864_TO_UCS_TBL = [
+ ["80",0x00B0],
+ ["81",0x00B7],
+ ["82",0x2219],
+ ["83",0x221A],
+ ["84",0x2592],
+ ["85",0x2500],
+ ["86",0x2502],
+ ["87",0x253C],
+ ["88",0x2524],
+ ["89",0x252C],
+ ["8A",0x251C],
+ ["8B",0x2534],
+ ["8C",0x2510],
+ ["8D",0x250C],
+ ["8E",0x2514],
+ ["8F",0x2518],
+ ["90",0x03B2],
+ ["91",0x221E],
+ ["92",0x03C6],
+ ["93",0x00B1],
+ ["94",0x00BD],
+ ["95",0x00BC],
+ ["96",0x2248],
+ ["97",0x00AB],
+ ["98",0x00BB],
+ ["99",0xFEF7],
+ ["9A",0xFEF8],
+ ["9D",0xFEFB],
+ ["9E",0xFEFC],
+ ["9F",0xFE73],
+ ["A0",0x00A0],
+ ["A1",0x00AD],
+ ["A2",0xFE82],
+ ["A3",0x00A3],
+ ["A4",0x00A4],
+ ["A5",0xFE84],
+ ["A7",0x20AC], # Euro sign from CCSID 864
+ ["A8",0xFE8E],
+ ["A9",0xFE8F],
+ ["AA",0xFE95],
+ ["AB",0xFE99],
+ ["AC",0x060C],
+ ["AD",0xFE9D],
+ ["AE",0xFEA1],
+ ["AF",0xFEA5],
+ ["B0",0x0660],
+ ["B1",0x0661],
+ ["B2",0x0662],
+ ["B3",0x0663],
+ ["B4",0x0664],
+ ["B5",0x0665],
+ ["B6",0x0666],
+ ["B7",0x0667],
+ ["B8",0x0668],
+ ["B9",0x0669],
+ ["BA",0xFED1],
+ ["BB",0x061B],
+ ["BC",0xFEB1],
+ ["BD",0xFEB5],
+ ["BE",0xFEB9],
+ ["BF",0x061F],
+ ["C0",0x00A2],
+ ["C1",0xFE80],
+ ["C2",0xFE81],
+ ["C3",0xFE83],
+ ["C4",0xFE85],
+ ["C5",0xFECA],
+ ["C6",0xFE8B],
+ ["C7",0xFE8D],
+ ["C8",0xFE91],
+ ["C9",0xFE93],
+ ["CA",0xFE97],
+ ["CB",0xFE9B],
+ ["CC",0xFE9F],
+ ["CD",0xFEA3],
+ ["CE",0xFEA7],
+ ["CF",0xFEA9],
+ ["D0",0xFEAB],
+ ["D1",0xFEAD],
+ ["D2",0xFEAF],
+ ["D3",0xFEB3],
+ ["D4",0xFEB7],
+ ["D5",0xFEBB],
+ ["D6",0xFEBF],
+ ["D7",0xFEC1],
+ ["D8",0xFEC5],
+ ["D9",0xFECB],
+ ["DA",0xFECF],
+ ["DB",0x00A6],
+ ["DC",0x00AC],
+ ["DD",0x00F7],
+ ["DE",0x00D7],
+ ["DF",0xFEC9],
+ ["E0",0x0640],
+ ["E1",0xFED3],
+ ["E2",0xFED7],
+ ["E3",0xFEDB],
+ ["E4",0xFEDF],
+ ["E5",0xFEE3],
+ ["E6",0xFEE7],
+ ["E7",0xFEEB],
+ ["E8",0xFEED],
+ ["E9",0xFEEF],
+ ["EA",0xFEF3],
+ ["EB",0xFEBD],
+ ["EC",0xFECC],
+ ["ED",0xFECE],
+ ["EE",0xFECD],
+ ["EF",0xFEE1],
+ ["F0",0xFE7D],
+ ["F1",0x0651],
+ ["F2",0xFEE5],
+ ["F3",0xFEE9],
+ ["F4",0xFEEC],
+ ["F5",0xFEF0],
+ ["F6",0xFEF2],
+ ["F7",0xFED0],
+ ["F8",0xFED5],
+ ["F9",0xFEF5],
+ ["FA",0xFEF6],
+ ["FB",0xFEDD],
+ ["FC",0xFED9],
+ ["FD",0xFEF1],
+ ["FE",0x25A0]
+]

enc/trans/single_byte.trans

@@ -61,6 +61,7 @@
  transcode_tblgen_singlebyte "IBM861"
  transcode_tblgen_singlebyte "IBM862"
  transcode_tblgen_singlebyte "IBM863"
+ transcode_tblgen_singlebyte "IBM864"
  transcode_tblgen_singlebyte "IBM865"
  transcode_tblgen_singlebyte "IBM866"
  transcode_tblgen_singlebyte "IBM869"

test/ruby/test_transcode.rb

@@ -661,6 +661,25 @@ def test_IBM863
  check_both_ways("\u00A0", "\xFF", 'IBM863') # non-breaking space
  end
 
+ def test_IBM864
+ check_both_ways("\u00B0", "\x80", 'IBM864') # °
+ check_both_ways("\u2518", "\x8F", 'IBM864') # ┘
+ check_both_ways("\u03B2", "\x90", 'IBM864') # β
+ check_both_ways("\uFE73", "\x9F", 'IBM864') # ﹳ
+ check_both_ways("\u00A0", "\xA0", 'IBM864') # non-breaking space
+ check_both_ways("\uFEA5", "\xAF", 'IBM864') # ﺥ
+ check_both_ways("\u0660", "\xB0", 'IBM864') # ٠
+ check_both_ways("\u061F", "\xBF", 'IBM864') # ؟
+ check_both_ways("\u00A2", "\xC0", 'IBM864') # ¢
+ check_both_ways("\uFEA9", "\xCF", 'IBM864') # ﺩ
+ check_both_ways("\uFEAB", "\xD0", 'IBM864') # ﺫ
+ check_both_ways("\uFEC9", "\xDF", 'IBM864') # ﻉ
+ check_both_ways("\u0640", "\xE0", 'IBM864') # ـ
+ check_both_ways("\uFEE1", "\xEF", 'IBM864') # ﻡ
+ check_both_ways("\uFE7D", "\xF0", 'IBM864') # ﹽ
+ check_both_ways("\u25A0", "\xFE", 'IBM864') # ■
+ end
+
  def test_IBM865
  check_both_ways("\u00C7", "\x80", 'IBM865') # Ç
  check_both_ways("\u00C5", "\x8F", 'IBM865') # Å