[thirdparty/glibc.git] / iconvdata / ibm943.c

/* Conversion from and to IBM943.
   Copyright (C) 2000 Free Software Foundation, Inc.
   This file is part of the GNU C Library.
   Contributed by Masahide Washizawa <washi@jp.ibm.com>, 2000.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public License as
   published by the Free Software Foundation; either version 2 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
   Library General Public License for more details.

   You should have received a copy of the GNU Library General Public
   License along with the GNU C Library; see the file COPYING.LIB.  If not,
   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.  */

#include "ibm943.h"

#ifndef TRUE
#define TRUE  1
#define FALSE 0
#endif

#define FROM	0
#define TO	1 

/* Definitions used in the body of the `gconv' function.  */
#define CHARSET_NAME	"IBM943//"
#define FROM_LOOP	from_ibm943
#define TO_LOOP		to_ibm943

/* Definitions of initialization and destructor function.  */
#define DEFINE_INIT	1
#define DEFINE_FINI	1

#define MIN_NEEDED_FROM	1
#define MAX_NEEDED_FROM	2
#define MIN_NEEDED_TO	4

/* First, define the conversion function from IBM-943 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 \
  {									      \
    const struct gap *rp1 = __ibm943sb_to_ucs4_idx;			      \
    const struct gap *rp2 = __ibm943db_to_ucs4_idx;			      \
    uint32_t ch = *inptr;						      \
    uint32_t res;							      \
									      \
    if (__builtin_expect (ch, 0) >= 0xffff)				      \
      {									      \
	rp1 = NULL;							      \
	rp2 = NULL;							      \
      }									      \
    else if (__builtin_expect (ch, 0) == 0x80				      \
	     || __builtin_expect (ch, 0) == 0xa0			      \
	     || __builtin_expect (ch, 0) == 0xfd			      \
	     || __builtin_expect (ch, 0) == 0xfe			      \
	     || __builtin_expect (ch, 0) == 0xff)			      \
      {									      \
	/* This is an illegal character.  */				      \
	if (! ignore_errors_p ())					      \
	  {								      \
	    result = __GCONV_ILLEGAL_INPUT;				      \
	    break;							      \
	  }								      \
      }									      \
    else								      \
      {									      \
	while (ch > rp1->end)						      \
	  ++rp1;							      \
      }									      \
									      \
    /* Use the IBM943 table for single byte.  */			      \
    if (__builtin_expect (rp1 == NULL, 0)				      \
	|| __builtin_expect (ch < rp1->start, 0)			      \
	|| (res = __ibm943sb_to_ucs4[ch + rp1->idx],			      \
	__builtin_expect (res, '\1') == 0 && ch != 0))			      \
      {									      \
									      \
	/* Use the IBM943 table for double byte.  */			      \
	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];					      \
	while (ch > rp2->end)						      \
	  ++rp2;							      \
									      \
	if (__builtin_expect (rp2 == NULL, 0)				      \
	    || __builtin_expect (ch < rp2->start, 0)			      \
	    || (res = __ibm943db_to_ucs4[ch + rp2->idx],		      \
	    __builtin_expect (res, '\1') == 0 && ch !=0))		      \
	  {								      \
	    /* This is an illegal character.  */			      \
	    if (! ignore_errors_p ())					      \
	      {								      \
		result = __GCONV_ILLEGAL_INPUT;				      \
		break;							      \
	      }								      \
	      ++*irreversible;						      \
	      inptr += 2;						      \
	      continue;							      \
	  }								      \
	else								      \
	  {								      \
	    put32 (outptr, res);					      \
	    outptr += 4;						      \
	    inptr += 2;							      \
	  }								      \
      }									      \
    else								      \
      {									      \
	if (res == 0x1c)						      \
	  res = 0x1a;							      \
	else if (res == 0x7f)						      \
	  res = 0x1c;							      \
	else if (res == 0xa5)						      \
	  res = 0x5c;							      \
	else if (res == 0x203e)						      \
	  res = 0x7e;							      \
	else if (res == 0x1a)						      \
	  res = 0x7f;							      \
	put32 (outptr, res);						      \
	outptr += 4;							      \
	inptr++;							      \
      }									      \
  }
#define LOOP_NEED_FLAGS
#include <iconv/loop.c>

/* 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 \
  {									      \
    const struct gap *rp = __ucs4_to_ibm943sb_idx;			      \
    unsigned char sc;							      \
    uint32_t ch = get32(inptr);						      \
    uint16_t found = TRUE;						      \
    uint32_t i;								      \
    uint32_t low;							      \
    uint32_t high;							      \
    uint16_t pccode;							      \
									      \
    if (__builtin_expect (ch, 0) >= 0xffff)				      \
	rp = NULL;							      \
    else								      \
      while (ch > rp->end)						      \
	++rp;								      \
									      \
    /* Use the UCS4 table for single byte.  */				      \
    if (__builtin_expect (rp == NULL, 0)				      \
	|| __builtin_expect (ch < rp->start, 0)				      \
	|| (sc = __ucs4_to_ibm943sb[ch + rp->idx],			      \
	__builtin_expect (sc, '\1') == '\0' && ch != L'\0'))		      \
      {									      \
									      \
	/* Use the UCS4 table for double byte.  */			      \
	found = FALSE;							      \
	low = 0;							      \
	high = (sizeof (__ucs4_to_ibm943db) >> 1)			      \
		/ sizeof (__ucs4_to_ibm943db[0][FROM]);			      \
	pccode = ch;							      \
	while (low <= high)						      \
	  {								      \
	    i = (low + high) >> 1;					      \
	    if (pccode < __ucs4_to_ibm943db[i][FROM])			      \
	      high = i - 1;						      \
	    else if (pccode > __ucs4_to_ibm943db[i][FROM])		      \
	      low = i + 1;						      \
	    else 							      \
	      {								      \
		pccode = __ucs4_to_ibm943db[i][TO];			      \
		found = TRUE;						      \
		break;							      \
	      }								      \
	  }								      \
	  if (found) 							      \
	    {								      \
	      if (__builtin_expect (outptr + 2 > outend, 0))		      \
		{							      \
		  result = __GCONV_FULL_OUTPUT;				      \
		  break;						      \
		}							      \
	      *outptr++ = pccode >> 8 & 0xff;				      \
	      *outptr++ = pccode & 0xff;				      \
	    }								      \
	  else								      \
	    {								      \
	      /* This is an illegal character.  */			      \
	      if (! ignore_errors_p ())					      \
		{							      \
		  result = __GCONV_ILLEGAL_INPUT;			      \
		  break;						      \
		}							      \
	      ++*irreversible;						      \
	    }								      \
      }									      \
    else								      \
      {									      \
	if (__builtin_expect (outptr + 1 > outend, 0))			      \
	  {								      \
	    result = __GCONV_FULL_OUTPUT;				      \
	    break;							      \
	  }								      \
	if (ch == 0x5c)							      \
	  *outptr++ = 0x5c;						      \
	else if (ch == 0x7e)						      \
	  *outptr++ = 0x7e;						      \
	else								      \
	  *outptr++ = sc;						      \
      }									      \
									      \
      /* Now that we wrote the output increment the input pointer.  */	      \
      inptr += 4;							      \
  }
#define LOOP_NEED_FLAGS
#include <iconv/loop.c>

/* Now define the toplevel functions.  */
#include <iconv/skeleton.c>
Commit	Line	Data
3b7caeac UD	1	/* Conversion from and to IBM943.
	2	Copyright (C) 2000 Free Software Foundation, Inc.
	3	This file is part of the GNU C Library.
	4	Contributed by Masahide Washizawa <washi@jp.ibm.com>, 2000.
	5
	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.
	10
	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.
	15
	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. */
	20
	21	#include "ibm943.h"
	22
	23	#ifndef TRUE
	24	#define TRUE 1
	25	#define FALSE 0
	26	#endif
	27
	28	#define FROM 0
	29	#define TO 1
	30
	31	/* Definitions used in the body of the `gconv' function. */
	32	#define CHARSET_NAME "IBM943//"
	33	#define FROM_LOOP from_ibm943
	34	#define TO_LOOP to_ibm943
	35
	36	/* Definitions of initialization and destructor function. */
	37	#define DEFINE_INIT 1
	38	#define DEFINE_FINI 1
	39
	40	#define MIN_NEEDED_FROM 1
	41	#define MAX_NEEDED_FROM 2
	42	#define MIN_NEEDED_TO 4
	43
	44	/* First, define the conversion function from IBM-943 to UCS4. */
	45	#define MIN_NEEDED_INPUT MIN_NEEDED_FROM
	46	#define MAX_NEEDED_INPUT MAX_NEEDED_FROM
	47	#define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
	48	#define LOOPFCT FROM_LOOP
	49	#define BODY \
	50	{ \
	51	const struct gap *rp1 = __ibm943sb_to_ucs4_idx; \
	52	const struct gap *rp2 = __ibm943db_to_ucs4_idx; \
	53	uint32_t ch = *inptr; \
	54	uint32_t res; \
	55	\
	56	if (__builtin_expect (ch, 0) >= 0xffff) \
	57	{ \
	58	rp1 = NULL; \
	59	rp2 = NULL; \
	60	} \
	61	else if (__builtin_expect (ch, 0) == 0x80 \
	62	\|\| __builtin_expect (ch, 0) == 0xa0 \
	63	\|\| __builtin_expect (ch, 0) == 0xfd \
	64	\|\| __builtin_expect (ch, 0) == 0xfe \
65	\|\| __builtin_expect (ch, 0) == 0xff) \
66	{ \
67	/* This is an illegal character. */ \
68	if (! ignore_errors_p ()) \
69	{ \
70	result = __GCONV_ILLEGAL_INPUT; \
71	break; \
72	} \
73	} \
74	else \
75	{ \
76	while (ch > rp1->end) \
77	++rp1; \
78	} \
79	\
80	/* Use the IBM943 table for single byte. */ \
81	if (__builtin_expect (rp1 == NULL, 0) \
82	\|\| __builtin_expect (ch < rp1->start, 0) \
83	\|\| (res = __ibm943sb_to_ucs4[ch + rp1->idx], \
84	__builtin_expect (res, '\1') == 0 && ch != 0)) \
85	{ \
86	\
87	/* Use the IBM943 table for double byte. */ \
88	if (__builtin_expect (inptr + 1 >= inend, 0)) \
89	{ \
90	/* The second character is not available. \
91	Store the intermediate result. */ \
92	result = __GCONV_INCOMPLETE_INPUT; \
93	break; \
94	} \
95	\
96	ch = (ch * 0x100) + inptr[1]; \
97	while (ch > rp2->end) \
98	++rp2; \
99	\
100	if (__builtin_expect (rp2 == NULL, 0) \
101	\|\| __builtin_expect (ch < rp2->start, 0) \
102	\|\| (res = __ibm943db_to_ucs4[ch + rp2->idx], \
103	__builtin_expect (res, '\1') == 0 && ch !=0)) \
104	{ \
105	/* This is an illegal character. */ \
106	if (! ignore_errors_p ()) \
107	{ \
108	result = __GCONV_ILLEGAL_INPUT; \
109	break; \
110	} \
111	++*irreversible; \
112	inptr += 2; \
113	continue; \
114	} \
115	else \
116	{ \
117	put32 (outptr, res); \
118	outptr += 4; \
119	inptr += 2; \
120	} \
121	} \
122	else \
123	{ \
124	if (res == 0x1c) \
125	res = 0x1a; \
126	else if (res == 0x7f) \
127	res = 0x1c; \
128	else if (res == 0xa5) \
129	res = 0x5c; \
130	else if (res == 0x203e) \
131	res = 0x7e; \
132	else if (res == 0x1a) \
133	res = 0x7f; \
134	put32 (outptr, res); \
135	outptr += 4; \
136	inptr++; \
137	} \
138	}
139	#define LOOP_NEED_FLAGS
140	#include <iconv/loop.c>
141
142	/* Next, define the other direction. */
143	#define MIN_NEEDED_INPUT MIN_NEEDED_TO
144	#define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
145	#define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
146	#define LOOPFCT TO_LOOP
147	#define BODY \
148	{ \
149	const struct gap *rp = __ucs4_to_ibm943sb_idx; \
150	unsigned char sc; \
151	uint32_t ch = get32(inptr); \
152	uint16_t found = TRUE; \
153	uint32_t i; \
154	uint32_t low; \
155	uint32_t high; \
156	uint16_t pccode; \
157	\
158	if (__builtin_expect (ch, 0) >= 0xffff) \
159	rp = NULL; \
160	else \
161	while (ch > rp->end) \
162	++rp; \
163	\
164	/* Use the UCS4 table for single byte. */ \
165	if (__builtin_expect (rp == NULL, 0) \
166	\|\| __builtin_expect (ch < rp->start, 0) \
167	\|\| (sc = __ucs4_to_ibm943sb[ch + rp->idx], \
168	__builtin_expect (sc, '\1') == '\0' && ch != L'\0')) \
169	{ \
170	\
171	/* Use the UCS4 table for double byte. */ \
172	found = FALSE; \
173	low = 0; \
174	high = (sizeof (__ucs4_to_ibm943db) >> 1) \
175	/ sizeof (__ucs4_to_ibm943db[0][FROM]); \
176	pccode = ch; \
177	while (low <= high) \
178	{ \
179	i = (low + high) >> 1; \
180	if (pccode < __ucs4_to_ibm943db[i][FROM]) \
181	high = i - 1; \
182	else if (pccode > __ucs4_to_ibm943db[i][FROM]) \
183	low = i + 1; \
184	else \
185	{ \
186	pccode = __ucs4_to_ibm943db[i][TO]; \
187	found = TRUE; \
188	break; \
189	} \
190	} \
191	if (found) \
192	{ \
193	if (__builtin_expect (outptr + 2 > outend, 0)) \
194	{ \
195	result = __GCONV_FULL_OUTPUT; \
196	break; \
197	} \
198	*outptr++ = pccode >> 8 & 0xff; \
199	*outptr++ = pccode & 0xff; \
200	} \
201	else \
202	{ \
203	/* This is an illegal character. */ \
204	if (! ignore_errors_p ()) \
205	{ \
206	result = __GCONV_ILLEGAL_INPUT; \
207	break; \
208	} \
209	++*irreversible; \
210	} \
211	} \
212	else \
213	{ \
214	if (__builtin_expect (outptr + 1 > outend, 0)) \
215	{ \
216	result = __GCONV_FULL_OUTPUT; \
217	break; \
218	} \
219	if (ch == 0x5c) \
220	*outptr++ = 0x5c; \
221	else if (ch == 0x7e) \
222	*outptr++ = 0x7e; \
223	else \
224	*outptr++ = sc; \
225	} \
226	\
227	/* Now that we wrote the output increment the input pointer. */ \
228	inptr += 4; \
229	}
230	#define LOOP_NEED_FLAGS
231	#include <iconv/loop.c>
232
233	/* Now define the toplevel functions. */
234	#include <iconv/skeleton.c>