| blob | 08746cf5f7bbfff454a8837ca47987eae057b89d |
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 character \
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 #include <iconv/loop.c>
455 /* Next, define the other direction. */
456 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
457 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
458 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
459 #define LOOPFCT TO_LOOP
460 #define BODY \
461 { \
462 char tmp[2]; \
463 uint32_t ch = get32 (inptr); \
464 const char *cp; \
465 \
466 if (__builtin_expect (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0]), \
467 0)) \
468 { \
469 if (ch == 0x2c7) \
471 else if (ch >= 0x2d8 && ch <= 0x2dd && ch != 0x2dc) \
472 { \
474 \
475 tmp[0] = map[ch - 0x2d8]; \
477 cp = tmp; \
478 } \
479 else if (ch >= 0x2014 && ch <= 0x201d) \
480 { \
481 static const char map[10] = \
483 \
484 tmp[0] = map[ch - 0x2014]; \
486 { \
488 STANDARD_TO_LOOP_ERR_HANDLER (4); \
489 } \
491 cp = tmp; \
492 } \
493 else if (ch >= 0x2122 && ch <= 0x2126) \
494 { \
495 static const char map[5] = \
497 \
498 tmp[0] = map[ch - 0x2122]; \
500 { \
502 STANDARD_TO_LOOP_ERR_HANDLER (4); \
503 } \
505 cp = tmp; \
506 } \
507 else if (ch >= 0x215b && ch <= 0x215e) \
508 { \
509 tmp[0] = 0xdc + ch - 0x215b; \
511 cp = tmp; \
512 } \
513 else if (ch >= 0x2190 && ch <= 0x2193) \
514 { \
515 tmp[0] = 0xac + ch - 0x2190; \
517 cp = tmp; \
518 } \
519 else if (ch == 0x2500) \
521 else if (ch == 0x2502) \
523 else if (ch == 0x253c) \
525 else if (ch >= 0x2571 && ch <= 0x2572) \
526 { \
527 tmp[0] = 0xd8 + ch - 0x2571; \
529 cp = tmp; \
530 } \
531 else if (ch >= 0x25e2 && ch <= 0x25e3) \
532 { \
533 tmp[0] = 0xda + ch - 0x25e2; \
535 cp = tmp; \
536 } \
537 else if (__builtin_expect (ch, 0x266a) == 0x266a) \
539 else \
540 { \
541 UNICODE_TAG_HANDLER (ch, 4); \
542 \
544 STANDARD_TO_LOOP_ERR_HANDLER (4); \
545 } \
546 } \
547 else \
548 { \
549 cp = from_ucs4[ch]; \
550 \
552 { \
554 STANDARD_TO_LOOP_ERR_HANDLER (4); \
555 } \
556 } \
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 \
570 *outptr++ = cp[1]; \
571 } \
572 \
573 inptr += 4; \
574 }
575 #define LOOP_NEED_FLAGS
576 #include <iconv/loop.c>
579 /* Now define the toplevel functions. */
580 #include <iconv/skeleton.c>