| blob | b20e12a79c8ac9b10f37d9946dc4b42eed513a0d |
1 /* Generic conversion to and from ANSI_X3.110-1983.
2 Copyright (C) 1998, 1999, 2000-2002 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 <gconv.h>
23 #include <stdint.h>
24 #include <string.h>
26 /* Data taken from the WG15 tables. */
28 {
61 };
63 /* The outer array range runs from 0xc1 to 0xcf, the inner range from 0x20
64 to 0x7f. */
66 {
67 /* 0xc1 */
68 {
81 },
82 /* 0xc2 */
83 {
96 },
97 /* 0xc3 */
98 {
111 },
112 /* 0xc4 */
113 {
126 },
127 /* 0xc5 */
128 {
141 },
142 /* 0xc6 */
143 {
156 },
157 /* 0xc7 */
158 {
171 },
172 /* 0xc8 */
173 {
186 },
187 /* 0xc9 */
188 {
190 },
191 /* 0xca */
192 {
205 },
206 /* 0xcb */
207 {
220 },
221 /* 0xcc */
222 {
224 },
225 /* 0xcd */
226 {
239 },
240 /* 0xce */
241 {
254 },
255 /* 0xcf */
256 {
269 }
270 };
274 {
352 /*
353 This table does not cover the following positions:
355 0x02c7 "\xcf\x20",
356 ...
357 0x02d8 "\xc6\x20", "\xc7\x20", "\xca\x20", "\xce\x20", "\x00\x00",
358 0x02dd "\xcd\x20",
359 ...
360 0x2014 "\xd0\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xa9\x00",
361 0x2019 "\xb9\x00", "\x00\x00", "\x00\x00", "\xaa\x00", "\xba\x00",
362 0x201e "\x00\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xd4\x00",
363 0x2023 "\x00\x00", "\x00\x00", "\x00\x00", "\xe0\x00",
364 ...
365 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00", "\xdf\x00",
366 ...
367 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
368 ...
369 0x2500 "\xd6\x00", "\x00\x00", "\xd7\x00",
370 ...
371 0x253c "\xe5\x00",
372 ...
373 0x2571 "\xd8\x00", "\xd9\x00",
374 ...
375 0x25e2 "\xda\x00", "\xdb\x00",
376 ...
377 0x266a "\xd5\x00",
379 These would blow up the table and are therefore handled specially in
380 the code.
381 */
382 };
385 /* Definitions used in the body of the `gconv' function. */
387 #define FROM_LOOP from_ansi_x3_110
388 #define TO_LOOP to_ansi_x3_110
389 #define DEFINE_INIT 1
390 #define DEFINE_FINI 1
391 #define MIN_NEEDED_FROM 1
392 #define MAX_NEEDED_FROM 2
393 #define MIN_NEEDED_TO 4
395 /* First define the conversion function from ANSI_X3.110 to UCS4. */
396 #define MIN_NEEDED_INPUT MIN_NEEDED_FROM
397 #define MAX_NEEDED_INPUT MAX_NEEDED_FROM
398 #define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
399 #define LOOPFCT FROM_LOOP
400 #define BODY \
401 { \
402 uint32_t ch = *inptr; \
403 int incr; \
404 \
405 if (__builtin_expect (ch >= 0xc1, 0) && ch <= 0xcf) \
406 { \
407 /* Composed character. First test whether the next byte \
409 uint32_t ch2; \
410 \
411 if (inptr + 1 >= inend) \
412 { \
414 result = __GCONV_INCOMPLETE_INPUT; \
415 break; \
416 } \
417 \
418 ch2 = inptr[1]; \
419 \
420 if (__builtin_expect (ch2 < 0x20, 0) \
421 || __builtin_expect (ch2 >= 0x80, 0)) \
422 { \
424 STANDARD_FROM_LOOP_ERR_HANDLER (1); \
425 } \
426 else \
427 { \
428 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
429 incr = 2; \
430 } \
431 } \
432 else \
433 { \
434 ch = to_ucs4[ch]; \
435 incr = 1; \
436 } \
437 \
439 { \
441 STANDARD_FROM_LOOP_ERR_HANDLER (incr); \
442 } \
443 else \
444 { \
445 put32 (outptr, ch); \
446 outptr += 4; \
447 } \
448 \
449 inptr += incr; \
450 }
451 #define LOOP_NEED_FLAGS
452 #define ONEBYTE_BODY \
453 { \
454 uint32_t ch = to_ucs4[c]; \
455 \
457 return WEOF; \
458 else \
459 return ch; \
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 >= sizeof (from_ucs4) / sizeof (from_ucs4[0]), \
476 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 <= 0x201d) \
489 { \
490 static const char map[10] = \
492 \
493 tmp[0] = map[ch - 0x2014]; \
495 { \
497 STANDARD_TO_LOOP_ERR_HANDLER (4); \
498 } \
500 cp = tmp; \
501 } \
502 else if (ch >= 0x2122 && ch <= 0x2126) \
503 { \
504 static const char map[5] = \
506 \
507 tmp[0] = map[ch - 0x2122]; \
509 { \
511 STANDARD_TO_LOOP_ERR_HANDLER (4); \
512 } \
514 cp = tmp; \
515 } \
516 else if (ch >= 0x215b && ch <= 0x215e) \
517 { \
518 tmp[0] = 0xdc + ch - 0x215b; \
520 cp = tmp; \
521 } \
522 else if (ch >= 0x2190 && ch <= 0x2193) \
523 { \
524 tmp[0] = 0xac + ch - 0x2190; \
526 cp = tmp; \
527 } \
528 else if (ch == 0x2500) \
530 else if (ch == 0x2502) \
532 else if (ch == 0x253c) \
534 else if (ch >= 0x2571 && ch <= 0x2572) \
535 { \
536 tmp[0] = 0xd8 + ch - 0x2571; \
538 cp = tmp; \
539 } \
540 else if (ch >= 0x25e2 && ch <= 0x25e3) \
541 { \
542 tmp[0] = 0xda + ch - 0x25e2; \
544 cp = tmp; \
545 } \
546 else if (__builtin_expect (ch, 0x266a) == 0x266a) \
548 else \
549 { \
550 UNICODE_TAG_HANDLER (ch, 4); \
551 \
553 STANDARD_TO_LOOP_ERR_HANDLER (4); \
554 } \
555 } \
556 else \
557 { \
558 cp = from_ucs4[ch]; \
559 \
561 { \
563 STANDARD_TO_LOOP_ERR_HANDLER (4); \
564 } \
565 } \
566 \
567 *outptr++ = cp[0]; \
570 { \
571 if (__builtin_expect (outptr >= outend, 0)) \
572 { \
574 --outptr; \
575 result = __GCONV_FULL_OUTPUT; \
576 break; \
577 } \
578 \
579 *outptr++ = cp[1]; \
580 } \
581 \
582 inptr += 4; \
583 }
584 #define LOOP_NEED_FLAGS
585 #include <iconv/loop.c>
588 /* Now define the toplevel functions. */
589 #include <iconv/skeleton.c>