| blob | a3c8be6b338dd4ed1e1c19ea3da87635ee2cd529 |
1 /* Generic conversion to and from ISO 6937-2.
2 Copyright (C) 1998, 1999, 2000 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 (__builtin_expect (ch, 0) >= 0xc1 && ch <= 0xcf) \
403 { \
404 /* Composed character. First test whether the next character \
406 int ch2; \
407 \
408 if (NEED_LENGTH_TEST && __builtin_expect (inptr + 1 >= inend, 0)) \
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 (__builtin_expect (ch2, 0) < 0x20 \
419 || __builtin_expect (ch2, 0) >= 0x80) \
420 { \
422 if (! ignore_errors_p ()) \
423 { \
425 result = __GCONV_ILLEGAL_INPUT; \
426 break; \
427 } \
428 \
429 ++inptr; \
430 ++*converted; \
431 continue; \
432 } \
433 \
434 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
435 \
436 if (__builtin_expect (ch, 1) == 0) \
437 { \
439 if (! ignore_errors_p ()) \
440 { \
442 result = __GCONV_ILLEGAL_INPUT; \
443 break; \
444 } \
445 \
446 inptr += 2; \
447 ++*converted; \
448 continue; \
449 } \
450 \
451 inptr += 2; \
452 } \
453 else \
454 { \
455 ch = to_ucs4[ch]; \
456 \
458 { \
460 if (! ignore_errors_p ()) \
461 { \
463 result = __GCONV_ILLEGAL_INPUT; \
464 break; \
465 } \
466 \
467 ++inptr; \
468 ++*converted; \
469 continue; \
470 } \
471 ++inptr; \
472 } \
473 \
474 put32 (outptr, ch); \
475 outptr += 4; \
476 }
477 #include <iconv/loop.c>
480 /* Next, define the other direction. */
481 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
482 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
483 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
484 #define LOOPFCT TO_LOOP
485 #define BODY \
486 { \
487 char tmp[2]; \
488 uint32_t ch = get32 (inptr); \
489 const char *cp; \
490 \
491 if (__builtin_expect (ch, 0) \
492 >= sizeof (from_ucs4) / sizeof (from_ucs4[0])) \
493 { \
494 int fail = 0; \
495 switch (ch) \
496 { \
497 case 0x2c7: \
499 break; \
500 case 0x2d8 ... 0x2dd: \
501 { \
503 \
504 tmp[0] = map[ch - 0x2d8]; \
506 cp = tmp; \
507 } \
508 break; \
509 case 0x2014: \
511 break; \
512 case 0x2018: \
514 break; \
515 case 0x2019: \
517 break; \
518 case 0x201c: \
520 break; \
521 case 0x201d: \
523 break; \
524 case 0x2122: \
526 break; \
527 case 0x2126: \
529 break; \
530 case 0x215b ... 0x215e: \
531 tmp[0] = 0xdc + (ch - 0x215b); \
533 cp = tmp; \
534 break; \
535 case 0x2190 ... 0x2193: \
536 tmp[0] = 0xac + (ch - 0x2190); \
538 cp = tmp; \
539 break; \
540 case 0x2500: \
542 break; \
543 case 0x2502: \
545 break; \
546 case 0x253c: \
548 break; \
549 case 0x2571: \
551 break; \
552 case 0x2572: \
554 break; \
555 case 0x25e2: \
557 break; \
558 case 0x25e3: \
560 break; \
561 case 0x266a: \
563 break; \
564 default: \
565 cp = NULL; \
566 fail = 1; \
567 } \
568 \
569 if (__builtin_expect (fail, 0)) \
570 { \
572 if (! ignore_errors_p ()) \
573 { \
575 result = __GCONV_ILLEGAL_INPUT; \
576 break; \
577 } \
578 \
579 inptr += 4; \
580 ++*converted; \
581 continue; \
582 } \
583 } \
585 { \
587 if (! ignore_errors_p ()) \
588 { \
589 result = __GCONV_ILLEGAL_INPUT; \
590 break; \
591 } \
592 \
593 ++*converted; \
594 inptr += 4; \
595 continue; \
596 } \
597 else \
598 cp = from_ucs4[ch]; \
599 \
600 *outptr++ = cp[0]; \
603 { \
604 if (NEED_LENGTH_TEST && __builtin_expect (outptr >= outend, 0)) \
605 { \
607 --outptr; \
608 result = __GCONV_FULL_OUTPUT; \
609 break; \
610 } \
611 *outptr++ = cp[1]; \
612 } \
613 \
614 inptr += 4; \
615 }
616 #include <iconv/loop.c>
619 /* Now define the toplevel functions. */
620 #include <iconv/skeleton.c>