| blob | b800a4f86059f1dffb30d7afd6a001302696408a |
1 /* Generic conversion to and from ISO 6937.
2 Copyright (C) 1997-1999, 2000-2002 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, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19 02111-1307 USA. */
21 #include <dlfcn.h>
22 #include <stdint.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 0x2123 "\x00\x00", "\x00\x00", "\x00\x00", "\xe0\x00", "\x00\x00",
362 ...
363 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00"
364 ...
365 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
366 ...
367 0x266a "\xd5\x00"
369 These would blow up the table and are therefore handled specially in
370 the code.
371 */
372 };
375 /* Definitions used in the body of the `gconv' function. */
377 #define FROM_LOOP from_iso6937
378 #define TO_LOOP to_iso6937
379 #define DEFINE_INIT 1
380 #define DEFINE_FINI 1
381 #define MIN_NEEDED_FROM 1
382 #define MAX_NEEDED_FROM 2
383 #define MIN_NEEDED_TO 4
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 character \
399 int ch2; \
400 \
401 if (__builtin_expect (inptr + 1 >= inend, 0)) \
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 (__builtin_expect (ch == 0, 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 #include <iconv/loop.c>
447 /* Next, define the other direction. */
448 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
449 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
450 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
451 #define LOOPFCT TO_LOOP
452 #define BODY \
453 { \
454 char tmp[2]; \
455 uint32_t ch = get32 (inptr); \
456 const char *cp; \
457 \
458 if (__builtin_expect (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0]), \
459 0)) \
460 { \
461 int fail = 0; \
462 switch (ch) \
463 { \
464 case 0x2c7: \
466 break; \
467 case 0x2d8 ... 0x2db: \
468 case 0x2dd: \
469 { \
471 \
472 tmp[0] = map[ch - 0x2d8]; \
474 cp = tmp; \
475 } \
476 break; \
477 case 0x2014: \
479 break; \
480 case 0x2018: \
482 break; \
483 case 0x2019: \
485 break; \
486 case 0x201c: \
488 break; \
489 case 0x201d: \
491 break; \
492 case 0x2122: \
494 break; \
495 case 0x2126: \
497 break; \
498 case 0x215b ... 0x215e: \
499 tmp[0] = 0xdc + (ch - 0x215b); \
501 cp = tmp; \
502 break; \
503 case 0x2190 ... 0x2193: \
504 tmp[0] = 0xac + (ch - 0x2190); \
506 cp = tmp; \
507 break; \
508 case 0x266a: \
510 break; \
511 default: \
512 UNICODE_TAG_HANDLER (ch, 4); \
513 cp = NULL; \
514 fail = 1; \
515 } \
516 \
517 if (__builtin_expect (fail, 0)) \
518 { \
520 STANDARD_TO_LOOP_ERR_HANDLER (4); \
521 } \
522 } \
524 { \
526 STANDARD_TO_LOOP_ERR_HANDLER (4); \
527 } \
528 else \
529 cp = from_ucs4[ch]; \
530 \
531 *outptr++ = cp[0]; \
534 { \
535 if (__builtin_expect (outptr >= outend, 0)) \
536 { \
538 --outptr; \
539 result = __GCONV_FULL_OUTPUT; \
540 break; \
541 } \
542 *outptr++ = cp[1]; \
543 } \
544 \
545 inptr += 4; \
546 }
547 #define LOOP_NEED_FLAGS
548 #include <iconv/loop.c>
551 /* Now define the toplevel functions. */
552 #include <iconv/skeleton.c>