| blob | bacbfd23adc89fd01d2a6d45c467809668db2374 |
1 /* Generic conversion to and from ANSI_X3.110-1983.
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 <gconv.h>
22 #include <stdint.h>
23 #include <string.h>
25 /* Data taken from the WG15 tables. */
27 {
60 };
62 /* The outer array range runs from 0xc1 to 0xcf, the inner range from 0x20
63 to 0x7f. */
65 {
66 /* 0xc1 */
67 {
80 },
81 /* 0xc2 */
82 {
95 },
96 /* 0xc3 */
97 {
110 },
111 /* 0xc4 */
112 {
125 },
126 /* 0xc5 */
127 {
140 },
141 /* 0xc6 */
142 {
155 },
156 /* 0xc7 */
157 {
170 },
171 /* 0xc8 */
172 {
185 },
186 /* 0xc9 */
187 {
189 },
190 /* 0xca */
191 {
204 },
205 /* 0xcb */
206 {
219 },
220 /* 0xcc */
221 {
223 },
224 /* 0xcd */
225 {
238 },
239 /* 0xce */
240 {
253 },
254 /* 0xcf */
255 {
268 }
269 };
273 {
351 /*
352 This table does not cover the following positions:
354 0x02c7 "\xcf\x20",
355 ...
356 0x02d8 "\xc6\x20", "\xc7\x20", "\xca\x20", "\xce\x20", "\x00\x00",
357 0x02dd "\xcd\x20",
358 ...
359 0x2014 "\xd0\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xa9\x00",
360 0x2019 "\xb9\x00", "\x00\x00", "\x00\x00", "\xaa\x00", "\xba\x00",
361 0x201e "\x00\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xd4\x00",
362 0x2023 "\x00\x00", "\x00\x00", "\x00\x00", "\xe0\x00",
363 ...
364 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00", "\xdf\x00",
365 ...
366 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
367 ...
368 0x2500 "\xd6\x00", "\x00\x00", "\xd7\x00",
369 ...
370 0x253c "\xe5\x00",
371 ...
372 0x2571 "\xd8\x00", "\xd9\x00",
373 ...
374 0x25e2 "\xda\x00", "\xdb\x00",
375 ...
376 0x266a "\xd5\x00",
378 These would blow up the table and are therefore handled specially in
379 the code.
380 */
381 };
384 /* Definitions used in the body of the `gconv' function. */
386 #define FROM_LOOP from_ansi_x3_110
387 #define TO_LOOP to_ansi_x3_110
388 #define DEFINE_INIT 1
389 #define DEFINE_FINI 1
390 #define MIN_NEEDED_FROM 1
391 #define MAX_NEEDED_FROM 2
392 #define MIN_NEEDED_TO 4
394 /* First define the conversion function from ANSI_X3.110 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 int incr; \
403 \
404 if (__builtin_expect (ch, 0x00) >= 0xc1 && ch <= 0xcf) \
405 { \
406 /* Composed character. First test whether the next character \
408 uint32_t ch2; \
409 \
410 if (NEED_LENGTH_TEST && inptr + 1 >= inend) \
411 { \
413 result = __GCONV_INCOMPLETE_INPUT; \
414 break; \
415 } \
416 \
417 ch2 = inptr[1]; \
418 \
419 if (__builtin_expect (ch2, 0x20) < 0x20 \
420 || __builtin_expect (ch2, 0x7f) >= 0x80) \
421 { \
423 if (! ignore_errors_p ()) \
424 { \
425 result = __GCONV_ILLEGAL_INPUT; \
426 break; \
427 } \
428 \
429 ++*converted; \
430 incr = 1; \
431 } \
432 else \
433 { \
434 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
435 incr = 2; \
436 } \
437 } \
438 else \
439 { \
440 ch = to_ucs4[ch]; \
441 incr = 1; \
442 } \
443 \
445 { \
447 if (! ignore_errors_p ()) \
448 { \
449 result = __GCONV_ILLEGAL_INPUT; \
450 break; \
451 } \
452 } \
453 else \
454 { \
455 put32 (outptr, ch); \
456 outptr += 4; \
457 } \
458 \
459 inptr += incr; \
460 }
461 #include <iconv/loop.c>
464 /* Next, define the other direction. */
465 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
466 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
467 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
468 #define LOOPFCT TO_LOOP
469 #define BODY \
470 { \
471 char tmp[2]; \
472 uint32_t ch = get32 (inptr); \
473 const char *cp; \
474 \
475 if (__builtin_expect (ch, 0) \
476 >= sizeof (from_ucs4) / sizeof (from_ucs4[0])) \
477 { \
478 if (ch == 0x2c7) \
480 else if (ch >= 0x2d8 && ch <= 0x2dd && ch != 0x2dc) \
481 { \
483 \
484 tmp[0] = map[ch - 0x2d8]; \
486 cp = tmp; \
487 } \
488 else if (ch >= 0x2014 && ch <= 0x2026) \
489 { \
490 static const char map[19] = \
493 \
494 tmp[0] = map[ch - 0x2014]; \
496 { \
498 if (! ignore_errors_p ()) \
499 { \
500 result = __GCONV_ILLEGAL_INPUT; \
501 break; \
502 } \
503 \
504 ++*converted; \
505 inptr += 4; \
506 continue; \
507 } \
509 cp = tmp; \
510 } \
511 else if (ch >= 0x215b && ch <= 0x215e) \
512 { \
513 tmp[0] = 0xdc + ch - 0x215b; \
515 cp = tmp; \
516 } \
517 else if (ch >= 0x2190 && ch <= 0x2193) \
518 { \
519 tmp[0] = 0xac + ch - 0x2190; \
521 cp = tmp; \
522 } \
523 else if (ch == 0x2500) \
525 else if (ch == 0x2502) \
527 else if (ch == 0x253c) \
529 else if (ch >= 0x2571 && ch <= 0x2572) \
530 { \
531 tmp[0] = 0xd8 + ch - 0x2571; \
533 cp = tmp; \
534 } \
535 else if (ch >= 0x25e2 && ch <= 0x25e3) \
536 { \
537 tmp[0] = 0xda + ch - 0x25e2; \
539 cp = tmp; \
540 } \
541 else if (__builtin_expect (ch, 0x266a) == 0x266a) \
543 else \
544 { \
546 if (! ignore_errors_p ()) \
547 { \
548 result = __GCONV_ILLEGAL_INPUT; \
549 break; \
550 } \
551 \
552 ++*converted; \
553 inptr += 4; \
554 continue; \
555 } \
556 } \
557 else \
558 { \
559 cp = from_ucs4[ch]; \
560 \
562 { \
564 if (! ignore_errors_p ()) \
565 { \
566 result = __GCONV_ILLEGAL_INPUT; \
567 break; \
568 } \
569 \
570 ++*converted; \
571 inptr += 4; \
572 continue; \
573 } \
574 } \
575 \
576 *outptr++ = cp[0]; \
579 { \
580 if (NEED_LENGTH_TEST && __builtin_expect (outptr >= outend, 0)) \
581 { \
583 --outptr; \
584 result = __GCONV_FULL_OUTPUT; \
585 break; \
586 } \
587 \
588 *outptr++ = cp[1]; \
589 } \
590 \
591 inptr += 4; \
592 }
593 #include <iconv/loop.c>
596 /* Now define the toplevel functions. */
597 #include <iconv/skeleton.c>