| blob | 47f2be7d2f0c144c19bdc8e933a6d0d88ee502d3 |
1 /* Generic conversion to and from ISO 6937.
2 Copyright (C) 1997-2020 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 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, see
18 <https://www.gnu.org/licenses/>. */
20 #include <dlfcn.h>
21 #include <stdint.h>
23 /* Data taken from the WG15 tables. */
25 {
58 };
60 /* The outer array range runs from 0xc1 to 0xcf, the inner range from 0x20
61 to 0x7f. */
63 {
64 /* 0xc1 */
65 {
78 },
79 /* 0xc2 */
80 {
93 },
94 /* 0xc3 */
95 {
108 },
109 /* 0xc4 */
110 {
123 },
124 /* 0xc5 */
125 {
138 },
139 /* 0xc6 */
140 {
153 },
154 /* 0xc7 */
155 {
168 },
169 /* 0xc8 */
170 {
183 },
184 /* 0xc9 */
185 {
187 },
188 /* 0xca */
189 {
202 },
203 /* 0xcb */
204 {
217 },
218 /* 0xcc */
219 {
221 },
222 /* 0xcd */
223 {
236 },
237 /* 0xce */
238 {
251 },
252 /* 0xcf */
253 {
266 }
267 };
271 {
349 /*
350 This table does not cover the following positions:
352 0x02c7 "\xcf\x20",
353 ...
354 0x02d8 "\xc6\x20", "\xc7\x20", "\xca\x20", "\xce\x20", "\x00\x00",
355 0x02dd "\xcd\x20",
356 ...
357 0x2014 "\xd0\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xa9\x00",
358 0x2019 "\xb9\x00", "\x00\x00", "\x00\x00", "\xaa\x00", "\xba\x00",
359 0x201e "\x00\x00", "\x00\x00", "\x00\x00", "\x00\x00", "\xd4\x00",
360 0x2123 "\x00\x00", "\x00\x00", "\x00\x00", "\xe0\x00", "\x00\x00",
361 ...
362 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00"
363 ...
364 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
365 ...
366 0x266a "\xd5\x00"
368 These would blow up the table and are therefore handled specially in
369 the code.
370 */
371 };
374 /* Definitions used in the body of the `gconv' function. */
376 #define FROM_LOOP from_iso6937
377 #define TO_LOOP to_iso6937
378 #define DEFINE_INIT 1
379 #define DEFINE_FINI 1
380 #define MIN_NEEDED_FROM 1
381 #define MAX_NEEDED_FROM 2
382 #define MIN_NEEDED_TO 4
383 #define ONE_DIRECTION 0
386 /* First define the conversion function from ISO 6937 to UCS4. */
387 #define MIN_NEEDED_INPUT MIN_NEEDED_FROM
388 #define MAX_NEEDED_INPUT MAX_NEEDED_FROM
389 #define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
390 #define LOOPFCT FROM_LOOP
391 #define BODY \
392 { \
393 uint32_t ch = *inptr; \
394 \
395 if (__builtin_expect (ch >= 0xc1, 0) && ch <= 0xcf) \
396 { \
397 /* Composed character. First test whether the next byte \
399 int ch2; \
400 \
401 if (__glibc_unlikely (inptr + 1 >= inend)) \
402 { \
403 /* The second character is not available. Store the \
405 result = __GCONV_INCOMPLETE_INPUT; \
406 break; \
407 } \
408 \
409 ch2 = inptr[1]; \
410 \
411 if (__builtin_expect (ch2 < 0x20, 0) \
412 || __builtin_expect (ch2 >= 0x80, 0)) \
413 { \
415 STANDARD_FROM_LOOP_ERR_HANDLER (1); \
416 } \
417 \
418 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
419 \
420 if (__glibc_unlikely (ch == 0)) \
421 { \
423 STANDARD_FROM_LOOP_ERR_HANDLER (2); \
424 } \
425 \
426 inptr += 2; \
427 } \
428 else \
429 { \
430 ch = to_ucs4[ch]; \
431 \
433 { \
435 STANDARD_FROM_LOOP_ERR_HANDLER (1); \
436 } \
437 ++inptr; \
438 } \
439 \
440 put32 (outptr, ch); \
441 outptr += 4; \
442 }
443 #define LOOP_NEED_FLAGS
444 #define ONEBYTE_BODY \
445 { \
446 uint32_t ch = to_ucs4[c]; \
448 return WEOF; \
449 return ch; \
450 }
451 #include <iconv/loop.c>
454 /* Next, define the other direction. */
455 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
456 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
457 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
458 #define LOOPFCT TO_LOOP
459 #define BODY \
460 { \
461 char tmp[2]; \
462 uint32_t ch = get32 (inptr); \
463 const char *cp; \
464 \
465 if (__builtin_expect (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0]), \
466 0)) \
467 { \
468 int fail = 0; \
469 switch (ch) \
470 { \
471 case 0x2c7: \
473 break; \
474 case 0x2d8 ... 0x2db: \
475 case 0x2dd: \
476 { \
478 \
479 tmp[0] = map[ch - 0x2d8]; \
481 cp = tmp; \
482 } \
483 break; \
484 case 0x2014: \
486 break; \
487 case 0x2018: \
489 break; \
490 case 0x2019: \
492 break; \
493 case 0x201c: \
495 break; \
496 case 0x201d: \
498 break; \
499 case 0x2122: \
501 break; \
502 case 0x2126: \
504 break; \
505 case 0x215b ... 0x215e: \
506 tmp[0] = 0xdc + (ch - 0x215b); \
508 cp = tmp; \
509 break; \
510 case 0x2190 ... 0x2193: \
511 tmp[0] = 0xac + (ch - 0x2190); \
513 cp = tmp; \
514 break; \
515 case 0x266a: \
517 break; \
518 default: \
519 UNICODE_TAG_HANDLER (ch, 4); \
520 cp = NULL; \
521 fail = 1; \
522 } \
523 \
524 if (__glibc_unlikely (fail)) \
525 { \
527 STANDARD_TO_LOOP_ERR_HANDLER (4); \
528 } \
529 } \
531 { \
533 STANDARD_TO_LOOP_ERR_HANDLER (4); \
534 } \
535 else \
536 cp = from_ucs4[ch]; \
537 \
538 *outptr++ = cp[0]; \
541 { \
542 if (__glibc_unlikely (outptr >= outend)) \
543 { \
545 --outptr; \
546 result = __GCONV_FULL_OUTPUT; \
547 break; \
548 } \
549 *outptr++ = cp[1]; \
550 } \
551 \
552 inptr += 4; \
553 }
554 #define LOOP_NEED_FLAGS
555 #include <iconv/loop.c>
558 /* Now define the toplevel functions. */
559 #include <iconv/skeleton.c>