1 files changed, 365 insertions, 0 deletions
diff --git a/iconvdata/cp737.h b/iconvdata/cp737.h
new file mode 100644
index 0000000000..08c9a584d7
--- /dev/null
+++ b/iconvdata/cp737.h
@@ -0,0 +1,365 @@
+/* Mapping table for CP737.
+   Copyright (C) 1998 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
+   Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.
+
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public License as
+   published by the Free Software Foundation; either version 2 of the
+   License, or (at your option) any later version.
+
+   The GNU C Library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with the GNU C Library; see the file COPYING.LIB.  If not,
+   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
+
+/* Table to map to UCS4.  It can be generated using
+   (I know, this is a useless use of cat, but the linebreak requires it):
+
+   cat .../unix/mappings/vendors/micsft/pc/cp737.txt |
+   sed -e 's/\(0x..\)[[:space:]]*\(0x....\).*$/  [\1] = \2,/p' -e d
+
+ */
+static const uint32_t to_ucs4[256] =
+{
+  [0x00] = 0x0000,
+  [0x01] = 0x0001,
+  [0x02] = 0x0002,
+  [0x03] = 0x0003,
+  [0x04] = 0x0004,
+  [0x05] = 0x0005,
+  [0x06] = 0x0006,
+  [0x07] = 0x0007,
+  [0x08] = 0x0008,
+  [0x09] = 0x0009,
+  [0x0a] = 0x000a,
+  [0x0b] = 0x000b,
+  [0x0c] = 0x000c,
+  [0x0d] = 0x000d,
+  [0x0e] = 0x000e,
+  [0x0f] = 0x000f,
+  [0x10] = 0x0010,
+  [0x11] = 0x0011,
+  [0x12] = 0x0012,
+  [0x13] = 0x0013,
+  [0x14] = 0x0014,
+  [0x15] = 0x0015,
+  [0x16] = 0x0016,
+  [0x17] = 0x0017,
+  [0x18] = 0x0018,
+  [0x19] = 0x0019,
+  [0x1a] = 0x001a,
+  [0x1b] = 0x001b,
+  [0x1c] = 0x001c,
+  [0x1d] = 0x001d,
+  [0x1e] = 0x001e,
+  [0x1f] = 0x001f,
+  [0x20] = 0x0020,
+  [0x21] = 0x0021,
+  [0x22] = 0x0022,
+  [0x23] = 0x0023,
+  [0x24] = 0x0024,
+  [0x25] = 0x0025,
+  [0x26] = 0x0026,
+  [0x27] = 0x0027,
+  [0x28] = 0x0028,
+  [0x29] = 0x0029,
+  [0x2a] = 0x002a,
+  [0x2b] = 0x002b,
+  [0x2c] = 0x002c,
+  [0x2d] = 0x002d,
+  [0x2e] = 0x002e,
+  [0x2f] = 0x002f,
+  [0x30] = 0x0030,
+  [0x31] = 0x0031,
+  [0x32] = 0x0032,
+  [0x33] = 0x0033,
+  [0x34] = 0x0034,
+  [0x35] = 0x0035,
+  [0x36] = 0x0036,
+  [0x37] = 0x0037,
+  [0x38] = 0x0038,
+  [0x39] = 0x0039,
+  [0x3a] = 0x003a,
+  [0x3b] = 0x003b,
+  [0x3c] = 0x003c,
+  [0x3d] = 0x003d,
+  [0x3e] = 0x003e,
+  [0x3f] = 0x003f,
+  [0x40] = 0x0040,
+  [0x41] = 0x0041,
+  [0x42] = 0x0042,
+  [0x43] = 0x0043,
+  [0x44] = 0x0044,
+  [0x45] = 0x0045,
+  [0x46] = 0x0046,
+  [0x47] = 0x0047,
+  [0x48] = 0x0048,
+  [0x49] = 0x0049,
+  [0x4a] = 0x004a,
+  [0x4b] = 0x004b,
+  [0x4c] = 0x004c,
+  [0x4d] = 0x004d,
+  [0x4e] = 0x004e,
+  [0x4f] = 0x004f,
+  [0x50] = 0x0050,
+  [0x51] = 0x0051,
+  [0x52] = 0x0052,
+  [0x53] = 0x0053,
+  [0x54] = 0x0054,
+  [0x55] = 0x0055,
+  [0x56] = 0x0056,
+  [0x57] = 0x0057,
+  [0x58] = 0x0058,
+  [0x59] = 0x0059,
+  [0x5a] = 0x005a,
+  [0x5b] = 0x005b,
+  [0x5c] = 0x005c,
+  [0x5d] = 0x005d,
+  [0x5e] = 0x005e,
+  [0x5f] = 0x005f,
+  [0x60] = 0x0060,
+  [0x61] = 0x0061,
+  [0x62] = 0x0062,
+  [0x63] = 0x0063,
+  [0x64] = 0x0064,
+  [0x65] = 0x0065,
+  [0x66] = 0x0066,
+  [0x67] = 0x0067,
+  [0x68] = 0x0068,
+  [0x69] = 0x0069,
+  [0x6a] = 0x006a,
+  [0x6b] = 0x006b,
+  [0x6c] = 0x006c,
+  [0x6d] = 0x006d,
+  [0x6e] = 0x006e,
+  [0x6f] = 0x006f,
+  [0x70] = 0x0070,
+  [0x71] = 0x0071,
+  [0x72] = 0x0072,
+  [0x73] = 0x0073,
+  [0x74] = 0x0074,
+  [0x75] = 0x0075,
+  [0x76] = 0x0076,
+  [0x77] = 0x0077,
+  [0x78] = 0x0078,
+  [0x79] = 0x0079,
+  [0x7a] = 0x007a,
+  [0x7b] = 0x007b,
+  [0x7c] = 0x007c,
+  [0x7d] = 0x007d,
+  [0x7e] = 0x007e,
+  [0x7f] = 0x007f,
+  [0x80] = 0x0391,
+  [0x81] = 0x0392,
+  [0x82] = 0x0393,
+  [0x83] = 0x0394,
+  [0x84] = 0x0395,
+  [0x85] = 0x0396,
+  [0x86] = 0x0397,
+  [0x87] = 0x0398,
+  [0x88] = 0x0399,
+  [0x89] = 0x039a,
+  [0x8a] = 0x039b,
+  [0x8b] = 0x039c,
+  [0x8c] = 0x039d,
+  [0x8d] = 0x039e,
+  [0x8e] = 0x039f,
+  [0x8f] = 0x03a0,
+  [0x90] = 0x03a1,
+  [0x91] = 0x03a3,
+  [0x92] = 0x03a4,
+  [0x93] = 0x03a5,
+  [0x94] = 0x03a6,
+  [0x95] = 0x03a7,
+  [0x96] = 0x03a8,
+  [0x97] = 0x03a9,
+  [0x98] = 0x03b1,
+  [0x99] = 0x03b2,
+  [0x9a] = 0x03b3,
+  [0x9b] = 0x03b4,
+  [0x9c] = 0x03b5,
+  [0x9d] = 0x03b6,
+  [0x9e] = 0x03b7,
+  [0x9f] = 0x03b8,
+  [0xa0] = 0x03b9,
+  [0xa1] = 0x03ba,
+  [0xa2] = 0x03bb,
+  [0xa3] = 0x03bc,
+  [0xa4] = 0x03bd,
+  [0xa5] = 0x03be,
+  [0xa6] = 0x03bf,
+  [0xa7] = 0x03c0,
+  [0xa8] = 0x03c1,
+  [0xa9] = 0x03c3,
+  [0xaa] = 0x03c2,
+  [0xab] = 0x03c4,
+  [0xac] = 0x03c5,
+  [0xad] = 0x03c6,
+  [0xae] = 0x03c7,
+  [0xaf] = 0x03c8,
+  [0xb0] = 0x2591,
+  [0xb1] = 0x2592,
+  [0xb2] = 0x2593,
+  [0xb3] = 0x2502,
+  [0xb4] = 0x2524,
+  [0xb5] = 0x2561,
+  [0xb6] = 0x2562,
+  [0xb7] = 0x2556,
+  [0xb8] = 0x2555,
+  [0xb9] = 0x2563,
+  [0xba] = 0x2551,
+  [0xbb] = 0x2557,
+  [0xbc] = 0x255d,
+  [0xbd] = 0x255c,
+  [0xbe] = 0x255b,
+  [0xbf] = 0x2510,
+  [0xc0] = 0x2514,
+  [0xc1] = 0x2534,
+  [0xc2] = 0x252c,
+  [0xc3] = 0x251c,
+  [0xc4] = 0x2500,
+  [0xc5] = 0x253c,
+  [0xc6] = 0x255e,
+  [0xc7] = 0x255f,
+  [0xc8] = 0x255a,
+  [0xc9] = 0x2554,
+  [0xca] = 0x2569,
+  [0xcb] = 0x2566,
+  [0xcc] = 0x2560,
+  [0xcd] = 0x2550,
+  [0xce] = 0x256c,
+  [0xcf] = 0x2567,
+  [0xd0] = 0x2568,
+  [0xd1] = 0x2564,
+  [0xd2] = 0x2565,
+  [0xd3] = 0x2559,
+  [0xd4] = 0x2558,
+  [0xd5] = 0x2552,
+  [0xd6] = 0x2553,
+  [0xd7] = 0x256b,
+  [0xd8] = 0x256a,
+  [0xd9] = 0x2518,
+  [0xda] = 0x250c,
+  [0xdb] = 0x2588,
+  [0xdc] = 0x2584,
+  [0xdd] = 0x258c,
+  [0xde] = 0x2590,
+  [0xdf] = 0x2580,
+  [0xe0] = 0x03c9,
+  [0xe1] = 0x03ac,
+  [0xe2] = 0x03ad,
+  [0xe3] = 0x03ae,
+  [0xe4] = 0x03ca,
+  [0xe5] = 0x03af,
+  [0xe6] = 0x03cc,
+  [0xe7] = 0x03cd,
+  [0xe8] = 0x03cb,
+  [0xe9] = 0x03ce,
+  [0xea] = 0x0386,
+  [0xeb] = 0x0388,
+  [0xec] = 0x0389,
+  [0xed] = 0x038a,
+  [0xee] = 0x038c,
+  [0xef] = 0x038e,
+  [0xf0] = 0x038f,
+  [0xf1] = 0x00b1,
+  [0xf2] = 0x2265,
+  [0xf3] = 0x2264,
+  [0xf4] = 0x03aa,
+  [0xf5] = 0x03ab,
+  [0xf6] = 0x00f7,
+  [0xf7] = 0x2248,
+  [0xf8] = 0x00b0,
+  [0xf9] = 0x2219,
+  [0xfa] = 0x00b7,
+  [0xfb] = 0x221a,
+  [0xfc] = 0x207f,
+  [0xfd] = 0x00b2,
+  [0xfe] = 0x25a0,
+  [0xff] = 0x00a0,
+};
+
+
+/* Index table for mapping from UCS4.  The table can be generated with
+
+   cat .../unix/mappings/vendors/micsft/pc/cp737.txt |
+   awk '/^0x/ { if (NF > 2) print $2; }' | perl gap.pl
+
+   where gap.pl is the file in this directory.
+ */
+static struct gap from_idx[] =
+{
+  { start: 0x0000, end: 0x007f, idx:     0 },
+  { start: 0x00a0, end: 0x00a0, idx:   -32 },
+  { start: 0x00b0, end: 0x00b7, idx:   -47 },
+  { start: 0x00f7, end: 0x00f7, idx:  -110 },
+  { start: 0x0386, end: 0x03ce, idx:  -764 },
+  { start: 0x207f, end: 0x207f, idx: -8108 },
+  { start: 0x2219, end: 0x221a, idx: -8517 },
+  { start: 0x2248, end: 0x2248, idx: -8562 },
+  { start: 0x2264, end: 0x2265, idx: -8589 },
+  { start: 0x2500, end: 0x2502, idx: -9255 },
+  { start: 0x250c, end: 0x251c, idx: -9264 },
+  { start: 0x2524, end: 0x2524, idx: -9271 },
+  { start: 0x252c, end: 0x252c, idx: -9278 },
+  { start: 0x2534, end: 0x2534, idx: -9285 },
+  { start: 0x253c, end: 0x253c, idx: -9292 },
+  { start: 0x2550, end: 0x256c, idx: -9311 },
+  { start: 0x2580, end: 0x2593, idx: -9330 },
+  { start: 0x25a0, end: 0x25a0, idx: -9342 },
+  { start: 0xffff, end: 0xffff, idx:     0 }
+};
+
+/* Table accessed through above index table.  It can be generated using:
+
+   cat .../unix/mappings/vendors/micsft/pc/cp737.txt |
+   awk '/^0x/ { if (NF > 2) print $2, $1; }' | perl gaptab.pl
+
+   where gaptab.pl is the file in this directory.
+ */
+static const char from_ucs4[] =
+{
+  '\x00', '\x01', '\x02', '\x03', '\x04', '\x05', '\x06', '\x07',
+  '\x08', '\x09', '\x0a', '\x0b', '\x0c', '\x0d', '\x0e', '\x0f',
+  '\x10', '\x11', '\x12', '\x13', '\x14', '\x15', '\x16', '\x17',
+  '\x18', '\x19', '\x1a', '\x1b', '\x1c', '\x1d', '\x1e', '\x1f',
+  '\x20', '\x21', '\x22', '\x23', '\x24', '\x25', '\x26', '\x27',
+  '\x28', '\x29', '\x2a', '\x2b', '\x2c', '\x2d', '\x2e', '\x2f',
+  '\x30', '\x31', '\x32', '\x33', '\x34', '\x35', '\x36', '\x37',
+  '\x38', '\x39', '\x3a', '\x3b', '\x3c', '\x3d', '\x3e', '\x3f',
+  '\x40', '\x41', '\x42', '\x43', '\x44', '\x45', '\x46', '\x47',
+  '\x48', '\x49', '\x4a', '\x4b', '\x4c', '\x4d', '\x4e', '\x4f',
+  '\x50', '\x51', '\x52', '\x53', '\x54', '\x55', '\x56', '\x57',
+  '\x58', '\x59', '\x5a', '\x5b', '\x5c', '\x5d', '\x5e', '\x5f',
+  '\x60', '\x61', '\x62', '\x63', '\x64', '\x65', '\x66', '\x67',
+  '\x68', '\x69', '\x6a', '\x6b', '\x6c', '\x6d', '\x6e', '\x6f',
+  '\x70', '\x71', '\x72', '\x73', '\x74', '\x75', '\x76', '\x77',
+  '\x78', '\x79', '\x7a', '\x7b', '\x7c', '\x7d', '\x7e', '\x7f',
+  '\xff', '\xf8', '\xf1', '\xfd', '\x00', '\x00', '\x00', '\x00',
+  '\xfa', '\xf6', '\xea', '\x00', '\xeb', '\xec', '\xed', '\x00',
+  '\xee', '\x00', '\xef', '\xf0', '\x00', '\x80', '\x81', '\x82',
+  '\x83', '\x84', '\x85', '\x86', '\x87', '\x88', '\x89', '\x8a',
+  '\x8b', '\x8c', '\x8d', '\x8e', '\x8f', '\x90', '\x00', '\x91',
+  '\x92', '\x93', '\x94', '\x95', '\x96', '\x97', '\xf4', '\xf5',
+  '\xe1', '\xe2', '\xe3', '\xe5', '\x00', '\x98', '\x99', '\x9a',
+  '\x9b', '\x9c', '\x9d', '\x9e', '\x9f', '\xa0', '\xa1', '\xa2',
+  '\xa3', '\xa4', '\xa5', '\xa6', '\xa7', '\xa8', '\xaa', '\xa9',
+  '\xab', '\xac', '\xad', '\xae', '\xaf', '\xe0', '\xe4', '\xe8',
+  '\xe6', '\xe7', '\xe9', '\xfc', '\xf9', '\xfb', '\xf7', '\xf3',
+  '\xf2', '\xc4', '\x00', '\xb3', '\xda', '\x00', '\x00', '\x00',
+  '\xbf', '\x00', '\x00', '\x00', '\xc0', '\x00', '\x00', '\x00',
+  '\xd9', '\x00', '\x00', '\x00', '\xc3', '\xb4', '\xc2', '\xc1',
+  '\xc5', '\xcd', '\xba', '\xd5', '\xd6', '\xc9', '\xb8', '\xb7',
+  '\xbb', '\xd4', '\xd3', '\xc8', '\xbe', '\xbd', '\xbc', '\xc6',
+  '\xc7', '\xcc', '\xb5', '\xb6', '\xb9', '\xd1', '\xd2', '\xcb',
+  '\xcf', '\xd0', '\xca', '\xd8', '\xd7', '\xce', '\xdf', '\x00',
+  '\x00', '\x00', '\xdc', '\x00', '\x00', '\x00', '\xdb', '\x00',
+  '\x00', '\x00', '\xdd', '\x00', '\x00', '\x00', '\xde', '\xb0',
+  '\xb1', '\xb2', '\xfe',
+};