1*16d86563SAlexander Pyhalov /*
2*16d86563SAlexander Pyhalov * CDDL HEADER START
3*16d86563SAlexander Pyhalov *
4*16d86563SAlexander Pyhalov * The contents of this file are subject to the terms of the
5*16d86563SAlexander Pyhalov * Common Development and Distribution License (the "License").
6*16d86563SAlexander Pyhalov * You may not use this file except in compliance with the License.
7*16d86563SAlexander Pyhalov *
8*16d86563SAlexander Pyhalov * You can obtain a copy of the license at src/OPENSOLARIS.LICENSE
9*16d86563SAlexander Pyhalov * or http://www.opensolaris.org/os/licensing.
10*16d86563SAlexander Pyhalov * See the License for the specific language governing permissions
11*16d86563SAlexander Pyhalov * and limitations under the License.
12*16d86563SAlexander Pyhalov *
13*16d86563SAlexander Pyhalov * When distributing Covered Code, include this CDDL HEADER in each
14*16d86563SAlexander Pyhalov * file and include the License file at src/OPENSOLARIS.LICENSE.
15*16d86563SAlexander Pyhalov * If applicable, add the following below this CDDL HEADER, with the
16*16d86563SAlexander Pyhalov * fields enclosed by brackets "[]" replaced with your own identifying
17*16d86563SAlexander Pyhalov * information: Portions Copyright [yyyy] [name of copyright owner]
18*16d86563SAlexander Pyhalov *
19*16d86563SAlexander Pyhalov * CDDL HEADER END
20*16d86563SAlexander Pyhalov */
21*16d86563SAlexander Pyhalov /*
22*16d86563SAlexander Pyhalov * Copyright (c) 2008, by Sun Microsystems, Inc.
23*16d86563SAlexander Pyhalov * All rights reserved.
24*16d86563SAlexander Pyhalov */
25*16d86563SAlexander Pyhalov
26*16d86563SAlexander Pyhalov #include <stdio.h>
27*16d86563SAlexander Pyhalov #include <errno.h>
28*16d86563SAlexander Pyhalov #include <stdlib.h>
29*16d86563SAlexander Pyhalov #include <sys/types.h>
30*16d86563SAlexander Pyhalov #define __NEED_UNI_2_VISCII__
31*16d86563SAlexander Pyhalov #include <unicode_viscii.h> /* Unicode to viscii mapping table */
32*16d86563SAlexander Pyhalov #include "common_defs.h"
33*16d86563SAlexander Pyhalov
34*16d86563SAlexander Pyhalov #define MSB 0x80 /* most significant bit */
35*16d86563SAlexander Pyhalov #define ONEBYTE 0xff /* right most byte */
36*16d86563SAlexander Pyhalov
37*16d86563SAlexander Pyhalov #define NON_ID_CHAR '?' /* non-identified character */
38*16d86563SAlexander Pyhalov
39*16d86563SAlexander Pyhalov
40*16d86563SAlexander Pyhalov
41*16d86563SAlexander Pyhalov typedef struct _icv_state {
42*16d86563SAlexander Pyhalov char keepc[6]; /* maximum # byte of UTF8 code */
43*16d86563SAlexander Pyhalov short ustate;
44*16d86563SAlexander Pyhalov int _errno; /* internal errno */
45*16d86563SAlexander Pyhalov } _iconv_st;
46*16d86563SAlexander Pyhalov
47*16d86563SAlexander Pyhalov enum _USTATE { U0, U1, U2, U3, U4, U5, U6, U7 };
48*16d86563SAlexander Pyhalov
49*16d86563SAlexander Pyhalov
50*16d86563SAlexander Pyhalov /*
51*16d86563SAlexander Pyhalov * Open; called from iconv_open()
52*16d86563SAlexander Pyhalov */
53*16d86563SAlexander Pyhalov void *
_icv_open()54*16d86563SAlexander Pyhalov _icv_open()
55*16d86563SAlexander Pyhalov {
56*16d86563SAlexander Pyhalov _iconv_st *st;
57*16d86563SAlexander Pyhalov
58*16d86563SAlexander Pyhalov if ((st = (_iconv_st *)malloc(sizeof(_iconv_st))) == NULL) {
59*16d86563SAlexander Pyhalov errno = ENOMEM;
60*16d86563SAlexander Pyhalov return ((void *) -1);
61*16d86563SAlexander Pyhalov }
62*16d86563SAlexander Pyhalov
63*16d86563SAlexander Pyhalov st->ustate = U0;
64*16d86563SAlexander Pyhalov st->_errno = 0;
65*16d86563SAlexander Pyhalov return ((void *) st);
66*16d86563SAlexander Pyhalov }
67*16d86563SAlexander Pyhalov
68*16d86563SAlexander Pyhalov
69*16d86563SAlexander Pyhalov /*
70*16d86563SAlexander Pyhalov * Close; called from iconv_close()
71*16d86563SAlexander Pyhalov */
72*16d86563SAlexander Pyhalov void
_icv_close(_iconv_st * st)73*16d86563SAlexander Pyhalov _icv_close(_iconv_st *st)
74*16d86563SAlexander Pyhalov {
75*16d86563SAlexander Pyhalov if (!st)
76*16d86563SAlexander Pyhalov errno = EBADF;
77*16d86563SAlexander Pyhalov else
78*16d86563SAlexander Pyhalov free(st);
79*16d86563SAlexander Pyhalov }
80*16d86563SAlexander Pyhalov
81*16d86563SAlexander Pyhalov
82*16d86563SAlexander Pyhalov /*
83*16d86563SAlexander Pyhalov * Actual conversion; called from iconv()
84*16d86563SAlexander Pyhalov */
85*16d86563SAlexander Pyhalov /*=========================================================
86*16d86563SAlexander Pyhalov *
87*16d86563SAlexander Pyhalov * State Machine for interpreting UTF8 code
88*16d86563SAlexander Pyhalov *
89*16d86563SAlexander Pyhalov *=========================================================
90*16d86563SAlexander Pyhalov * 4 byte unicode
91*16d86563SAlexander Pyhalov * +----->------->------------> U5 -----> U6-------> U7---+
92*16d86563SAlexander Pyhalov * | |
93*16d86563SAlexander Pyhalov * | 3 byte unicode |
94*16d86563SAlexander Pyhalov * +----->------->-------+ |
95*16d86563SAlexander Pyhalov * | | |
96*16d86563SAlexander Pyhalov * ^ v |
97*16d86563SAlexander Pyhalov * | 2 byte U2 ---> U3 |
98*16d86563SAlexander Pyhalov * | unicode v |
99*16d86563SAlexander Pyhalov * +------> U0 -------> U1 +-------->U4---+ |
100*16d86563SAlexander Pyhalov * ^ ascii | | ^ | |
101*16d86563SAlexander Pyhalov * | | +-------->--------->--------+ | |
102*16d86563SAlexander Pyhalov * | v v V
103*16d86563SAlexander Pyhalov * +----<---+-----<------------<------------<------------+---------+
104*16d86563SAlexander Pyhalov *
105*16d86563SAlexander Pyhalov *=========================================================*/
106*16d86563SAlexander Pyhalov size_t
_icv_iconv(_iconv_st * st,char ** inbuf,size_t * inbytesleft,char ** outbuf,size_t * outbytesleft)107*16d86563SAlexander Pyhalov _icv_iconv(_iconv_st *st, char **inbuf, size_t *inbytesleft,
108*16d86563SAlexander Pyhalov char **outbuf, size_t *outbytesleft)
109*16d86563SAlexander Pyhalov {
110*16d86563SAlexander Pyhalov char c1 = '\0', c2 = '\0';
111*16d86563SAlexander Pyhalov int uconv_num = 0;
112*16d86563SAlexander Pyhalov unsigned long uni = 0;
113*16d86563SAlexander Pyhalov int utf8_len = 0;
114*16d86563SAlexander Pyhalov
115*16d86563SAlexander Pyhalov #ifdef DEBUG
116*16d86563SAlexander Pyhalov fprintf(stderr, "========== iconv(): UTF2 --> GBK2K ==========\n");
117*16d86563SAlexander Pyhalov #endif
118*16d86563SAlexander Pyhalov if (st == NULL) {
119*16d86563SAlexander Pyhalov errno = EBADF;
120*16d86563SAlexander Pyhalov return ((size_t) -1);
121*16d86563SAlexander Pyhalov }
122*16d86563SAlexander Pyhalov
123*16d86563SAlexander Pyhalov if (inbuf == NULL || *inbuf == NULL) { /* Reset request. */
124*16d86563SAlexander Pyhalov st->ustate = U0;
125*16d86563SAlexander Pyhalov st->_errno = 0;
126*16d86563SAlexander Pyhalov return ((size_t) 0);
127*16d86563SAlexander Pyhalov }
128*16d86563SAlexander Pyhalov
129*16d86563SAlexander Pyhalov st->_errno = 0; /* reset internal errno */
130*16d86563SAlexander Pyhalov errno = 0; /* reset external errno */
131*16d86563SAlexander Pyhalov
132*16d86563SAlexander Pyhalov /* a state machine for interpreting UTF8 code */
133*16d86563SAlexander Pyhalov while (*inbytesleft > 0 && *outbytesleft > 0) {
134*16d86563SAlexander Pyhalov
135*16d86563SAlexander Pyhalov uchar_t first_byte;
136*16d86563SAlexander Pyhalov unsigned short ch = 0;
137*16d86563SAlexander Pyhalov switch (st->ustate) {
138*16d86563SAlexander Pyhalov case U0:
139*16d86563SAlexander Pyhalov /*
140*16d86563SAlexander Pyhalov * assuming ASCII in the beginning
141*16d86563SAlexander Pyhalov */
142*16d86563SAlexander Pyhalov if ((**inbuf & MSB) == 0) { /* ASCII */
143*16d86563SAlexander Pyhalov **outbuf = **inbuf;
144*16d86563SAlexander Pyhalov (*outbuf)++;
145*16d86563SAlexander Pyhalov (*outbytesleft)--;
146*16d86563SAlexander Pyhalov } else {
147*16d86563SAlexander Pyhalov if ((**inbuf & 0xe0) == 0xc0) {
148*16d86563SAlexander Pyhalov /* 2 byte unicode 0xc0..0xdf */
149*16d86563SAlexander Pyhalov /* invalid sequence if the first char is either 0xc0 or 0xc1 */
150*16d86563SAlexander Pyhalov if ( number_of_bytes_in_utf8_char[((uchar_t)**inbuf)] == ICV_TYPE_ILLEGAL_CHAR )
151*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
152*16d86563SAlexander Pyhalov else {
153*16d86563SAlexander Pyhalov st->ustate = U1;
154*16d86563SAlexander Pyhalov st->keepc[0] = **inbuf;
155*16d86563SAlexander Pyhalov }
156*16d86563SAlexander Pyhalov } else if ((**inbuf & 0xf0) == 0xe0) { /* 3 byte 0xe0..0xf0 */
157*16d86563SAlexander Pyhalov st->ustate = U2;
158*16d86563SAlexander Pyhalov st->keepc[0] = **inbuf;
159*16d86563SAlexander Pyhalov } else {
160*16d86563SAlexander Pyhalov /* four bytes of UTF-8 sequences */
161*16d86563SAlexander Pyhalov if ( number_of_bytes_in_utf8_char[((uchar_t)**inbuf)] == ICV_TYPE_ILLEGAL_CHAR )
162*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
163*16d86563SAlexander Pyhalov else {
164*16d86563SAlexander Pyhalov st->ustate = U5;
165*16d86563SAlexander Pyhalov st->keepc[0] = **inbuf;
166*16d86563SAlexander Pyhalov }
167*16d86563SAlexander Pyhalov }
168*16d86563SAlexander Pyhalov }
169*16d86563SAlexander Pyhalov break;
170*16d86563SAlexander Pyhalov case U1:
171*16d86563SAlexander Pyhalov /* 2 byte utf-8 encoding */
172*16d86563SAlexander Pyhalov if ((**inbuf & 0xc0) == MSB) {
173*16d86563SAlexander Pyhalov utf8_len = 2;
174*16d86563SAlexander Pyhalov st->keepc[1] = **inbuf;
175*16d86563SAlexander Pyhalov
176*16d86563SAlexander Pyhalov c1 = (st->keepc[0]&0x1c)>>2;
177*16d86563SAlexander Pyhalov c2 = ((st->keepc[0]&0x03)<<6) | ((st->keepc[1])&0x3f);
178*16d86563SAlexander Pyhalov st->ustate = U4;
179*16d86563SAlexander Pyhalov #ifdef DEBUG
180*16d86563SAlexander Pyhalov fprintf(stderr, "UTF8: %02x%02x --> ",
181*16d86563SAlexander Pyhalov st->keepc[0]&ONEBYTE, st->keepc[1]&ONEBYTE);
182*16d86563SAlexander Pyhalov #endif
183*16d86563SAlexander Pyhalov continue; /* should not advance *inbuf */
184*16d86563SAlexander Pyhalov } else {
185*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
186*16d86563SAlexander Pyhalov }
187*16d86563SAlexander Pyhalov break;
188*16d86563SAlexander Pyhalov case U2:
189*16d86563SAlexander Pyhalov /* 3 byte unicode - 2nd byte */
190*16d86563SAlexander Pyhalov first_byte = (uchar_t)st->keepc[0];
191*16d86563SAlexander Pyhalov /* if the first byte is 0xed, it is illegal sequence if the second
192*16d86563SAlexander Pyhalov * one is between 0xa0 and 0xbf because surrogate section is ill-formed
193*16d86563SAlexander Pyhalov */
194*16d86563SAlexander Pyhalov if (((uchar_t)**inbuf) < valid_min_2nd_byte[first_byte] ||
195*16d86563SAlexander Pyhalov ((uchar_t)**inbuf) > valid_max_2nd_byte[first_byte] )
196*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
197*16d86563SAlexander Pyhalov else {
198*16d86563SAlexander Pyhalov st->ustate = U3;
199*16d86563SAlexander Pyhalov st->keepc[1] = **inbuf;
200*16d86563SAlexander Pyhalov }
201*16d86563SAlexander Pyhalov break;
202*16d86563SAlexander Pyhalov case U3:
203*16d86563SAlexander Pyhalov /* 3 byte unicode - 3rd byte */
204*16d86563SAlexander Pyhalov if ((**inbuf & 0xc0) == MSB) {
205*16d86563SAlexander Pyhalov st->ustate = U4;
206*16d86563SAlexander Pyhalov utf8_len = 3;
207*16d86563SAlexander Pyhalov st->keepc[2] = **inbuf;
208*16d86563SAlexander Pyhalov c1 = ((st->keepc[0]&0x0f)<<4) |
209*16d86563SAlexander Pyhalov ((st->keepc[1]&0x3c)>>2);
210*16d86563SAlexander Pyhalov c2 = ((st->keepc[1]&0x03)<<6) | ((**inbuf)&0x3f);
211*16d86563SAlexander Pyhalov #ifdef DEBUG
212*16d86563SAlexander Pyhalov fprintf(stderr, "UTF8: %02x%02x%02x --> ", st->keepc[0]&ONEBYTE,
213*16d86563SAlexander Pyhalov st->keepc[1]&ONEBYTE, **inbuf&ONEBYTE);
214*16d86563SAlexander Pyhalov #endif
215*16d86563SAlexander Pyhalov continue; /* should not advance *inbuf */
216*16d86563SAlexander Pyhalov } else {
217*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
218*16d86563SAlexander Pyhalov }
219*16d86563SAlexander Pyhalov break;
220*16d86563SAlexander Pyhalov case U4:
221*16d86563SAlexander Pyhalov uni = (unsigned long) ((c1 & ONEBYTE) << 8) + (c2 & ONEBYTE);
222*16d86563SAlexander Pyhalov if (!uni_2_viscii(uni, (unsigned char*)&ch)) {
223*16d86563SAlexander Pyhalov **outbuf = NON_ID_CHAR;
224*16d86563SAlexander Pyhalov uconv_num += utf8_len;
225*16d86563SAlexander Pyhalov } else {
226*16d86563SAlexander Pyhalov **outbuf = ch;
227*16d86563SAlexander Pyhalov }
228*16d86563SAlexander Pyhalov (*outbuf)++;
229*16d86563SAlexander Pyhalov (*outbytesleft)--;
230*16d86563SAlexander Pyhalov st->ustate = U0;
231*16d86563SAlexander Pyhalov break;
232*16d86563SAlexander Pyhalov case U5:
233*16d86563SAlexander Pyhalov first_byte = st->keepc[0];
234*16d86563SAlexander Pyhalov
235*16d86563SAlexander Pyhalov /* if the first byte is 0xf0, it is illegal sequence if
236*16d86563SAlexander Pyhalov * the second one is between 0x80 and 0x8f
237*16d86563SAlexander Pyhalov * for Four-Byte UTF: U+10000..U+10FFFF
238*16d86563SAlexander Pyhalov * */
239*16d86563SAlexander Pyhalov if (((uchar_t)**inbuf) < valid_min_2nd_byte[first_byte] ||
240*16d86563SAlexander Pyhalov ((uchar_t)**inbuf) > valid_max_2nd_byte[first_byte] )
241*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
242*16d86563SAlexander Pyhalov else {
243*16d86563SAlexander Pyhalov st->ustate = U6;
244*16d86563SAlexander Pyhalov st->keepc[1] = **inbuf;
245*16d86563SAlexander Pyhalov }
246*16d86563SAlexander Pyhalov break;
247*16d86563SAlexander Pyhalov case U6:
248*16d86563SAlexander Pyhalov if ((**inbuf & 0xc0) == MSB) {
249*16d86563SAlexander Pyhalov /* 0x80..0xbf */
250*16d86563SAlexander Pyhalov st->ustate = U7;
251*16d86563SAlexander Pyhalov st->keepc[2] = **inbuf;
252*16d86563SAlexander Pyhalov } else
253*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
254*16d86563SAlexander Pyhalov break;
255*16d86563SAlexander Pyhalov case U7:
256*16d86563SAlexander Pyhalov if ((**inbuf & 0xc0) == MSB) {
257*16d86563SAlexander Pyhalov /* 0x80..0xbf */
258*16d86563SAlexander Pyhalov /* replace with double NON_ID_CHARs */
259*16d86563SAlexander Pyhalov if ( *outbytesleft < 1 )
260*16d86563SAlexander Pyhalov st->_errno = errno = E2BIG;
261*16d86563SAlexander Pyhalov else {
262*16d86563SAlexander Pyhalov **outbuf = NON_ID_CHAR;
263*16d86563SAlexander Pyhalov (*outbytesleft) -= 1;
264*16d86563SAlexander Pyhalov uconv_num++;
265*16d86563SAlexander Pyhalov st->ustate = U0;
266*16d86563SAlexander Pyhalov }
267*16d86563SAlexander Pyhalov } else
268*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
269*16d86563SAlexander Pyhalov break;
270*16d86563SAlexander Pyhalov default:
271*16d86563SAlexander Pyhalov /* should never come here */
272*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
273*16d86563SAlexander Pyhalov st->ustate = U0; /* reset state */
274*16d86563SAlexander Pyhalov break;
275*16d86563SAlexander Pyhalov }
276*16d86563SAlexander Pyhalov
277*16d86563SAlexander Pyhalov if (st->_errno) {
278*16d86563SAlexander Pyhalov #ifdef DEBUG
279*16d86563SAlexander Pyhalov fprintf(stderr, "!!!!!\tst->_errno = %d\tst->ustate = %d\n",
280*16d86563SAlexander Pyhalov st->_errno, st->ustate);
281*16d86563SAlexander Pyhalov #endif
282*16d86563SAlexander Pyhalov break;
283*16d86563SAlexander Pyhalov }
284*16d86563SAlexander Pyhalov
285*16d86563SAlexander Pyhalov (*inbuf)++;
286*16d86563SAlexander Pyhalov (*inbytesleft)--;
287*16d86563SAlexander Pyhalov }
288*16d86563SAlexander Pyhalov
289*16d86563SAlexander Pyhalov if (*inbytesleft == 0 && st->ustate != U0)
290*16d86563SAlexander Pyhalov errno = EINVAL;
291*16d86563SAlexander Pyhalov
292*16d86563SAlexander Pyhalov if (*inbytesleft > 0 && *outbytesleft == 0)
293*16d86563SAlexander Pyhalov errno = E2BIG;
294*16d86563SAlexander Pyhalov
295*16d86563SAlexander Pyhalov if (errno) {
296*16d86563SAlexander Pyhalov int num_reversed_bytes = 0;
297*16d86563SAlexander Pyhalov
298*16d86563SAlexander Pyhalov switch (st->ustate)
299*16d86563SAlexander Pyhalov {
300*16d86563SAlexander Pyhalov case U1:
301*16d86563SAlexander Pyhalov num_reversed_bytes = 1;
302*16d86563SAlexander Pyhalov break;
303*16d86563SAlexander Pyhalov case U2:
304*16d86563SAlexander Pyhalov num_reversed_bytes = 1;
305*16d86563SAlexander Pyhalov break;
306*16d86563SAlexander Pyhalov case U3:
307*16d86563SAlexander Pyhalov num_reversed_bytes = 2;
308*16d86563SAlexander Pyhalov break;
309*16d86563SAlexander Pyhalov case U4:
310*16d86563SAlexander Pyhalov num_reversed_bytes = utf8_len - 1;
311*16d86563SAlexander Pyhalov break;
312*16d86563SAlexander Pyhalov case U5:
313*16d86563SAlexander Pyhalov num_reversed_bytes = 1;
314*16d86563SAlexander Pyhalov break;
315*16d86563SAlexander Pyhalov case U6:
316*16d86563SAlexander Pyhalov num_reversed_bytes = 2;
317*16d86563SAlexander Pyhalov break;
318*16d86563SAlexander Pyhalov case U7:
319*16d86563SAlexander Pyhalov num_reversed_bytes = 3;
320*16d86563SAlexander Pyhalov break;
321*16d86563SAlexander Pyhalov }
322*16d86563SAlexander Pyhalov
323*16d86563SAlexander Pyhalov /*
324*16d86563SAlexander Pyhalov * if error, *inbuf points to the byte following the last byte
325*16d86563SAlexander Pyhalov * successfully used in conversion.
326*16d86563SAlexander Pyhalov */
327*16d86563SAlexander Pyhalov *inbuf -= num_reversed_bytes;
328*16d86563SAlexander Pyhalov *inbytesleft += num_reversed_bytes;
329*16d86563SAlexander Pyhalov st->ustate = U0;
330*16d86563SAlexander Pyhalov
331*16d86563SAlexander Pyhalov return ((size_t) -1);
332*16d86563SAlexander Pyhalov }
333*16d86563SAlexander Pyhalov
334*16d86563SAlexander Pyhalov return uconv_num;
335*16d86563SAlexander Pyhalov }
336