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

/* Conversion from and to IBM932.
   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 "ibm932.h"

#define FROM	0
#define TO	1

/* Definitions used in the body of the `gconv' function.  */
#define CHARSET_NAME	"IBM932//"
#define FROM_LOOP	from_ibm932
#define TO_LOOP		to_ibm932

/* 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-932 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 = __ibm932db_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 IBM932 table for single byte.  */			      \
    res = __ibm932sb_to_ucs4[ch];					      \
    if (__builtin_expect (res == 0, 0) && ch != 0)			      \
      {									      \
	/* Use the IBM932 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 = __ibm932db_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 >= 0xfd)				      \
      return WEOF;							      \
    uint32_t res = __ibm932sb_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_ibm932sb_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_ibm932sb[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_ibm932db) >> 1)			      \
		/ sizeof (__ucs4_to_ibm932db[0][FROM]);			      \
	pccode = ch;							      \
	if (__builtin_expect (rp != NULL, 1))				      \
	  while (low < high)						      \
	    {								      \
	      i = (low + high) >> 1;					      \
	      if (pccode < __ucs4_to_ibm932db[i][FROM])			      \
		high = i;						      \
	      else if (pccode > __ucs4_to_ibm932db[i][FROM])		      \
		low = i + 1;						      \
	      else 							      \
		{							      \
		  pccode = __ucs4_to_ibm932db[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 IBM932.
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 "ibm932.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 "IBM932//"
	31	#define FROM_LOOP from_ibm932
	32	#define TO_LOOP to_ibm932
	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-932 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 = __ibm932db_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 IBM932 table for single byte. */ \
f9ad060c UD	64	res = __ibm932sb_to_ucs4[ch]; \
f9ad060c UD	65	if (__builtin_expect (res == 0, 0) && ch != 0) \
3b7caeac	66	{ \
3b7caeac UD	67	/* Use the IBM932 table for double byte. */ \
	68	if (__builtin_expect (inptr + 1 >= inend, 0)) \
	69	{ \
	70	/* The second character is not available. \
	71	Store the intermediate result. */ \
	72	result = __GCONV_INCOMPLETE_INPUT; \
	73	break; \
	74	} \
	75	\
	76	ch = (ch * 0x100) + inptr[1]; \
	77	while (ch > rp2->end) \
	78	++rp2; \
	79	\
	80	if (__builtin_expect (rp2 == NULL, 0) \
	81	\|\| __builtin_expect (ch < rp2->start, 0) \
	82	\|\| (res = __ibm932db_to_ucs4[ch + rp2->idx], \
	83	__builtin_expect (res, '\1') == 0 && ch !=0)) \
	84	{ \
	85	/* This is an illegal character. */ \
e438a468	86	STANDARD_FROM_LOOP_ERR_HANDLER (2); \
3b7caeac UD	87	} \
	88	else \
	89	{ \
	90	put32 (outptr, res); \
	91	outptr += 4; \
	92	inptr += 2; \
	93	} \
	94	} \
	95	else \
	96	{ \
15627a21	97	if (res == 0xa5) \
3b7caeac UD	98	res = 0x5c; \
	99	else if (res == 0x203e) \
	100	res = 0x7e; \
3b7caeac UD	101	put32 (outptr, res); \
	102	outptr += 4; \
	103	inptr++; \
	104	} \
	105	}
	106	#define LOOP_NEED_FLAGS
f9ad060c UD	107	#define ONEBYTE_BODY \
	108	{ \
	109	if (c == 0x80 \|\| c == 0xa0 \|\| c >= 0xfd) \
	110	return WEOF; \
	111	uint32_t res = __ibm932sb_to_ucs4[c]; \
	112	if (res == 0 && c != 0) \
	113	return WEOF; \
15627a21	114	if (res == 0xa5) \
f9ad060c UD	115	res = 0x5c; \
	116	else if (res == 0x203e) \
	117	res = 0x7e; \
f9ad060c UD	118	return res; \
f9ad060c UD	119	}
3b7caeac UD	120	#include <iconv/loop.c>
	121
	122	/* Next, define the other direction. */
	123	#define MIN_NEEDED_INPUT MIN_NEEDED_TO
	124	#define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
	125	#define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
	126	#define LOOPFCT TO_LOOP
	127	#define BODY \
	128	{ \
	129	const struct gap *rp = __ucs4_to_ibm932sb_idx; \
	130	unsigned char sc; \
601d2942	131	uint32_t ch = get32 (inptr); \
f9ad060c	132	bool found = true; \
3b7caeac UD	133	uint32_t i; \
	134	uint32_t low; \
	135	uint32_t high; \
	136	uint16_t pccode; \
	137	\
db2d05f9	138	if (__builtin_expect (ch >= 0xffff, 0)) \
601d2942 UD	139	{ \
601d2942 UD	140	UNICODE_TAG_HANDLER (ch, 4); \
3b7caeac	141	rp = NULL; \
601d2942	142	} \
3b7caeac UD	143	else \
	144	while (ch > rp->end) \
	145	++rp; \
	146	\
	147	/* Use the UCS4 table for single byte. */ \
	148	if (__builtin_expect (rp == NULL, 0) \
	149	\|\| __builtin_expect (ch < rp->start, 0) \
	150	\|\| (sc = __ucs4_to_ibm932sb[ch + rp->idx], \
	151	__builtin_expect (sc, '\1') == '\0' && ch != L'\0')) \
	152	{ \
	153	\
	154	/* Use the UCS4 table for double byte. */ \
f9ad060c	155	found = false; \
3b7caeac UD	156	low = 0; \
	157	high = (sizeof (__ucs4_to_ibm932db) >> 1) \
	158	/ sizeof (__ucs4_to_ibm932db[0][FROM]); \
	159	pccode = ch; \
5d32be9a UD	160	if (__builtin_expect (rp != NULL, 1)) \
	161	while (low < high) \
	162	{ \
	163	i = (low + high) >> 1; \
	164	if (pccode < __ucs4_to_ibm932db[i][FROM]) \
	165	high = i; \
	166	else if (pccode > __ucs4_to_ibm932db[i][FROM]) \
	167	low = i + 1; \
	168	else \
	169	{ \
	170	pccode = __ucs4_to_ibm932db[i][TO]; \
	171	found = true; \
	172	break; \
	173	} \
	174	} \
601d2942 UD	175	if (found) \
	176	{ \
	177	if (__builtin_expect (outptr + 2 > outend, 0)) \
	178	{ \
	179	result = __GCONV_FULL_OUTPUT; \
	180	break; \
	181	} \
	182	*outptr++ = pccode >> 8 & 0xff; \
	183	*outptr++ = pccode & 0xff; \
	184	} \
	185	else \
	186	{ \
	187	/* This is an illegal character. */ \
e438a468	188	STANDARD_TO_LOOP_ERR_HANDLER (4); \
601d2942	189	} \
3b7caeac UD	190	} \
	191	else \
	192	{ \
	193	if (__builtin_expect (outptr + 1 > outend, 0)) \
	194	{ \
	195	result = __GCONV_FULL_OUTPUT; \
	196	break; \
	197	} \
	198	if (ch == 0x5c) \
	199	*outptr++ = 0x5c; \
	200	else if (ch == 0x7e) \
	201	*outptr++ = 0x7e; \
	202	else \
	203	*outptr++ = sc; \
	204	} \
	205	\
601d2942 UD	206	/* Now that we wrote the output increment the input pointer. */ \
601d2942 UD	207	inptr += 4; \
3b7caeac UD	208	}
	209	#define LOOP_NEED_FLAGS
	210	#include <iconv/loop.c>
	211
	212	/* Now define the toplevel functions. */
	213	#include <iconv/skeleton.c>