| blob | c104d8358bc3f15879c9d6915e072aaea7332f78 |
1 /* Generic conversion to and from ISO 6937-2.
2 Copyright (C) 1998 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public License as
8 published by the Free Software Foundation; either version 2 of the
9 License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Library General Public License for more details.
16 You should have received a copy of the GNU Library General Public
17 License along with the GNU C Library; see the file COPYING.LIB. If not,
18 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 #include <stdint.h>
23 /* Data taken from the WG15 tables. */
25 {
58 };
60 /* The outer array range runs from 0xc1 to 0xcf, the inner range from 0x20
61 to 0x7f. */
63 {
64 /* 0xc1 */
65 {
78 },
79 /* 0xc2 */
80 {
93 },
94 /* 0xc3 */
95 {
108 },
109 /* 0xc4 */
110 {
123 },
124 /* 0xc5 */
125 {
138 },
139 /* 0xc6 */
140 {
153 },
154 /* 0xc7 */
155 {
168 },
169 /* 0xc8 */
170 {
183 },
184 /* 0xc9 */
185 {
187 },
188 /* 0xca */
189 {
202 },
203 /* 0xcb */
204 {
217 },
218 /* 0xcc */
219 {
221 },
222 /* 0xcd */
223 {
236 },
237 /* 0xce */
238 {
251 },
252 /* 0xcf */
253 {
266 }
267 };
271 {
349 /*
350 This table does not cover the following positions:
352 0x02c7 "\xcf\x20",
353 ...
354 0x02d8 "\xc6\x20", "\xc7\x20", "\xca\x20", "\xce\x20", "\x00\x00",
355 0x02dd "\xcd\x20",
356 ...
357 0x2014 "\xd0\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xa9\x00",
358 0x2019 "\xb9\x00", "\x00\x00", "\x00\x00", "\xaa\x00", "\xba\x00",
359 0x201e "\x00\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xd4\x00",
360 0x2123 "\x00\x00", "\x00\x00", "\x00\x00", "\xe0\x00",
361 ...
362 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00"
363 ...
364 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
365 ...
366 0x2500 "\xd6\x00", "\x00\x00", "\xd7\x00",
367 ...
368 0x253c "\xe5\x00",
369 ...
370 0x2571 "\xd8\x00", "\xd9\x00",
371 ...
372 0x25e2 "\xda\x00", "\xdb\x00",
373 ...
374 0x266a "\xd5\x00"
376 These would blow up the table and are therefore handled specially in
377 the code.
378 */
379 };
382 /* Definitions used in the body of the `gconv' function. */
384 #define FROM_LOOP from_iso6937_2
385 #define TO_LOOP to_iso6937_2
386 #define DEFINE_INIT 1
387 #define DEFINE_FINI 1
388 #define MIN_NEEDED_FROM 1
389 #define MAX_NEEDED_FROM 2
390 #define MIN_NEEDED_TO 4
393 /* First define the conversion function from ISO 6937-2 to UCS4. */
394 #define MIN_NEEDED_INPUT MIN_NEEDED_FROM
395 #define MAX_NEEDED_INPUT MAX_NEEDED_FROM
396 #define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
397 #define LOOPFCT FROM_LOOP
398 #define BODY \
399 { \
400 uint32_t ch = *inptr; \
401 \
402 if (ch >= 0xc1 && ch <= 0xcf) \
403 { \
404 /* Composed character. First test whether the next character \
406 int ch2; \
407 \
408 if (inptr + 1 >= inend) \
409 { \
410 /* The second character is not available. Store the \
412 result = GCONV_INCOMPLETE_INPUT; \
413 break; \
414 } \
415 \
416 ch2 = inptr[1]; \
417 \
418 if (ch2 < 0x20 || ch2 >= 0x80) \
419 { \
421 result = GCONV_ILLEGAL_INPUT; \
422 break; \
423 } \
424 \
425 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
426 \
427 if (ch == 0) \
428 { \
430 result = GCONV_ILLEGAL_INPUT; \
431 break; \
432 } \
433 \
434 inptr += 2; \
435 } \
436 else \
437 { \
438 ch = to_ucs4[ch]; \
439 \
441 { \
443 result = GCONV_ILLEGAL_INPUT; \
444 break; \
445 } \
446 ++inptr; \
447 } \
448 \
449 *((uint32_t *) outptr)++ = ch; \
450 }
451 #include <iconv/loop.c>
454 /* Next, define the other direction. */
455 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
456 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
457 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
458 #define LOOPFCT TO_LOOP
459 #define BODY \
460 { \
461 char tmp[2]; \
462 uint32_t ch = *((uint32_t *) inptr); \
463 const char *cp; \
464 \
465 if (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0])) \
466 { \
467 int fail = 0; \
468 switch (ch) \
469 { \
470 case 0x2c7: \
472 break; \
473 case 0x2d8 ... 0x2dd: \
474 { \
476 \
477 tmp[0] = map[ch - 0x2d8]; \
479 cp = tmp; \
480 } \
481 break; \
482 case 0x2014: \
484 break; \
485 case 0x2018: \
487 break; \
488 case 0x2019: \
490 break; \
491 case 0x201c: \
493 break; \
494 case 0x201d: \
496 break; \
497 case 0x2122: \
499 break; \
500 case 0x2126: \
502 break; \
503 case 0x215b ... 0x215e: \
504 tmp[0] = 0xdc + (ch - 0x215b); \
506 cp = tmp; \
507 break; \
508 case 0x2190 ... 0x2193: \
509 tmp[0] = 0xac + (ch - 0x2190); \
511 cp = tmp; \
512 break; \
513 case 0x2500: \
515 break; \
516 case 0x2502: \
518 break; \
519 case 0x253c: \
521 break; \
522 case 0x2571: \
524 break; \
525 case 0x2572: \
527 break; \
528 case 0x25e2: \
530 break; \
531 case 0x25e3: \
533 break; \
534 case 0x266a: \
536 break; \
537 default: \
538 cp = NULL; \
539 fail = 1; \
540 } \
541 \
542 if (fail) \
543 { \
545 result = GCONV_ILLEGAL_INPUT; \
546 break; \
547 } \
548 } \
550 { \
552 result = GCONV_ILLEGAL_INPUT; \
553 break; \
554 } \
555 else \
556 cp = from_ucs4[ch]; \
557 \
558 *outptr++ = cp[0]; \
561 { \
562 if (NEED_LENGTH_TEST && outptr >= outend) \
563 { \
565 result = GCONV_FULL_OUTPUT; \
566 break; \
567 } \
568 *outptr++ = cp[1]; \
569 } \
570 \
571 inptr += 4; \
572 }
573 #include <iconv/loop.c>
576 /* Now define the toplevel functions. */
577 #include <iconv/skeleton.c>