| blob | 45cd08fa697a041dece7415979476f02c7988937 |
1 /* Generic conversion to and from ANSI_X3.110-1983.
2 Copyright (C) 1998-2023 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
19 #include <dlfcn.h>
20 #include <gconv.h>
21 #include <stdint.h>
22 #include <string.h>
24 /* Data taken from the WG15 tables. */
26 {
59 };
61 /* The outer array range runs from 0xc1 to 0xcf, the inner range from 0x20
62 to 0x7f. */
64 {
65 /* 0xc1 */
66 {
79 },
80 /* 0xc2 */
81 {
94 },
95 /* 0xc3 */
96 {
109 },
110 /* 0xc4 */
111 {
124 },
125 /* 0xc5 */
126 {
139 },
140 /* 0xc6 */
141 {
154 },
155 /* 0xc7 */
156 {
169 },
170 /* 0xc8 */
171 {
184 },
185 /* 0xc9 */
186 {
188 },
189 /* 0xca */
190 {
203 },
204 /* 0xcb */
205 {
218 },
219 /* 0xcc */
220 {
222 },
223 /* 0xcd */
224 {
237 },
238 /* 0xce */
239 {
252 },
253 /* 0xcf */
254 {
267 }
268 };
272 {
350 /*
351 This table does not cover the following positions:
353 0x02c7 "\xcf\x20",
354 ...
355 0x02d8 "\xc6\x20", "\xc7\x20", "\xca\x20", "\xce\x20", "\x00\x00",
356 0x02dd "\xcd\x20",
357 ...
358 0x2014 "\xd0\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xa9\x00",
359 0x2019 "\xb9\x00", "\x00\x00", "\x00\x00", "\xaa\x00", "\xba\x00",
360 0x201e "\x00\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xd4\x00",
361 0x2023 "\x00\x00", "\x00\x00", "\x00\x00", "\xe0\x00",
362 ...
363 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00", "\xdf\x00",
364 ...
365 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
366 ...
367 0x2500 "\xd6\x00", "\x00\x00", "\xd7\x00",
368 ...
369 0x253c "\xe5\x00",
370 ...
371 0x2571 "\xd8\x00", "\xd9\x00",
372 ...
373 0x25e2 "\xda\x00", "\xdb\x00",
374 ...
375 0x266a "\xd5\x00",
377 These would blow up the table and are therefore handled specially in
378 the code.
379 */
380 };
383 /* Definitions used in the body of the `gconv' function. */
385 #define FROM_LOOP from_ansi_x3_110
386 #define TO_LOOP to_ansi_x3_110
387 #define DEFINE_INIT 1
388 #define DEFINE_FINI 1
389 #define MIN_NEEDED_FROM 1
390 #define MAX_NEEDED_FROM 2
391 #define MIN_NEEDED_TO 4
392 #define ONE_DIRECTION 0
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 >= 0xc1, 0) && ch <= 0xcf) \
405 { \
406 /* Composed character. First test whether the next byte \
408 uint32_t ch2; \
409 \
410 if (inptr + 1 >= inend) \
411 { \
413 result = __GCONV_INCOMPLETE_INPUT; \
414 break; \
415 } \
416 \
417 ch2 = inptr[1]; \
418 \
419 if (__builtin_expect (ch2 < 0x20, 0) \
420 || __builtin_expect (ch2 >= 0x80, 0)) \
421 { \
423 STANDARD_FROM_LOOP_ERR_HANDLER (1); \
424 } \
425 else \
426 { \
427 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
428 incr = 2; \
429 } \
430 } \
431 else \
432 { \
433 ch = to_ucs4[ch]; \
434 incr = 1; \
435 } \
436 \
438 { \
440 STANDARD_FROM_LOOP_ERR_HANDLER (incr); \
441 } \
442 else \
443 { \
444 put32 (outptr, ch); \
445 outptr += 4; \
446 } \
447 \
448 inptr += incr; \
449 }
450 #define LOOP_NEED_FLAGS
451 #define ONEBYTE_BODY \
452 { \
453 uint32_t ch = to_ucs4[c]; \
454 \
456 return WEOF; \
457 else \
458 return ch; \
459 }
460 #include <iconv/loop.c>
463 /* Next, define the other direction. */
464 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
465 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
466 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
467 #define LOOPFCT TO_LOOP
468 #define BODY \
469 { \
470 char tmp[2]; \
471 uint32_t ch = get32 (inptr); \
472 const char *cp; \
473 \
474 if (__builtin_expect (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0]), \
475 0)) \
476 { \
477 if (ch == 0x2c7) \
479 else if (ch >= 0x2d8 && ch <= 0x2dd && ch != 0x2dc) \
480 { \
482 \
483 tmp[0] = map[ch - 0x2d8]; \
485 cp = tmp; \
486 } \
487 else if (ch >= 0x2014 && ch <= 0x201d) \
488 { \
489 static const char map[10] = \
491 \
492 tmp[0] = map[ch - 0x2014]; \
494 { \
496 STANDARD_TO_LOOP_ERR_HANDLER (4); \
497 } \
499 cp = tmp; \
500 } \
501 else if (ch >= 0x2122 && ch <= 0x2126) \
502 { \
503 static const char map[5] = \
505 \
506 tmp[0] = map[ch - 0x2122]; \
508 { \
510 STANDARD_TO_LOOP_ERR_HANDLER (4); \
511 } \
513 cp = tmp; \
514 } \
515 else if (ch >= 0x215b && ch <= 0x215e) \
516 { \
517 tmp[0] = 0xdc + ch - 0x215b; \
519 cp = tmp; \
520 } \
521 else if (ch >= 0x2190 && ch <= 0x2193) \
522 { \
523 tmp[0] = 0xac + ch - 0x2190; \
525 cp = tmp; \
526 } \
527 else if (ch == 0x2500) \
529 else if (ch == 0x2502) \
531 else if (ch == 0x253c) \
533 else if (ch >= 0x2571 && ch <= 0x2572) \
534 { \
535 tmp[0] = 0xd8 + ch - 0x2571; \
537 cp = tmp; \
538 } \
539 else if (ch >= 0x25e2 && ch <= 0x25e3) \
540 { \
541 tmp[0] = 0xda + ch - 0x25e2; \
543 cp = tmp; \
544 } \
545 else if (__builtin_expect (ch, 0x266a) == 0x266a) \
547 else \
548 { \
549 UNICODE_TAG_HANDLER (ch, 4); \
550 \
552 STANDARD_TO_LOOP_ERR_HANDLER (4); \
553 } \
554 } \
555 else \
556 { \
557 cp = from_ucs4[ch]; \
558 \
560 { \
562 STANDARD_TO_LOOP_ERR_HANDLER (4); \
563 } \
564 } \
565 \
566 *outptr++ = cp[0]; \
569 { \
570 if (__glibc_unlikely (outptr >= outend)) \
571 { \
573 --outptr; \
574 result = __GCONV_FULL_OUTPUT; \
575 break; \
576 } \
577 \
578 *outptr++ = cp[1]; \
579 } \
580 \
581 inptr += 4; \
582 }
583 #define LOOP_NEED_FLAGS
584 #include <iconv/loop.c>
587 /* Now define the toplevel functions. */
588 #include <iconv/skeleton.c>