| blob | 3dbff5dc1934d6ebefe4612c1a37d73595abb37b |
1 /* Generic conversion to and from ISO 6937-2.
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 <stdint.h>
22 /* Data taken from the WG15 tables. */
24 {
57 };
59 /* The outer array range runs from 0xc1 to 0xcf, the inner range from 0x20
60 to 0x7f. */
62 {
63 /* 0xc1 */
64 {
77 },
78 /* 0xc2 */
79 {
92 },
93 /* 0xc3 */
94 {
107 },
108 /* 0xc4 */
109 {
122 },
123 /* 0xc5 */
124 {
137 },
138 /* 0xc6 */
139 {
152 },
153 /* 0xc7 */
154 {
167 },
168 /* 0xc8 */
169 {
182 },
183 /* 0xc9 */
184 {
186 },
187 /* 0xca */
188 {
201 },
202 /* 0xcb */
203 {
216 },
217 /* 0xcc */
218 {
220 },
221 /* 0xcd */
222 {
235 },
236 /* 0xce */
237 {
250 },
251 /* 0xcf */
252 {
265 }
266 };
270 {
348 /*
349 This table does not cover the following positions:
351 0x02c7 "\xcf\x20",
352 ...
353 0x02d8 "\xc6\x20", "\xc7\x20", "\xca\x20", "\xce\x20", "\x00\x00",
354 0x02dd "\xcd\x20",
355 ...
356 0x2014 "\xd0\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xa9\x00",
357 0x2019 "\xb9\x00", "\x00\x00", "\x00\x00", "\xaa\x00", "\xba\x00",
358 0x201e "\x00\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xd4\x00",
359 0x2123 "\x00\x00", "\x00\x00", "\x00\x00", "\xe0\x00",
360 ...
361 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00"
362 ...
363 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
364 ...
365 0x266a "\xd5\x00"
367 These would blow up the table and are therefore handled specially in
368 the code.
369 */
370 };
373 /* Definitions used in the body of the `gconv' function. */
375 #define FROM_LOOP from_iso6937_2
376 #define TO_LOOP to_iso6937_2
377 #define DEFINE_INIT 1
378 #define DEFINE_FINI 1
379 #define MIN_NEEDED_FROM 1
380 #define MAX_NEEDED_FROM 2
381 #define MIN_NEEDED_TO 4
382 #define ONE_DIRECTION 0
385 /* First define the conversion function from ISO 6937-2 to UCS4. */
386 #define MIN_NEEDED_INPUT MIN_NEEDED_FROM
387 #define MAX_NEEDED_INPUT MAX_NEEDED_FROM
388 #define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
389 #define LOOPFCT FROM_LOOP
390 #define BODY \
391 { \
392 uint32_t ch = *inptr; \
393 \
394 if (__builtin_expect (ch >= 0xc1, 0) && ch <= 0xcf) \
395 { \
396 /* Composed character. First test whether the next byte \
398 int ch2; \
399 \
400 if (__glibc_unlikely (inptr + 1 >= inend)) \
401 { \
402 /* The second character is not available. Store the \
404 result = __GCONV_INCOMPLETE_INPUT; \
405 break; \
406 } \
407 \
408 ch2 = inptr[1]; \
409 \
410 if (__builtin_expect (ch2 < 0x20, 0) \
411 || __builtin_expect (ch2 >= 0x80, 0)) \
412 { \
414 STANDARD_FROM_LOOP_ERR_HANDLER (1); \
415 } \
416 \
417 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
418 \
419 if (__glibc_unlikely (ch == 0)) \
420 { \
422 STANDARD_FROM_LOOP_ERR_HANDLER (2); \
423 } \
424 \
425 inptr += 2; \
426 } \
427 else \
428 { \
429 ch = to_ucs4[ch]; \
430 \
432 { \
434 STANDARD_FROM_LOOP_ERR_HANDLER (1); \
435 } \
436 ++inptr; \
437 } \
438 \
439 put32 (outptr, ch); \
440 outptr += 4; \
441 }
442 #define LOOP_NEED_FLAGS
443 #define ONEBYTE_BODY \
444 { \
445 uint32_t ch = to_ucs4[c]; \
447 return WEOF; \
448 return ch; \
449 }
450 #include <iconv/loop.c>
453 /* Next, define the other direction. */
454 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
455 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
456 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
457 #define LOOPFCT TO_LOOP
458 #define BODY \
459 { \
460 char tmp[2]; \
461 uint32_t ch = get32 (inptr); \
462 const char *cp; \
463 \
464 if (__builtin_expect (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0]), \
465 0)) \
466 { \
467 switch (ch) \
468 { \
469 case 0x2c7: \
471 break; \
472 case 0x2d8 ... 0x2db: \
473 case 0x2dd: \
474 { \
476 \
477 tmp[0] = map[ch - 0x2d8]; \
479 cp = tmp; \
480 } \
481 break; \
482 case 0x2014: \
484 break; \
485 case 0x2018: \
487 break; \
488 case 0x2019: \
490 break; \
491 case 0x201c: \
493 break; \
494 case 0x201d: \
496 break; \
497 case 0x2122: \
499 break; \
500 case 0x2126: \
502 break; \
503 case 0x215b ... 0x215e: \
504 tmp[0] = 0xdc + (ch - 0x215b); \
506 cp = tmp; \
507 break; \
508 case 0x2190 ... 0x2193: \
509 tmp[0] = 0xac + (ch - 0x2190); \
511 cp = tmp; \
512 break; \
513 case 0x266a: \
515 break; \
516 default: \
517 UNICODE_TAG_HANDLER (ch, 4); \
519 cp = NULL; \
520 break; \
521 } \
522 if (cp == NULL) \
523 { \
524 STANDARD_TO_LOOP_ERR_HANDLER (4); \
525 } \
526 } \
528 { \
530 STANDARD_TO_LOOP_ERR_HANDLER (4); \
531 } \
532 else \
533 cp = from_ucs4[ch]; \
534 \
535 *outptr++ = cp[0]; \
538 { \
539 if (__glibc_unlikely (outptr >= outend)) \
540 { \
542 --outptr; \
543 result = __GCONV_FULL_OUTPUT; \
544 break; \
545 } \
546 *outptr++ = cp[1]; \
547 } \
548 \
549 inptr += 4; \
550 }
551 #define LOOP_NEED_FLAGS
552 #include <iconv/loop.c>
555 /* Now define the toplevel functions. */
556 #include <iconv/skeleton.c>