1 /* Tables for conversion from and to IBM803. 2 Copyright (C) 2005-2022 Free Software Foundation, Inc. 3 This file is part of the GNU C Library. 4 5 The GNU C Library is free software; you can redistribute it and/or 6 modify it under the terms of the GNU Lesser General Public 7 License as published by the Free Software Foundation; either 8 version 2.1 of the License, or (at your option) any later version. 9 10 The GNU C Library is distributed in the hope that it will be useful, 11 but WITHOUT ANY WARRANTY; without even the implied warranty of 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 13 Lesser General Public License for more details. 14 15 You should have received a copy of the GNU Lesser General Public 16 License along with the GNU C Library; if not, see 17 <https://www.gnu.org/licenses/>. */ 18 19 #include <stdint.h> 20 21 static const uint32_t to_ucs4[256] = 22 { 23 [0x00] = 0x0000, [0x01] = 0x0001, [0x02] = 0x0002, [0x03] = 0x0003, 24 [0x04] = 0x009c, [0x05] = 0x0009, [0x06] = 0x0086, [0x07] = 0x007f, 25 [0x08] = 0x0097, [0x09] = 0x008d, [0x0a] = 0x008e, [0x0b] = 0x000b, 26 [0x0c] = 0x000c, [0x0d] = 0x000d, [0x0e] = 0x000e, [0x0f] = 0x000f, 27 [0x10] = 0x0010, [0x11] = 0x0011, [0x12] = 0x0012, [0x13] = 0x0013, 28 [0x14] = 0x009d, [0x15] = 0x0085, [0x16] = 0x0008, [0x17] = 0x0087, 29 [0x18] = 0x0018, [0x19] = 0x0019, [0x1a] = 0x0092, [0x1b] = 0x008f, 30 [0x1c] = 0x001c, [0x1d] = 0x001d, [0x1e] = 0x001e, [0x1f] = 0x001f, 31 [0x20] = 0x0080, [0x21] = 0x0081, [0x22] = 0x0082, [0x23] = 0x0083, 32 [0x24] = 0x0084, [0x25] = 0x000a, [0x26] = 0x0017, [0x27] = 0x001b, 33 [0x28] = 0x0088, [0x29] = 0x0089, [0x2a] = 0x008a, [0x2b] = 0x008b, 34 [0x2c] = 0x008c, [0x2d] = 0x0005, [0x2e] = 0x0006, [0x2f] = 0x0007, 35 [0x30] = 0x0090, [0x31] = 0x0091, [0x32] = 0x0016, [0x33] = 0x0093, 36 [0x34] = 0x0094, [0x35] = 0x0095, [0x36] = 0x0096, [0x37] = 0x0004, 37 [0x38] = 0x0098, [0x39] = 0x0099, [0x3a] = 0x009a, [0x3b] = 0x009b, 38 [0x3c] = 0x0014, [0x3d] = 0x0015, [0x3e] = 0x009e, [0x3f] = 0x001a, 39 [0x40] = 0x0020, [0x4a] = 0x0024, [0x4b] = 0x002e, [0x4c] = 0x003c, 40 [0x4d] = 0x0028, [0x4e] = 0x002b, [0x4f] = 0x007c, [0x50] = 0x05d0, 41 [0x5a] = 0x0021, [0x5b] = 0x00a2, [0x5c] = 0x002a, [0x5d] = 0x0029, 42 [0x5e] = 0x003b, [0x5f] = 0x00ac, [0x60] = 0x002d, [0x61] = 0x002f, 43 [0x6b] = 0x002c, [0x6c] = 0x0025, [0x6d] = 0x005f, [0x6e] = 0x003e, 44 [0x6f] = 0x003f, [0x7a] = 0x003a, [0x7b] = 0x0023, [0x7c] = 0x0040, 45 [0x7d] = 0x0027, [0x7e] = 0x003d, [0x7f] = 0x0022, [0x81] = 0x05d1, 46 [0x82] = 0x05d2, [0x83] = 0x05d3, [0x84] = 0x05d4, [0x85] = 0x05d5, 47 [0x86] = 0x05d6, [0x87] = 0x05d7, [0x88] = 0x05d8, [0x89] = 0x05d9, 48 [0x91] = 0x05da, [0x92] = 0x05db, [0x93] = 0x05dc, [0x94] = 0x05dd, 49 [0x95] = 0x05de, [0x96] = 0x05df, [0x97] = 0x05e0, [0x98] = 0x05e1, 50 [0x99] = 0x05e2, [0xa2] = 0x05e3, [0xa3] = 0x05e4, [0xa4] = 0x05e5, 51 [0xa5] = 0x05e6, [0xa6] = 0x05e7, [0xa7] = 0x05e8, [0xa8] = 0x05e9, 52 [0xa9] = 0x05ea, [0xc1] = 0x0041, [0xc2] = 0x0042, [0xc3] = 0x0043, 53 [0xc4] = 0x0044, [0xc5] = 0x0045, [0xc6] = 0x0046, [0xc7] = 0x0047, 54 [0xc8] = 0x0048, [0xc9] = 0x0049, [0xd1] = 0x004a, [0xd2] = 0x004b, 55 [0xd3] = 0x004c, [0xd4] = 0x004d, [0xd5] = 0x004e, [0xd6] = 0x004f, 56 [0xd7] = 0x0050, [0xd8] = 0x0051, [0xd9] = 0x0052, [0xe2] = 0x0053, 57 [0xe3] = 0x0054, [0xe4] = 0x0055, [0xe5] = 0x0056, [0xe6] = 0x0057, 58 [0xe7] = 0x0058, [0xe8] = 0x0059, [0xe9] = 0x005a, [0xf0] = 0x0030, 59 [0xf1] = 0x0031, [0xf2] = 0x0032, [0xf3] = 0x0033, [0xf4] = 0x0034, 60 [0xf5] = 0x0035, [0xf6] = 0x0036, [0xf7] = 0x0037, [0xf8] = 0x0038, 61 [0xf9] = 0x0039, [0xff] = 0x009f 62 }; 63 64 static const struct gap from_idx[] = 65 { 66 { start: 0x0000, end: 0x005f, idx: 0 }, 67 { start: 0x007c, end: 0x00a2, idx: -28 }, 68 { start: 0x00ac, end: 0x00ac, idx: -37 }, 69 { start: 0x05d0, end: 0x05ea, idx: -1352 }, 70 { start: 0xffff, end: 0xffff, idx: 0 } 71 }; 72 73 static const char from_ucs4[] = 74 { 75 '\x00', '\x01', '\x02', '\x03', '\x37', '\x2d', '\x2e', '\x2f', 76 '\x16', '\x05', '\x25', '\x0b', '\x0c', '\x0d', '\x0e', '\x0f', 77 '\x10', '\x11', '\x12', '\x13', '\x3c', '\x3d', '\x32', '\x26', 78 '\x18', '\x19', '\x3f', '\x27', '\x1c', '\x1d', '\x1e', '\x1f', 79 '\x40', '\x5a', '\x7f', '\x7b', '\x4a', '\x6c', '\x00', '\x7d', 80 '\x4d', '\x5d', '\x5c', '\x4e', '\x6b', '\x60', '\x4b', '\x61', 81 '\xf0', '\xf1', '\xf2', '\xf3', '\xf4', '\xf5', '\xf6', '\xf7', 82 '\xf8', '\xf9', '\x7a', '\x5e', '\x4c', '\x7e', '\x6e', '\x6f', 83 '\x7c', '\xc1', '\xc2', '\xc3', '\xc4', '\xc5', '\xc6', '\xc7', 84 '\xc8', '\xc9', '\xd1', '\xd2', '\xd3', '\xd4', '\xd5', '\xd6', 85 '\xd7', '\xd8', '\xd9', '\xe2', '\xe3', '\xe4', '\xe5', '\xe6', 86 '\xe7', '\xe8', '\xe9', '\x00', '\x00', '\x00', '\x00', '\x6d', 87 '\x4f', '\x00', '\x00', '\x07', '\x20', '\x21', '\x22', '\x23', 88 '\x24', '\x15', '\x06', '\x17', '\x28', '\x29', '\x2a', '\x2b', 89 '\x2c', '\x09', '\x0a', '\x1b', '\x30', '\x31', '\x1a', '\x33', 90 '\x34', '\x35', '\x36', '\x08', '\x38', '\x39', '\x3a', '\x3b', 91 '\x04', '\x14', '\x3e', '\xff', '\x00', '\x00', '\x5b', '\x5f', 92 '\x50', '\x81', '\x82', '\x83', '\x84', '\x85', '\x86', '\x87', 93 '\x88', '\x89', '\x91', '\x92', '\x93', '\x94', '\x95', '\x96', 94 '\x97', '\x98', '\x99', '\xa2', '\xa3', '\xa4', '\xa5', '\xa6', 95 '\xa7', '\xa8', '\xa9' 96 }; 97