| blob | 17a22a3cd102bd3efd343920b8e93cb7663980c8 |
1 /* Generic conversion to and from T.61.
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 <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 0x2126 "\xe0\x00"
362 These would blow up the table and are therefore handled specially in
363 the code.
364 */
365 };
368 /* Definitions used in the body of the `gconv' function. */
370 #define FROM_LOOP from_t_61
371 #define TO_LOOP to_t_61
372 #define DEFINE_INIT 1
373 #define DEFINE_FINI 1
374 #define MIN_NEEDED_FROM 1
375 #define MAX_NEEDED_FROM 2
376 #define MIN_NEEDED_TO 4
378 /* First define the conversion function from T.61 to UCS4. */
379 #define MIN_NEEDED_INPUT MIN_NEEDED_FROM
380 #define MAX_NEEDED_INPUT MAX_NEEDED_FROM
381 #define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
382 #define LOOPFCT FROM_LOOP
383 #define BODY \
384 { \
385 uint32_t ch = *inptr; \
386 int increment = 1; \
387 \
388 if (__builtin_expect (ch, 0x20) >= 0xc1 && ch <= 0xcf) \
389 { \
390 /* Composed character. First test whether the next character \
392 uint32_t ch2; \
393 \
394 if (__builtin_expect (inptr + 1 >= inend, 0)) \
395 { \
397 result = __GCONV_INCOMPLETE_INPUT; \
398 break; \
399 } \
400 \
401 ch2 = inptr[1]; \
402 \
403 if (__builtin_expect (ch2, 0x20) < 0x20 \
404 || __builtin_expect (ch2, 0x20) >= 0x80) \
405 { \
407 if (! ignore_errors_p ()) \
408 { \
410 result = __GCONV_ILLEGAL_INPUT; \
411 break; \
412 } \
413 \
414 ++inptr; \
415 ++*irreversible; \
416 continue; \
417 } \
418 \
419 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
420 \
421 increment = 2; \
422 } \
423 else \
424 ch = to_ucs4[ch]; \
425 \
427 { \
429 if (! ignore_errors_p ()) \
430 { \
432 result = __GCONV_ILLEGAL_INPUT; \
433 break; \
434 } \
435 \
436 ++*irreversible; \
437 } \
438 else \
439 { \
440 put32 (outptr, ch); \
441 outptr += 4; \
442 } \
443 inptr += increment; \
444 }
445 #define LOOP_NEED_FLAGS
446 #include <iconv/loop.c>
449 /* Next, define the other direction. */
450 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
451 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
452 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
453 #define LOOPFCT TO_LOOP
454 #define BODY \
455 { \
456 char tmp[2]; \
457 uint32_t ch = get32 (inptr); \
458 const char *cp; \
459 \
460 if (__builtin_expect (ch, 0) \
461 >= sizeof (from_ucs4) / sizeof (from_ucs4[0])) \
462 { \
463 if (__builtin_expect (ch, 0) == 0x2126) \
465 else if (__builtin_expect (ch, 0) == 0x2c7) \
467 else if (__builtin_expect (ch, 0x2d8) < 0x2d8 \
468 || __builtin_expect (ch, 0x2d8) > 0x2dd \
469 || __builtin_expect (ch, 0x2d8) == 0x02dc) \
470 { \
472 STANDARD_ERR_HANDLER (4); \
473 } \
474 else \
475 { \
477 \
478 tmp[0] = map[ch - 0x2d8]; \
480 cp = tmp; \
481 } \
482 } \
483 else \
484 { \
485 cp = from_ucs4[ch]; \
486 \
488 { \
490 STANDARD_ERR_HANDLER (4); \
491 } \
492 } \
493 \
494 *outptr++ = cp[0]; \
497 { \
498 if (__builtin_expect (outptr >= outend, 0)) \
499 { \
501 --outptr; \
502 result = __GCONV_FULL_OUTPUT; \
503 break; \
504 } \
505 \
506 *outptr++ = cp[1]; \
507 } \
508 \
509 inptr += 4; \
510 }
511 #define LOOP_NEED_FLAGS
512 #include <iconv/loop.c>
515 /* Now define the toplevel functions. */
516 #include <iconv/skeleton.c>