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) 2001 Sun Microsystems, Inc.
23*16d86563SAlexander Pyhalov * All rights reserved.
24*16d86563SAlexander Pyhalov */
25*16d86563SAlexander Pyhalov #include <stdio.h>
26*16d86563SAlexander Pyhalov #include <stdlib.h>
27*16d86563SAlexander Pyhalov #include <errno.h>
28*16d86563SAlexander Pyhalov #include <big5hk_gb18030.h>
29*16d86563SAlexander Pyhalov
30*16d86563SAlexander Pyhalov #define NON_ID_CHAR '_' /* non-identifier charactor */
31*16d86563SAlexander Pyhalov #define MSB 0x80
32*16d86563SAlexander Pyhalov #define ONEBYTE 0xff
33*16d86563SAlexander Pyhalov #define gbk_4th_byte(v) ( ((v) >= 0x30) && ((v) <= 0x39) )
34*16d86563SAlexander Pyhalov
35*16d86563SAlexander Pyhalov typedef struct _icv_state {
36*16d86563SAlexander Pyhalov char keepc[2]; /* maximum # byte of HKSCS charactor */
37*16d86563SAlexander Pyhalov short cstate;
38*16d86563SAlexander Pyhalov int _errno; /* internal errno */
39*16d86563SAlexander Pyhalov } _iconv_st;
40*16d86563SAlexander Pyhalov
41*16d86563SAlexander Pyhalov enum _CSTATE { C0, C1 };
42*16d86563SAlexander Pyhalov
43*16d86563SAlexander Pyhalov int binsearch(unsigned long x, table_t table[], int n);
44*16d86563SAlexander Pyhalov int hkscs_2nd_byte(char inbuf);
45*16d86563SAlexander Pyhalov int hkscs_to_gbk2k(char keepc[], char *buf, size_t buflen);
46*16d86563SAlexander Pyhalov
47*16d86563SAlexander Pyhalov /*
48*16d86563SAlexander Pyhalov * Open; called from iconv_open()
49*16d86563SAlexander Pyhalov */
_icv_open()50*16d86563SAlexander Pyhalov void * _icv_open() {
51*16d86563SAlexander Pyhalov _iconv_st * st;
52*16d86563SAlexander Pyhalov
53*16d86563SAlexander Pyhalov if ((st = (_iconv_st *) malloc(sizeof(_iconv_st))) == NULL) {
54*16d86563SAlexander Pyhalov errno = ENOMEM;
55*16d86563SAlexander Pyhalov return ((void *) -1);
56*16d86563SAlexander Pyhalov }
57*16d86563SAlexander Pyhalov
58*16d86563SAlexander Pyhalov st->cstate = C0;
59*16d86563SAlexander Pyhalov st->_errno = 0;
60*16d86563SAlexander Pyhalov
61*16d86563SAlexander Pyhalov return ((void *) st);
62*16d86563SAlexander Pyhalov }
63*16d86563SAlexander Pyhalov
64*16d86563SAlexander Pyhalov /*
65*16d86563SAlexander Pyhalov * Close; called from iconv_close()
66*16d86563SAlexander Pyhalov */
_icv_close(_iconv_st * st)67*16d86563SAlexander Pyhalov void _icv_close(_iconv_st * st) {
68*16d86563SAlexander Pyhalov if (!st)
69*16d86563SAlexander Pyhalov errno = EBADF;
70*16d86563SAlexander Pyhalov else
71*16d86563SAlexander Pyhalov free(st);
72*16d86563SAlexander Pyhalov }
73*16d86563SAlexander Pyhalov
74*16d86563SAlexander Pyhalov /*
75*16d86563SAlexander Pyhalov * Actual conversion; called from iconv()
76*16d86563SAlexander Pyhalov */
77*16d86563SAlexander Pyhalov
_icv_iconv(_iconv_st * st,char ** inbuf,size_t * inbytesleft,char ** outbuf,size_t * outbytesleft)78*16d86563SAlexander Pyhalov size_t _icv_iconv(_iconv_st * st, char **inbuf, size_t *inbytesleft,
79*16d86563SAlexander Pyhalov char ** outbuf, size_t *outbytesleft) {
80*16d86563SAlexander Pyhalov int n;
81*16d86563SAlexander Pyhalov if (st == NULL) {
82*16d86563SAlexander Pyhalov errno = EBADF;
83*16d86563SAlexander Pyhalov return ((size_t) -1);
84*16d86563SAlexander Pyhalov }
85*16d86563SAlexander Pyhalov
86*16d86563SAlexander Pyhalov if (inbuf == NULL || *inbuf == NULL) { /* Reset request. */
87*16d86563SAlexander Pyhalov st->cstate = C0;
88*16d86563SAlexander Pyhalov st->_errno = 0;
89*16d86563SAlexander Pyhalov return ((size_t) 0);
90*16d86563SAlexander Pyhalov }
91*16d86563SAlexander Pyhalov
92*16d86563SAlexander Pyhalov errno = st->_errno = 0;
93*16d86563SAlexander Pyhalov
94*16d86563SAlexander Pyhalov while (*inbytesleft > 0 && *outbytesleft > 0) {
95*16d86563SAlexander Pyhalov switch (st->cstate) {
96*16d86563SAlexander Pyhalov case C0:
97*16d86563SAlexander Pyhalov if (**inbuf & MSB) { /* hkscs charactor */
98*16d86563SAlexander Pyhalov st->keepc[0] = (**inbuf);
99*16d86563SAlexander Pyhalov st->cstate = C1;
100*16d86563SAlexander Pyhalov } else { /* ASCII */
101*16d86563SAlexander Pyhalov **outbuf = **inbuf;
102*16d86563SAlexander Pyhalov (*outbuf)++;
103*16d86563SAlexander Pyhalov (*outbytesleft)--;
104*16d86563SAlexander Pyhalov }
105*16d86563SAlexander Pyhalov break;
106*16d86563SAlexander Pyhalov case C1: /* hkscs charactor 2nd byte */
107*16d86563SAlexander Pyhalov if (hkscs_2nd_byte(**inbuf) == 0) {
108*16d86563SAlexander Pyhalov st->keepc[1] = (**inbuf);
109*16d86563SAlexander Pyhalov n = hkscs_to_gbk2k(st->keepc, *outbuf, *outbytesleft);
110*16d86563SAlexander Pyhalov if (n > 0) {
111*16d86563SAlexander Pyhalov (*outbuf) += n;
112*16d86563SAlexander Pyhalov (*outbytesleft) -= n;
113*16d86563SAlexander Pyhalov
114*16d86563SAlexander Pyhalov st->cstate = C0;
115*16d86563SAlexander Pyhalov } else {
116*16d86563SAlexander Pyhalov st->_errno = errno = E2BIG;
117*16d86563SAlexander Pyhalov }
118*16d86563SAlexander Pyhalov } else { /* illegal input */
119*16d86563SAlexander Pyhalov st->_errno = errno =EILSEQ;
120*16d86563SAlexander Pyhalov }
121*16d86563SAlexander Pyhalov break;
122*16d86563SAlexander Pyhalov default:
123*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
124*16d86563SAlexander Pyhalov st->cstate = C0;
125*16d86563SAlexander Pyhalov break;
126*16d86563SAlexander Pyhalov }
127*16d86563SAlexander Pyhalov
128*16d86563SAlexander Pyhalov if (st->_errno) break;
129*16d86563SAlexander Pyhalov
130*16d86563SAlexander Pyhalov (*inbuf) ++;
131*16d86563SAlexander Pyhalov (*inbytesleft)--;
132*16d86563SAlexander Pyhalov
133*16d86563SAlexander Pyhalov }
134*16d86563SAlexander Pyhalov
135*16d86563SAlexander Pyhalov if (errno) return ((size_t) -1);
136*16d86563SAlexander Pyhalov
137*16d86563SAlexander Pyhalov if (*inbytesleft == 0 && st->cstate != C0) {
138*16d86563SAlexander Pyhalov errno = EINVAL;
139*16d86563SAlexander Pyhalov return ((size_t) -1);
140*16d86563SAlexander Pyhalov }
141*16d86563SAlexander Pyhalov
142*16d86563SAlexander Pyhalov if (*inbytesleft > 0 && *outbytesleft == 0) {
143*16d86563SAlexander Pyhalov errno = E2BIG;
144*16d86563SAlexander Pyhalov return (size_t)-1;
145*16d86563SAlexander Pyhalov }
146*16d86563SAlexander Pyhalov
147*16d86563SAlexander Pyhalov return (size_t)(*inbytesleft);
148*16d86563SAlexander Pyhalov }
149*16d86563SAlexander Pyhalov
150*16d86563SAlexander Pyhalov /*
151*16d86563SAlexander Pyhalov * Test whether inbuf is a valid character for
152*16d86563SAlexander Pyhalov * 2nd byte of HKSCS charactor:
153*16d86563SAlexander Pyhalov * Return: 0 --- valid HKSCS 2nd byte
154*16d86563SAlexander Pyhalov * 1 --- invalid HKSCS 2nd byte
155*16d86563SAlexander Pyhalov */
hkscs_2nd_byte(inbuf)156*16d86563SAlexander Pyhalov int hkscs_2nd_byte(inbuf)
157*16d86563SAlexander Pyhalov char inbuf;
158*16d86563SAlexander Pyhalov {
159*16d86563SAlexander Pyhalov unsigned int buf = (unsigned int)(inbuf & ONEBYTE);
160*16d86563SAlexander Pyhalov
161*16d86563SAlexander Pyhalov if ((buf >= 0x40) && (buf <= 0xfe))
162*16d86563SAlexander Pyhalov return 0;
163*16d86563SAlexander Pyhalov return 1;
164*16d86563SAlexander Pyhalov }
165*16d86563SAlexander Pyhalov
166*16d86563SAlexander Pyhalov /*
167*16d86563SAlexander Pyhalov * hkscs_to_gbk2k: Convert hkscs to gbk.
168*16d86563SAlexander Pyhalov * Return: >0 --- converted with enough space in output buffer
169*16d86563SAlexander Pyhalov * =0 --- no space in outbuf
170*16d86563SAlexander Pyhalov */
171*16d86563SAlexander Pyhalov
hkscs_to_gbk2k(char keepc[],char * buf,size_t buflen)172*16d86563SAlexander Pyhalov int hkscs_to_gbk2k(char keepc[], char *buf, size_t buflen) {
173*16d86563SAlexander Pyhalov
174*16d86563SAlexander Pyhalov unsigned long gbk_val;
175*16d86563SAlexander Pyhalov int index, len;
176*16d86563SAlexander Pyhalov unsigned long hkscs_val;
177*16d86563SAlexander Pyhalov
178*16d86563SAlexander Pyhalov if (buflen < 2) {
179*16d86563SAlexander Pyhalov errno = E2BIG;
180*16d86563SAlexander Pyhalov return 0;
181*16d86563SAlexander Pyhalov }
182*16d86563SAlexander Pyhalov
183*16d86563SAlexander Pyhalov hkscs_val = ((keepc[0] & ONEBYTE) << 8) + (keepc[1] & ONEBYTE);
184*16d86563SAlexander Pyhalov index = binsearch(hkscs_val, hkscs_gbk2k_tab, MAX_HKSCS_NUM);
185*16d86563SAlexander Pyhalov if (index >= 0) {
186*16d86563SAlexander Pyhalov char c;
187*16d86563SAlexander Pyhalov
188*16d86563SAlexander Pyhalov gbk_val = hkscs_gbk2k_tab[index].value;
189*16d86563SAlexander Pyhalov c = gbk_val & ONEBYTE;
190*16d86563SAlexander Pyhalov if ( gbk_4th_byte( (unsigned char)c ) ) {
191*16d86563SAlexander Pyhalov
192*16d86563SAlexander Pyhalov if ( buflen < 4 ) {
193*16d86563SAlexander Pyhalov errno = E2BIG;
194*16d86563SAlexander Pyhalov return 0;
195*16d86563SAlexander Pyhalov }
196*16d86563SAlexander Pyhalov
197*16d86563SAlexander Pyhalov *buf = ( gbk_val >> 24) & ONEBYTE;
198*16d86563SAlexander Pyhalov *(buf + 1) = (gbk_val >> 16) & ONEBYTE;
199*16d86563SAlexander Pyhalov *(buf + 2) = (gbk_val >> 8) & ONEBYTE;
200*16d86563SAlexander Pyhalov *(buf + 3) = c;
201*16d86563SAlexander Pyhalov
202*16d86563SAlexander Pyhalov len = 4;
203*16d86563SAlexander Pyhalov } else {
204*16d86563SAlexander Pyhalov *buf = (gbk_val >> 8) & ONEBYTE;
205*16d86563SAlexander Pyhalov *(buf + 1) = c;
206*16d86563SAlexander Pyhalov
207*16d86563SAlexander Pyhalov len = 2;
208*16d86563SAlexander Pyhalov }
209*16d86563SAlexander Pyhalov } else {
210*16d86563SAlexander Pyhalov *buf = *(buf + 1) = (char)NON_ID_CHAR;
211*16d86563SAlexander Pyhalov len = 2;
212*16d86563SAlexander Pyhalov }
213*16d86563SAlexander Pyhalov return len;
214*16d86563SAlexander Pyhalov }
215*16d86563SAlexander Pyhalov
216*16d86563SAlexander Pyhalov /*
217*16d86563SAlexander Pyhalov * binsearch()
218*16d86563SAlexander Pyhalov */
binsearch(unsigned long x,table_t table[],int n)219*16d86563SAlexander Pyhalov int binsearch(unsigned long x, table_t table[], int n) {
220*16d86563SAlexander Pyhalov int low, high, mid;
221*16d86563SAlexander Pyhalov
222*16d86563SAlexander Pyhalov low = 0;
223*16d86563SAlexander Pyhalov high = n - 1;
224*16d86563SAlexander Pyhalov while (low <= high) {
225*16d86563SAlexander Pyhalov mid = (low + high) >> 1;
226*16d86563SAlexander Pyhalov if (x < table[mid].key)
227*16d86563SAlexander Pyhalov high = mid - 1;
228*16d86563SAlexander Pyhalov else if (x > table[mid].key)
229*16d86563SAlexander Pyhalov low = mid + 1;
230*16d86563SAlexander Pyhalov else
231*16d86563SAlexander Pyhalov return mid;
232*16d86563SAlexander Pyhalov }
233*16d86563SAlexander Pyhalov return -1;
234*16d86563SAlexander Pyhalov }
235