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