[thirdparty/glibc.git] / iconvdata / euc-jp.c

/* Mapping tables for EUC-JP handling.
   Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
   This file is part of the GNU C Library.
   Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.

   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 <gconv.h>
#include <jis0201.h>
#include <jis0208.h>
#include <jis0212.h>

/* Definitions used in the body of the `gconv' function.  */
#define CHARSET_NAME		"EUC-JP//"
#define FROM_LOOP		from_euc_jp
#define TO_LOOP			to_euc_jp
#define DEFINE_INIT		1
#define DEFINE_FINI		1
#define MIN_NEEDED_FROM		1
#define MAX_NEEDED_FROM		3
#define MIN_NEEDED_TO		4


/* First define the conversion function from EUC-JP 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 (ch < 0x8e || (ch >= 0x90 && ch <= 0x9f))			      \
      ++inptr;								      \
    else if (ch == 0xff)						      \
      {									      \
	/* This is illegal.  */						      \
	if (! ignore_errors_p ())					      \
	  {								      \
	    result = __GCONV_ILLEGAL_INPUT;				      \
	    break;							      \
	  }								      \
									      \
	++inptr;							      \
	++*irreversible;						      \
	continue;							      \
      }									      \
    else								      \
      {									      \
	/* Two or more byte character.  First test whether the next	      \
	   character is also available.  */				      \
	int ch2;							      \
									      \
	if (__builtin_expect (inptr + 1 >= inend, 0))			      \
	  {								      \
	    /* The second character is not available.  Store the	      \
	       intermediate result.  */					      \
	    result = __GCONV_INCOMPLETE_INPUT;				      \
	    break;							      \
	  }								      \
									      \
	ch2 = inptr[1];							      \
									      \
	/* All second bytes of a multibyte character must be >= 0xa1. */      \
	if (__builtin_expect (ch2, 0xa1) < 0xa1)			      \
	  {								      \
	    /* This is an illegal character.  */			      \
	    if (! ignore_errors_p ())					      \
	      {								      \
		result = __GCONV_ILLEGAL_INPUT;				      \
		break;							      \
	      }								      \
									      \
	    ++inptr;							      \
	    ++*irreversible;						      \
	    continue;							      \
	  }								      \
									      \
	if (ch == 0x8e)							      \
	  {								      \
	    /* This is code set 2: half-width katakana.  */		      \
	    ch = jisx0201_to_ucs4 (ch2);				      \
	    if (__builtin_expect (ch, 0) == __UNKNOWN_10646_CHAR)	      \
	      {								      \
		/* Illegal character.  */				      \
		if (! ignore_errors_p ())				      \
		  {							      \
		    /* This is an illegal character.  */		      \
		    result = __GCONV_ILLEGAL_INPUT;			      \
		    break;						      \
		  }							      \
	      }								      \
									      \
	    inptr += 2;							      \
	  }								      \
	else								      \
	  {								      \
	    const unsigned char *endp;					      \
									      \
	    if (ch == 0x8f)						      \
	      {								      \
		/* This is code set 3: JIS X 0212-1990.  */		      \
		endp = inptr + 1;					      \
									      \
		ch = jisx0212_to_ucs4 (&endp, inend - endp, 0x80);	      \
	      }								      \
	    else							      \
	      {								      \
		/* This is code set 1: JIS X 0208.  */			      \
		endp = inptr;						      \
									      \
		ch = jisx0208_to_ucs4 (&endp, inend - inptr, 0x80);	      \
	      }								      \
									      \
	    if (__builtin_expect (ch, 1) == 0)				      \
	      {								      \
		/* Not enough input available.  */			      \
		result = __GCONV_INCOMPLETE_INPUT;			      \
		break;							      \
	      }								      \
	    if (__builtin_expect (ch, 0) == __UNKNOWN_10646_CHAR)	      \
	      {								      \
		/* Illegal character.  */				      \
		if (! ignore_errors_p ())				      \
		  {							      \
		    /* This is an illegal character.  */		      \
		    result = __GCONV_ILLEGAL_INPUT;			      \
		    break;						      \
		  }							      \
									      \
		inptr += 2;						      \
		++*irreversible;					      \
		continue;						      \
	      }								      \
	    inptr = endp;						      \
	  }								      \
      }									      \
									      \
    put32 (outptr, ch);							      \
    outptr += 4;							      \
  }
#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 \
  {									      \
    uint32_t ch = get32 (inptr);					      \
									      \
    if (ch < 0x8e || (ch >= 0x90 && ch <= 0x9f))			      \
      /* It's plain ASCII or C1.  */					      \
      *outptr++ = ch;							      \
    else if (ch == 0xa5)						      \
      /* YEN sign => backslash  */					      \
      *outptr++ = 0x5c;							      \
    else if (ch == 0x203e)						      \
      /* overscore => asciitilde */					      \
      *outptr++ = 0x7e;							      \
    else								      \
      {									      \
	/* Try the JIS character sets.  */				      \
	size_t found;							      \
									      \
	/* See whether we have room for at least two characters.  */	      \
	if (__builtin_expect (outptr + 1 >= outend, 0))			      \
	  {								      \
	    result = __GCONV_FULL_OUTPUT;				      \
	    break;							      \
	  }								      \
									      \
	found = ucs4_to_jisx0201 (ch, outptr + 1);			      \
	if (found != __UNKNOWN_10646_CHAR)				      \
	  {								      \
	    /* Yes, it's a JIS 0201 character.  Store the shift byte.  */     \
	    *outptr = 0x8e;						      \
	    outptr += 2;						      \
	  }								      \
	else								      \
	  {								      \
	    /* No JIS 0201 character.  */				      \
	    found = ucs4_to_jisx0208 (ch, outptr, 2);			      \
	    /* Please note that we always have enough room for the output. */ \
	    if (found != __UNKNOWN_10646_CHAR)				      \
	      {								      \
		/* It's a JIS 0208 character, adjust it for EUC-JP.  */	      \
		*outptr++ += 0x80;					      \
		*outptr++ += 0x80;					      \
	      }								      \
	    else							      \
	      {								      \
		/* No JIS 0208 character.  */				      \
		found = ucs4_to_jisx0212 (ch, outptr + 1,		      \
					  outend - outptr - 1);		      \
		  							      \
		if (__builtin_expect (found, 1) == 0)			      \
		  {							      \
		    /* We ran out of space.  */				      \
		    result = __GCONV_FULL_OUTPUT;			      \
		    break;						      \
		  }							      \
		else if (__builtin_expect (found, 0) != __UNKNOWN_10646_CHAR) \
		  {							      \
		    /* It's a JIS 0212 character, adjust it for EUC-JP.  */   \
		    *outptr++ = 0x8f;					      \
		    *outptr++ += 0x80;					      \
		    *outptr++ += 0x80;					      \
		  }							      \
		else							      \
		  {							      \
		    UNICODE_TAG_HANDLER (ch, 4);			      \
									      \
		    /* Illegal character.  */				      \
		    STANDARD_ERR_HANDLER (4);				      \
		  }							      \
	      }								      \
	  }								      \
      }									      \
									      \
    inptr += 4;								      \
  }
#define LOOP_NEED_FLAGS
#include <iconv/loop.c>


/* Now define the toplevel functions.  */
#include <iconv/skeleton.c>
Commit	Line	Data
2b474353	1	/* Mapping tables for EUC-JP handling.
601d2942	2	Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
2b474353 UD	3	This file is part of the GNU C Library.
	4	Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.
	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.
2b474353 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.
2b474353	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. */
2b474353	20
55985355	21	#include <dlfcn.h>
2b474353	22	#include <stdint.h>
8619129f	23	#include <gconv.h>
2b474353 UD	24	#include <jis0201.h>
	25	#include <jis0208.h>
	26	#include <jis0212.h>
	27
8619129f	28	/* Definitions used in the body of the `gconv' function. */
9b26f5c4	29	#define CHARSET_NAME "EUC-JP//"
8619129f UD	30	#define FROM_LOOP from_euc_jp
	31	#define TO_LOOP to_euc_jp
	32	#define DEFINE_INIT 1
	33	#define DEFINE_FINI 1
	34	#define MIN_NEEDED_FROM 1
	35	#define MAX_NEEDED_FROM 3
	36	#define MIN_NEEDED_TO 4
	37
	38
	39	/* First define the conversion function from EUC-JP to UCS4. */
	40	#define MIN_NEEDED_INPUT MIN_NEEDED_FROM
	41	#define MAX_NEEDED_INPUT MAX_NEEDED_FROM
	42	#define MIN_NEEDED_OUTPUT MIN_NEEDED_TO
	43	#define LOOPFCT FROM_LOOP
	44	#define BODY \
	45	{ \
	46	uint32_t ch = *inptr; \
	47	\
2528edd3	48	if (ch < 0x8e \|\| (ch >= 0x90 && ch <= 0x9f)) \
8619129f	49	++inptr; \
2528edd3	50	else if (ch == 0xff) \
8619129f UD	51	{ \
8619129f UD	52	/* This is illegal. */ \
85830c4c UD	53	if (! ignore_errors_p ()) \
	54	{ \
	55	result = __GCONV_ILLEGAL_INPUT; \
	56	break; \
	57	} \
	58	\
	59	++inptr; \
38677ace	60	++*irreversible; \
85830c4c	61	continue; \
8619129f UD	62	} \
	63	else \
	64	{ \
	65	/* Two or more byte character. First test whether the next \
	66	character is also available. */ \
	67	int ch2; \
	68	\
55985355	69	if (__builtin_expect (inptr + 1 >= inend, 0)) \
8619129f UD	70	{ \
	71	/* The second character is not available. Store the \
	72	intermediate result. */ \
d64b6ad0	73	result = __GCONV_INCOMPLETE_INPUT; \
8619129f UD	74	break; \
	75	} \
	76	\
	77	ch2 = inptr[1]; \
	78	\
	79	/* All second bytes of a multibyte character must be >= 0xa1. */ \
89301d68	80	if (__builtin_expect (ch2, 0xa1) < 0xa1) \
8619129f UD	81	{ \
8619129f UD	82	/* This is an illegal character. */ \
85830c4c UD	83	if (! ignore_errors_p ()) \
	84	{ \
	85	result = __GCONV_ILLEGAL_INPUT; \
	86	break; \
	87	} \
	88	\
	89	++inptr; \
38677ace	90	++*irreversible; \
85830c4c	91	continue; \
8619129f UD	92	} \
	93	\
	94	if (ch == 0x8e) \
	95	{ \
	96	/* This is code set 2: half-width katakana. */ \
	97	ch = jisx0201_to_ucs4 (ch2); \
392ac969 UD	98	if (__builtin_expect (ch, 0) == __UNKNOWN_10646_CHAR) \
	99	{ \
	100	/* Illegal character. */ \
	101	if (! ignore_errors_p ()) \
	102	{ \
	103	/* This is an illegal character. */ \
	104	result = __GCONV_ILLEGAL_INPUT; \
	105	break; \
	106	} \
ea9e5dc0	107	} \
392ac969	108	\
8619129f UD	109	inptr += 2; \
	110	} \
	111	else \
	112	{ \
	113	const unsigned char *endp; \
	114	\
	115	if (ch == 0x8f) \
	116	{ \
	117	/* This is code set 3: JIS X 0212-1990. */ \
	118	endp = inptr + 1; \
	119	\
55985355	120	ch = jisx0212_to_ucs4 (&endp, inend - endp, 0x80); \
8619129f UD	121	} \
	122	else \
	123	{ \
	124	/* This is code set 1: JIS X 0208. */ \
	125	endp = inptr; \
	126	\
55985355	127	ch = jisx0208_to_ucs4 (&endp, inend - inptr, 0x80); \
8619129f UD	128	} \
8619129f UD	129	\
55985355	130	if (__builtin_expect (ch, 1) == 0) \
8619129f UD	131	{ \
8619129f UD	132	/* Not enough input available. */ \
d64b6ad0	133	result = __GCONV_INCOMPLETE_INPUT; \
8619129f UD	134	break; \
8619129f UD	135	} \
89301d68	136	if (__builtin_expect (ch, 0) == __UNKNOWN_10646_CHAR) \
8619129f UD	137	{ \
8619129f UD	138	/* Illegal character. */ \
85830c4c UD	139	if (! ignore_errors_p ()) \
	140	{ \
	141	/* This is an illegal character. */ \
	142	result = __GCONV_ILLEGAL_INPUT; \
	143	break; \
	144	} \
	145	\
	146	inptr += 2; \
38677ace	147	++*irreversible; \
85830c4c	148	continue; \
8619129f UD	149	} \
	150	inptr = endp; \
	151	} \
	152	} \
	153	\
77e1d15a UD	154	put32 (outptr, ch); \
77e1d15a UD	155	outptr += 4; \
8619129f	156	}
55985355	157	#define LOOP_NEED_FLAGS
8619129f UD	158	#include <iconv/loop.c>
	159
	160
	161	/* Next, define the other direction. */
	162	#define MIN_NEEDED_INPUT MIN_NEEDED_TO
	163	#define MIN_NEEDED_OUTPUT MIN_NEEDED_FROM
	164	#define MAX_NEEDED_OUTPUT MAX_NEEDED_FROM
	165	#define LOOPFCT TO_LOOP
	166	#define BODY \
	167	{ \
77e1d15a	168	uint32_t ch = get32 (inptr); \
8619129f	169	\
2528edd3 UD	170	if (ch < 0x8e \|\| (ch >= 0x90 && ch <= 0x9f)) \
2528edd3 UD	171	/* It's plain ASCII or C1. */ \
8619129f	172	*outptr++ = ch; \
5c2a0669 UD	173	else if (ch == 0xa5) \
	174	/* YEN sign => backslash */ \
	175	*outptr++ = 0x5c; \
	176	else if (ch == 0x203e) \
	177	/* overscore => asciitilde */ \
	178	*outptr++ = 0x7e; \
8619129f UD	179	else \
	180	{ \
	181	/* Try the JIS character sets. */ \
	182	size_t found; \
	183	\
	184	/* See whether we have room for at least two characters. */ \
55985355	185	if (__builtin_expect (outptr + 1 >= outend, 0)) \
8619129f	186	{ \
d64b6ad0	187	result = __GCONV_FULL_OUTPUT; \
8619129f UD	188	break; \
	189	} \
	190	\
	191	found = ucs4_to_jisx0201 (ch, outptr + 1); \
d64b6ad0	192	if (found != __UNKNOWN_10646_CHAR) \
8619129f UD	193	{ \
	194	/* Yes, it's a JIS 0201 character. Store the shift byte. */ \
	195	*outptr = 0x8e; \
	196	outptr += 2; \
	197	} \
	198	else \
	199	{ \
	200	/* No JIS 0201 character. */ \
	201	found = ucs4_to_jisx0208 (ch, outptr, 2); \
	202	/* Please note that we always have enough room for the output. */ \
d64b6ad0	203	if (found != __UNKNOWN_10646_CHAR) \
8619129f UD	204	{ \
	205	/* It's a JIS 0208 character, adjust it for EUC-JP. */ \
	206	*outptr++ += 0x80; \
	207	*outptr++ += 0x80; \
	208	} \
	209	else \
	210	{ \
	211	/* No JIS 0208 character. */ \
	212	found = ucs4_to_jisx0212 (ch, outptr + 1, \
55985355	213	outend - outptr - 1); \
8619129f	214	\
89301d68	215	if (__builtin_expect (found, 1) == 0) \
8619129f UD	216	{ \
8619129f UD	217	/* We ran out of space. */ \
d64b6ad0	218	result = __GCONV_FULL_OUTPUT; \
8619129f UD	219	break; \
8619129f UD	220	} \
89301d68	221	else if (__builtin_expect (found, 0) != __UNKNOWN_10646_CHAR) \
8619129f UD	222	{ \
	223	/* It's a JIS 0212 character, adjust it for EUC-JP. */ \
	224	*outptr++ = 0x8f; \
	225	*outptr++ += 0x80; \
	226	*outptr++ += 0x80; \
	227	} \
	228	else \
	229	{ \
601d2942 UD	230	UNICODE_TAG_HANDLER (ch, 4); \
601d2942 UD	231	\
8619129f	232	/* Illegal character. */ \
d6204268	233	STANDARD_ERR_HANDLER (4); \
8619129f UD	234	} \
	235	} \
	236	} \
	237	} \
	238	\
	239	inptr += 4; \
	240	}
55985355	241	#define LOOP_NEED_FLAGS
8619129f UD	242	#include <iconv/loop.c>
	243
	244
	245	/* Now define the toplevel functions. */
	246	#include <iconv/skeleton.c>