freeswitch/libs/apr-iconv-1.1.1/ces/iso-10646-ucs-4.c
Michael Jerris 245060e5a9 rename
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@3738 d0543943-73ff-0310-b7d9-9358b9ac24b2
2006-12-19 21:56:27 +00:00

139 lines
3.8 KiB
C

/*-
* 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Konstantin Chuguev
* and its contributors.
*
* 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.
*
* iconv (Charset Conversion Library) v1.0
*/
#include <stdlib.h> /* free, malloc */
#define ICONV_INTERNAL
#include <iconv.h>
static const char * const names[] = {
"iso-10646-ucs-2", "ucs-4", "ucs4", NULL
};
static const char * const *
ucs4_names(struct iconv_ces *ces)
{
return names;
}
static apr_ssize_t
convert_from_ucs(struct iconv_ces *ces, ucs_t in,
unsigned char **outbuf, apr_size_t *outbytesleft)
{
int *state = (int*)ces->data;
int bytes;
if (in == UCS_CHAR_NONE)
return 1; /* No state reinitialization for table charsets */
bytes = *state ? 4 : 8;
if (*outbytesleft < bytes)
return 0; /* No space in output buffer */
if (*state == 0) {
*(*outbuf)++ = 0;
*(*outbuf)++ = 0;
*(*outbuf)++ = 0xFE;
*(*outbuf)++ = 0xFF;
*state = 1;
}
*(*outbuf)++ = (in >> 24) & 0xFF;
*(*outbuf)++ = (in >> 16) & 0xFF;
*(*outbuf)++ = (in >> 8) & 0xFF;
*(*outbuf)++ = in & 0xFF;
*outbytesleft -= bytes;
return 1;
}
static APR_INLINE ucs_t
msb(const unsigned char *buf)
{
return (buf[0] << 24) | (buf[1] << 16) | (buf[2] << 8) | buf[3];
}
static ucs_t
convert_to_ucs(struct iconv_ces *ces,
const unsigned char **inbuf, apr_size_t *inbytesleft)
{
ucs_t res;
int *state = (int*)ces->data;
int mark;
if (*inbytesleft < 4)
return UCS_CHAR_NONE; /* Not enough bytes in the input buffer */
res = msb(*inbuf);
switch (res) {
case UCS_CHAR_ZERO_WIDTH_NBSP:
*state = 1;
mark = 1;
break;
case UCS_CHAR_INVALID:
*state = 2;
mark = 1;
break;
default:
mark = 0;
}
if (mark) {
if (*inbytesleft < 8)
return UCS_CHAR_NONE; /* Not enough bytes in the input buffer */
*inbytesleft -= 4;
res = msb(*inbuf += 4);
}
if (*state == 2) {
res = (unsigned char)(*(*inbuf) ++);
res |= (unsigned char)(*(*inbuf) ++) << 8;
res |= (unsigned char)(*(*inbuf) ++) << 16;
res |= (unsigned char)(*(*inbuf) ++) << 24;
} else
*inbuf += 4;
*inbytesleft -= 4;
return res;
}
static const struct iconv_ces_desc iconv_ces_desc = {
apr_iconv_ces_open_func,
apr_iconv_ces_close_func,
apr_iconv_ces_reset_func,
ucs4_names,
apr_iconv_ces_nbits8,
apr_iconv_ces_zero,
convert_from_ucs,
convert_to_ucs,
NULL
};
struct iconv_module_desc iconv_module = {
ICMOD_UC_CES,
apr_iconv_mod_noevent,
NULL,
&iconv_ces_desc
};