HCoop / hcoop / debian / courier-authlib.git / blame
| Commit | Line | Data |
|---|---|---|
| 8d138742 CE |
1 | #!/usr/bin/perl |
| 2 | # usage: | |
| 3 | # % iso2022jp.pl > iso2022jp.h | |
| 4 | ||
| 5 | require "cjkcompat.pl"; | |
| 6 | ||
| 7 | ||
| 8 | $perline = 8; | |
| 9 | $unihan = "Unihan-3.2.0.txt.gz"; | |
| 10 | ||
| 11 | die "${unihan}: File not found.\n" if (!(-f $unihan)); | |
| 12 | open (SET, "gunzip -cd < ${unihan} |") or die "${unihan}: $!\n"; | |
| 13 | ||
| 14 | $ln=0; $ls = ""; | |
| 15 | while (<SET>) | |
| 16 | { | |
| 17 | $line++; | |
| 18 | $ls = $_; | |
| 19 | chomp; | |
| 20 | s/\#.*//; | |
| 21 | next unless /^U\+(.....?)\s+kIRG_JSource\s+([01])\-(....)/; | |
| 22 | ||
| 23 | my $jcode = hex $3; | |
| 24 | my $jlevel = $2+0; | |
| 25 | my $ucode = hex $1; | |
| 26 | ||
| 27 | my $jcodeh = int ($jcode / 256); | |
| 28 | my $jcodel = $jcode % 256; | |
| 29 | ||
| 30 | if ($jcode < 0 || $jcode > 65535 || $ucode == 0 || | |
| 31 | $jcodeh < 0x21 || $jcodeh > 0x7e || $jcodel < 0x21 || $jcodel > 0x7e) { | |
| 32 | print "$0: Out of JIS/Unicode code range\n"; | |
| 33 | print sprintf("line %d: JIS 0x%04X, U+%04X\n", $line, $jcode, $ucode); | |
| 34 | print "> $ls"; | |
| 35 | die; | |
| 36 | } | |
| 37 | ||
| 38 | if ($jlevel == 0) { | |
| 39 | $j2u{$jcode} = $ucode; | |
| 40 | } elsif ($jlevel == 1) { | |
| 41 | $jisx0212_j2u{$jcode} = $ucode; | |
| 42 | } | |
| 43 | } | |
| 44 | ||
| 45 | close(SET); | |
| 46 | ||
| 47 | ## | |
| 48 | ## Map for JIS X 0208:1983/1990/1997 | |
| 49 | ## | |
| 50 | ||
| 51 | # NOTE: Some row-cells of JIS X 0208:1997 and JIS X 0212 are duplicated | |
| 52 | # with US-ASCII (identical to ISO 646 IRV) and GL of JIS X 0201 (ISO 646 | |
| 53 | # Japanese version). | |
| 54 | # They are mapped to Fullwidth Form (U+FFxx) so that round-trip compatibility | |
| 55 | # will be kept. | |
| 56 | ||
| 57 | # DIGIT and LETTER of BASIC LATIN | |
| 58 | foreach $jcode ((0x2330..0x2339,0x2341..0x235a,0x2361..0x237a)) { | |
| 59 | $ucode = $jcode + 0xdbe0; | |
| 60 | $j2u{$jcode} = $ucode; | |
| 61 | } | |
| 62 | # HIRAGANA | |
| 63 | # Note: 0x2474-0x2476 are assigned by JIS X 0213:2000, | |
| 64 | # but are found in some vendor codepages for JIS X 0208. | |
| 65 | for ($jcode = 0x2421; $jcode <= 0x2476; $jcode++) { | |
| 66 | $ucode = $jcode + 0xc20; | |
| 67 | $j2u{$jcode} = $ucode; | |
| 68 | } | |
| 69 | # KATAKANA | |
| 70 | for ($jcode = 0x2521; $jcode <= 0x2576; $jcode++) { | |
| 71 | $ucode = $jcode + 0xb80; | |
| 72 | $j2u{$jcode} = $ucode; | |
| 73 | } | |
| 74 | ||
| 75 | # Unicode-3.2 does not make mention of JIS X 0208 marks | |
| 76 | # (there is no clear definitions), so manually add a | |
| 77 | # converting map... | |
| 78 | # cf. JIS X 0208:1997 | |
| 79 | ||
| 80 | $j2u{0x2121} = 0x3000; | |
| 81 | $j2u{0x2122} = 0x3001; | |
| 82 | $j2u{0x2123} = 0x3002; | |
| 83 | $j2u{0x2124} = 0xff0c; | |
| 84 | $j2u{0x2125} = 0xff0e; | |
| 85 | $j2u{0x2126} = 0x30fb; | |
| 86 | $j2u{0x2127} = 0xff1a; | |
| 87 | $j2u{0x2128} = 0xff1b; | |
| 88 | $j2u{0x2129} = 0xff1f; | |
| 89 | $j2u{0x212a} = 0xff01; | |
| 90 | $j2u{0x212b} = 0x309b; | |
| 91 | $j2u{0x212c} = 0x309c; | |
| 92 | $j2u{0x212d} = 0x00b4; | |
| 93 | $j2u{0x212e} = 0xff40; | |
| 94 | $j2u{0x212f} = 0x00a8; | |
| 95 | $j2u{0x2130} = 0xff3e; | |
| 96 | $j2u{0x2131} = 0xffe3; # OVERLINE vs. JIS X 0201 GL -> FULLWIDTH MACRON | |
| 97 | $j2u{0x2132} = 0xff3f; | |
| 98 | $j2u{0x2133} = 0x30fd; | |
| 99 | $j2u{0x2134} = 0x30fe; | |
| 100 | $j2u{0x2135} = 0x309d; | |
| 101 | $j2u{0x2136} = 0x309e; | |
| 102 | $j2u{0x2137} = 0x3003; | |
| 103 | $j2u{0x2138} = 0x4edd; | |
| 104 | $j2u{0x2139} = 0x3005; | |
| 105 | $j2u{0x213a} = 0x3006; | |
| 106 | $j2u{0x213b} = 0x3007; | |
| 107 | $j2u{0x213c} = 0x30fc; | |
| 108 | $j2u{0x213d} = 0x2014; # HOLIZONTAL BAR (JIS X 0208:1990) -> EM DASH (1997) | |
| 109 | $j2u{0x213e} = 0x2010; | |
| 110 | $j2u{0x213f} = 0xff0f; | |
| 111 | $j2u{0x2140} = 0xff3c; # REVERSE SOLIDUS vs. ASCII -> FULLWIDTH REVERSE SOLIDUS | |
| 112 | $j2u{0x2141} = 0x301c; | |
| 113 | $j2u{0x2142} = 0x2016; | |
| 114 | $j2u{0x2143} = 0xff5c; | |
| 115 | $j2u{0x2144} = 0x2026; | |
| 116 | $j2u{0x2145} = 0x2025; | |
| 117 | $j2u{0x2146} = 0x2018; | |
| 118 | $j2u{0x2147} = 0x2019; | |
| 119 | $j2u{0x2148} = 0x201c; | |
| 120 | $j2u{0x2149} = 0x201d; | |
| 121 | $j2u{0x214a} = 0xff08; | |
| 122 | $j2u{0x214b} = 0xff09; | |
| 123 | $j2u{0x214c} = 0x3014; | |
| 124 | $j2u{0x214d} = 0x3015; | |
| 125 | $j2u{0x214e} = 0xff3b; | |
| 126 | $j2u{0x214f} = 0xff3d; | |
| 127 | $j2u{0x2150} = 0xff5b; | |
| 128 | $j2u{0x2151} = 0xff5d; | |
| 129 | $j2u{0x2152} = 0x3008; | |
| 130 | $j2u{0x2153} = 0x3009; | |
| 131 | $j2u{0x2154} = 0x300a; | |
| 132 | $j2u{0x2155} = 0x300b; | |
| 133 | $j2u{0x2156} = 0x300c; | |
| 134 | $j2u{0x2157} = 0x300d; | |
| 135 | $j2u{0x2158} = 0x300e; | |
| 136 | $j2u{0x2159} = 0x300f; | |
| 137 | $j2u{0x215a} = 0x3010; | |
| 138 | $j2u{0x215b} = 0x3011; | |
| 139 | $j2u{0x215c} = 0xff0b; | |
| 140 | $j2u{0x215d} = 0x2212; | |
| 141 | $j2u{0x215e} = 0x00b1; | |
| 142 | $j2u{0x215f} = 0x00d7; | |
| 143 | $j2u{0x2160} = 0x00f7; | |
| 144 | $j2u{0x2161} = 0xff1d; | |
| 145 | $j2u{0x2162} = 0x2260; | |
| 146 | $j2u{0x2163} = 0xff1c; | |
| 147 | $j2u{0x2164} = 0xff1e; | |
| 148 | $j2u{0x2165} = 0x2266; | |
| 149 | $j2u{0x2166} = 0x2267; | |
| 150 | $j2u{0x2167} = 0x221e; | |
| 151 | $j2u{0x2168} = 0x2234; | |
| 152 | $j2u{0x2169} = 0x2642; | |
| 153 | $j2u{0x216a} = 0x2640; | |
| 154 | $j2u{0x216b} = 0x00b0; | |
| 155 | $j2u{0x216c} = 0x2032; | |
| 156 | $j2u{0x216d} = 0x2033; | |
| 157 | $j2u{0x216e} = 0x2103; | |
| 158 | $j2u{0x216f} = 0xffe5; # YEN SIGN vs. JIS X 0201 GL -> FULLWIDTH YEN SIGN | |
| 159 | $j2u{0x2170} = 0xff04; | |
| 160 | $j2u{0x2171} = 0x00a2; | |
| 161 | $j2u{0x2172} = 0x00a3; | |
| 162 | $j2u{0x2173} = 0xff05; | |
| 163 | $j2u{0x2174} = 0xff03; | |
| 164 | $j2u{0x2175} = 0xff06; | |
| 165 | $j2u{0x2176} = 0xff0a; | |
| 166 | $j2u{0x2177} = 0xff20; | |
| 167 | $j2u{0x2178} = 0x00a7; | |
| 168 | $j2u{0x2179} = 0x2606; | |
| 169 | $j2u{0x217a} = 0x2605; | |
| 170 | $j2u{0x217b} = 0x25cb; | |
| 171 | $j2u{0x217c} = 0x25cf; | |
| 172 | $j2u{0x217d} = 0x25ce; | |
| 173 | $j2u{0x217e} = 0x25c7; | |
| 174 | $j2u{0x2221} = 0x25c6; | |
| 175 | $j2u{0x2222} = 0x25a1; | |
| 176 | $j2u{0x2223} = 0x25a0; | |
| 177 | $j2u{0x2224} = 0x25b3; | |
| 178 | $j2u{0x2225} = 0x25b2; | |
| 179 | $j2u{0x2226} = 0x25bd; | |
| 180 | $j2u{0x2227} = 0x25bc; | |
| 181 | $j2u{0x2228} = 0x203b; | |
| 182 | $j2u{0x2229} = 0x3012; | |
| 183 | $j2u{0x222a} = 0x2192; | |
| 184 | $j2u{0x222b} = 0x2190; | |
| 185 | $j2u{0x222c} = 0x2191; | |
| 186 | $j2u{0x222d} = 0x2193; | |
| 187 | $j2u{0x222e} = 0x3013; | |
| 188 | $j2u{0x223a} = 0x2208; | |
| 189 | $j2u{0x223b} = 0x220b; | |
| 190 | $j2u{0x223c} = 0x2286; | |
| 191 | $j2u{0x223d} = 0x2287; | |
| 192 | $j2u{0x223e} = 0x2282; | |
| 193 | $j2u{0x223f} = 0x2283; | |
| 194 | $j2u{0x2240} = 0x222a; | |
| 195 | $j2u{0x2241} = 0x2229; | |
| 196 | $j2u{0x224a} = 0x2227; | |
| 197 | $j2u{0x224b} = 0x2228; | |
| 198 | $j2u{0x224c} = 0x00ac; | |
| 199 | $j2u{0x224d} = 0x21d2; | |
| 200 | $j2u{0x224e} = 0x21d4; | |
| 201 | $j2u{0x224f} = 0x2200; | |
| 202 | $j2u{0x2250} = 0x2203; | |
| 203 | $j2u{0x225c} = 0x2220; | |
| 204 | $j2u{0x225d} = 0x22a5; | |
| 205 | $j2u{0x225e} = 0x2312; | |
| 206 | $j2u{0x225f} = 0x2202; | |
| 207 | $j2u{0x2260} = 0x2207; | |
| 208 | $j2u{0x2261} = 0x2261; | |
| 209 | $j2u{0x2262} = 0x2252; | |
| 210 | $j2u{0x2263} = 0x226a; | |
| 211 | $j2u{0x2264} = 0x226b; | |
| 212 | $j2u{0x2265} = 0x221a; | |
| 213 | $j2u{0x2266} = 0x223d; | |
| 214 | $j2u{0x2267} = 0x221d; | |
| 215 | $j2u{0x2268} = 0x2235; | |
| 216 | $j2u{0x2269} = 0x222b; | |
| 217 | $j2u{0x226a} = 0x222c; | |
| 218 | $j2u{0x2272} = 0x212b; | |
| 219 | $j2u{0x2273} = 0x2030; | |
| 220 | $j2u{0x2274} = 0x266f; | |
| 221 | $j2u{0x2275} = 0x266d; | |
| 222 | $j2u{0x2276} = 0x266a; | |
| 223 | $j2u{0x2277} = 0x2020; | |
| 224 | $j2u{0x2278} = 0x2021; | |
| 225 | $j2u{0x2279} = 0x00b6; | |
| 226 | $j2u{0x227e} = 0x25ef; | |
| 227 | $j2u{0x2621} = 0x0391; | |
| 228 | $j2u{0x2622} = 0x0392; | |
| 229 | $j2u{0x2623} = 0x0393; | |
| 230 | $j2u{0x2624} = 0x0394; | |
| 231 | $j2u{0x2625} = 0x0395; | |
| 232 | $j2u{0x2626} = 0x0396; | |
| 233 | $j2u{0x2627} = 0x0397; | |
| 234 | $j2u{0x2628} = 0x0398; | |
| 235 | $j2u{0x2629} = 0x0399; | |
| 236 | $j2u{0x262a} = 0x039a; | |
| 237 | $j2u{0x262b} = 0x039b; | |
| 238 | $j2u{0x262c} = 0x039c; | |
| 239 | $j2u{0x262d} = 0x039d; | |
| 240 | $j2u{0x262e} = 0x039e; | |
| 241 | $j2u{0x262f} = 0x039f; | |
| 242 | $j2u{0x2630} = 0x03a0; | |
| 243 | $j2u{0x2631} = 0x03a1; | |
| 244 | $j2u{0x2632} = 0x03a3; | |
| 245 | $j2u{0x2633} = 0x03a4; | |
| 246 | $j2u{0x2634} = 0x03a5; | |
| 247 | $j2u{0x2635} = 0x03a6; | |
| 248 | $j2u{0x2636} = 0x03a7; | |
| 249 | $j2u{0x2637} = 0x03a8; | |
| 250 | $j2u{0x2638} = 0x03a9; | |
| 251 | $j2u{0x2641} = 0x03b1; | |
| 252 | $j2u{0x2642} = 0x03b2; | |
| 253 | $j2u{0x2643} = 0x03b3; | |
| 254 | $j2u{0x2644} = 0x03b4; | |
| 255 | $j2u{0x2645} = 0x03b5; | |
| 256 | $j2u{0x2646} = 0x03b6; | |
| 257 | $j2u{0x2647} = 0x03b7; | |
| 258 | $j2u{0x2648} = 0x03b8; | |
| 259 | $j2u{0x2649} = 0x03b9; | |
| 260 | $j2u{0x264a} = 0x03ba; | |
| 261 | $j2u{0x264b} = 0x03bb; | |
| 262 | $j2u{0x264c} = 0x03bc; | |
| 263 | $j2u{0x264d} = 0x03bd; | |
| 264 | $j2u{0x264e} = 0x03be; | |
| 265 | $j2u{0x264f} = 0x03bf; | |
| 266 | $j2u{0x2650} = 0x03c0; | |
| 267 | $j2u{0x2651} = 0x03c1; | |
| 268 | $j2u{0x2652} = 0x03c3; | |
| 269 | $j2u{0x2653} = 0x03c4; | |
| 270 | $j2u{0x2654} = 0x03c5; | |
| 271 | $j2u{0x2655} = 0x03c6; | |
| 272 | $j2u{0x2656} = 0x03c7; | |
| 273 | $j2u{0x2657} = 0x03c8; | |
| 274 | $j2u{0x2658} = 0x03c9; | |
| 275 | $j2u{0x2721} = 0x0410; | |
| 276 | $j2u{0x2722} = 0x0411; | |
| 277 | $j2u{0x2723} = 0x0412; | |
| 278 | $j2u{0x2724} = 0x0413; | |
| 279 | $j2u{0x2725} = 0x0414; | |
| 280 | $j2u{0x2726} = 0x0415; | |
| 281 | $j2u{0x2727} = 0x0401; | |
| 282 | $j2u{0x2728} = 0x0416; | |
| 283 | $j2u{0x2729} = 0x0417; | |
| 284 | $j2u{0x272a} = 0x0418; | |
| 285 | $j2u{0x272b} = 0x0419; | |
| 286 | $j2u{0x272c} = 0x041a; | |
| 287 | $j2u{0x272d} = 0x041b; | |
| 288 | $j2u{0x272e} = 0x041c; | |
| 289 | $j2u{0x272f} = 0x041d; | |
| 290 | $j2u{0x2730} = 0x041e; | |
| 291 | $j2u{0x2731} = 0x041f; | |
| 292 | $j2u{0x2732} = 0x0420; | |
| 293 | $j2u{0x2733} = 0x0421; | |
| 294 | $j2u{0x2734} = 0x0422; | |
| 295 | $j2u{0x2735} = 0x0423; | |
| 296 | $j2u{0x2736} = 0x0424; | |
| 297 | $j2u{0x2737} = 0x0425; | |
| 298 | $j2u{0x2738} = 0x0426; | |
| 299 | $j2u{0x2739} = 0x0427; | |
| 300 | $j2u{0x273a} = 0x0428; | |
| 301 | $j2u{0x273b} = 0x0429; | |
| 302 | $j2u{0x273c} = 0x042a; | |
| 303 | $j2u{0x273d} = 0x042b; | |
| 304 | $j2u{0x273e} = 0x042c; | |
| 305 | $j2u{0x273f} = 0x042d; | |
| 306 | $j2u{0x2740} = 0x042e; | |
| 307 | $j2u{0x2741} = 0x042f; | |
| 308 | $j2u{0x2751} = 0x0430; | |
| 309 | $j2u{0x2752} = 0x0431; | |
| 310 | $j2u{0x2753} = 0x0432; | |
| 311 | $j2u{0x2754} = 0x0433; | |
| 312 | $j2u{0x2755} = 0x0434; | |
| 313 | $j2u{0x2756} = 0x0435; | |
| 314 | $j2u{0x2757} = 0x0451; | |
| 315 | $j2u{0x2758} = 0x0436; | |
| 316 | $j2u{0x2759} = 0x0437; | |
| 317 | $j2u{0x275a} = 0x0438; | |
| 318 | $j2u{0x275b} = 0x0439; | |
| 319 | $j2u{0x275c} = 0x043a; | |
| 320 | $j2u{0x275d} = 0x043b; | |
| 321 | $j2u{0x275e} = 0x043c; | |
| 322 | $j2u{0x275f} = 0x043d; | |
| 323 | $j2u{0x2760} = 0x043e; | |
| 324 | $j2u{0x2761} = 0x043f; | |
| 325 | $j2u{0x2762} = 0x0440; | |
| 326 | $j2u{0x2763} = 0x0441; | |
| 327 | $j2u{0x2764} = 0x0442; | |
| 328 | $j2u{0x2765} = 0x0443; | |
| 329 | $j2u{0x2766} = 0x0444; | |
| 330 | $j2u{0x2767} = 0x0445; | |
| 331 | $j2u{0x2768} = 0x0446; | |
| 332 | $j2u{0x2769} = 0x0447; | |
| 333 | $j2u{0x276a} = 0x0448; | |
| 334 | $j2u{0x276b} = 0x0449; | |
| 335 | $j2u{0x276c} = 0x044a; | |
| 336 | $j2u{0x276d} = 0x044b; | |
| 337 | $j2u{0x276e} = 0x044c; | |
| 338 | $j2u{0x276f} = 0x044d; | |
| 339 | $j2u{0x2770} = 0x044e; | |
| 340 | $j2u{0x2771} = 0x044f; | |
| 341 | $j2u{0x2821} = 0x2500; | |
| 342 | $j2u{0x2822} = 0x2502; | |
| 343 | $j2u{0x2823} = 0x250c; | |
| 344 | $j2u{0x2824} = 0x2510; | |
| 345 | $j2u{0x2825} = 0x2518; | |
| 346 | $j2u{0x2826} = 0x2514; | |
| 347 | $j2u{0x2827} = 0x251c; | |
| 348 | $j2u{0x2828} = 0x252c; | |
| 349 | $j2u{0x2829} = 0x2524; | |
| 350 | $j2u{0x282a} = 0x2534; | |
| 351 | $j2u{0x282b} = 0x253c; | |
| 352 | $j2u{0x282c} = 0x2501; | |
| 353 | $j2u{0x282d} = 0x2503; | |
| 354 | $j2u{0x282e} = 0x250f; | |
| 355 | $j2u{0x282f} = 0x2513; | |
| 356 | $j2u{0x2830} = 0x251b; | |
| 357 | $j2u{0x2831} = 0x2517; | |
| 358 | $j2u{0x2832} = 0x2523; | |
| 359 | $j2u{0x2833} = 0x2533; | |
| 360 | $j2u{0x2834} = 0x252b; | |
| 361 | $j2u{0x2835} = 0x253b; | |
| 362 | $j2u{0x2836} = 0x254b; | |
| 363 | $j2u{0x2837} = 0x2520; | |
| 364 | $j2u{0x2838} = 0x252f; | |
| 365 | $j2u{0x2839} = 0x2528; | |
| 366 | $j2u{0x283a} = 0x2537; | |
| 367 | $j2u{0x283b} = 0x253f; | |
| 368 | $j2u{0x283c} = 0x251d; | |
| 369 | $j2u{0x283d} = 0x2530; | |
| 370 | $j2u{0x283e} = 0x2525; | |
| 371 | $j2u{0x283f} = 0x2538; | |
| 372 | $j2u{0x2840} = 0x2542; | |
| 373 | ||
| 374 | # 73 row-cells below are assigned as "Compatibility characters for | |
| 375 | # national implementations" by JIS X 0213:2000, | |
| 376 | # but are found in some vendor codepages for JIS X 0208. | |
| 377 | # NOTE: U+2116 NUMERO SIGN is duplicated with JIS X 0212. | |
| 378 | $j2u{0x2d21} = 0x2460; # CIRCLED DIGIT ONE | |
| 379 | $j2u{0x2d22} = 0x2461; # CIRCLED DIGIT TWO | |
| 380 | $j2u{0x2d23} = 0x2462; # CIRCLED DIGIT THREE | |
| 381 | $j2u{0x2d24} = 0x2463; # CIRCLED DIGIT FOUR | |
| 382 | $j2u{0x2d25} = 0x2464; # CIRCLED DIGIT FIVE | |
| 383 | $j2u{0x2d26} = 0x2465; # CIRCLED DIGIT SIX | |
| 384 | $j2u{0x2d27} = 0x2466; # CIRCLED DIGIT SEVEN | |
| 385 | $j2u{0x2d28} = 0x2467; # CIRCLED DIGIT EIGHT | |
| 386 | $j2u{0x2d29} = 0x2468; # CIRCLED DIGIT NINE | |
| 387 | $j2u{0x2d2a} = 0x2469; # CIRCLED NUMBER TEN | |
| 388 | $j2u{0x2d2b} = 0x246a; # CIRCLED NUMBER ELEVEN | |
| 389 | $j2u{0x2d2c} = 0x246b; # CIRCLED NUMBER TWELVE | |
| 390 | $j2u{0x2d2d} = 0x246c; # CIRCLED NUMBER THIRTEEN | |
| 391 | $j2u{0x2d2e} = 0x246d; # CIRCLED NUMBER FOURTEEN | |
| 392 | $j2u{0x2d2f} = 0x246e; # CIRCLED NUMBER FIFTEEN | |
| 393 | $j2u{0x2d30} = 0x246f; # CIRCLED NUMBER SIXTEEN | |
| 394 | $j2u{0x2d31} = 0x2470; # CIRCLED NUMBER SEVENTEEN | |
| 395 | $j2u{0x2d32} = 0x2471; # CIRCLED NUMBER EIGHTEEN | |
| 396 | $j2u{0x2d33} = 0x2472; # CIRCLED NUMBER NINETEEN | |
| 397 | $j2u{0x2d34} = 0x2473; # CIRCLED NUMBER TWENTY | |
| 398 | $j2u{0x2d35} = 0x2160; # ROMAN NUMERAL ONE | |
| 399 | $j2u{0x2d36} = 0x2161; # ROMAN NUMERAL TWO | |
| 400 | $j2u{0x2d37} = 0x2162; # ROMAN NUMERAL THREE | |
| 401 | $j2u{0x2d38} = 0x2163; # ROMAN NUMERAL FOUR | |
| 402 | $j2u{0x2d39} = 0x2164; # ROMAN NUMERAL FIVE | |
| 403 | $j2u{0x2d3a} = 0x2165; # ROMAN NUMERAL SIX | |
| 404 | $j2u{0x2d3b} = 0x2166; # ROMAN NUMERAL SEVEN | |
| 405 | $j2u{0x2d3c} = 0x2167; # ROMAN NUMERAL EIGHT | |
| 406 | $j2u{0x2d3d} = 0x2168; # ROMAN NUMERAL NINE | |
| 407 | $j2u{0x2d3e} = 0x2169; # ROMAN NUMERAL TEN | |
| 408 | #$j2u{0x2d3f} = 0x216a; # ROMAN NUMERAL ELEVEN | |
| 409 | $j2u{0x2d40} = 0x3349; # SQUARE MIRI | |
| 410 | $j2u{0x2d41} = 0x3314; # SQUARE KIRO | |
| 411 | $j2u{0x2d42} = 0x3322; # SQUARE SENTI | |
| 412 | $j2u{0x2d43} = 0x334d; # SQUARE MEETORU | |
| 413 | $j2u{0x2d44} = 0x3318; # SQUARE GURAMU | |
| 414 | $j2u{0x2d45} = 0x3327; # SQUARE TON | |
| 415 | $j2u{0x2d46} = 0x3303; # SQUARE AARU | |
| 416 | $j2u{0x2d47} = 0x3336; # SQUARE HEKUTAARU | |
| 417 | $j2u{0x2d48} = 0x3351; # SQUARE RITTORU | |
| 418 | $j2u{0x2d49} = 0x3357; # SQUARE WATTO | |
| 419 | $j2u{0x2d4a} = 0x330d; # SQUARE KARORII | |
| 420 | $j2u{0x2d4b} = 0x3326; # SQUARE DORU | |
| 421 | $j2u{0x2d4c} = 0x3323; # SQUARE SENTO | |
| 422 | $j2u{0x2d4d} = 0x332b; # SQUARE PAASENTO | |
| 423 | $j2u{0x2d4e} = 0x334a; # SQUARE MIRIBAARU | |
| 424 | $j2u{0x2d4f} = 0x333b; # SQUARE PEEZI | |
| 425 | $j2u{0x2d50} = 0x339c; # SQUARE MM | |
| 426 | $j2u{0x2d51} = 0x339d; # SQUARE CM | |
| 427 | $j2u{0x2d52} = 0x339e; # SQUARE KM | |
| 428 | $j2u{0x2d53} = 0x338e; # SQUARE MG | |
| 429 | $j2u{0x2d54} = 0x338f; # SQUARE KG | |
| 430 | $j2u{0x2d55} = 0x33c4; # SQUARE CC | |
| 431 | $j2u{0x2d56} = 0x33a1; # SQUARE M SQUARED | |
| 432 | #$j2u{0x2d57} = 0x216b; # ROMAN NUMERAL TWELVE | |
| 433 | $j2u{0x2d5f} = 0x337b; # SQUARE ERA NAME HEISEI | |
| 434 | $j2u{0x2d60} = 0x301d; # REVERSED DOUBLE PRIME QUATATION MARK | |
| 435 | $j2u{0x2d61} = 0x301f; # LOW DOUBLE PRIME QUATATION MARK | |
| 436 | $j2u{0x2d62} = 0x2116; # NUMERO SIGN | |
| 437 | $j2u{0x2d63} = 0x33cd; # SQUARE KK | |
| 438 | $j2u{0x2d64} = 0x2121; # TELEPHONE SIGN | |
| 439 | $j2u{0x2d65} = 0x32a4; # CIRCLED IDEOGRAPH HIGH | |
| 440 | $j2u{0x2d66} = 0x32a5; # CIRCLED IDEOGRAPH CENTRE | |
| 441 | $j2u{0x2d67} = 0x32a6; # CIRCLED IDEOGRAPH LOW | |
| 442 | $j2u{0x2d68} = 0x32a7; # CIRCLED IDEOGRAPH LEFT | |
| 443 | $j2u{0x2d69} = 0x32a8; # CIRCLED IDEOGRAPH RIGHT | |
| 444 | $j2u{0x2d6a} = 0x3231; # PARENTHESIZED IDEOGRAPH STOCK | |
| 445 | $j2u{0x2d6b} = 0x3232; # PARENTHESIZED IDEOGRAPH HAVE | |
| 446 | $j2u{0x2d6c} = 0x3239; # PARENTHESIZED IDEOGRAPH REPRESENT | |
| 447 | $j2u{0x2d6d} = 0x337e; # SQUARE ERA NAME MEIZI | |
| 448 | $j2u{0x2d6e} = 0x337d; # SQUARE ERA NAME TAISYOU | |
| 449 | $j2u{0x2d6f} = 0x337c; # SQUARE ERA NAME SYOUWA | |
| 450 | $j2u{0x2d73} = 0x222e; # CONTOUR INTEGRAL | |
| 451 | $j2u{0x2d78} = 0x221f; # RIGHT ANGLE | |
| 452 | $j2u{0x2d79} = 0x22bf; # RIGHT TRIANGLE | |
| 453 | #$j2u{0x2d7d} = 0x2756; # BLACK DIAMOND MINUS WHITE X | |
| 454 | #$j2u{0x2d7e} = 0x261e; # WHITE RIGHT POINTING INDEX | |
| 455 | ||
| 456 | ||
| 457 | ## | |
| 458 | ## Map (upper-)compatible with JIS C 6226:1978 | |
| 459 | ## | |
| 460 | ||
| 461 | # 26 pairs of row-cells in JIS X 0208:1997 are swapped. | |
| 462 | # cf. JIS X 0208:1997 Annex 2. | |
| 463 | ||
| 464 | foreach (keys %j2u) { | |
| 465 | $jisx0208_1978_j2u{$_} = $j2u{$_}; | |
| 466 | } | |
| 467 | &swap_1978(0x3033, 0x724D); | |
| 468 | &swap_1978(0x3229, 0x7274); | |
| 469 | &swap_1978(0x3342, 0x695a); | |
| 470 | &swap_1978(0x3349, 0x5978); | |
| 471 | &swap_1978(0x3376, 0x635e); | |
| 472 | &swap_1978(0x3443, 0x5e75); | |
| 473 | &swap_1978(0x3452, 0x6b5d); | |
| 474 | &swap_1978(0x375b, 0x7074); | |
| 475 | &swap_1978(0x395c, 0x6268); | |
| 476 | &swap_1978(0x3c49, 0x6922); | |
| 477 | &swap_1978(0x3F59, 0x7057); | |
| 478 | &swap_1978(0x4128, 0x6c4d); | |
| 479 | &swap_1978(0x445B, 0x5464); | |
| 480 | &swap_1978(0x4557, 0x626a); | |
| 481 | &swap_1978(0x456e, 0x5b6d); | |
| 482 | &swap_1978(0x4573, 0x5e39); | |
| 483 | &swap_1978(0x4676, 0x6d6e); | |
| 484 | &swap_1978(0x4768, 0x6a24); | |
| 485 | &swap_1978(0x4930, 0x5B58); | |
| 486 | &swap_1978(0x4b79, 0x5056); | |
| 487 | &swap_1978(0x4c79, 0x692e); | |
| 488 | &swap_1978(0x4F36, 0x6446); | |
| 489 | &swap_1978(0x3646, 0x7421); | |
| 490 | &swap_1978(0x4B6A, 0x7422); | |
| 491 | &swap_1978(0x4D5A, 0x7423); | |
| 492 | &swap_1978(0x6076, 0x7424); | |
| 493 | ||
| 494 | sub swap_1978 { | |
| 495 | local($x, $y) = @_; | |
| 496 | ($jisx0208_1978_j2u{$x}, $jisx0208_1978_j2u{$y}) = | |
| 497 | ($jisx0208_1978_j2u{$y}, $jisx0208_1978_j2u{$x}); | |
| 498 | $j2u_1978{int($x/256)} = 1; | |
| 499 | $j2u_1978{int($y/256)} = 1; | |
| 500 | $u2j_1978{int($jisx0208_1978_j2u{$x}/256)} = 1; | |
| 501 | $u2j_1978{int($jisx0208_1978_j2u{$y}/256)} = 1; | |
| 502 | } | |
| 503 | ||
| 504 | ||
| 505 | ## | |
| 506 | ## Map for JIS X 0212:1990 ("Supplementary Kanzi") | |
| 507 | ## | |
| 508 | ||
| 509 | # Unicode-3.2 does not make mention of JIS X 0212 symbols, marks, | |
| 510 | # alphabets with diacritial mark etc. So manually add converting map... | |
| 511 | # cf. ftp://ftp.unicode.org/Public/MAPPINGS/OBSOLETE/EASTASIA/JIS/JIS0212.TXT | |
| 512 | ||
| 513 | $jisx0212_j2u{0x222f} = 0x02d8; # BREVE | |
| 514 | $jisx0212_j2u{0x2230} = 0x02c7; # CARON (Mandarin Chinese third tone) | |
| 515 | $jisx0212_j2u{0x2231} = 0x00b8; # CEDILLA | |
| 516 | $jisx0212_j2u{0x2232} = 0x02d9; # DOT ABOVE (Mandarin Chinese light tone) | |
| 517 | $jisx0212_j2u{0x2233} = 0x02dd; # DOUBLE ACUTE ACCENT | |
| 518 | $jisx0212_j2u{0x2234} = 0x00af; # MACRON | |
| 519 | $jisx0212_j2u{0x2235} = 0x02db; # OGONEK | |
| 520 | $jisx0212_j2u{0x2236} = 0x02da; # RING ABOVE | |
| 521 | $jisx0212_j2u{0x2237} = 0xff5e; # TILDE vs. ASCII -> FULLWIDTH TILDE | |
| 522 | $jisx0212_j2u{0x2238} = 0x0384; # GREEK TONOS | |
| 523 | $jisx0212_j2u{0x2239} = 0x0385; # GREEK DIALYTIKA TONOS | |
| 524 | $jisx0212_j2u{0x2242} = 0x00a1; # INVERTED EXCLAMATION MARK | |
| 525 | $jisx0212_j2u{0x2243} = 0x00a6; # BROKEN BAR | |
| 526 | $jisx0212_j2u{0x2244} = 0x00bf; # INVERTED QUESTION MARK | |
| 527 | $jisx0212_j2u{0x226b} = 0x00ba; # MASCULINE ORDINAL INDICATOR | |
| 528 | $jisx0212_j2u{0x226c} = 0x00aa; # FEMININE ORDINAL INDICATOR | |
| 529 | $jisx0212_j2u{0x226d} = 0x00a9; # COPYRIGHT SIGN | |
| 530 | $jisx0212_j2u{0x226e} = 0x00ae; # REGISTERED SIGN | |
| 531 | $jisx0212_j2u{0x226f} = 0x2122; # TRADE MARK SIGN | |
| 532 | $jisx0212_j2u{0x2270} = 0x00a4; # CURRENCY SIGN | |
| 533 | $jisx0212_j2u{0x2271} = 0x2116; # NUMERO SIGN | |
| 534 | $jisx0212_j2u{0x2661} = 0x0386; # GREEK CAPITAL LETTER ALPHA WITH TONOS | |
| 535 | $jisx0212_j2u{0x2662} = 0x0388; # GREEK CAPITAL LETTER EPSILON WITH TONOS | |
| 536 | $jisx0212_j2u{0x2663} = 0x0389; # GREEK CAPITAL LETTER ETA WITH TONOS | |
| 537 | $jisx0212_j2u{0x2664} = 0x038a; # GREEK CAPITAL LETTER IOTA WITH TONOS | |
| 538 | $jisx0212_j2u{0x2665} = 0x03aa; # GREEK CAPITAL LETTER IOTA WITH DIALYTIKA | |
| 539 | $jisx0212_j2u{0x2667} = 0x038c; # GREEK CAPITAL LETTER OMICRON WITH TONOS | |
| 540 | $jisx0212_j2u{0x2669} = 0x038e; # GREEK CAPITAL LETTER UPSILON WITH TONOS | |
| 541 | $jisx0212_j2u{0x266a} = 0x03ab; # GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA | |
| 542 | $jisx0212_j2u{0x266c} = 0x038f; # GREEK CAPITAL LETTER OMEGA WITH TONOS | |
| 543 | $jisx0212_j2u{0x2671} = 0x03ac; # GREEK SMALL LETTER ALPHA WITH TONOS | |
| 544 | $jisx0212_j2u{0x2672} = 0x03ad; # GREEK SMALL LETTER EPSILON WITH TONOS | |
| 545 | $jisx0212_j2u{0x2673} = 0x03ae; # GREEK SMALL LETTER ETA WITH TONOS | |
| 546 | $jisx0212_j2u{0x2674} = 0x03af; # GREEK SMALL LETTER IOTA WITH TONOS | |
| 547 | $jisx0212_j2u{0x2675} = 0x03ca; # GREEK SMALL LETTER IOTA WITH DIALYTIKA | |
| 548 | $jisx0212_j2u{0x2676} = 0x0390; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS | |
| 549 | $jisx0212_j2u{0x2677} = 0x03cc; # GREEK SMALL LETTER OMICRON WITH TONOS | |
| 550 | $jisx0212_j2u{0x2678} = 0x03c2; # GREEK SMALL LETTER FINAL SIGMA | |
| 551 | $jisx0212_j2u{0x2679} = 0x03cd; # GREEK SMALL LETTER UPSILON WITH TONOS | |
| 552 | $jisx0212_j2u{0x267a} = 0x03cb; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA | |
| 553 | $jisx0212_j2u{0x267b} = 0x03b0; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS | |
| 554 | $jisx0212_j2u{0x267c} = 0x03ce; # GREEK SMALL LETTER OMEGA WITH TONOS | |
| 555 | $jisx0212_j2u{0x2742} = 0x0402; # CYRILLIC CAPITAL LETTER DJE | |
| 556 | $jisx0212_j2u{0x2743} = 0x0403; # CYRILLIC CAPITAL LETTER GJE | |
| 557 | $jisx0212_j2u{0x2744} = 0x0404; # CYRILLIC CAPITAL LETTER UKRAINIAN IE | |
| 558 | $jisx0212_j2u{0x2745} = 0x0405; # CYRILLIC CAPITAL LETTER DZE | |
| 559 | $jisx0212_j2u{0x2746} = 0x0406; # CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I | |
| 560 | $jisx0212_j2u{0x2747} = 0x0407; # CYRILLIC CAPITAL LETTER YI | |
| 561 | $jisx0212_j2u{0x2748} = 0x0408; # CYRILLIC CAPITAL LETTER JE | |
| 562 | $jisx0212_j2u{0x2749} = 0x0409; # CYRILLIC CAPITAL LETTER LJE | |
| 563 | $jisx0212_j2u{0x274a} = 0x040a; # CYRILLIC CAPITAL LETTER NJE | |
| 564 | $jisx0212_j2u{0x274b} = 0x040b; # CYRILLIC CAPITAL LETTER TSHE | |
| 565 | $jisx0212_j2u{0x274c} = 0x040c; # CYRILLIC CAPITAL LETTER KJE | |
| 566 | $jisx0212_j2u{0x274d} = 0x040e; # CYRILLIC CAPITAL LETTER SHORT U | |
| 567 | $jisx0212_j2u{0x274e} = 0x040f; # CYRILLIC CAPITAL LETTER DZHE | |
| 568 | $jisx0212_j2u{0x2772} = 0x0452; # CYRILLIC SMALL LETTER DJE | |
| 569 | $jisx0212_j2u{0x2773} = 0x0453; # CYRILLIC SMALL LETTER GJE | |
| 570 | $jisx0212_j2u{0x2774} = 0x0454; # CYRILLIC SMALL LETTER UKRAINIAN IE | |
| 571 | $jisx0212_j2u{0x2775} = 0x0455; # CYRILLIC SMALL LETTER DZE | |
| 572 | $jisx0212_j2u{0x2776} = 0x0456; # CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I | |
| 573 | $jisx0212_j2u{0x2777} = 0x0457; # CYRILLIC SMALL LETTER YI | |
| 574 | $jisx0212_j2u{0x2778} = 0x0458; # CYRILLIC SMALL LETTER JE | |
| 575 | $jisx0212_j2u{0x2779} = 0x0459; # CYRILLIC SMALL LETTER LJE | |
| 576 | $jisx0212_j2u{0x277a} = 0x045a; # CYRILLIC SMALL LETTER NJE | |
| 577 | $jisx0212_j2u{0x277b} = 0x045b; # CYRILLIC SMALL LETTER TSHE | |
| 578 | $jisx0212_j2u{0x277c} = 0x045c; # CYRILLIC SMALL LETTER KJE | |
| 579 | $jisx0212_j2u{0x277d} = 0x045e; # CYRILLIC SMALL LETTER SHORT U | |
| 580 | $jisx0212_j2u{0x277e} = 0x045f; # CYRILLIC SMALL LETTER DZHE | |
| 581 | $jisx0212_j2u{0x2921} = 0x00c6; # LATIN CAPITAL LIGATURE AE | |
| 582 | $jisx0212_j2u{0x2922} = 0x0110; # LATIN CAPITAL LETTER D WITH STROKE | |
| 583 | $jisx0212_j2u{0x2924} = 0x0126; # LATIN CAPITAL LETTER H WITH STROKE | |
| 584 | $jisx0212_j2u{0x2926} = 0x0132; # LATIN CAPITAL LIGATURE IJ | |
| 585 | $jisx0212_j2u{0x2928} = 0x0141; # LATIN CAPITAL LETTER L WITH STROKE | |
| 586 | $jisx0212_j2u{0x2929} = 0x013f; # LATIN CAPITAL LETTER L WITH MIDDLE DOT | |
| 587 | $jisx0212_j2u{0x292b} = 0x014a; # LATIN CAPITAL LETTER ENG | |
| 588 | $jisx0212_j2u{0x292c} = 0x00d8; # LATIN CAPITAL LETTER O WITH STROKE | |
| 589 | $jisx0212_j2u{0x292d} = 0x0152; # LATIN CAPITAL LIGATURE OE | |
| 590 | $jisx0212_j2u{0x292f} = 0x0166; # LATIN CAPITAL LETTER T WITH STROKE | |
| 591 | $jisx0212_j2u{0x2930} = 0x00de; # LATIN CAPITAL LETTER THORN | |
| 592 | $jisx0212_j2u{0x2941} = 0x00e6; # LATIN SMALL LIGATURE AE | |
| 593 | $jisx0212_j2u{0x2942} = 0x0111; # LATIN SMALL LETTER D WITH STROKE | |
| 594 | $jisx0212_j2u{0x2943} = 0x00f0; # LATIN SMALL LETTER ETH | |
| 595 | $jisx0212_j2u{0x2944} = 0x0127; # LATIN SMALL LETTER H WITH STROKE | |
| 596 | $jisx0212_j2u{0x2945} = 0x0131; # LATIN SMALL LETTER DOTLESS I | |
| 597 | $jisx0212_j2u{0x2946} = 0x0133; # LATIN SMALL LIGATURE IJ | |
| 598 | $jisx0212_j2u{0x2947} = 0x0138; # LATIN SMALL LETTER KRA | |
| 599 | $jisx0212_j2u{0x2948} = 0x0142; # LATIN SMALL LETTER L WITH STROKE | |
| 600 | $jisx0212_j2u{0x2949} = 0x0140; # LATIN SMALL LETTER L WITH MIDDLE DOT | |
| 601 | $jisx0212_j2u{0x294a} = 0x0149; # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE | |
| 602 | $jisx0212_j2u{0x294b} = 0x014b; # LATIN SMALL LETTER ENG | |
| 603 | $jisx0212_j2u{0x294c} = 0x00f8; # LATIN SMALL LETTER O WITH STROKE | |
| 604 | $jisx0212_j2u{0x294d} = 0x0153; # LATIN SMALL LIGATURE OE | |
| 605 | $jisx0212_j2u{0x294e} = 0x00df; # LATIN SMALL LETTER SHARP S | |
| 606 | $jisx0212_j2u{0x294f} = 0x0167; # LATIN SMALL LETTER T WITH STROKE | |
| 607 | $jisx0212_j2u{0x2950} = 0x00fe; # LATIN SMALL LETTER THORN | |
| 608 | $jisx0212_j2u{0x2a21} = 0x00c1; # LATIN CAPITAL LETTER A WITH ACUTE | |
| 609 | $jisx0212_j2u{0x2a22} = 0x00c0; # LATIN CAPITAL LETTER A WITH GRAVE | |
| 610 | $jisx0212_j2u{0x2a23} = 0x00c4; # LATIN CAPITAL LETTER A WITH DIAERESIS | |
| 611 | $jisx0212_j2u{0x2a24} = 0x00c2; # LATIN CAPITAL LETTER A WITH CIRCUMFLEX | |
| 612 | $jisx0212_j2u{0x2a25} = 0x0102; # LATIN CAPITAL LETTER A WITH BREVE | |
| 613 | $jisx0212_j2u{0x2a26} = 0x01cd; # LATIN CAPITAL LETTER A WITH CARON | |
| 614 | $jisx0212_j2u{0x2a27} = 0x0100; # LATIN CAPITAL LETTER A WITH MACRON | |
| 615 | $jisx0212_j2u{0x2a28} = 0x0104; # LATIN CAPITAL LETTER A WITH OGONEK | |
| 616 | $jisx0212_j2u{0x2a29} = 0x00c5; # LATIN CAPITAL LETTER A WITH RING ABOVE | |
| 617 | $jisx0212_j2u{0x2a2a} = 0x00c3; # LATIN CAPITAL LETTER A WITH TILDE | |
| 618 | $jisx0212_j2u{0x2a2b} = 0x0106; # LATIN CAPITAL LETTER C WITH ACUTE | |
| 619 | $jisx0212_j2u{0x2a2c} = 0x0108; # LATIN CAPITAL LETTER C WITH CIRCUMFLEX | |
| 620 | $jisx0212_j2u{0x2a2d} = 0x010c; # LATIN CAPITAL LETTER C WITH CARON | |
| 621 | $jisx0212_j2u{0x2a2e} = 0x00c7; # LATIN CAPITAL LETTER C WITH CEDILLA | |
| 622 | $jisx0212_j2u{0x2a2f} = 0x010a; # LATIN CAPITAL LETTER C WITH DOT ABOVE | |
| 623 | $jisx0212_j2u{0x2a30} = 0x010e; # LATIN CAPITAL LETTER D WITH CARON | |
| 624 | $jisx0212_j2u{0x2a31} = 0x00c9; # LATIN CAPITAL LETTER E WITH ACUTE | |
| 625 | $jisx0212_j2u{0x2a32} = 0x00c8; # LATIN CAPITAL LETTER E WITH GRAVE | |
| 626 | $jisx0212_j2u{0x2a33} = 0x00cb; # LATIN CAPITAL LETTER E WITH DIAERESIS | |
| 627 | $jisx0212_j2u{0x2a34} = 0x00ca; # LATIN CAPITAL LETTER E WITH CIRCUMFLEX | |
| 628 | $jisx0212_j2u{0x2a35} = 0x011a; # LATIN CAPITAL LETTER E WITH CARON | |
| 629 | $jisx0212_j2u{0x2a36} = 0x0116; # LATIN CAPITAL LETTER E WITH DOT ABOVE | |
| 630 | $jisx0212_j2u{0x2a37} = 0x0112; # LATIN CAPITAL LETTER E WITH MACRON | |
| 631 | $jisx0212_j2u{0x2a38} = 0x0118; # LATIN CAPITAL LETTER E WITH OGONEK | |
| 632 | $jisx0212_j2u{0x2a3a} = 0x011c; # LATIN CAPITAL LETTER G WITH CIRCUMFLEX | |
| 633 | $jisx0212_j2u{0x2a3b} = 0x011e; # LATIN CAPITAL LETTER G WITH BREVE | |
| 634 | $jisx0212_j2u{0x2a3c} = 0x0122; # LATIN CAPITAL LETTER G WITH CEDILLA | |
| 635 | $jisx0212_j2u{0x2a3d} = 0x0120; # LATIN CAPITAL LETTER G WITH DOT ABOVE | |
| 636 | $jisx0212_j2u{0x2a3e} = 0x0124; # LATIN CAPITAL LETTER H WITH CIRCUMFLEX | |
| 637 | $jisx0212_j2u{0x2a3f} = 0x00cd; # LATIN CAPITAL LETTER I WITH ACUTE | |
| 638 | $jisx0212_j2u{0x2a40} = 0x00cc; # LATIN CAPITAL LETTER I WITH GRAVE | |
| 639 | $jisx0212_j2u{0x2a41} = 0x00cf; # LATIN CAPITAL LETTER I WITH DIAERESIS | |
| 640 | $jisx0212_j2u{0x2a42} = 0x00ce; # LATIN CAPITAL LETTER I WITH CIRCUMFLEX | |
| 641 | $jisx0212_j2u{0x2a43} = 0x01cf; # LATIN CAPITAL LETTER I WITH CARON | |
| 642 | $jisx0212_j2u{0x2a44} = 0x0130; # LATIN CAPITAL LETTER I WITH DOT ABOVE | |
| 643 | $jisx0212_j2u{0x2a45} = 0x012a; # LATIN CAPITAL LETTER I WITH MACRON | |
| 644 | $jisx0212_j2u{0x2a46} = 0x012e; # LATIN CAPITAL LETTER I WITH OGONEK | |
| 645 | $jisx0212_j2u{0x2a47} = 0x0128; # LATIN CAPITAL LETTER I WITH TILDE | |
| 646 | $jisx0212_j2u{0x2a48} = 0x0134; # LATIN CAPITAL LETTER J WITH CIRCUMFLEX | |
| 647 | $jisx0212_j2u{0x2a49} = 0x0136; # LATIN CAPITAL LETTER K WITH CEDILLA | |
| 648 | $jisx0212_j2u{0x2a4a} = 0x0139; # LATIN CAPITAL LETTER L WITH ACUTE | |
| 649 | $jisx0212_j2u{0x2a4b} = 0x013d; # LATIN CAPITAL LETTER L WITH CARON | |
| 650 | $jisx0212_j2u{0x2a4c} = 0x013b; # LATIN CAPITAL LETTER L WITH CEDILLA | |
| 651 | $jisx0212_j2u{0x2a4d} = 0x0143; # LATIN CAPITAL LETTER N WITH ACUTE | |
| 652 | $jisx0212_j2u{0x2a4e} = 0x0147; # LATIN CAPITAL LETTER N WITH CARON | |
| 653 | $jisx0212_j2u{0x2a4f} = 0x0145; # LATIN CAPITAL LETTER N WITH CEDILLA | |
| 654 | $jisx0212_j2u{0x2a50} = 0x00d1; # LATIN CAPITAL LETTER N WITH TILDE | |
| 655 | $jisx0212_j2u{0x2a51} = 0x00d3; # LATIN CAPITAL LETTER O WITH ACUTE | |
| 656 | $jisx0212_j2u{0x2a52} = 0x00d2; # LATIN CAPITAL LETTER O WITH GRAVE | |
| 657 | $jisx0212_j2u{0x2a53} = 0x00d6; # LATIN CAPITAL LETTER O WITH DIAERESIS | |
| 658 | $jisx0212_j2u{0x2a54} = 0x00d4; # LATIN CAPITAL LETTER O WITH CIRCUMFLEX | |
| 659 | $jisx0212_j2u{0x2a55} = 0x01d1; # LATIN CAPITAL LETTER O WITH CARON | |
| 660 | $jisx0212_j2u{0x2a56} = 0x0150; # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE | |
| 661 | $jisx0212_j2u{0x2a57} = 0x014c; # LATIN CAPITAL LETTER O WITH MACRON | |
| 662 | $jisx0212_j2u{0x2a58} = 0x00d5; # LATIN CAPITAL LETTER O WITH TILDE | |
| 663 | $jisx0212_j2u{0x2a59} = 0x0154; # LATIN CAPITAL LETTER R WITH ACUTE | |
| 664 | $jisx0212_j2u{0x2a5a} = 0x0158; # LATIN CAPITAL LETTER R WITH CARON | |
| 665 | $jisx0212_j2u{0x2a5b} = 0x0156; # LATIN CAPITAL LETTER R WITH CEDILLA | |
| 666 | $jisx0212_j2u{0x2a5c} = 0x015a; # LATIN CAPITAL LETTER S WITH ACUTE | |
| 667 | $jisx0212_j2u{0x2a5d} = 0x015c; # LATIN CAPITAL LETTER S WITH CIRCUMFLEX | |
| 668 | $jisx0212_j2u{0x2a5e} = 0x0160; # LATIN CAPITAL LETTER S WITH CARON | |
| 669 | $jisx0212_j2u{0x2a5f} = 0x015e; # LATIN CAPITAL LETTER S WITH CEDILLA | |
| 670 | $jisx0212_j2u{0x2a60} = 0x0164; # LATIN CAPITAL LETTER T WITH CARON | |
| 671 | $jisx0212_j2u{0x2a61} = 0x0162; # LATIN CAPITAL LETTER T WITH CEDILLA | |
| 672 | $jisx0212_j2u{0x2a62} = 0x00da; # LATIN CAPITAL LETTER U WITH ACUTE | |
| 673 | $jisx0212_j2u{0x2a63} = 0x00d9; # LATIN CAPITAL LETTER U WITH GRAVE | |
| 674 | $jisx0212_j2u{0x2a64} = 0x00dc; # LATIN CAPITAL LETTER U WITH DIAERESIS | |
| 675 | $jisx0212_j2u{0x2a65} = 0x00db; # LATIN CAPITAL LETTER U WITH CIRCUMFLEX | |
| 676 | $jisx0212_j2u{0x2a66} = 0x016c; # LATIN CAPITAL LETTER U WITH BREVE | |
| 677 | $jisx0212_j2u{0x2a67} = 0x01d3; # LATIN CAPITAL LETTER U WITH CARON | |
| 678 | $jisx0212_j2u{0x2a68} = 0x0170; # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE | |
| 679 | $jisx0212_j2u{0x2a69} = 0x016a; # LATIN CAPITAL LETTER U WITH MACRON | |
| 680 | $jisx0212_j2u{0x2a6a} = 0x0172; # LATIN CAPITAL LETTER U WITH OGONEK | |
| 681 | $jisx0212_j2u{0x2a6b} = 0x016e; # LATIN CAPITAL LETTER U WITH RING ABOVE | |
| 682 | $jisx0212_j2u{0x2a6c} = 0x0168; # LATIN CAPITAL LETTER U WITH TILDE | |
| 683 | $jisx0212_j2u{0x2a6d} = 0x01d7; # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE | |
| 684 | $jisx0212_j2u{0x2a6e} = 0x01db; # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE | |
| 685 | $jisx0212_j2u{0x2a6f} = 0x01d9; # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON | |
| 686 | $jisx0212_j2u{0x2a70} = 0x01d5; # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON | |
| 687 | $jisx0212_j2u{0x2a71} = 0x0174; # LATIN CAPITAL LETTER W WITH CIRCUMFLEX | |
| 688 | $jisx0212_j2u{0x2a72} = 0x00dd; # LATIN CAPITAL LETTER Y WITH ACUTE | |
| 689 | $jisx0212_j2u{0x2a73} = 0x0178; # LATIN CAPITAL LETTER Y WITH DIAERESIS | |
| 690 | $jisx0212_j2u{0x2a74} = 0x0176; # LATIN CAPITAL LETTER Y WITH CIRCUMFLEX | |
| 691 | $jisx0212_j2u{0x2a75} = 0x0179; # LATIN CAPITAL LETTER Z WITH ACUTE | |
| 692 | $jisx0212_j2u{0x2a76} = 0x017d; # LATIN CAPITAL LETTER Z WITH CARON | |
| 693 | $jisx0212_j2u{0x2a77} = 0x017b; # LATIN CAPITAL LETTER Z WITH DOT ABOVE | |
| 694 | $jisx0212_j2u{0x2b21} = 0x00e1; # LATIN SMALL LETTER A WITH ACUTE | |
| 695 | $jisx0212_j2u{0x2b22} = 0x00e0; # LATIN SMALL LETTER A WITH GRAVE | |
| 696 | $jisx0212_j2u{0x2b23} = 0x00e4; # LATIN SMALL LETTER A WITH DIAERESIS | |
| 697 | $jisx0212_j2u{0x2b24} = 0x00e2; # LATIN SMALL LETTER A WITH CIRCUMFLEX | |
| 698 | $jisx0212_j2u{0x2b25} = 0x0103; # LATIN SMALL LETTER A WITH BREVE | |
| 699 | $jisx0212_j2u{0x2b26} = 0x01ce; # LATIN SMALL LETTER A WITH CARON | |
| 700 | $jisx0212_j2u{0x2b27} = 0x0101; # LATIN SMALL LETTER A WITH MACRON | |
| 701 | $jisx0212_j2u{0x2b28} = 0x0105; # LATIN SMALL LETTER A WITH OGONEK | |
| 702 | $jisx0212_j2u{0x2b29} = 0x00e5; # LATIN SMALL LETTER A WITH RING ABOVE | |
| 703 | $jisx0212_j2u{0x2b2a} = 0x00e3; # LATIN SMALL LETTER A WITH TILDE | |
| 704 | $jisx0212_j2u{0x2b2b} = 0x0107; # LATIN SMALL LETTER C WITH ACUTE | |
| 705 | $jisx0212_j2u{0x2b2c} = 0x0109; # LATIN SMALL LETTER C WITH CIRCUMFLEX | |
| 706 | $jisx0212_j2u{0x2b2d} = 0x010d; # LATIN SMALL LETTER C WITH CARON | |
| 707 | $jisx0212_j2u{0x2b2e} = 0x00e7; # LATIN SMALL LETTER C WITH CEDILLA | |
| 708 | $jisx0212_j2u{0x2b2f} = 0x010b; # LATIN SMALL LETTER C WITH DOT ABOVE | |
| 709 | $jisx0212_j2u{0x2b30} = 0x010f; # LATIN SMALL LETTER D WITH CARON | |
| 710 | $jisx0212_j2u{0x2b31} = 0x00e9; # LATIN SMALL LETTER E WITH ACUTE | |
| 711 | $jisx0212_j2u{0x2b32} = 0x00e8; # LATIN SMALL LETTER E WITH GRAVE | |
| 712 | $jisx0212_j2u{0x2b33} = 0x00eb; # LATIN SMALL LETTER E WITH DIAERESIS | |
| 713 | $jisx0212_j2u{0x2b34} = 0x00ea; # LATIN SMALL LETTER E WITH CIRCUMFLEX | |
| 714 | $jisx0212_j2u{0x2b35} = 0x011b; # LATIN SMALL LETTER E WITH CARON | |
| 715 | $jisx0212_j2u{0x2b36} = 0x0117; # LATIN SMALL LETTER E WITH DOT ABOVE | |
| 716 | $jisx0212_j2u{0x2b37} = 0x0113; # LATIN SMALL LETTER E WITH MACRON | |
| 717 | $jisx0212_j2u{0x2b38} = 0x0119; # LATIN SMALL LETTER E WITH OGONEK | |
| 718 | $jisx0212_j2u{0x2b39} = 0x01f5; # LATIN SMALL LETTER G WITH ACUTE | |
| 719 | $jisx0212_j2u{0x2b3a} = 0x011d; # LATIN SMALL LETTER G WITH CIRCUMFLEX | |
| 720 | $jisx0212_j2u{0x2b3b} = 0x011f; # LATIN SMALL LETTER G WITH BREVE | |
| 721 | $jisx0212_j2u{0x2b3d} = 0x0121; # LATIN SMALL LETTER G WITH DOT ABOVE | |
| 722 | $jisx0212_j2u{0x2b3e} = 0x0125; # LATIN SMALL LETTER H WITH CIRCUMFLEX | |
| 723 | $jisx0212_j2u{0x2b3f} = 0x00ed; # LATIN SMALL LETTER I WITH ACUTE | |
| 724 | $jisx0212_j2u{0x2b40} = 0x00ec; # LATIN SMALL LETTER I WITH GRAVE | |
| 725 | $jisx0212_j2u{0x2b41} = 0x00ef; # LATIN SMALL LETTER I WITH DIAERESIS | |
| 726 | $jisx0212_j2u{0x2b42} = 0x00ee; # LATIN SMALL LETTER I WITH CIRCUMFLEX | |
| 727 | $jisx0212_j2u{0x2b43} = 0x01d0; # LATIN SMALL LETTER I WITH CARON | |
| 728 | $jisx0212_j2u{0x2b45} = 0x012b; # LATIN SMALL LETTER I WITH MACRON | |
| 729 | $jisx0212_j2u{0x2b46} = 0x012f; # LATIN SMALL LETTER I WITH OGONEK | |
| 730 | $jisx0212_j2u{0x2b47} = 0x0129; # LATIN SMALL LETTER I WITH TILDE | |
| 731 | $jisx0212_j2u{0x2b48} = 0x0135; # LATIN SMALL LETTER J WITH CIRCUMFLEX | |
| 732 | $jisx0212_j2u{0x2b49} = 0x0137; # LATIN SMALL LETTER K WITH CEDILLA | |
| 733 | $jisx0212_j2u{0x2b4a} = 0x013a; # LATIN SMALL LETTER L WITH ACUTE | |
| 734 | $jisx0212_j2u{0x2b4b} = 0x013e; # LATIN SMALL LETTER L WITH CARON | |
| 735 | $jisx0212_j2u{0x2b4c} = 0x013c; # LATIN SMALL LETTER L WITH CEDILLA | |
| 736 | $jisx0212_j2u{0x2b4d} = 0x0144; # LATIN SMALL LETTER N WITH ACUTE | |
| 737 | $jisx0212_j2u{0x2b4e} = 0x0148; # LATIN SMALL LETTER N WITH CARON | |
| 738 | $jisx0212_j2u{0x2b4f} = 0x0146; # LATIN SMALL LETTER N WITH CEDILLA | |
| 739 | $jisx0212_j2u{0x2b50} = 0x00f1; # LATIN SMALL LETTER N WITH TILDE | |
| 740 | $jisx0212_j2u{0x2b51} = 0x00f3; # LATIN SMALL LETTER O WITH ACUTE | |
| 741 | $jisx0212_j2u{0x2b52} = 0x00f2; # LATIN SMALL LETTER O WITH GRAVE | |
| 742 | $jisx0212_j2u{0x2b53} = 0x00f6; # LATIN SMALL LETTER O WITH DIAERESIS | |
| 743 | $jisx0212_j2u{0x2b54} = 0x00f4; # LATIN SMALL LETTER O WITH CIRCUMFLEX | |
| 744 | $jisx0212_j2u{0x2b55} = 0x01d2; # LATIN SMALL LETTER O WITH CARON | |
| 745 | $jisx0212_j2u{0x2b56} = 0x0151; # LATIN SMALL LETTER O WITH DOUBLE ACUTE | |
| 746 | $jisx0212_j2u{0x2b57} = 0x014d; # LATIN SMALL LETTER O WITH MACRON | |
| 747 | $jisx0212_j2u{0x2b58} = 0x00f5; # LATIN SMALL LETTER O WITH TILDE | |
| 748 | $jisx0212_j2u{0x2b59} = 0x0155; # LATIN SMALL LETTER R WITH ACUTE | |
| 749 | $jisx0212_j2u{0x2b5a} = 0x0159; # LATIN SMALL LETTER R WITH CARON | |
| 750 | $jisx0212_j2u{0x2b5b} = 0x0157; # LATIN SMALL LETTER R WITH CEDILLA | |
| 751 | $jisx0212_j2u{0x2b5c} = 0x015b; # LATIN SMALL LETTER S WITH ACUTE | |
| 752 | $jisx0212_j2u{0x2b5d} = 0x015d; # LATIN SMALL LETTER S WITH CIRCUMFLEX | |
| 753 | $jisx0212_j2u{0x2b5e} = 0x0161; # LATIN SMALL LETTER S WITH CARON | |
| 754 | $jisx0212_j2u{0x2b5f} = 0x015f; # LATIN SMALL LETTER S WITH CEDILLA | |
| 755 | $jisx0212_j2u{0x2b60} = 0x0165; # LATIN SMALL LETTER T WITH CARON | |
| 756 | $jisx0212_j2u{0x2b61} = 0x0163; # LATIN SMALL LETTER T WITH CEDILLA | |
| 757 | $jisx0212_j2u{0x2b62} = 0x00fa; # LATIN SMALL LETTER U WITH ACUTE | |
| 758 | $jisx0212_j2u{0x2b63} = 0x00f9; # LATIN SMALL LETTER U WITH GRAVE | |
| 759 | $jisx0212_j2u{0x2b64} = 0x00fc; # LATIN SMALL LETTER U WITH DIAERESIS | |
| 760 | $jisx0212_j2u{0x2b65} = 0x00fb; # LATIN SMALL LETTER U WITH CIRCUMFLEX | |
| 761 | $jisx0212_j2u{0x2b66} = 0x016d; # LATIN SMALL LETTER U WITH BREVE | |
| 762 | $jisx0212_j2u{0x2b67} = 0x01d4; # LATIN SMALL LETTER U WITH CARON | |
| 763 | $jisx0212_j2u{0x2b68} = 0x0171; # LATIN SMALL LETTER U WITH DOUBLE ACUTE | |
| 764 | $jisx0212_j2u{0x2b69} = 0x016b; # LATIN SMALL LETTER U WITH MACRON | |
| 765 | $jisx0212_j2u{0x2b6a} = 0x0173; # LATIN SMALL LETTER U WITH OGONEK | |
| 766 | $jisx0212_j2u{0x2b6b} = 0x016f; # LATIN SMALL LETTER U WITH RING ABOVE | |
| 767 | $jisx0212_j2u{0x2b6c} = 0x0169; # LATIN SMALL LETTER U WITH TILDE | |
| 768 | $jisx0212_j2u{0x2b6d} = 0x01d8; # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE | |
| 769 | $jisx0212_j2u{0x2b6e} = 0x01dc; # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE | |
| 770 | $jisx0212_j2u{0x2b6f} = 0x01da; # LATIN SMALL LETTER U WITH DIAERESIS AND CARON | |
| 771 | $jisx0212_j2u{0x2b70} = 0x01d6; # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON | |
| 772 | $jisx0212_j2u{0x2b71} = 0x0175; # LATIN SMALL LETTER W WITH CIRCUMFLEX | |
| 773 | $jisx0212_j2u{0x2b72} = 0x00fd; # LATIN SMALL LETTER Y WITH ACUTE | |
| 774 | $jisx0212_j2u{0x2b73} = 0x00ff; # LATIN SMALL LETTER Y WITH DIAERESIS | |
| 775 | $jisx0212_j2u{0x2b74} = 0x0177; # LATIN SMALL LETTER Y WITH CIRCUMFLEX | |
| 776 | $jisx0212_j2u{0x2b75} = 0x017a; # LATIN SMALL LETTER Z WITH ACUTE | |
| 777 | $jisx0212_j2u{0x2b76} = 0x017e; # LATIN SMALL LETTER Z WITH CARON | |
| 778 | $jisx0212_j2u{0x2b77} = 0x017c; # LATIN SMALL LETTER Z WITH DOT ABOVE | |
| 779 | ||
| 780 | # 12 row-cells of JIS X 0212:1990 below are unified to JIS X 0208:1997 | |
| 781 | # by JIS X 0213:2000. | |
| 782 | # cf. http://wakaba-web.hp.infoseek.co.jp/0212-0213/jisx0212-0213.ja.html | |
| 783 | &unify_jisx0212(0x3031, 0x213a); | |
| 784 | &unify_jisx0212(0x3063, 0x4322); | |
| 785 | &unify_jisx0212(0x3742, 0x4333); | |
| 786 | &unify_jisx0212(0x3c77, 0x5740); | |
| 787 | &unify_jisx0212(0x3d58, 0x5765); | |
| 788 | &unify_jisx0212(0x4039, 0x5954); | |
| 789 | &unify_jisx0212(0x4147, 0x327e); | |
| 790 | &unify_jisx0212(0x4323, 0x3341); | |
| 791 | &unify_jisx0212(0x4344, 0x5b4f); | |
| 792 | &unify_jisx0212(0x4b51, 0x6824); | |
| 793 | &unify_jisx0212(0x4d77, 0x4169); | |
| 794 | &unify_jisx0212(0x545a, 0x3752); | |
| 795 | ||
| 796 | sub unify_jisx0212 { | |
| 797 | local ($x, $y) = @_; | |
| 798 | ($jisx0212_unified{$x}, $jisx0212_j2u{$x}) = ($jisx0212_j2u{$x}, $j2u{$y}); | |
| 799 | } | |
| 800 | ||
| 801 | ||
| 802 | ## | |
| 803 | ## Make reversal maps. | |
| 804 | ## | |
| 805 | ||
| 806 | foreach (keys %j2u) { | |
| 807 | $u2j{$j2u{$_}} = $_; | |
| 808 | } | |
| 809 | foreach (keys %jisx0208_1978_j2u) { | |
| 810 | $jisx0208_1978_u2j{$jisx0208_1978_j2u{$_}} = $_; | |
| 811 | } | |
| 812 | foreach (keys %jisx0212_j2u) { | |
| 813 | $jisx0212_u2j{$jisx0212_j2u{$_}} = $_; | |
| 814 | } | |
| 815 | ||
| 816 | # Remove maps duplicated between JIS X 0208 extension and JIS X 0212. | |
| 817 | delete $u2j{0x2116}; # NUMERO SIGN | |
| 818 | delete $jisx0208_1978_u2j{0x2116}; # NUMERO SIGN | |
| 819 | ||
| 820 | # Add JIS X 0212 maps unified with JIS X 0208:1997 | |
| 821 | foreach (keys %jisx0212_unified) { | |
| 822 | if (defined($jisx0212_u2j{$jisx0212_unified{$_}})) { | |
| 823 | die "Duplicated map: $_ : $jisx0212_unified{$_} : $jisx0212_u2j{$jisx0212_unified{$_}}"; | |
| 824 | } else { | |
| 825 | $jisx0212_u2j{$jisx0212_unified{$_}} = $_; | |
| 826 | } | |
| 827 | } | |
| 828 | ||
| 829 | # Add maps for CJK compatibility ideographs of Unicode. | |
| 830 | &add_cjkcompat(%compat_ksx1001); | |
| 831 | &add_cjkcompat(%compat_big5); | |
| 832 | &add_cjkcompat(%compat_ibm32); | |
| 833 | &add_cjkcompat(%compat_jisx0213); | |
| 834 | &add_cjkcompat(%compat_cns11643); | |
| 835 | ||
| 836 | sub add_cjkcompat { | |
| 837 | local(%compat) = @_; | |
| 838 | foreach (keys %compat) { | |
| 839 | if (defined $u2j{$compat{$_}}) { | |
| 840 | if (defined $u2j{$_}) { | |
| 841 | warn sprintf("duplicated: %04X -> %04X / %04X", $_, $u2j{$_}, $u2j{$compat{$_}}); | |
| 842 | } | |
| 843 | $u2j{$_} = $u2j{$compat{$_}}; | |
| 844 | } | |
| 845 | if (defined $jisx0208_1978_u2j{$compat{$_}}) { | |
| 846 | if (defined $jisx0208_1978_u2j{$_}) { | |
| 847 | warn sprintf("duplicated: %04X -> %04X / %04X", $_, $jisx0208_1978_u2j{$_}, $jisx0208_1978_u2j{$compat{$_}}); | |
| 848 | } | |
| 849 | $jisx0208_1978_u2j{$_} = $jisx0208_1978_u2j{$compat{$_}}; | |
| 850 | } | |
| 851 | $u2j_1978{0xf9} = 1; | |
| 852 | $u2j_1978{0xfa} = 1; | |
| 853 | ||
| 854 | if (defined $jisx0212_u2j{$compat{$_}}) { | |
| 855 | if (defined $jisx0212_u2j{$_}) { | |
| 856 | warn sprintf("duplicated: %04X -> %04X / %04X", $_, $jisx0212_u2j{$_}, $jisx0212_u2j{$compat{$_}}); | |
| 857 | } | |
| 858 | $jisx0212_u2j{$_} = $jisx0212_u2j{$compat{$_}}; | |
| 859 | } | |
| 860 | } | |
| 861 | } | |
| 862 | ||
| 863 | ||
| 864 | print <<_HEADER_; | |
| 865 | #ifndef _ISO2022JP_HDR_ | |
| 866 | #define _ISO2022JP_HDR_ | |
| 867 | /* | |
| 868 | * iso-2022-jp support by Norihisa Washitake <nori\@washitake.com> | |
| 869 | * JIS X 0208:1997 update and JIS X 0212:1990 support | |
| 870 | * by Hatuka*nezumi - IKEDA Soji <nezumi\@jca.apc.org> | |
| 871 | * $Id: iso2022jp.pl,v 1.7 2004/02/03 02:00:00 mrsam Exp $ | |
| 872 | * | |
| 873 | */ | |
| 874 | ||
| 875 | #if (JIS_DEBUG > 0) && defined(JIS_BUILD_APP) | |
| 876 | #include <stdlib.h> | |
| 877 | #include <stdio.h> | |
| 878 | #include <wchar.h> | |
| 879 | #include <string.h> | |
| 880 | ||
| 881 | /* Definitions from unicode.h */ | |
| 882 | typedef wchar_t unicode_char; | |
| 883 | struct unicode_info { | |
| 884 | const char *chset; | |
| 885 | unicode_char *(*c2u)(const char *, int *); | |
| 886 | char *(*u2c)(const unicode_char *, int *); | |
| 887 | char *(*toupper_func)(const char *, int *); | |
| 888 | char *(*tolower_func)(const char *, int *); | |
| 889 | char *(*totitle_func)(const char *, int *); | |
| 890 | }; | |
| 891 | #else | |
| 892 | #include "unicode.h" | |
| 893 | #endif /* JIS_BUILD_APP */ | |
| 894 | ||
| 895 | /* | |
| 896 | * Some characters are unique in ISO-2022-JP character set, | |
| 897 | * so define them specially. | |
| 898 | */ | |
| 899 | ||
| 900 | #define JIS_CHAR_ESC 0x1B | |
| 901 | #define JIS_CHAR_SO 0x0E | |
| 902 | #define JIS_CHAR_SI 0x0F | |
| 903 | ||
| 904 | /* ISOREG #1/#3: US-ASCII (identical to ISO 646 IRV) */ | |
| 905 | #define JIS_TYPE_ASCII 0x0 | |
| 906 | /* ISOREG #14: JIS X 0201:1976/1997 GL (ISO 646 Japanese version) */ | |
| 907 | #define JIS_TYPE_ROMAN 0x1 | |
| 908 | /* ISOREG #13: JIS X 0201:1976/1997 GR ("Halfwidth katakana") */ | |
| 909 | #define JIS_TYPE_7BITKANA 0x2 | |
| 910 | #define JIS_TYPE_8BITKANA 0x3 | |
| 911 | /* ISOREG #87/#168: JIS X 0208:1983/1990/1997 */ | |
| 912 | #define JIS_TYPE_KANJI 0x4 | |
| 913 | #define JIS_TYPE_JISX0208 0x4 | |
| 914 | /* ISOREG #42: JIS C 6226:1978 ("78JIS" or "Old JIS") */ | |
| 915 | #define JIS_TYPE_JISX0208_1978 0x5 | |
| 916 | /* ISOREG #159: JIS X 0212:1990 ("Supplementary kanzi") */ | |
| 917 | #define JIS_TYPE_JISX0212 0x6 | |
| 918 | /* Unknown state */ | |
| 919 | #define JIS_TYPE_BINARY 0xF | |
| 920 | ||
| 921 | struct jischar_t { | |
| 922 | int type; | |
| 923 | unsigned int value; | |
| 924 | }; | |
| 925 | ||
| 926 | _HEADER_ | |
| 927 | ||
| 928 | ||
| 929 | # first, j2u. next, u2j. | |
| 930 | &j2u_map('jisx0208', 'JIS X 0208:1997', 0, %j2u); | |
| 931 | print "#define jis2uni_tbls jisx0208_to_uni_tbls\n\n"; | |
| 932 | &u2j_map('jisx0208', 'JIS X 0208:1997', 0, %u2j); | |
| 933 | print "#define uni2jis_tbls uni_to_jisx0208_tbls\n\n"; | |
| 934 | &j2u_map('jisx0208_1978', 'JIS C 6226:1978', 1, %jisx0208_1978_j2u); | |
| 935 | &u2j_map('jisx0208_1978', 'JIS C 6226:1978', 1, %jisx0208_1978_u2j); | |
| 936 | &j2u_map('jisx0212', 'JIS X 0212:1990', 0, %jisx0212_j2u); | |
| 937 | &u2j_map('jisx0212', 'JIS X 0212:1990', 0, %jisx0212_u2j); | |
| 938 | ||
| 939 | sub j2u_map { | |
| 940 | local ($name, $setname, $compat_1978, %j2u) = @_; | |
| 941 | local %j2uout; | |
| 942 | ||
| 943 | print "/* map: $setname to Unicode */\n"; | |
| 944 | for ($hb=0x21; $hb<0x7f; $hb++) { | |
| 945 | $items = 0; | |
| 946 | for ($lb=0x21; $lb<0x7f; $lb++) { | |
| 947 | $items++ if ($j2u{$hb*256 + $lb} > 0); | |
| 948 | } | |
| 949 | if ($items > 0) { | |
| 950 | $items = 0; | |
| 951 | if (!$compat_1978 || ($compat_1978 && $j2u_1978{$hb})) { | |
| 952 | printf "static const unicode_char ${name}_to_uni_tbl_%02x[] = {", $hb; | |
| 953 | for ($lb = 0x21; $lb < 0x7f; $lb++) { | |
| 954 | $real = $hb*256 + $lb; | |
| 955 | print ", " if ($items > 0); | |
| 956 | print "\n " if ($items % $perline == 0); | |
| 957 | $j2u{$real} = 0x003f if ($j2u{$real} == 0); | |
| 958 | printf("0x%04X", $j2u{$real}); | |
| 959 | $items++; | |
| 960 | } | |
| 961 | print "\n};\n"; | |
| 962 | } | |
| 963 | $j2uout{$hb} = 1; | |
| 964 | } | |
| 965 | } | |
| 966 | ||
| 967 | print "const unicode_char * ${name}_to_uni_tbls[] = {\n"; | |
| 968 | for ($hb=0x21; $hb<0x7f; $hb++) { | |
| 969 | print (($hb > 0x21) ? ",\n " : " "); | |
| 970 | if ($j2uout{$hb} > 0) { | |
| 971 | if (!$compat_1978 || ($compat_1978 && $j2u_1978{$hb})) { | |
| 972 | printf "${name}_to_uni_tbl_%02x", $hb; | |
| 973 | } elsif ($compat_1978) { | |
| 974 | printf "jisx0208_to_uni_tbl_%02x", $hb; | |
| 975 | } | |
| 976 | }else { | |
| 977 | print "NULL"; | |
| 978 | } | |
| 979 | } | |
| 980 | ||
| 981 | print "\n};\n"; | |
| 982 | print "\n\n"; | |
| 983 | } | |
| 984 | ||
| 985 | sub u2j_map { | |
| 986 | local ($name, $setname, $compat_1978, %u2j) = @_; | |
| 987 | local %u2jout; | |
| 988 | ||
| 989 | print "/* map : Unicode to $setname */\n"; | |
| 990 | for ($hb=0x00; $hb<=0xff; $hb++) { | |
| 991 | $items = 0; | |
| 992 | for ($lb=0x0; $lb<=0xff; $lb++) { | |
| 993 | $items++ if ($u2j{$hb*256 + $lb} > 0); | |
| 994 | } | |
| 995 | if ($items > 0) { | |
| 996 | $items = 0; | |
| 997 | if (!$compat_1978 || ($compat_1978 && $u2j_1978{$hb})) { | |
| 998 | printf "static const unsigned uni_to_${name}_tbl_%02x[] = {", $hb; | |
| 999 | for ($lb = 0x00; $lb <= 0xff; $lb++) { | |
| 1000 | $real = $hb * 256 + $lb; | |
| 1001 | print ", " if ($items > 0); | |
| 1002 | print "\n " if ($items % $perline == 0); | |
| 1003 | $u2j{$real} = 0x003f if ($u2j{$real} == 0); | |
| 1004 | printf("0x%04X", $u2j{$real}); | |
| 1005 | $items++; | |
| 1006 | } | |
| 1007 | print "\n};\n"; | |
| 1008 | } | |
| 1009 | $u2jout{$hb} = 1; | |
| 1010 | } | |
| 1011 | } | |
| 1012 | ||
| 1013 | print "const unsigned * uni_to_${name}_tbls[] = {\n"; | |
| 1014 | for ($hb = 0x00; $hb <= 0xff; $hb++) { | |
| 1015 | print (($hb > 0x00) ? ",\n " : " "); | |
| 1016 | if ($u2jout{$hb} > 0) { | |
| 1017 | if (!$compat_1978 || ($compat_1978 && $u2j_1978{$hb})) { | |
| 1018 | printf "uni_to_${name}_tbl_%02x", $hb; | |
| 1019 | } elsif ($compat_1978) { | |
| 1020 | printf "uni_to_jisx0208_tbl_%02x", $hb | |
| 1021 | } | |
| 1022 | } else { | |
| 1023 | print "NULL"; | |
| 1024 | } | |
| 1025 | } | |
| 1026 | print "\n};\n"; | |
| 1027 | } | |
| 1028 | ||
| 1029 | print "#endif /* _ISO2022JP_HDR_ */\n"; | |
| 1030 | ||
| 1031 | __END__ | |
| 1032 |