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 /*
23*16d86563SAlexander Pyhalov * Copyright (c) 1997, by Sun Microsystems, Inc.
24*16d86563SAlexander Pyhalov * All rights reserved.
25*16d86563SAlexander Pyhalov */
26*16d86563SAlexander Pyhalov
27*16d86563SAlexander Pyhalov #include <stdio.h>
28*16d86563SAlexander Pyhalov #include <stdlib.h>
29*16d86563SAlexander Pyhalov #include <errno.h>
30*16d86563SAlexander Pyhalov #include <sys/types.h>
31*16d86563SAlexander Pyhalov
32*16d86563SAlexander Pyhalov #include "tab_lookup.h" /* table lookup data types */
33*16d86563SAlexander Pyhalov
34*16d86563SAlexander Pyhalov int bisearch(unsigned long val, _icv_state *st, int n);
35*16d86563SAlexander Pyhalov
36*16d86563SAlexander Pyhalov #define MSB 0x80 /* most significant bit */
37*16d86563SAlexander Pyhalov #define MBYTE 0x8e /* multi-byte (4 byte character) */
38*16d86563SAlexander Pyhalov #define PMASK 0xa0 /* plane number mask */
39*16d86563SAlexander Pyhalov #define ONEBYTE 0xff /* right most byte */
40*16d86563SAlexander Pyhalov
41*16d86563SAlexander Pyhalov /* non-identified character */
42*16d86563SAlexander Pyhalov #define UTF8_NON_ID_CHAR1 0xEF
43*16d86563SAlexander Pyhalov #define UTF8_NON_ID_CHAR2 0xBF
44*16d86563SAlexander Pyhalov #define UTF8_NON_ID_CHAR3 0xBD
45*16d86563SAlexander Pyhalov
46*16d86563SAlexander Pyhalov enum _USTATE { C0, C1, C2 };
47*16d86563SAlexander Pyhalov
48*16d86563SAlexander Pyhalov
49*16d86563SAlexander Pyhalov int ibm_to_utf8(_icv_state *st, char *buf, size_t buflen);
50*16d86563SAlexander Pyhalov
51*16d86563SAlexander Pyhalov
52*16d86563SAlexander Pyhalov /*
53*16d86563SAlexander Pyhalov * Actual conversion; called from iconv()
54*16d86563SAlexander Pyhalov * Input is UTF-8 data.
55*16d86563SAlexander Pyhalov * first convert to UCS2
56*16d86563SAlexander Pyhalov */
57*16d86563SAlexander Pyhalov size_t
_icv_iconv(_icv_state * st,char ** inbuf,size_t * inbytesleft,char ** outbuf,size_t * outbytesleft)58*16d86563SAlexander Pyhalov _icv_iconv(_icv_state *st, char **inbuf, size_t *inbytesleft,
59*16d86563SAlexander Pyhalov char **outbuf, size_t *outbytesleft)
60*16d86563SAlexander Pyhalov {
61*16d86563SAlexander Pyhalov /*
62*16d86563SAlexander Pyhalov * Actual conversion; called from iconv()
63*16d86563SAlexander Pyhalov */
64*16d86563SAlexander Pyhalov
65*16d86563SAlexander Pyhalov int n;
66*16d86563SAlexander Pyhalov
67*16d86563SAlexander Pyhalov #ifdef DEBUG
68*16d86563SAlexander Pyhalov fprintf(stderr, "========== iconv(): IBM --> UTF8 ==========\n");
69*16d86563SAlexander Pyhalov #endif
70*16d86563SAlexander Pyhalov
71*16d86563SAlexander Pyhalov if (st == NULL) {
72*16d86563SAlexander Pyhalov errno = EBADF;
73*16d86563SAlexander Pyhalov return ((size_t) -1);
74*16d86563SAlexander Pyhalov }
75*16d86563SAlexander Pyhalov
76*16d86563SAlexander Pyhalov if (inbuf == NULL || *inbuf == NULL) { /* Reset request. */
77*16d86563SAlexander Pyhalov st->ustate = C0;
78*16d86563SAlexander Pyhalov st->_errno = 0;
79*16d86563SAlexander Pyhalov st->shift = SHIFT_IN;
80*16d86563SAlexander Pyhalov return ((size_t) 0);
81*16d86563SAlexander Pyhalov }
82*16d86563SAlexander Pyhalov
83*16d86563SAlexander Pyhalov st->_errno = 0; /* reset internal errno */
84*16d86563SAlexander Pyhalov errno = 0; /* reset external errno */
85*16d86563SAlexander Pyhalov
86*16d86563SAlexander Pyhalov /* a state machine for interpreting UTF8 code */
87*16d86563SAlexander Pyhalov while (*inbytesleft > 0 && *outbytesleft > 0) {
88*16d86563SAlexander Pyhalov switch (**inbuf) {
89*16d86563SAlexander Pyhalov case SHIFT_OUT :
90*16d86563SAlexander Pyhalov if (st->shift == SHIFT_IN) {
91*16d86563SAlexander Pyhalov st->shift = SHIFT_OUT;
92*16d86563SAlexander Pyhalov (*inbuf)++;
93*16d86563SAlexander Pyhalov (*inbytesleft)--;
94*16d86563SAlexander Pyhalov continue;
95*16d86563SAlexander Pyhalov }
96*16d86563SAlexander Pyhalov break;
97*16d86563SAlexander Pyhalov case SHIFT_IN :
98*16d86563SAlexander Pyhalov if (st->shift == SHIFT_OUT) {
99*16d86563SAlexander Pyhalov st->shift = SHIFT_IN;
100*16d86563SAlexander Pyhalov (*inbuf)++;
101*16d86563SAlexander Pyhalov (*inbytesleft)--;
102*16d86563SAlexander Pyhalov continue;
103*16d86563SAlexander Pyhalov }
104*16d86563SAlexander Pyhalov break;
105*16d86563SAlexander Pyhalov }
106*16d86563SAlexander Pyhalov
107*16d86563SAlexander Pyhalov switch (st->ustate) {
108*16d86563SAlexander Pyhalov case C0 :
109*16d86563SAlexander Pyhalov /* the input is ascii, single byte, convert it */
110*16d86563SAlexander Pyhalov if (st->shift == SHIFT_IN) {
111*16d86563SAlexander Pyhalov st->keepc[0] = 0x0;
112*16d86563SAlexander Pyhalov st->keepc[1] = **inbuf;
113*16d86563SAlexander Pyhalov st->ustate = C2;
114*16d86563SAlexander Pyhalov continue;
115*16d86563SAlexander Pyhalov }
116*16d86563SAlexander Pyhalov
117*16d86563SAlexander Pyhalov /* two bytes character */
118*16d86563SAlexander Pyhalov st->keepc[0] = (**inbuf);
119*16d86563SAlexander Pyhalov st->ustate = C1;
120*16d86563SAlexander Pyhalov break;
121*16d86563SAlexander Pyhalov case C1 :
122*16d86563SAlexander Pyhalov st->keepc[1] = (**inbuf);
123*16d86563SAlexander Pyhalov st->ustate = C2;
124*16d86563SAlexander Pyhalov continue;
125*16d86563SAlexander Pyhalov case C2 :
126*16d86563SAlexander Pyhalov n = ibm_to_utf8(st, *outbuf, *outbytesleft);
127*16d86563SAlexander Pyhalov if (n > 0) {
128*16d86563SAlexander Pyhalov (*outbuf) += n;
129*16d86563SAlexander Pyhalov (*outbytesleft) -= n;
130*16d86563SAlexander Pyhalov } else {
131*16d86563SAlexander Pyhalov st->_errno = errno;
132*16d86563SAlexander Pyhalov return((size_t)-1);
133*16d86563SAlexander Pyhalov }
134*16d86563SAlexander Pyhalov st->ustate = C0;
135*16d86563SAlexander Pyhalov st->_errno = 0;
136*16d86563SAlexander Pyhalov break;
137*16d86563SAlexander Pyhalov
138*16d86563SAlexander Pyhalov default: /* should never come here */
139*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
140*16d86563SAlexander Pyhalov st->ustate = C0; /* reset state */
141*16d86563SAlexander Pyhalov break;
142*16d86563SAlexander Pyhalov }
143*16d86563SAlexander Pyhalov
144*16d86563SAlexander Pyhalov
145*16d86563SAlexander Pyhalov (*inbuf)++;
146*16d86563SAlexander Pyhalov (*inbytesleft)--;
147*16d86563SAlexander Pyhalov
148*16d86563SAlexander Pyhalov if (st->_errno) {
149*16d86563SAlexander Pyhalov #ifdef DEBUG
150*16d86563SAlexander Pyhalov fprintf(stderr, "!!!!!\tst->_errno = %d\tst->ustate = %d\n",
151*16d86563SAlexander Pyhalov st->_errno, st->ustate);
152*16d86563SAlexander Pyhalov #endif
153*16d86563SAlexander Pyhalov break;
154*16d86563SAlexander Pyhalov }
155*16d86563SAlexander Pyhalov
156*16d86563SAlexander Pyhalov if (errno)
157*16d86563SAlexander Pyhalov return((size_t)-1);
158*16d86563SAlexander Pyhalov }
159*16d86563SAlexander Pyhalov
160*16d86563SAlexander Pyhalov if (*outbytesleft == 0) {
161*16d86563SAlexander Pyhalov errno = E2BIG;
162*16d86563SAlexander Pyhalov return((size_t)-1);
163*16d86563SAlexander Pyhalov }
164*16d86563SAlexander Pyhalov return (*inbytesleft);
165*16d86563SAlexander Pyhalov }
166*16d86563SAlexander Pyhalov
167*16d86563SAlexander Pyhalov /*
168*16d86563SAlexander Pyhalov * IBM code --> (Unicode)
169*16d86563SAlexander Pyhalov * Unicode --> UTF8 (FSS-UTF)
170*16d86563SAlexander Pyhalov * (File System Safe Universal Character Set Transformation Format)
171*16d86563SAlexander Pyhalov * Return: > 0 - converted with enough space in output buffer
172*16d86563SAlexander Pyhalov * = 0 - no space in outbuf
173*16d86563SAlexander Pyhalov */
ibm_to_utf8(st,buf,buflen)174*16d86563SAlexander Pyhalov int ibm_to_utf8(st, buf, buflen)
175*16d86563SAlexander Pyhalov _icv_state *st;
176*16d86563SAlexander Pyhalov char *buf;
177*16d86563SAlexander Pyhalov size_t buflen;
178*16d86563SAlexander Pyhalov {
179*16d86563SAlexander Pyhalov unsigned long ibm_val; /* Big-5 value */
180*16d86563SAlexander Pyhalov int unidx; /* Unicode index */
181*16d86563SAlexander Pyhalov unsigned long uni_val; /* Unicode */
182*16d86563SAlexander Pyhalov
183*16d86563SAlexander Pyhalov ibm_val = ((st->keepc[0]&ONEBYTE) << 8) + (st->keepc[1]&ONEBYTE);
184*16d86563SAlexander Pyhalov #ifdef DEBUG
185*16d86563SAlexander Pyhalov fprintf(stderr, "%x\t", ibm_val);
186*16d86563SAlexander Pyhalov #endif
187*16d86563SAlexander Pyhalov
188*16d86563SAlexander Pyhalov
189*16d86563SAlexander Pyhalov unidx = bisearch(ibm_val, st, st->table_size);
190*16d86563SAlexander Pyhalov
191*16d86563SAlexander Pyhalov if (unidx >= 0)
192*16d86563SAlexander Pyhalov {
193*16d86563SAlexander Pyhalov if ( st->left_to_right )
194*16d86563SAlexander Pyhalov uni_val = st->table[unidx].right_code;
195*16d86563SAlexander Pyhalov else
196*16d86563SAlexander Pyhalov uni_val = st->table[unidx].left_code;
197*16d86563SAlexander Pyhalov }
198*16d86563SAlexander Pyhalov
199*16d86563SAlexander Pyhalov #ifdef DEBUG
200*16d86563SAlexander Pyhalov fprintf(stderr, "unidx = %d, unicode = %x\t", unidx, uni_val);
201*16d86563SAlexander Pyhalov #endif
202*16d86563SAlexander Pyhalov
203*16d86563SAlexander Pyhalov if (unidx >= 0) { /* do Unicode to UTF8 conversion */
204*16d86563SAlexander Pyhalov if (uni_val <= 0x07f) {
205*16d86563SAlexander Pyhalov if (buflen < 1) {
206*16d86563SAlexander Pyhalov errno = E2BIG;
207*16d86563SAlexander Pyhalov return 0;
208*16d86563SAlexander Pyhalov }
209*16d86563SAlexander Pyhalov *buf = uni_val;
210*16d86563SAlexander Pyhalov return 1;
211*16d86563SAlexander Pyhalov }
212*16d86563SAlexander Pyhalov if (uni_val >= 0x0080 && uni_val <= 0x07ff) {
213*16d86563SAlexander Pyhalov if (buflen < 2) {
214*16d86563SAlexander Pyhalov #ifdef DEBUG
215*16d86563SAlexander Pyhalov fprintf(stderr, "outbuf overflow in ibm_to_utf8()!!\n");
216*16d86563SAlexander Pyhalov #endif
217*16d86563SAlexander Pyhalov errno = E2BIG;
218*16d86563SAlexander Pyhalov return(0);
219*16d86563SAlexander Pyhalov }
220*16d86563SAlexander Pyhalov *buf = (char)((uni_val >> 6) & 0x1f) | 0xc0;
221*16d86563SAlexander Pyhalov *(buf+1) = (char)(uni_val & 0x3f) | 0x80;
222*16d86563SAlexander Pyhalov #ifdef DEBUG
223*16d86563SAlexander Pyhalov fprintf(stderr, "%x %x\n", *buf&ONEBYTE, *(buf+1)&ONEBYTE);
224*16d86563SAlexander Pyhalov #endif
225*16d86563SAlexander Pyhalov return(2);
226*16d86563SAlexander Pyhalov }
227*16d86563SAlexander Pyhalov if (uni_val >= 0x0800 && uni_val <= 0xffff) {
228*16d86563SAlexander Pyhalov if (buflen < 3) {
229*16d86563SAlexander Pyhalov #ifdef DEBUG
230*16d86563SAlexander Pyhalov fprintf(stderr, "outbuf overflow in ibm_to_utf8()!!\n");
231*16d86563SAlexander Pyhalov #endif
232*16d86563SAlexander Pyhalov errno = E2BIG;
233*16d86563SAlexander Pyhalov return(0);
234*16d86563SAlexander Pyhalov }
235*16d86563SAlexander Pyhalov *buf = (char)((uni_val >> 12) & 0xf) | 0xe0;
236*16d86563SAlexander Pyhalov *(buf+1) = (char)((uni_val >>6) & 0x3f) | 0x80;
237*16d86563SAlexander Pyhalov *(buf+2) = (char)(uni_val & 0x3f) | 0x80;
238*16d86563SAlexander Pyhalov #ifdef DEBUG
239*16d86563SAlexander Pyhalov fprintf(stderr, "%x %x %x\n", *buf&ONEBYTE, *(buf+1)&ONEBYTE, *(buf+2)&ONEBYTE);
240*16d86563SAlexander Pyhalov #endif
241*16d86563SAlexander Pyhalov return(3);
242*16d86563SAlexander Pyhalov }
243*16d86563SAlexander Pyhalov }
244*16d86563SAlexander Pyhalov
245*16d86563SAlexander Pyhalov /* can't find a match in IBM --> UTF8 table or illegal UTF8 code */
246*16d86563SAlexander Pyhalov if (buflen < 3) {
247*16d86563SAlexander Pyhalov #ifdef DEBUG
248*16d86563SAlexander Pyhalov fprintf(stderr, "outbuf overflow in ibm_to_utf8()!!\n");
249*16d86563SAlexander Pyhalov #endif
250*16d86563SAlexander Pyhalov errno = E2BIG;
251*16d86563SAlexander Pyhalov return(0);
252*16d86563SAlexander Pyhalov }
253*16d86563SAlexander Pyhalov
254*16d86563SAlexander Pyhalov *buf = (char)UTF8_NON_ID_CHAR1;
255*16d86563SAlexander Pyhalov *(buf+1) = (char)UTF8_NON_ID_CHAR2;
256*16d86563SAlexander Pyhalov *(buf+2) = (char)UTF8_NON_ID_CHAR3;
257*16d86563SAlexander Pyhalov
258*16d86563SAlexander Pyhalov #ifdef DEBUG
259*16d86563SAlexander Pyhalov fprintf(stderr, "%c %c %c\n", *buf, *(buf+1), *(buf+2));
260*16d86563SAlexander Pyhalov #endif
261*16d86563SAlexander Pyhalov return(3);
262*16d86563SAlexander Pyhalov }
263