| blob | 2340e538493fefc945d799307f10ad40d41f6021 |
1 /* Generic conversion to and from ISO 6937.
2 Copyright (C) 1997, 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>, 1997.
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", "\x00\x00",
362 ...
363 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00"
364 ...
365 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
366 ...
367 0x266a "\xd5\x00"
369 These would blow up the table and are therefore handled specially in
370 the code.
371 */
372 };
375 /* Definitions used in the body of the `gconv' function. */
377 #define FROM_LOOP from_iso6937
378 #define TO_LOOP to_iso6937
379 #define DEFINE_INIT 1
380 #define DEFINE_FINI 1
381 #define MIN_NEEDED_FROM 1
382 #define MAX_NEEDED_FROM 2
383 #define MIN_NEEDED_TO 4
386 /* First define the conversion function from ISO 6937 to UCS4. */
387 #define MIN_NEEDED_INPUT MIN_NEEDED_FROM
388 #define MAX_NEEDED_INPUT MAX_NEEDED_FROM
389 #define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
390 #define LOOPFCT FROM_LOOP
391 #define BODY \
392 { \
393 uint32_t ch = *inptr; \
394 \
395 if (__builtin_expect (ch >= 0xc1, 0) && ch <= 0xcf) \
396 { \
397 /* Composed character. First test whether the next character \
399 int ch2; \
400 \
401 if (__builtin_expect (inptr + 1 >= inend, 0)) \
402 { \
403 /* The second character is not available. Store the \
405 result = __GCONV_INCOMPLETE_INPUT; \
406 break; \
407 } \
408 \
409 ch2 = inptr[1]; \
410 \
411 if (__builtin_expect (ch2 < 0x20, 0) \
412 || __builtin_expect (ch2 >= 0x80, 0)) \
413 { \
415 if (! ignore_errors_p ()) \
416 { \
418 result = __GCONV_ILLEGAL_INPUT; \
419 break; \
420 } \
421 \
422 ++inptr; \
423 ++*irreversible; \
424 continue; \
425 } \
426 \
427 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
428 \
429 if (__builtin_expect (ch, 1) == 0) \
430 { \
432 if (! ignore_errors_p ()) \
433 { \
435 result = __GCONV_ILLEGAL_INPUT; \
436 break; \
437 } \
438 \
439 inptr += 2; \
440 ++*irreversible; \
441 continue; \
442 } \
443 \
444 inptr += 2; \
445 } \
446 else \
447 { \
448 ch = to_ucs4[ch]; \
449 \
451 { \
453 if (! ignore_errors_p ()) \
454 { \
456 result = __GCONV_ILLEGAL_INPUT; \
457 break; \
458 } \
459 \
460 ++inptr; \
461 ++*irreversible; \
462 continue; \
463 } \
464 ++inptr; \
465 } \
466 \
467 put32 (outptr, ch); \
468 outptr += 4; \
469 }
470 #define LOOP_NEED_FLAGS
471 #include <iconv/loop.c>
474 /* Next, define the other direction. */
475 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
476 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
477 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
478 #define LOOPFCT TO_LOOP
479 #define BODY \
480 { \
481 char tmp[2]; \
482 uint32_t ch = get32 (inptr); \
483 const char *cp; \
484 \
485 if (__builtin_expect (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0]), \
486 0)) \
487 { \
488 int fail = 0; \
489 switch (ch) \
490 { \
491 case 0x2c7: \
493 break; \
494 case 0x2d8 ... 0x2db: \
495 case 0x2dd: \
496 { \
498 \
499 tmp[0] = map[ch - 0x2d8]; \
501 cp = tmp; \
502 } \
503 break; \
504 case 0x2014: \
506 break; \
507 case 0x2018: \
509 break; \
510 case 0x2019: \
512 break; \
513 case 0x201c: \
515 break; \
516 case 0x201d: \
518 break; \
519 case 0x2122: \
521 break; \
522 case 0x2126: \
524 break; \
525 case 0x215b ... 0x215e: \
526 tmp[0] = 0xdc + (ch - 0x215b); \
528 cp = tmp; \
529 break; \
530 case 0x2190 ... 0x2193: \
531 tmp[0] = 0xac + (ch - 0x2190); \
533 cp = tmp; \
534 break; \
535 case 0x266a: \
537 break; \
538 default: \
539 UNICODE_TAG_HANDLER (ch, 4); \
540 cp = NULL; \
541 fail = 1; \
542 } \
543 \
544 if (__builtin_expect (fail, 0)) \
545 { \
547 STANDARD_ERR_HANDLER (4); \
548 } \
549 } \
551 { \
553 STANDARD_ERR_HANDLER (4); \
554 } \
555 else \
556 cp = from_ucs4[ch]; \
557 \
558 *outptr++ = cp[0]; \
561 { \
562 if (__builtin_expect (outptr >= outend, 0)) \
563 { \
565 --outptr; \
566 result = __GCONV_FULL_OUTPUT; \
567 break; \
568 } \
569 *outptr++ = cp[1]; \
570 } \
571 \
572 inptr += 4; \
573 }
574 #define LOOP_NEED_FLAGS
575 #include <iconv/loop.c>
578 /* Now define the toplevel functions. */
579 #include <iconv/skeleton.c>