| blob | bd4cd6774a8df4b9e2452b038edb3357a69f7b1b |
1 /* Generic conversion to and from ISO 6937-2.
2 Copyright (C) 1998, 1999, 2000, 2001 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 Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the 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 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 02111-1307 USA. */
21 #include <dlfcn.h>
22 #include <stdint.h>
24 /* Data taken from the WG15 tables. */
26 {
59 };
61 /* The outer array range runs from 0xc1 to 0xcf, the inner range from 0x20
62 to 0x7f. */
64 {
65 /* 0xc1 */
66 {
79 },
80 /* 0xc2 */
81 {
94 },
95 /* 0xc3 */
96 {
109 },
110 /* 0xc4 */
111 {
124 },
125 /* 0xc5 */
126 {
139 },
140 /* 0xc6 */
141 {
154 },
155 /* 0xc7 */
156 {
169 },
170 /* 0xc8 */
171 {
184 },
185 /* 0xc9 */
186 {
188 },
189 /* 0xca */
190 {
203 },
204 /* 0xcb */
205 {
218 },
219 /* 0xcc */
220 {
222 },
223 /* 0xcd */
224 {
237 },
238 /* 0xce */
239 {
252 },
253 /* 0xcf */
254 {
267 }
268 };
272 {
350 /*
351 This table does not cover the following positions:
353 0x02c7 "\xcf\x20",
354 ...
355 0x02d8 "\xc6\x20", "\xc7\x20", "\xca\x20", "\xce\x20", "\x00\x00",
356 0x02dd "\xcd\x20",
357 ...
358 0x2014 "\xd0\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xa9\x00",
359 0x2019 "\xb9\x00", "\x00\x00", "\x00\x00", "\xaa\x00", "\xba\x00",
360 0x201e "\x00\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xd4\x00",
361 0x2123 "\x00\x00", "\x00\x00", "\x00\x00", "\xe0\x00",
362 ...
363 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00"
364 ...
365 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
366 ...
367 0x2500 "\xd6\x00", "\x00\x00", "\xd7\x00",
368 ...
369 0x253c "\xe5\x00",
370 ...
371 0x2571 "\xd8\x00", "\xd9\x00",
372 ...
373 0x25e2 "\xda\x00", "\xdb\x00",
374 ...
375 0x266a "\xd5\x00"
377 These would blow up the table and are therefore handled specially in
378 the code.
379 */
380 };
383 /* Definitions used in the body of the `gconv' function. */
385 #define FROM_LOOP from_iso6937_2
386 #define TO_LOOP to_iso6937_2
387 #define DEFINE_INIT 1
388 #define DEFINE_FINI 1
389 #define MIN_NEEDED_FROM 1
390 #define MAX_NEEDED_FROM 2
391 #define MIN_NEEDED_TO 4
394 /* First define the conversion function from ISO 6937-2 to UCS4. */
395 #define MIN_NEEDED_INPUT MIN_NEEDED_FROM
396 #define MAX_NEEDED_INPUT MAX_NEEDED_FROM
397 #define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
398 #define LOOPFCT FROM_LOOP
399 #define BODY \
400 { \
401 uint32_t ch = *inptr; \
402 \
403 if (__builtin_expect (ch >= 0xc1, 0) && ch <= 0xcf) \
404 { \
405 /* Composed character. First test whether the next character \
407 int ch2; \
408 \
409 if (__builtin_expect (inptr + 1 >= inend, 0)) \
410 { \
411 /* The second character is not available. Store the \
413 result = __GCONV_INCOMPLETE_INPUT; \
414 break; \
415 } \
416 \
417 ch2 = inptr[1]; \
418 \
419 if (__builtin_expect (ch2 < 0x20, 0) \
420 || __builtin_expect (ch2 >= 0x80, 0)) \
421 { \
423 if (! ignore_errors_p ()) \
424 { \
426 result = __GCONV_ILLEGAL_INPUT; \
427 break; \
428 } \
429 \
430 ++inptr; \
431 ++*irreversible; \
432 continue; \
433 } \
434 \
435 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
436 \
437 if (__builtin_expect (ch, 1) == 0) \
438 { \
440 if (! ignore_errors_p ()) \
441 { \
443 result = __GCONV_ILLEGAL_INPUT; \
444 break; \
445 } \
446 \
447 inptr += 2; \
448 ++*irreversible; \
449 continue; \
450 } \
451 \
452 inptr += 2; \
453 } \
454 else \
455 { \
456 ch = to_ucs4[ch]; \
457 \
459 { \
461 if (! ignore_errors_p ()) \
462 { \
464 result = __GCONV_ILLEGAL_INPUT; \
465 break; \
466 } \
467 \
468 ++inptr; \
469 ++*irreversible; \
470 continue; \
471 } \
472 ++inptr; \
473 } \
474 \
475 put32 (outptr, ch); \
476 outptr += 4; \
477 }
478 #define LOOP_NEED_FLAGS
479 #include <iconv/loop.c>
482 /* Next, define the other direction. */
483 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
484 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
485 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
486 #define LOOPFCT TO_LOOP
487 #define BODY \
488 { \
489 char tmp[2]; \
490 uint32_t ch = get32 (inptr); \
491 const char *cp; \
492 \
493 if (__builtin_expect (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0]), \
494 0)) \
495 { \
496 switch (ch) \
497 { \
498 case 0x2c7: \
500 break; \
501 case 0x2d8 ... 0x2dd: \
502 { \
504 \
505 tmp[0] = map[ch - 0x2d8]; \
507 cp = tmp; \
508 } \
509 break; \
510 case 0x2014: \
512 break; \
513 case 0x2018: \
515 break; \
516 case 0x2019: \
518 break; \
519 case 0x201c: \
521 break; \
522 case 0x201d: \
524 break; \
525 case 0x2122: \
527 break; \
528 case 0x2126: \
530 break; \
531 case 0x215b ... 0x215e: \
532 tmp[0] = 0xdc + (ch - 0x215b); \
534 cp = tmp; \
535 break; \
536 case 0x2190 ... 0x2193: \
537 tmp[0] = 0xac + (ch - 0x2190); \
539 cp = tmp; \
540 break; \
541 case 0x2500: \
543 break; \
544 case 0x2502: \
546 break; \
547 case 0x253c: \
549 break; \
550 case 0x2571: \
552 break; \
553 case 0x2572: \
555 break; \
556 case 0x25e2: \
558 break; \
559 case 0x25e3: \
561 break; \
562 case 0x266a: \
564 break; \
565 default: \
566 UNICODE_TAG_HANDLER (ch, 4); \
568 cp = NULL; \
569 break; \
570 } \
571 if (cp == NULL) \
572 { \
573 STANDARD_ERR_HANDLER (4); \
574 } \
575 } \
577 { \
579 STANDARD_ERR_HANDLER (4); \
580 } \
581 else \
582 cp = from_ucs4[ch]; \
583 \
584 *outptr++ = cp[0]; \
587 { \
588 if (__builtin_expect (outptr >= outend, 0)) \
589 { \
591 --outptr; \
592 result = __GCONV_FULL_OUTPUT; \
593 break; \
594 } \
595 *outptr++ = cp[1]; \
596 } \
597 \
598 inptr += 4; \
599 }
600 #define LOOP_NEED_FLAGS
601 #include <iconv/loop.c>
604 /* Now define the toplevel functions. */
605 #include <iconv/skeleton.c>