diff options
| -rw-r--r-- | iconvdata/ibm1364.c | 394 |
1 files changed, 394 insertions, 0 deletions
diff --git a/iconvdata/ibm1364.c b/iconvdata/ibm1364.c new file mode 100644 index 0000000000..1d46cf6dfb --- /dev/null +++ b/iconvdata/ibm1364.c @@ -0,0 +1,394 @@ +/* Conversion from and to IBM1364. + Copyright (C) 2005 Free Software Foundation, Inc. + This file is part of the GNU C Library. + Contributed by Masahide Washizawa <washi@jp.ibm.com>, 2005. + + The GNU C Library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + The GNU C Library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with the GNU C Library; if not, write to the Free + Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA + 02111-1307 USA. */ + +#include <dlfcn.h> +#include <stdint.h> +#include <wchar.h> +#include <byteswap.h> + +#ifndef CHARSET_NAME +/* This is really the IBM1364 converter, not another module sharing + the code. */ +# define DATA_HEADER "ibm1364.h" +# define CHARSET_NAME "IBM1364//" +# define FROM_LOOP from_ibm1364 +# define TO_LOOP to_ibm1364 +# define SB_TO_UCS4 __ibm1364sb_to_ucs4 +# define DB_TO_UCS4_IDX __ibm1364db_to_ucs4_idx +# define DB_TO_UCS4 __ibm1364db_to_ucs4 +# define UCS4_TO_SB_IDX __ucs4_to_ibm1364sb_idx +# define UCS4_TO_SB __ucs4_to_ibm1364sb +# define UCS4_TO_DB_IDX __ucs4_to_ibm1364db_idx +# define UCS4_TO_DB __ucs4_to_ibm1364db +# define UCS_LIMIT 0xffff +#endif + + +#include DATA_HEADER + +/* The shift sequences for this charset (it does not use ESC). */ +#define SI 0x0F /* Shift In, host code to turn DBCS off. */ +#define SO 0x0E /* Shift Out, host code to turn DBCS on. */ + +/* Definitions used in the body of the `gconv' function. */ +#define MIN_NEEDED_FROM 1 +#define MAX_NEEDED_FROM 2 +#define MIN_NEEDED_TO 4 +#ifdef HAS_COMBINED +# define MAX_NEEDED_TO 8 +#else +# define MAX_NEEDED_TO 4 +#endif +#define PREPARE_LOOP \ + int save_curcs; \ + int *curcsp = &data->__statep->__count; +#define EXTRA_LOOP_ARGS , curcsp + +/* Definitions of initialization and destructor function. */ +#define DEFINE_INIT 1 +#define DEFINE_FINI 1 + + +/* Since this is a stateful encoding we have to provide code which resets + the output state to the initial state. This has to be done during the + flushing. */ +#define EMIT_SHIFT_TO_INIT \ + if ((data->__statep->__count & ~7) != sb) \ + { \ + if (FROM_DIRECTION) \ + data->__statep->__count &= 7; \ + else \ + { \ + /* We are not in the initial state. To switch back we have \ + to emit `SI'. */ \ + if (__builtin_expect (outbuf >= outend, 0)) \ + /* We don't have enough room in the output buffer. */ \ + status = __GCONV_FULL_OUTPUT; \ + else \ + { \ + /* Write out the shift sequence. */ \ + *outbuf++ = SI; \ + data->__statep->__count &= 7; \ + } \ + } \ + } + + +/* Since we might have to reset input pointer we must be able to save + and retore the state. */ +#define SAVE_RESET_STATE(Save) \ + if (Save) \ + save_curcs = *curcsp; \ + else \ + *curcsp = save_curcs + + +/* Current codeset type. */ +enum +{ + sb = 0, + db = 64 +}; + + +/* Subroutine to write out converted UCS4 from IBM-13XX. */ +#ifdef HAS_COMBINED +# define SUB_COMBINED_UCS_FROM_IBM13XX \ + { \ + if (res != UCS_LIMIT || ch < __TO_UCS4_COMBINED_MIN \ + || ch > __TO_UCS4_COMBINED_MAX) \ + { \ + put32 (outptr, res); \ + outptr += 4; \ + } \ + else \ + { \ + /* This is a combined character. Make sure we have room. */ \ + if (__builtin_expect (outptr + 8 > outend, 0)) \ + { \ + result = __GCONV_FULL_OUTPUT; \ + break; \ + } \ + \ + const struct divide *cmbp \ + = &DB_TO_UCS4_COMB[ch - __TO_UCS4_COMBINED_MIN]; \ + assert (cmbp->res1 != 0 && cmbp->res2 != 0); \ + \ + put32 (outptr, cmbp->res1); \ + outptr += 4; \ + put32 (outptr, cmbp->res2); \ + outptr += 4; \ + } \ + } +#else +# define SUB_COMBINED_UCS_FROM_IBM13XX \ + { \ + put32 (outptr, res); \ + outptr += 4; \ + } +#endif /* HAS_COMBINED */ + + +/* First, define the conversion function from IBM-13XX to UCS4. */ +#define MIN_NEEDED_INPUT MIN_NEEDED_FROM +#define MAX_NEEDED_INPUT MAX_NEEDED_FROM +#define MIN_NEEDED_OUTPUT MIN_NEEDED_TO +#define LOOPFCT FROM_LOOP +#define BODY \ + { \ + uint32_t ch = *inptr; \ + \ + if (__builtin_expect (ch, 0) == SO) \ + { \ + /* Shift OUT, change to DBCS converter. */ \ + if (curcs == db) \ + { \ + result = __GCONV_ILLEGAL_INPUT; \ + break; \ + } \ + curcs = db; \ + ++inptr; \ + continue; \ + } \ + if (__builtin_expect (ch, 0) == SI) \ + { \ + /* Shift IN, change to SBCS converter. */ \ + if (curcs == sb) \ + { \ + result = __GCONV_ILLEGAL_INPUT; \ + break; \ + } \ + curcs = sb; \ + ++inptr; \ + continue; \ + } \ + \ + if (curcs == sb) \ + { \ + /* Use the IBM13XX table for single byte. */ \ + uint32_t res = SB_TO_UCS4[ch]; \ + if (__builtin_expect (res, L'\1') == L'\0' && ch != '\0') \ + { \ + /* This is an illegal character. */ \ + if (! ignore_errors_p ()) \ + { \ + result = __GCONV_ILLEGAL_INPUT; \ + break; \ + } \ + ++*irreversible; \ + } \ + else \ + { \ + put32 (outptr, res); \ + outptr += 4; \ + } \ + ++inptr; \ + } \ + else \ + { \ + assert (curcs == db); \ + \ + if (__builtin_expect (inptr + 1 >= inend, 0)) \ + { \ + /* The second character is not available. Store the \ + intermediate result. */ \ + result = __GCONV_INCOMPLETE_INPUT; \ + break; \ + } \ + \ + ch = (ch * 0x100) + inptr[1]; \ + \ + /* Use the IBM1364 table for double byte. */ \ + const struct gap *rp2 = DB_TO_UCS4_IDX; \ + while (ch > rp2->end) \ + ++rp2; \ + \ + uint32_t res; \ + if (__builtin_expect (ch < rp2->start, 0) \ + || (res = DB_TO_UCS4[ch + rp2->idx], \ + __builtin_expect (res, L'\1') == L'\0' && ch != '\0')) \ + { \ + /* This is an illegal character. */ \ + if (! ignore_errors_p ()) \ + { \ + result = __GCONV_ILLEGAL_INPUT; \ + break; \ + } \ + ++*irreversible; \ + } \ + else \ + { \ + SUB_COMBINED_UCS_FROM_IBM13XX; \ + } \ + inptr += 2; \ + } \ + } +#define LOOP_NEED_FLAGS +#define EXTRA_LOOP_DECLS , int *curcsp +#define INIT_PARAMS int curcs = *curcsp & ~7 +#define UPDATE_PARAMS *curcsp = curcs +#include <iconv/loop.c> + + +/* Subroutine to convert two UCS4 codes to IBM-13XX. */ +#ifdef HAS_COMBINED +# define SUB_COMBINED_UCS_TO_IBM13XX \ + { \ + const struct combine *cmbp = UCS4_COMB_TO_DB; \ + while (cmbp->res1 < ch) \ + ++cmbp; \ + /* XXX if last char is beginning of combining store in state */ \ + if (cmbp->res1 == ch && inptr + 4 < inend) \ + { \ + /* See if input is part of a combined character. */ \ + uint32_t ch_next = get32 (inptr + 4); \ + while (cmbp->res2 != ch_next) \ + { \ + ++cmbp; \ + if (cmbp->res1 != ch) \ + goto not_combined; \ + } \ + \ + /* It is a combined character. First make sure we are in \ + double byte mode. */ \ + if (curcs == sb) \ + { \ + /* We know there is room for at least one byte. */ \ + *outptr++ = SO; \ + curcs = db; \ + } \ + \ + if (__builtin_expect (outptr + 2 > outend, 0)) \ + { \ + result = __GCONV_FULL_OUTPUT; \ + break; \ + } \ + *outptr++ = cmbp->ch[0]; \ + *outptr++ = cmbp->ch[1]; \ + inptr += 8; \ + continue; \ + \ + not_combined:; \ + } \ + } +#else +# define SUB_COMBINED_UCS_TO_IBM13XX +#endif /* HAS_COMBINED */ + + +/* Next, define the other direction. */ +#define MIN_NEEDED_INPUT MIN_NEEDED_TO +#define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM +#define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM +#define LOOPFCT TO_LOOP +#define BODY \ + { \ + uint32_t ch = get32 (inptr); \ + \ + if (__builtin_expect (ch >= UCS_LIMIT, 0)) \ + { \ + UNICODE_TAG_HANDLER (ch, 4); \ + \ + if (! ignore_errors_p ()) \ + { \ + result = __GCONV_ILLEGAL_INPUT; \ + break; \ + } \ + ++*irreversible; \ + inptr += 4; \ + continue; \ + } \ + \ + SUB_COMBINED_UCS_TO_IBM13XX; \ + \ + const struct gap *rp1 = UCS4_TO_SB_IDX; \ + while (ch > rp1->end) \ + ++rp1; \ + \ + /* Use the UCS4 table for single byte. */ \ + const char *cp; \ + if (__builtin_expect (ch < rp1->start, 0) \ + || (cp = UCS4_TO_SB[ch + rp1->idx], \ + __builtin_expect (cp[0], L'\1') == L'\0' && ch != '\0')) \ + { \ + /* Use the UCS4 table for double byte. */ \ + const struct gap *rp2 = UCS4_TO_DB_IDX; \ + while (ch > rp2->end) \ + ++rp2; \ + \ + if (__builtin_expect (ch < rp2->start, 0) \ + || (cp = UCS4_TO_DB[ch + rp2->idx], \ + __builtin_expect (cp[0], L'\1') == L'\0' && ch != '\0')) \ + { \ + /* This is an illegal character. */ \ + if (! ignore_errors_p ()) \ + { \ + result = __GCONV_ILLEGAL_INPUT; \ + break; \ + } \ + ++*irreversible; \ + } \ + else \ + { \ + if (curcs == sb) \ + { \ + /* We know there is room for at least one byte. */ \ + *outptr++ = SO; \ + curcs = db; \ + } \ + \ + if (__builtin_expect (outptr + 2 > outend, 0)) \ + { \ + result = __GCONV_FULL_OUTPUT; \ + break; \ + } \ + *outptr++ = cp[0]; \ + *outptr++ = cp[1]; \ + } \ + } \ + else \ + { \ + if (__builtin_expect (curcs == db, 0)) \ + { \ + /* We know there is room for at least one byte. */ \ + *outptr++ = SI; \ + curcs = sb; \ + \ + if (__builtin_expect (outptr >= outend, 0)) \ + { \ + result = __GCONV_FULL_OUTPUT; \ + break; \ + } \ + } \ + \ + *outptr++ = cp[0]; \ + } \ + \ + /* Now that we wrote the output increment the input pointer. */ \ + inptr += 4; \ + } +#define LOOP_NEED_FLAGS +#define EXTRA_LOOP_DECLS , int *curcsp +#define INIT_PARAMS int curcs = *curcsp & ~7 +#define UPDATE_PARAMS *curcsp = curcs +#include <iconv/loop.c> + +/* Now define the toplevel functions. */ +#include <iconv/skeleton.c> |