| blob | 1dd214bbe5aa42670879ecd552f0fc972d253e42 |
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 (ch >= 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 (ch2 < 0x20 || ch2 >= 0x80) \
420 { \
422 result = __GCONV_ILLEGAL_INPUT; \
423 break; \
424 } \
425 \
426 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
427 \
428 incr = 2; \
429 } \
430 else \
431 { \
432 ch = to_ucs4[ch]; \
433 incr = 1; \
434 } \
435 \
437 { \
439 result = __GCONV_ILLEGAL_INPUT; \
440 break; \
441 } \
442 \
443 inptr += incr; \
444 put32 (outptr, ch); \
445 outptr += 4; \
446 }
447 #include <iconv/loop.c>
450 /* Next, define the other direction. */
451 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
452 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
453 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
454 #define LOOPFCT TO_LOOP
455 #define BODY \
456 { \
457 char tmp[2]; \
458 uint32_t ch = get32 (inptr); \
459 const char *cp; \
460 \
461 if (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0])) \
462 { \
463 if (ch == 0x2c7) \
465 else if (ch >= 0x2d8 && ch <= 0x2dd && ch != 0x2dc) \
466 { \
468 \
469 tmp[0] = map[ch - 0x2d8]; \
471 cp = tmp; \
472 } \
473 else if (ch >= 0x2014 && ch <= 0x2026) \
474 { \
475 static const char map[19] = \
478 \
479 tmp[0] = map[ch - 0x2014]; \
481 { \
483 result = __GCONV_ILLEGAL_INPUT; \
484 break; \
485 } \
487 cp = tmp; \
488 } \
489 else if (ch >= 0x215b && ch <= 0x215e) \
490 { \
491 tmp[0] = 0xdc + ch - 0x215b; \
493 cp = tmp; \
494 } \
495 else if (ch >= 0x2190 && ch <= 0x2193) \
496 { \
497 tmp[0] = 0xac + ch - 0x2190; \
499 cp = tmp; \
500 } \
501 else if (ch == 0x2500) \
503 else if (ch == 0x2502) \
505 else if (ch == 0x253c) \
507 else if (ch >= 0x2571 && ch <= 0x2572) \
508 { \
509 tmp[0] = 0xd8 + ch - 0x2571; \
511 cp = tmp; \
512 } \
513 else if (ch >= 0x25e2 && ch <= 0x25e3) \
514 { \
515 tmp[0] = 0xda + ch - 0x25e2; \
517 cp = tmp; \
518 } \
519 else if (ch == 0x266a) \
521 else \
522 { \
524 result = __GCONV_ILLEGAL_INPUT; \
525 break; \
526 } \
527 } \
528 else \
529 { \
530 cp = from_ucs4[ch]; \
531 \
533 { \
535 result = __GCONV_ILLEGAL_INPUT; \
536 break; \
537 } \
538 } \
539 \
540 *outptr++ = cp[0]; \
543 { \
544 if (NEED_LENGTH_TEST && outptr >= outend) \
545 { \
547 --outptr; \
548 result = __GCONV_FULL_OUTPUT; \
549 break; \
550 } \
551 \
552 *outptr++ = cp[1]; \
553 } \
554 \
555 inptr += 4; \
556 }
557 #include <iconv/loop.c>
560 /* Now define the toplevel functions. */
561 #include <iconv/skeleton.c>