1 /*********************************************************************** 2 * * 3 * This software is part of the ast package * 4 * Copyright (c) 1985-2012 AT&T Intellectual Property * 5 * and is licensed under the * 6 * Eclipse Public License, Version 1.0 * 7 * by AT&T Intellectual Property * 8 * * 9 * A copy of the License is available at * 10 * http://www.eclipse.org/org/documents/epl-v10.html * 11 * (with md5 checksum b35adb5213ca9657e911e9befb180842) * 12 * * 13 * Information and Software Systems Research * 14 * AT&T Research * 15 * Florham Park NJ * 16 * * 17 * Glenn Fowler <gsf@research.att.com> * 18 * David Korn <dgk@research.att.com> * 19 * Phong Vo <kpv@research.att.com> * 20 * * 21 ***********************************************************************/ 22 #pragma prototyped 23 24 /* 25 * Glenn Fowler 26 * AT&T Research 27 * 28 * 8 bit character code map name/id lookup support 29 */ 30 31 #include <ast.h> 32 #include <ccode.h> 33 #include <ctype.h> 34 35 static const Ccmap_t maps[] = 36 { 37 { 38 "ascii", 39 "a|ascii|?(iso)?(-)646|?(iso)?(-)8859|latin", 40 "8 bit ascii", 41 "ISO-8859-%s", 42 "1", 43 CC_ASCII, 44 }, 45 46 { 47 "ebcdic", 48 "e|ebcdic?(-)?([1e])", 49 "X/Open ebcdic", 50 "EBCDIC", 51 0, 52 CC_EBCDIC_E, 53 }, 54 55 { 56 "ebcdic-o", 57 "o|ebcdic?(-)[3o]|?(cp|ibm)1047|open?(-)edition", 58 "mvs OpenEdition ebcdic", 59 "EBCDIC-O", 60 0, 61 CC_EBCDIC_O, 62 }, 63 64 { 65 "ebcdic-h", 66 "h|ebcdic?(-)h|?(cp|ibm)?(00)37|[oa]s?(/-)400", 67 "ibm OS/400 AS/400 ebcdic", 68 "EBCDIC-H", 69 0, 70 CC_EBCDIC_H, 71 }, 72 73 { 74 "ebcdic-s", 75 "s|ebcdic?(-)s|siemens|posix-bc", 76 "siemens posix-bc ebcdic", 77 "EBCDIC-S", 78 0, 79 CC_EBCDIC_S, 80 }, 81 82 { 83 "ebcdic-i", 84 "i|ebcdic?(-)[2i]|ibm", 85 "X/Open ibm ebcdic (not idempotent)", 86 "EBCDIC-I", 87 0, 88 CC_EBCDIC_I, 89 }, 90 91 { 92 "ebcdic-m", 93 "m|ebcdic?(-)m|mvs", 94 "mvs ebcdic", 95 "EBCDIC-M", 96 0, 97 CC_EBCDIC_M, 98 }, 99 100 { 101 "ebcdic-u", 102 "u|ebcdic?(-)(u|mf)|microfocus", 103 "microfocus cobol ebcdic", 104 "EBCDIC-U", 105 0, 106 CC_EBCDIC_U, 107 }, 108 109 { 110 "native", 111 "n|native|local", 112 "native code set", 113 0, 114 0, 115 CC_NATIVE, 116 }, 117 118 { 0 }, 119 }; 120 121 /* 122 * ccode map list iterator 123 */ 124 125 Ccmap_t* 126 ccmaplist(Ccmap_t* mp) 127 { 128 return !mp ? (Ccmap_t*)maps : (++mp)->name ? mp : (Ccmap_t*)0; 129 } 130 131 /* 132 * return ccode map id given name 133 */ 134 135 int 136 ccmapid(const char* name) 137 { 138 register const Ccmap_t* mp; 139 register int c; 140 const Ccmap_t* bp; 141 int n; 142 ssize_t sub[2]; 143 144 bp = 0; 145 n = 0; 146 for (mp = maps; mp->name; mp++) 147 if (strgrpmatch(name, mp->match, sub, elementsof(sub) / 2, STR_MAXIMAL|STR_LEFT|STR_ICASE)) 148 { 149 if (!(c = name[sub[1]])) 150 return mp->ccode; 151 if (sub[1] > n && !isalpha(c)) 152 { 153 n = sub[1]; 154 bp = mp; 155 } 156 } 157 return bp ? bp->ccode : -1; 158 } 159 160 /* 161 * return ccode map name given id 162 */ 163 164 char* 165 ccmapname(register int id) 166 { 167 register const Ccmap_t* mp; 168 169 for (mp = maps; mp->name; mp++) 170 if (id == mp->ccode) 171 return (char*)mp->name; 172 return 0; 173 } 174