newlib-cygwin/newlib/libc/iconv/ces/euc.c

472 lines
13 KiB
C

/*
* Copyright (c) 2003-2004, Artem B. Bityuckiy
* Copyright (c) 1999,2000, Konstantin Chuguev. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#include "cesbi.h"
#if defined (ICONV_TO_UCS_CES_EUC) \
|| defined (ICONV_FROM_UCS_CES_EUC)
#include <_ansi.h>
#include <reent.h>
#include <newlib.h>
#include <string.h>
#include <stdlib.h>
#include <limits.h>
#include <sys/types.h>
#include "../lib/local.h"
#include "../lib/ucsconv.h"
#include "../lib/encnames.h"
#include "../ccs/ccsnames.h"
#define TYPE_EUC_JP 0
#define TYPE_EUC_KR 1
#define TYPE_EUC_TW 2
#define MAX_CS_NUM 3
/* CS description structure */
typedef struct
{
char *csname;
char *prefix;
int bytes;
int prefixbytes;
int touchmsb; /* If 1, msb will be set by euc converter */
} euc_cs_desc_t;
typedef struct
{
int type;
int mb_cur_max;
euc_cs_desc_t *desc;
_VOID_PTR data[MAX_CS_NUM];
} euc_data_t;
#if defined (_ICONV_TO_ENCODING_EUC_JP) \
|| defined (_ICONV_FROM_ENCODING_EUC_JP) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
static euc_cs_desc_t euc_jp_cs_desc[] =
{
{ICONV_CCS_JIS_X0208_1990, "", 2, 0, 1},
{ICONV_CCS_JIS_X0201_1976, "\x8e", 1, 1, 0},
{ICONV_CCS_JIS_X0212_1990, "\x8f", 2, 1, 1},
{NULL, NULL, 0, 0}
};
#endif
#if defined (_ICONV_TO_ENCODING_EUC_TW) \
|| defined (_ICONV_FROM_ENCODING_EUC_TW) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
static euc_cs_desc_t euc_tw_cs_desc [] =
{
{ICONV_CCS_CNS11643_PLANE1, "", 2, 0, 1},
{ICONV_CCS_CNS11643_PLANE2, "\x8e\xa2", 2, 2, 1},
{ICONV_CCS_CNS11643_PLANE14, "\x8e\xae", 2, 2, 1},
{NULL, NULL, 0, 0}
};
#endif
#if defined (_ICONV_TO_ENCODING_EUC_KR) \
|| defined (_ICONV_FROM_ENCODING_EUC_KR) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
static euc_cs_desc_t euc_kr_cs_desc [] =
{
{ICONV_CCS_KSX1001, "", 2, 0, 1},
{NULL, NULL, 0, 0}
};
#endif
#if defined (ICONV_FROM_UCS_CES_EUC)
static _VOID_PTR
_DEFUN(euc_from_ucs_init, (rptr, encoding),
struct _reent *rptr _AND
_CONST char *encoding)
{
int i;
euc_data_t *data;
if ((data = (euc_data_t *)_calloc_r (rptr, 1, sizeof (euc_data_t))) == NULL)
return 0;
#if defined (_ICONV_TO_ENCODING_EUC_JP) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
if (strcmp (encoding, ICONV_ENCODING_EUC_JP) == 0)
{
data->type = TYPE_EUC_JP;
data->mb_cur_max = 3;
data->desc = &euc_jp_cs_desc[0];
goto ok;
}
#endif
#if defined (_ICONV_TO_ENCODING_EUC_KR) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
if (strcmp (encoding, ICONV_ENCODING_EUC_KR) == 0)
{
data->type = TYPE_EUC_KR;
data->mb_cur_max = 2;
data->desc = &euc_kr_cs_desc[0];
goto ok;
}
#endif
#if defined (_ICONV_TO_ENCODING_EUC_TW) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
if (strcmp (encoding, ICONV_ENCODING_EUC_TW) == 0)
{
data->type = TYPE_EUC_TW;
data->mb_cur_max = 4;
data->desc = &euc_tw_cs_desc[0];
goto ok;
}
#endif
goto error1;
ok:
for (i = 0; data->desc[i].csname != NULL; i++)
{
data->data[i] = _iconv_from_ucs_ces_handlers_table.init (
rptr,
data->desc[i].csname);
if (data->data == NULL)
goto error;
}
return data;
error:
_iconv_from_ucs_ces_handlers_table.close (rptr, data);
return NULL;
error1:
_free_r (rptr, (_VOID_PTR)data);
return NULL;
}
static size_t
_DEFUN(euc_from_ucs_close, (rptr, data),
struct _reent *rptr _AND
_VOID_PTR data)
{
int i;
size_t res = 0;
for (i = 0; i < MAX_CS_NUM; i++)
{
if (((euc_data_t *)data)->data[i] != NULL)
res |= _iconv_from_ucs_ces_handlers_table.close (
rptr,
((euc_data_t *)data)->data[i]);
}
_free_r(rptr, data);
return res;
}
static size_t
_DEFUN(euc_convert_from_ucs, (data, in, outbuf, outbytesleft),
_VOID_PTR data _AND
register ucs4_t in _AND
unsigned char **outbuf _AND
size_t *outbytesleft)
{
int i;
int j;
int res;
unsigned char *outbuf1;
size_t outbytesleft1;
euc_data_t *d = (euc_data_t *)data;
if (in < 0x80) /* CS0 ASCII */
return _iconv_from_ucs_ces_handlers_us_ascii.convert_from_ucs (
NULL,
in,
outbuf,
outbytesleft);
/* Try other CS */
for (i = 0; d->desc[i].csname != NULL; i++)
{
if (((int)*outbytesleft - d->desc[i].prefixbytes - d->desc[i].bytes) < 0)
{
char buf[ICONV_MB_LEN_MAX];
outbytesleft1 = ICONV_MB_LEN_MAX;
outbuf1 = &buf[0];
/* See wether this is right sequence */
res =
(int)_iconv_from_ucs_ces_handlers_table.convert_from_ucs (
d->data[i],
in,
&outbuf1,
&outbytesleft1);
if (res > 0)
return (size_t)ICONV_CES_NOSPACE;
continue;
}
outbuf1 = *outbuf + d->desc[i].prefixbytes;
outbytesleft1 = *outbytesleft - d->desc[i].prefixbytes;
res = (int)_iconv_from_ucs_ces_handlers_table.convert_from_ucs (
d->data[i],
in,
&outbuf1,
&outbytesleft1);
if (res == d->desc[i].bytes)
{
for (j = 0; j < d->desc[i].prefixbytes; j++)
(*outbuf)[j] = d->desc[i].prefix[j];
if (d->desc[i].touchmsb)
for (j = 0; j < d->desc[i].bytes; j++)
{
if ((*outbuf)[j + d->desc[i].prefixbytes] & 0x80)
return (size_t)ICONV_CES_INVALID_CHARACTER;
(*outbuf)[j + d->desc[i].prefixbytes] |= 0x80;
}
*outbuf = outbuf1;
*outbytesleft = outbytesleft1;
return (size_t)(res + d->desc[i].bytes);
}
}
return (size_t)ICONV_CES_INVALID_CHARACTER;
}
#endif /* ICONV_FROM_UCS_CES_EUC */
#if defined (ICONV_TO_UCS_CES_EUC)
static _VOID_PTR
_DEFUN(euc_to_ucs_init, (rptr, encoding),
struct _reent *rptr _AND
_CONST char *encoding)
{
int i;
euc_data_t *data;
if ((data = (euc_data_t *)_calloc_r (rptr, 1, sizeof (euc_data_t))) == NULL)
return 0;
#if defined (_ICONV_TO_ENCODING_EUC_JP) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
if (strcmp (encoding, ICONV_ENCODING_EUC_JP) == 0)
{
data->type = TYPE_EUC_JP;
data->mb_cur_max = 3;
data->desc = &euc_jp_cs_desc[0];
goto ok;
}
#endif
#if defined (_ICONV_TO_ENCODING_EUC_KR) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
if (strcmp (encoding, ICONV_ENCODING_EUC_KR) == 0)
{
data->type = TYPE_EUC_KR;
data->mb_cur_max = 2;
data->desc = &euc_kr_cs_desc[0];
goto ok;
}
#endif
#if defined (_ICONV_TO_ENCODING_EUC_TW) \
|| defined (_ICONV_ENABLE_EXTERNAL_CCS)
if (strcmp (encoding, ICONV_ENCODING_EUC_TW) == 0)
{
data->type = TYPE_EUC_TW;
data->mb_cur_max = 4;
data->desc = &euc_tw_cs_desc[0];
goto ok;
}
#endif
goto error1;
ok:
for (i = 0; data->desc[i].csname != NULL; i++)
{
data->data[i] = _iconv_to_ucs_ces_handlers_table.init (
rptr,
data->desc[i].csname);
if (data->data == NULL)
goto error;
}
return data;
error:
_iconv_to_ucs_ces_handlers_table.close (rptr, data);
return NULL;
error1:
_free_r (rptr, (_VOID_PTR)data);
return NULL;
}
static size_t
_DEFUN(euc_to_ucs_close, (rptr, data),
struct _reent *rptr _AND
_VOID_PTR data)
{
int i;
size_t res = 0;
for (i = 0; i < MAX_CS_NUM; i++)
{
if (((euc_data_t *)data)->data[i] != NULL)
res |= _iconv_to_ucs_ces_handlers_table.close (
rptr,
((euc_data_t *)data)->data[i]);
}
_free_r(rptr, data);
return res;
}
static ucs4_t
_DEFUN(euc_convert_to_ucs, (data, inbuf, inbytesleft),
_VOID_PTR data _AND
_CONST unsigned char **inbuf _AND
size_t *inbytesleft)
{
int i;
int j;
ucs4_t res;
unsigned char buf[ICONV_MB_LEN_MAX];
size_t inbytesleft1;
euc_data_t *d = (euc_data_t *)data;
unsigned char *inbuf1 = &buf[0];
if (**inbuf < 0x80) /* CS0 is always ASCII */
return _iconv_to_ucs_ces_handlers_us_ascii.convert_to_ucs (
NULL,
inbuf,
inbytesleft);
for (i = 1; d->desc[i].csname != NULL; i++)
{
if (memcmp((_CONST _VOID_PTR)(*inbuf),
(_CONST _VOID_PTR)d->desc[i].prefix,
d->desc[i].prefixbytes) == 0)
{
if (((int)*inbytesleft - d->desc[i].prefixbytes - d->desc[i].bytes) < 0)
return (ucs4_t)ICONV_CES_BAD_SEQUENCE;
if (d->desc[i].touchmsb)
for (j = 0; j < d->desc[i].bytes; j++)
{
if (!((*inbuf)[j + d->desc[i].prefixbytes] & 0x80))
return (ucs4_t)ICONV_CES_INVALID_CHARACTER;
inbuf1[j] = (*inbuf)[j + d->desc[i].prefixbytes] & 0x7F;
}
else
for (j = 0; j < d->desc[i].bytes; j++)
inbuf1[j] = (*inbuf)[j + d->desc[i].prefixbytes];
inbytesleft1 = d->desc[i].bytes;
res = _iconv_to_ucs_ces_handlers_table.convert_to_ucs (
d->data[i],
(_CONST unsigned char **)&inbuf1,
&inbytesleft1);
if (((__int32_t)res) > 0)
{
*inbuf += d->desc[i].bytes + d->desc[i].prefixbytes;
*inbytesleft -= d->desc[i].bytes + d->desc[i].prefixbytes;
}
return res;
}
}
/* Process CS1 */
if (((int)(*inbytesleft - d->desc[0].prefixbytes - d->desc[0].bytes)) < 0)
return (ucs4_t)ICONV_CES_BAD_SEQUENCE;
if (d->desc[0].touchmsb)
for (j = 0; j < d->desc[0].bytes; j++)
{
if (!((*inbuf)[j + d->desc[0].prefixbytes] & 0x80))
return (ucs4_t)ICONV_CES_INVALID_CHARACTER;
inbuf1[j] = (*inbuf)[j] & 0x7F;
}
else
for (j = 0; j < d->desc[0].bytes; j++)
inbuf1[j] = (*inbuf)[j];
inbytesleft1 = d->desc[0].bytes;
res = _iconv_to_ucs_ces_handlers_table.convert_to_ucs (
d->data[0],
(_CONST unsigned char **)&inbuf1,
&inbytesleft1);
if (((__int32_t)res) > 0)
{
*inbuf += d->desc[0].bytes;
*inbytesleft -= d->desc[0].bytes;
}
return res;
}
#endif /* ICONV_TO_UCS_CES_EUC */
static int
_DEFUN(euc_get_mb_cur_max, (data),
_VOID_PTR data)
{
return ((euc_data_t *)data)->mb_cur_max;
}
#if defined (ICONV_FROM_UCS_CES_EUC)
_CONST iconv_from_ucs_ces_handlers_t
_iconv_from_ucs_ces_handlers_euc =
{
euc_from_ucs_init,
euc_from_ucs_close,
euc_get_mb_cur_max,
NULL,
NULL,
NULL,
euc_convert_from_ucs
};
#endif
#if defined (ICONV_TO_UCS_CES_EUC)
_CONST iconv_to_ucs_ces_handlers_t
_iconv_to_ucs_ces_handlers_euc =
{
euc_to_ucs_init,
euc_to_ucs_close,
euc_get_mb_cur_max,
NULL,
NULL,
NULL,
euc_convert_to_ucs
};
#endif
#endif /* ICONV_TO_UCS_CES_EUC || ICONV_FROM_UCS_CES_EUC */