| blob | 81e5d0c867c8b494b5a111135ca32a997e6beb66 |
1 /* Generic conversion to and from ISO 6937.
2 Copyright (C) 1997, 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>, 1997.
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", "\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
385 /* First define the conversion function from ISO 6937 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 (ch >= 0xc1 && ch <= 0xcf) \
395 { \
396 /* Composed character. First test whether the next character \
398 int ch2; \
399 \
400 if (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 (ch2 < 0x20 || ch2 >= 0x80) \
411 { \
413 result = __GCONV_ILLEGAL_INPUT; \
414 break; \
415 } \
416 \
417 ch = to_ucs4_comb[ch - 0xc1][ch2 - 0x20]; \
418 \
419 if (ch == 0) \
420 { \
422 result = __GCONV_ILLEGAL_INPUT; \
423 break; \
424 } \
425 \
426 inptr += 2; \
427 } \
428 else \
429 { \
430 ch = to_ucs4[ch]; \
431 \
433 { \
435 result = __GCONV_ILLEGAL_INPUT; \
436 break; \
437 } \
438 ++inptr; \
439 } \
440 \
441 put32 (outptr, ch); \
442 outptr += 4; \
443 }
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 (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0])) \
459 { \
460 int fail = 0; \
461 switch (ch) \
462 { \
463 case 0x2c7: \
465 break; \
466 case 0x2d8 ... 0x2dd: \
467 { \
469 \
470 tmp[0] = map[ch - 0x2d8]; \
472 cp = tmp; \
473 } \
474 break; \
475 case 0x2014: \
477 break; \
478 case 0x2018: \
480 break; \
481 case 0x2019: \
483 break; \
484 case 0x201c: \
486 break; \
487 case 0x201d: \
489 break; \
490 case 0x2122: \
492 break; \
493 case 0x2126: \
495 break; \
496 case 0x215b ... 0x215e: \
497 tmp[0] = 0xdc + (ch - 0x215b); \
499 cp = tmp; \
500 break; \
501 case 0x2190 ... 0x2193: \
502 tmp[0] = 0xac + (ch - 0x2190); \
504 cp = tmp; \
505 break; \
506 case 0x266a: \
508 break; \
509 default: \
510 cp = NULL; \
511 fail = 1; \
512 } \
513 \
514 if (fail) \
515 { \
517 result = __GCONV_ILLEGAL_INPUT; \
518 break; \
519 } \
520 } \
522 { \
524 result = __GCONV_ILLEGAL_INPUT; \
525 break; \
526 } \
527 else \
528 cp = from_ucs4[ch]; \
529 \
530 *outptr++ = cp[0]; \
533 { \
534 if (NEED_LENGTH_TEST && outptr >= outend) \
535 { \
537 result = __GCONV_FULL_OUTPUT; \
538 break; \
539 } \
540 *outptr++ = cp[1]; \
541 } \
542 \
543 inptr += 4; \
544 }
545 #include <iconv/loop.c>
548 /* Now define the toplevel functions. */
549 #include <iconv/skeleton.c>