1 /* $NetBSD: citrus_euctw.c,v 1.10 2005/10/29 18:02:04 tshiozak Exp $ */
2 /* $DragonFly: src/lib/libc/citrus/modules/citrus_euctw.c,v 1.2 2008/04/10 10:21:01 hasso Exp $ */
5 * Copyright (c)2002 Citrus Project,
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * Copyright (c)1999 Citrus Project,
32 * All rights reserved.
34 * Redistribution and use in source and binary forms, with or without
35 * modification, are permitted provided that the following conditions
37 * 1. Redistributions of source code must retain the above copyright
38 * notice, this list of conditions and the following disclaimer.
39 * 2. Redistributions in binary form must reproduce the above copyright
40 * notice, this list of conditions and the following disclaimer in the
41 * documentation and/or other materials provided with the distribution.
43 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
44 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
45 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
46 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
47 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
48 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
49 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
50 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
51 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
52 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
55 * $Citrus: xpg4dl/FreeBSD/lib/libc/locale/euctw.c,v 1.13 2001/06/21 01:51:44 yamt Exp $
58 #include <sys/types.h>
69 #include "citrus_namespace.h"
70 #include "citrus_types.h"
71 #include "citrus_module.h"
72 #include "citrus_ctype.h"
73 #include "citrus_stdenc.h"
74 #include "citrus_euctw.h"
77 /* ----------------------------------------------------------------------
78 * private stuffs used by templates
90 _EUCTWEncodingInfo ei;
92 /* for future multi-locale facility */
95 _EUCTWState s_mbrtowc;
97 _EUCTWState s_mbsrtowcs;
98 _EUCTWState s_wcrtomb;
99 _EUCTWState s_wcsrtombs;
100 _EUCTWState s_wctomb;
107 #define _CEI_TO_EI(_cei_) (&(_cei_)->ei)
108 #define _CEI_TO_STATE(_cei_, _func_) (_cei_)->states.s_##_func_
110 #define _FUNCNAME(m) _citrus_EUCTW_##m
111 #define _ENCODING_INFO _EUCTWEncodingInfo
112 #define _CTYPE_INFO _EUCTWCTypeInfo
113 #define _ENCODING_STATE _EUCTWState
114 #define _ENCODING_MB_CUR_MAX(_ei_) 4
115 #define _ENCODING_IS_STATE_DEPENDENT 0
116 #define _STATE_NEEDS_EXPLICIT_INIT(_ps_) 0
119 _citrus_EUCTW_cs(u_int c)
123 return ((c & 0x80) ? (c == _SS2 ? 2 : 1) : 0);
127 _citrus_EUCTW_count(int cs)
145 _citrus_EUCTW_init_state(_EUCTWEncodingInfo * __restrict ei,
146 _EUCTWState * __restrict s)
148 memset(s, 0, sizeof(*s));
153 _citrus_EUCTW_pack_state(_EUCTWEncodingInfo * __restrict ei,
154 void * __restrict pspriv,
155 const _EUCTWState * __restrict s)
157 memcpy(pspriv, (const void *)s, sizeof(*s));
162 _citrus_EUCTW_unpack_state(_EUCTWEncodingInfo * __restrict ei,
163 _EUCTWState * __restrict s,
164 const void * __restrict pspriv)
166 memcpy((void *)s, pspriv, sizeof(*s));
171 _citrus_EUCTW_encoding_module_init(_EUCTWEncodingInfo * __restrict ei,
172 const void * __restrict var, size_t lenvar)
175 _DIAGASSERT(ei != NULL);
177 memset((void *)ei, 0, sizeof(*ei));
184 _citrus_EUCTW_encoding_module_uninit(_EUCTWEncodingInfo *ei)
189 _citrus_EUCTW_mbrtowc_priv(_EUCTWEncodingInfo * __restrict ei,
190 wchar_t * __restrict pwc,
191 const char ** __restrict s,
192 size_t n, _EUCTWState * __restrict psenc,
193 size_t * __restrict nresult)
200 _DIAGASSERT(nresult != 0);
201 _DIAGASSERT(ei != NULL);
202 _DIAGASSERT(psenc != NULL);
203 _DIAGASSERT(s != NULL);
208 _citrus_EUCTW_init_state(ei, psenc);
209 *nresult = 0; /* state independent */
213 chlenbak = psenc->chlen;
215 /* make sure we have the first byte in the buffer */
216 switch (psenc->chlen) {
220 psenc->ch[0] = *s0++;
232 c = _citrus_EUCTW_count(cs = _citrus_EUCTW_cs(psenc->ch[0] & 0xff));
235 while (psenc->chlen < c) {
238 psenc->ch[psenc->chlen] = *s0++;
246 if (psenc->ch[0] & 0x80)
248 wchar = psenc->ch[0] & 0xff;
251 if (!(psenc->ch[0] & 0x80) || !(psenc->ch[1] & 0x80))
253 wchar = ((psenc->ch[0] & 0xff) << 8) | (psenc->ch[1] & 0xff);
257 if ((u_char)psenc->ch[1] < 0xa1 || 0xa7 < (u_char)psenc->ch[1])
259 if (!(psenc->ch[2] & 0x80) || !(psenc->ch[3] & 0x80))
261 wchar = ((psenc->ch[2] & 0xff) << 8) | (psenc->ch[3] & 0xff);
262 wchar |= ('G' + psenc->ch[1] - 0xa1) << 24;
277 *nresult = c - chlenbak;
283 *nresult = (size_t)-1;
288 *nresult = (size_t)-1;
293 _citrus_EUCTW_wcrtomb_priv(_EUCTWEncodingInfo * __restrict ei,
294 char * __restrict s, size_t n, wchar_t wc,
295 _EUCTWState * __restrict psenc,
296 size_t * __restrict nresult)
298 wchar_t cs = wc & 0x7f000080;
300 int i, len, clen, ret;
302 _DIAGASSERT(ei != NULL);
303 _DIAGASSERT(nresult != 0);
304 _DIAGASSERT(s != NULL);
309 if ((wc & 0x007f0000) && !(wc & 0x00800000))
312 if (clen == 1 && cs == 0x00000000) {
320 } else if (clen == 2 && cs == ('G' << 24)) {
329 } else if (clen == 2 && 'H' <= (cs >> 24) && (cs >> 24) <= 'M') {
330 /* CNS-11643-[2-7] */
337 *s++ = (cs >> 24) - 'H' + 0xa2;
347 *s++ = (v >> (i << 3)) & 0xff;
353 *nresult = (size_t)-1;
359 _citrus_EUCTW_stdenc_wctocs(_EUCTWEncodingInfo * __restrict ei,
360 _csid_t * __restrict csid,
361 _index_t * __restrict idx, wchar_t wc)
364 _DIAGASSERT(ei != NULL && csid != NULL && idx != NULL);
366 *csid = (_csid_t)(wc >> 24) & 0xFF;
367 *idx = (_index_t)(wc & 0x7F7F);
374 _citrus_EUCTW_stdenc_cstowc(_EUCTWEncodingInfo * __restrict ei,
375 wchar_t * __restrict wc,
376 _csid_t csid, _index_t idx)
379 _DIAGASSERT(ei != NULL && wc != NULL);
382 if ((idx & ~0x7F) != 0)
386 if (csid < 'G' || csid > 'M' || (idx & ~0x7F7F) != 0)
388 *wc = (wchar_t)idx | ((wchar_t)csid<<24);
396 _citrus_EUCTW_stdenc_get_state_desc_generic(_EUCTWEncodingInfo * __restrict ei,
397 _EUCTWState * __restrict psenc,
398 int * __restrict rstate)
401 if (psenc->chlen == 0)
402 *rstate = _STDENC_SDGEN_INITIAL;
404 *rstate = _STDENC_SDGEN_INCOMPLETE_CHAR;
409 /* ----------------------------------------------------------------------
410 * public interface for ctype
413 _CITRUS_CTYPE_DECLS(EUCTW);
414 _CITRUS_CTYPE_DEF_OPS(EUCTW);
416 #include "citrus_ctype_template.h"
418 /* ----------------------------------------------------------------------
419 * public interface for stdenc
422 _CITRUS_STDENC_DECLS(EUCTW);
423 _CITRUS_STDENC_DEF_OPS(EUCTW);
425 #include "citrus_stdenc_template.h"