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

/* Conversion from and to IBM943.
   Copyright (C) 2000-2002, 2004 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 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 <stdbool.h>
#include "ibm943.h"

#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 *rp2 = __ibm943db_to_ucs4_idx;			      \
    uint32_t ch = *inptr;						      \
    uint32_t res;							      \
									      \
    if (__builtin_expect (ch == 0x80, 0)				      \
	|| __builtin_expect (ch == 0xa0, 0)				      \
	|| __builtin_expect (ch == 0xfd, 0)				      \
	|| __builtin_expect (ch == 0xfe, 0)				      \
	|| __builtin_expect (ch == 0xff, 0))				      \
      {									      \
	/* This is an illegal character.  */				      \
	STANDARD_FROM_LOOP_ERR_HANDLER (1);				      \
      }									      \
									      \
    /* Use the IBM943 table for single byte.  */			      \
    if (__builtin_expect (ch > 0xdf, 0)					      \
	|| (res = __ibm943sb_to_ucs4[ch],				      \
	    __builtin_expect (res == 0, 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.  */			      \
	    STANDARD_FROM_LOOP_ERR_HANDLER (2);				      \
	  }								      \
	else								      \
	  {								      \
	    put32 (outptr, res);					      \
	    outptr += 4;						      \
	    inptr += 2;							      \
	  }								      \
      }									      \
    else								      \
      {									      \
	if (res == 0xa5)						      \
	  res = 0x5c;							      \
	else if (res == 0x203e)						      \
	  res = 0x7e;							      \
	put32 (outptr, res);						      \
	outptr += 4;							      \
	inptr++;							      \
      }									      \
  }
#define LOOP_NEED_FLAGS
#define ONEBYTE_BODY \
  {									      \
    if (c == 0x80 || c == 0xa0 || c >= 0xe0)				      \
      return WEOF;							      \
    uint32_t res = __ibm943sb_to_ucs4[c];				      \
    if (res == 0 && c != 0)						      \
      return WEOF;							      \
    if (res == 0xa5)						              \
      res = 0x5c;							      \
    else if (res == 0x203e)						      \
      res = 0x7e;							      \
    return res;								      \
  }
#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);						      \
    bool found = true;							      \
    uint32_t i;								      \
    uint32_t low;							      \
    uint32_t high;							      \
    uint16_t pccode;							      \
									      \
    if (__builtin_expect (ch >= 0xffff, 0))				      \
      {									      \
	UNICODE_TAG_HANDLER (ch, 4);					      \
	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;							      \
	if (__builtin_expect (rp != NULL, 1))				      \
	  while (low < high)						      \
	    {								      \
	      i = (low + high) >> 1;					      \
	      if (pccode < __ucs4_to_ibm943db[i][FROM])			      \
		high = i;						      \
	      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.  */			      \
	    STANDARD_TO_LOOP_ERR_HANDLER (4);				      \
	  }								      \
      }									      \
    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	1	/* Conversion from and to IBM943.
5d32be9a	2	Copyright (C) 2000-2002, 2004 Free Software Foundation, Inc.
3b7caeac UD	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
41bdb6e2 AJ	7	modify it under the terms of the GNU Lesser General Public
	8	License as published by the Free Software Foundation; either
	9	version 2.1 of the License, or (at your option) any later version.
3b7caeac UD	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
41bdb6e2	14	Lesser General Public License for more details.
3b7caeac	15
41bdb6e2 AJ	16	You should have received a copy of the GNU Lesser General Public
	17	License along with the GNU C Library; if not, write to the Free
	18	Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
	19	02111-1307 USA. */
3b7caeac	20
e438a468 UD	21	#include <dlfcn.h>
e438a468 UD	22	#include <stdint.h>
f9ad060c	23	#include <stdbool.h>
3b7caeac UD	24	#include "ibm943.h"
3b7caeac UD	25
3b7caeac	26	#define FROM 0
db2d05f9	27	#define TO 1
3b7caeac UD	28
	29	/* Definitions used in the body of the `gconv' function. */
	30	#define CHARSET_NAME "IBM943//"
	31	#define FROM_LOOP from_ibm943
	32	#define TO_LOOP to_ibm943
	33
	34	/* Definitions of initialization and destructor function. */
	35	#define DEFINE_INIT 1
	36	#define DEFINE_FINI 1
	37
	38	#define MIN_NEEDED_FROM 1
	39	#define MAX_NEEDED_FROM 2
	40	#define MIN_NEEDED_TO 4
	41
	42	/* First, define the conversion function from IBM-943 to UCS4. */
	43	#define MIN_NEEDED_INPUT MIN_NEEDED_FROM
	44	#define MAX_NEEDED_INPUT MAX_NEEDED_FROM
	45	#define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
	46	#define LOOPFCT FROM_LOOP
	47	#define BODY \
	48	{ \
3b7caeac UD	49	const struct gap *rp2 = __ibm943db_to_ucs4_idx; \
	50	uint32_t ch = *inptr; \
	51	uint32_t res; \
	52	\
f9ad060c UD	53	if (__builtin_expect (ch == 0x80, 0) \
	54	\|\| __builtin_expect (ch == 0xa0, 0) \
	55	\|\| __builtin_expect (ch == 0xfd, 0) \
	56	\|\| __builtin_expect (ch == 0xfe, 0) \
	57	\|\| __builtin_expect (ch == 0xff, 0)) \
3b7caeac UD	58	{ \
3b7caeac UD	59	/* This is an illegal character. */ \
e438a468	60	STANDARD_FROM_LOOP_ERR_HANDLER (1); \
3b7caeac UD	61	} \
	62	\
	63	/* Use the IBM943 table for single byte. */ \
f9ad060c UD	64	if (__builtin_expect (ch > 0xdf, 0) \
	65	\|\| (res = __ibm943sb_to_ucs4[ch], \
	66	__builtin_expect (res == 0, 0) && ch != 0)) \
3b7caeac	67	{ \
3b7caeac UD	68	/* Use the IBM943 table for double byte. */ \
	69	if (__builtin_expect (inptr + 1 >= inend, 0)) \
	70	{ \
	71	/* The second character is not available. \
	72	Store the intermediate result. */ \
	73	result = __GCONV_INCOMPLETE_INPUT; \
	74	break; \
	75	} \
	76	\
	77	ch = (ch * 0x100) + inptr[1]; \
	78	while (ch > rp2->end) \
	79	++rp2; \
	80	\
	81	if (__builtin_expect (rp2 == NULL, 0) \
	82	\|\| __builtin_expect (ch < rp2->start, 0) \
	83	\|\| (res = __ibm943db_to_ucs4[ch + rp2->idx], \
	84	__builtin_expect (res, '\1') == 0 && ch !=0)) \
	85	{ \
	86	/* This is an illegal character. */ \
e438a468	87	STANDARD_FROM_LOOP_ERR_HANDLER (2); \
3b7caeac UD	88	} \
	89	else \
	90	{ \
	91	put32 (outptr, res); \
	92	outptr += 4; \
	93	inptr += 2; \
	94	} \
	95	} \
	96	else \
	97	{ \
15627a21	98	if (res == 0xa5) \
3b7caeac UD	99	res = 0x5c; \
	100	else if (res == 0x203e) \
	101	res = 0x7e; \
3b7caeac UD	102	put32 (outptr, res); \
	103	outptr += 4; \
	104	inptr++; \
	105	} \
	106	}
	107	#define LOOP_NEED_FLAGS
f9ad060c UD	108	#define ONEBYTE_BODY \
	109	{ \
	110	if (c == 0x80 \|\| c == 0xa0 \|\| c >= 0xe0) \
	111	return WEOF; \
	112	uint32_t res = __ibm943sb_to_ucs4[c]; \
	113	if (res == 0 && c != 0) \
	114	return WEOF; \
15627a21	115	if (res == 0xa5) \
f9ad060c UD	116	res = 0x5c; \
	117	else if (res == 0x203e) \
	118	res = 0x7e; \
f9ad060c UD	119	return res; \
f9ad060c UD	120	}
3b7caeac UD	121	#include <iconv/loop.c>
	122
	123	/* Next, define the other direction. */
	124	#define MIN_NEEDED_INPUT MIN_NEEDED_TO
	125	#define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
	126	#define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
	127	#define LOOPFCT TO_LOOP
	128	#define BODY \
	129	{ \
	130	const struct gap *rp = __ucs4_to_ibm943sb_idx; \
	131	unsigned char sc; \
	132	uint32_t ch = get32(inptr); \
f9ad060c	133	bool found = true; \
3b7caeac UD	134	uint32_t i; \
	135	uint32_t low; \
	136	uint32_t high; \
	137	uint16_t pccode; \
	138	\
db2d05f9	139	if (__builtin_expect (ch >= 0xffff, 0)) \
601d2942 UD	140	{ \
601d2942 UD	141	UNICODE_TAG_HANDLER (ch, 4); \
3b7caeac	142	rp = NULL; \
601d2942	143	} \
3b7caeac UD	144	else \
	145	while (ch > rp->end) \
	146	++rp; \
	147	\
	148	/* Use the UCS4 table for single byte. */ \
	149	if (__builtin_expect (rp == NULL, 0) \
	150	\|\| __builtin_expect (ch < rp->start, 0) \
	151	\|\| (sc = __ucs4_to_ibm943sb[ch + rp->idx], \
	152	__builtin_expect (sc, '\1') == '\0' && ch != L'\0')) \
	153	{ \
	154	\
	155	/* Use the UCS4 table for double byte. */ \
f9ad060c	156	found = false; \
3b7caeac UD	157	low = 0; \
	158	high = (sizeof (__ucs4_to_ibm943db) >> 1) \
	159	/ sizeof (__ucs4_to_ibm943db[0][FROM]); \
	160	pccode = ch; \
5d32be9a UD	161	if (__builtin_expect (rp != NULL, 1)) \
	162	while (low < high) \
	163	{ \
	164	i = (low + high) >> 1; \
	165	if (pccode < __ucs4_to_ibm943db[i][FROM]) \
	166	high = i; \
	167	else if (pccode > __ucs4_to_ibm943db[i][FROM]) \
	168	low = i + 1; \
	169	else \
	170	{ \
	171	pccode = __ucs4_to_ibm943db[i][TO]; \
	172	found = true; \
	173	break; \
	174	} \
	175	} \
601d2942 UD	176	if (found) \
	177	{ \
	178	if (__builtin_expect (outptr + 2 > outend, 0)) \
	179	{ \
	180	result = __GCONV_FULL_OUTPUT; \
	181	break; \
	182	} \
	183	*outptr++ = pccode >> 8 & 0xff; \
	184	*outptr++ = pccode & 0xff; \
	185	} \
	186	else \
	187	{ \
	188	/* This is an illegal character. */ \
e438a468	189	STANDARD_TO_LOOP_ERR_HANDLER (4); \
601d2942	190	} \
3b7caeac UD	191	} \
	192	else \
	193	{ \
	194	if (__builtin_expect (outptr + 1 > outend, 0)) \
	195	{ \
	196	result = __GCONV_FULL_OUTPUT; \
	197	break; \
	198	} \
	199	if (ch == 0x5c) \
	200	*outptr++ = 0x5c; \
	201	else if (ch == 0x7e) \
	202	*outptr++ = 0x7e; \
	203	else \
	204	*outptr++ = sc; \
	205	} \
	206	\
601d2942 UD	207	/* Now that we wrote the output increment the input pointer. */ \
601d2942 UD	208	inptr += 4; \
3b7caeac UD	209	}
	210	#define LOOP_NEED_FLAGS
	211	#include <iconv/loop.c>
	212
	213	/* Now define the toplevel functions. */
	214	#include <iconv/skeleton.c>