| blob | 5e9f25f99551b571e003547f7f384060dc1bec51 |
1 /* Generic conversion to and from ISO 6937.
2 Copyright (C) 1997, 1998 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 *((uint32_t *) outptr)++ = ch; \
442 }
443 #include <iconv/loop.c>
446 /* Next, define the other direction. */
447 #define MIN_NEEDED_INPUT MIN_NEEDED_TO
448 #define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
449 #define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
450 #define LOOPFCT TO_LOOP
451 #define BODY \
452 { \
453 char tmp[2]; \
454 uint32_t ch = *((uint32_t *) inptr); \
455 const char *cp; \
456 \
457 if (ch >= sizeof (from_ucs4) / sizeof (from_ucs4[0])) \
458 { \
459 int fail = 0; \
460 switch (ch) \
461 { \
462 case 0x2c7: \
464 break; \
465 case 0x2d8 ... 0x2dd: \
466 { \
468 \
469 tmp[0] = map[ch - 0x2d8]; \
471 cp = tmp; \
472 } \
473 break; \
474 case 0x2014: \
476 break; \
477 case 0x2018: \
479 break; \
480 case 0x2019: \
482 break; \
483 case 0x201c: \
485 break; \
486 case 0x201d: \
488 break; \
489 case 0x2122: \
491 break; \
492 case 0x2126: \
494 break; \
495 case 0x215b ... 0x215e: \
496 tmp[0] = 0xdc + (ch - 0x215b); \
498 cp = tmp; \
499 break; \
500 case 0x2190 ... 0x2193: \
501 tmp[0] = 0xac + (ch - 0x2190); \
503 cp = tmp; \
504 break; \
505 case 0x266a: \
507 break; \
508 default: \
509 cp = NULL; \
510 fail = 1; \
511 } \
512 \
513 if (fail) \
514 { \
516 result = GCONV_ILLEGAL_INPUT; \
517 break; \
518 } \
519 } \
521 { \
523 result = GCONV_ILLEGAL_INPUT; \
524 break; \
525 } \
526 else \
527 cp = from_ucs4[ch]; \
528 \
529 *outptr++ = cp[0]; \
532 { \
533 if (NEED_LENGTH_TEST && outptr >= outend) \
534 { \
536 result = GCONV_FULL_OUTPUT; \
537 break; \
538 } \
539 *outptr++ = cp[1]; \
540 } \
541 \
542 inptr += 4; \
543 }
544 #include <iconv/loop.c>
547 /* Now define the toplevel functions. */
548 #include <iconv/skeleton.c>