| blob | a688b7c69559e556afecf7393b7794ba16f201e7 |
1 /* Generic conversion to and from ISO 6937-2.
2 Copyright (C) 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>, 1998.
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 <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",
361 ...
362 0x215b "\xdc\x00", "\xdd\x00", "\xde\x00"
363 ...
364 0x2190 "\xac\x00", "\xad\x00", "\xae\x00", "\xaf\x00",
365 ...
366 0x2500 "\xd6\x00", "\x00\x00", "\xd7\x00",
367 ...
368 0x253c "\xe5\x00",
369 ...
370 0x2571 "\xd8\x00", "\xd9\x00",
371 ...
372 0x25e2 "\xda\x00", "\xdb\x00",
373 ...
374 0x266a "\xd5\x00"
376 These would blow up the table and are therefore handled specially in
377 the code.
378 */
379 };
382 /* Definitions used in the body of the `gconv' function. */
384 #define FROM_LOOP from_iso6937_2
385 #define TO_LOOP to_iso6937_2
386 #define DEFINE_INIT 1
387 #define DEFINE_FINI 1
388 #define MIN_NEEDED_FROM 1
389 #define MAX_NEEDED_FROM 2
390 #define MIN_NEEDED_TO 4
393 /* First define the conversion function from ISO 6937-2 to UCS4. */
394 #define MIN_NEEDED_INPUT MIN_NEEDED_FROM
395 #define MAX_NEEDED_INPUT MAX_NEEDED_FROM
396 #define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
397 #define LOOPFCT FROM_LOOP
398 #define BODY \
399 { \
400 uint32_t ch = *inptr; \
401 \
402 if (ch >= 0xc1 && ch <= 0xcf) \
403 { \
404 /* Composed character. First test whether the next character \
406 int ch2; \
407 \
408 if (inptr + 1 >= inend) \
409 { \
410 /* The second character is not available. Store the \
412 result = __GCONV_INCOMPLETE_INPUT; \
413 break; \
414 } \
415 \
416 ch2 = inptr[1]; \
417 \
418 if (ch2 < 0x20 || ch2 >= 0x80) \
419 { \
421 result = __GCONV_ILLEGAL_INPUT; \
422 break; \
423 } \
424 \
425 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
426 \
427 if (ch == 0) \
428 { \
430 result = __GCONV_ILLEGAL_INPUT; \
431 break; \
432 } \
433 \
434 inptr += 2; \
435 } \
436 else \
437 { \
438 ch = to_ucs4[ch]; \
439 \
441 { \
443 result = __GCONV_ILLEGAL_INPUT; \
444 break; \
445 } \
446 ++inptr; \
447 } \
448 \
449 put32 (outptr, ch); \
450 outptr += 4; \
451 }
452 #include <iconv/loop.c>
455 /* Next, define the other direction. */
456 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
457 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
458 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
459 #define LOOPFCT TO_LOOP
460 #define BODY \
461 { \
462 char tmp[2]; \
463 uint32_t ch = get32 (inptr); \
464 const char *cp; \
465 \
466 if (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0])) \
467 { \
468 int fail = 0; \
469 switch (ch) \
470 { \
471 case 0x2c7: \
473 break; \
474 case 0x2d8 ... 0x2dd: \
475 { \
477 \
478 tmp[0] = map[ch - 0x2d8]; \
480 cp = tmp; \
481 } \
482 break; \
483 case 0x2014: \
485 break; \
486 case 0x2018: \
488 break; \
489 case 0x2019: \
491 break; \
492 case 0x201c: \
494 break; \
495 case 0x201d: \
497 break; \
498 case 0x2122: \
500 break; \
501 case 0x2126: \
503 break; \
504 case 0x215b ... 0x215e: \
505 tmp[0] = 0xdc + (ch - 0x215b); \
507 cp = tmp; \
508 break; \
509 case 0x2190 ... 0x2193: \
510 tmp[0] = 0xac + (ch - 0x2190); \
512 cp = tmp; \
513 break; \
514 case 0x2500: \
516 break; \
517 case 0x2502: \
519 break; \
520 case 0x253c: \
522 break; \
523 case 0x2571: \
525 break; \
526 case 0x2572: \
528 break; \
529 case 0x25e2: \
531 break; \
532 case 0x25e3: \
534 break; \
535 case 0x266a: \
537 break; \
538 default: \
539 cp = NULL; \
540 fail = 1; \
541 } \
542 \
543 if (fail) \
544 { \
546 result = __GCONV_ILLEGAL_INPUT; \
547 break; \
548 } \
549 } \
551 { \
553 result = __GCONV_ILLEGAL_INPUT; \
554 break; \
555 } \
556 else \
557 cp = from_ucs4[ch]; \
558 \
559 *outptr++ = cp[0]; \
562 { \
563 if (NEED_LENGTH_TEST && outptr >= outend) \
564 { \
566 result = __GCONV_FULL_OUTPUT; \
567 break; \
568 } \
569 *outptr++ = cp[1]; \
570 } \
571 \
572 inptr += 4; \
573 }
574 #include <iconv/loop.c>
577 /* Now define the toplevel functions. */
578 #include <iconv/skeleton.c>