* enc/trans/ibm737-tbl.rb: greek code page. fixes #4738

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@31644 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

2 files changed, 131 insertions, 0 deletions

diff --git a/enc/trans/ibm737-tbl.rb b/enc/trans/ibm737-tbl.rb
new file mode 100644
index 0000000000..44036ce15f
--- /dev/null
+++ b/enc/trans/ibm737-tbl.rb
@@ -0,0 +1,130 @@
+IBM737_TO_UCS_TBL = [
+  ["80",0x391],
+  ["81",0x392],
+  ["82",0x393],
+  ["83",0x394],
+  ["84",0x395],
+  ["85",0x396],
+  ["86",0x397],
+  ["87",0x398],
+  ["88",0x399],
+  ["89",0x39A],
+  ["8A",0x39B],
+  ["8B",0x39C],
+  ["8C",0x39D],
+  ["8D",0x39E],
+  ["8E",0x39F],
+  ["8F",0x3A0],
+  ["90",0x3A1],
+  ["91",0x3A3],
+  ["92",0x3A4],
+  ["93",0x3A5],
+  ["94",0x3A6],
+  ["95",0x3A7],
+  ["96",0x3A8],
+  ["97",0x3A9],
+  ["98",0x3B1],
+  ["99",0x3B2],
+  ["9A",0x3B3],
+  ["9B",0x3B4],
+  ["9C",0x3B5],
+  ["9D",0x3B6],
+  ["9E",0x3B7],
+  ["9F",0x3B8],
+  ["A0",0x3B9],
+  ["A1",0x3BA],
+  ["A2",0x3BB],
+  ["A3",0x3BC],
+  ["A4",0x3BD],
+  ["A5",0x3BE],
+  ["A6",0x3BF],
+  ["A7",0x3C0],
+  ["A8",0x3C1],
+  ["A9",0x3C3],
+  ["AA",0x3C2],
+  ["AB",0x3C4],
+  ["AC",0x3C5],
+  ["AD",0x3C6],
+  ["AE",0x3C7],
+  ["AF",0x3C8],
+  ["B0",0x2591],
+  ["B1",0x2592],
+  ["B2",0x2593],
+  ["B3",0x2502],
+  ["B4",0x2524],
+  ["B5",0x2561],
+  ["B6",0x2562],
+  ["B7",0x2556],
+  ["B8",0x2555],
+  ["B9",0x2563],
+  ["BA",0x2551],
+  ["BB",0x2557],
+  ["BC",0x255D],
+  ["BD",0x255C],
+  ["BE",0x255B],
+  ["BF",0x2510],
+  ["C0",0x2514],
+  ["C1",0x2534],
+  ["C2",0x252C],
+  ["C3",0x251C],
+  ["C4",0x2500],
+  ["C5",0x253C],
+  ["C6",0x255E],
+  ["C7",0x255F],
+  ["C8",0x255A],
+  ["C9",0x2554],
+  ["CA",0x2569],
+  ["CB",0x2566],
+  ["CC",0x2560],
+  ["CD",0x2550],
+  ["CE",0x256C],
+  ["CF",0x2567],
+  ["D0",0x2568],
+  ["D1",0x2564],
+  ["D2",0x2565],
+  ["D3",0x2559],
+  ["D4",0x2558],
+  ["D5",0x2552],
+  ["D6",0x2553],
+  ["D7",0x256B],
+  ["D8",0x256A],
+  ["D9",0x2518],
+  ["DA",0x250C],
+  ["DB",0x2588],
+  ["DC",0x2584],
+  ["DD",0x258C],
+  ["DE",0x2590],
+  ["DF",0x2580],
+  ["E0",0x3C9],
+  ["E1",0x3AC],
+  ["E2",0x3AD],
+  ["E3",0x3AE],
+  ["E4",0x3CA],
+  ["E5",0x3AF],
+  ["E6",0x3CC],
+  ["E7",0x3CD],
+  ["E8",0x3CB],
+  ["E9",0x3CE],
+  ["EA",0x386],
+  ["EB",0x388],
+  ["EC",0x389],
+  ["ED",0x38A],
+  ["EE",0x38C],
+  ["EF",0x38E],
+  ["F0",0x38F],
+  ["F1",0xB1],
+  ["F2",0x2265],
+  ["F3",0x2264],
+  ["F4",0x3AA],
+  ["F5",0x3AB],
+  ["F6",0xF7],
+  ["F7",0x2248],
+  ["F8",0xB0],
+  ["F9",0x2219],
+  ["FA",0xB7],
+  ["FB",0x221A],
+  ["FC",0x207F],
+  ["FD",0xB2],
+  ["FE",0x25A0],
+  ["FF",0xA0],
+]
diff --git a/enc/trans/single_byte.trans b/enc/trans/single_byte.trans
index 55d8430932..1bf1001720 100644
--- a/enc/trans/single_byte.trans
+++ b/enc/trans/single_byte.trans
@@ -54,6 +54,7 @@
   transcode_tblgen_singlebyte "WINDOWS-1257"
   transcode_tblgen_singlebyte "IBM437"
   transcode_tblgen_singlebyte "IBM775"
+  transcode_tblgen_singlebyte "IBM737"
   transcode_tblgen_singlebyte "IBM852"
   transcode_tblgen_singlebyte "IBM855"
   transcode_tblgen_singlebyte "IBM857"