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) 1997, 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 <gb2312_big5_CN.h>
29*16d86563SAlexander Pyhalov
30*16d86563SAlexander Pyhalov #define NON_ID_CHAR '_' /* non-identified character */
31*16d86563SAlexander Pyhalov #define MSB 0x80
32*16d86563SAlexander Pyhalov #define ONEBYTE 0xff
33*16d86563SAlexander Pyhalov
34*16d86563SAlexander Pyhalov typedef struct _icv_state {
35*16d86563SAlexander Pyhalov char keepc[2]; /* maximum # byte of GB chararor */
36*16d86563SAlexander Pyhalov short cstate;
37*16d86563SAlexander Pyhalov int _errno; /* internal errno */
38*16d86563SAlexander Pyhalov } _iconv_st;
39*16d86563SAlexander Pyhalov
40*16d86563SAlexander Pyhalov enum _CSTATE { C0, C1 };
41*16d86563SAlexander Pyhalov
42*16d86563SAlexander Pyhalov int gb2312_2nd_byte(char inbuf);
43*16d86563SAlexander Pyhalov int gb2312_to_big5(char keepc[], char *buf, size_t buflen);
44*16d86563SAlexander Pyhalov int binsearch(unsigned long x, table_t table[], int n);
45*16d86563SAlexander Pyhalov
46*16d86563SAlexander Pyhalov /*
47*16d86563SAlexander Pyhalov * Open; called from iconv_open()
48*16d86563SAlexander Pyhalov */
_icv_open()49*16d86563SAlexander Pyhalov void * _icv_open() {
50*16d86563SAlexander Pyhalov _iconv_st * st;
51*16d86563SAlexander Pyhalov
52*16d86563SAlexander Pyhalov if ((st = (_iconv_st *) malloc(sizeof(_iconv_st))) == NULL) {
53*16d86563SAlexander Pyhalov errno = ENOMEM;
54*16d86563SAlexander Pyhalov return ((void *) -1);
55*16d86563SAlexander Pyhalov }
56*16d86563SAlexander Pyhalov
57*16d86563SAlexander Pyhalov st->cstate = C0;
58*16d86563SAlexander Pyhalov st->_errno = 0;
59*16d86563SAlexander Pyhalov
60*16d86563SAlexander Pyhalov return ((void *) st);
61*16d86563SAlexander Pyhalov }
62*16d86563SAlexander Pyhalov
63*16d86563SAlexander Pyhalov /*
64*16d86563SAlexander Pyhalov * Close; called from iconv_close()
65*16d86563SAlexander Pyhalov */
_icv_close(_iconv_st * st)66*16d86563SAlexander Pyhalov void _icv_close(_iconv_st * st) {
67*16d86563SAlexander Pyhalov if (!st)
68*16d86563SAlexander Pyhalov errno = EBADF;
69*16d86563SAlexander Pyhalov else
70*16d86563SAlexander Pyhalov free(st);
71*16d86563SAlexander Pyhalov }
72*16d86563SAlexander Pyhalov
73*16d86563SAlexander Pyhalov /*
74*16d86563SAlexander Pyhalov * Actual conversion; called from iconv()
75*16d86563SAlexander Pyhalov */
76*16d86563SAlexander Pyhalov
_icv_iconv(_iconv_st * st,char ** inbuf,size_t * inbytesleft,char ** outbuf,size_t * outbytesleft)77*16d86563SAlexander Pyhalov size_t _icv_iconv(_iconv_st * st, char **inbuf, size_t *inbytesleft,
78*16d86563SAlexander Pyhalov char ** outbuf, size_t *outbytesleft) {
79*16d86563SAlexander Pyhalov int n;
80*16d86563SAlexander Pyhalov if (st == NULL) {
81*16d86563SAlexander Pyhalov errno = EBADF;
82*16d86563SAlexander Pyhalov return ((size_t) -1);
83*16d86563SAlexander Pyhalov }
84*16d86563SAlexander Pyhalov
85*16d86563SAlexander Pyhalov if (inbuf == NULL || *inbuf == NULL) { /* Reset request. */
86*16d86563SAlexander Pyhalov st->cstate = C0;
87*16d86563SAlexander Pyhalov st->_errno = 0;
88*16d86563SAlexander Pyhalov return ((size_t) 0);
89*16d86563SAlexander Pyhalov }
90*16d86563SAlexander Pyhalov
91*16d86563SAlexander Pyhalov errno = st->_errno = 0;
92*16d86563SAlexander Pyhalov
93*16d86563SAlexander Pyhalov while (*inbytesleft > 0 && *outbytesleft > 0) {
94*16d86563SAlexander Pyhalov switch (st->cstate) {
95*16d86563SAlexander Pyhalov case C0:
96*16d86563SAlexander Pyhalov if (**inbuf & MSB) { /* gb2312 charactor */
97*16d86563SAlexander Pyhalov st->keepc[0] = (**inbuf);
98*16d86563SAlexander Pyhalov st->cstate = C1;
99*16d86563SAlexander Pyhalov } else { /* ASCII */
100*16d86563SAlexander Pyhalov **outbuf = **inbuf;
101*16d86563SAlexander Pyhalov (*outbuf)++;
102*16d86563SAlexander Pyhalov (*outbytesleft)--;
103*16d86563SAlexander Pyhalov }
104*16d86563SAlexander Pyhalov break;
105*16d86563SAlexander Pyhalov case C1: /* GBK charactor 2nd byte */
106*16d86563SAlexander Pyhalov if (gb2312_2nd_byte(**inbuf) == 0) {
107*16d86563SAlexander Pyhalov st->keepc[1] = (**inbuf);
108*16d86563SAlexander Pyhalov n = gb2312_to_big5(st->keepc, *outbuf, *outbytesleft);
109*16d86563SAlexander Pyhalov if (n > 0) {
110*16d86563SAlexander Pyhalov (*outbuf) += n;
111*16d86563SAlexander Pyhalov (*outbytesleft) -= n;
112*16d86563SAlexander Pyhalov
113*16d86563SAlexander Pyhalov st->cstate = C0;
114*16d86563SAlexander Pyhalov } else {
115*16d86563SAlexander Pyhalov st->_errno = errno = E2BIG;
116*16d86563SAlexander Pyhalov }
117*16d86563SAlexander Pyhalov } else { /* illegal input */
118*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
119*16d86563SAlexander Pyhalov }
120*16d86563SAlexander Pyhalov break;
121*16d86563SAlexander Pyhalov default: /* un-reachable */
122*16d86563SAlexander Pyhalov st->_errno = errno = EILSEQ;
123*16d86563SAlexander Pyhalov st->cstate = C0;
124*16d86563SAlexander Pyhalov break;
125*16d86563SAlexander Pyhalov }
126*16d86563SAlexander Pyhalov
127*16d86563SAlexander Pyhalov if (st->_errno)
128*16d86563SAlexander Pyhalov break;
129*16d86563SAlexander Pyhalov
130*16d86563SAlexander Pyhalov (*inbuf)++;
131*16d86563SAlexander Pyhalov (*inbytesleft)--;
132*16d86563SAlexander Pyhalov }
133*16d86563SAlexander Pyhalov
134*16d86563SAlexander Pyhalov if (errno) return ((size_t) -1);
135*16d86563SAlexander Pyhalov
136*16d86563SAlexander Pyhalov if (*inbytesleft == 0 && st->cstate != C0) {
137*16d86563SAlexander Pyhalov errno = EINVAL;
138*16d86563SAlexander Pyhalov return ((size_t) -1);
139*16d86563SAlexander Pyhalov }
140*16d86563SAlexander Pyhalov
141*16d86563SAlexander Pyhalov if (*inbytesleft > 0 && *outbytesleft == 0) {
142*16d86563SAlexander Pyhalov errno = E2BIG;
143*16d86563SAlexander Pyhalov return (size_t)-1;
144*16d86563SAlexander Pyhalov }
145*16d86563SAlexander Pyhalov
146*16d86563SAlexander Pyhalov return (size_t)(*inbytesleft);
147*16d86563SAlexander Pyhalov }
148*16d86563SAlexander Pyhalov
149*16d86563SAlexander Pyhalov /*
150*16d86563SAlexander Pyhalov * Test whether inbuf is a valid character for
151*16d86563SAlexander Pyhalov * 2nd byte of GB2312 charactor:
152*16d86563SAlexander Pyhalov * Return: 0 --- valid GB2312 2nd byte
153*16d86563SAlexander Pyhalov * 1 --- invalid GB2312 2nd byte
154*16d86563SAlexander Pyhalov */
gb2312_2nd_byte(inbuf)155*16d86563SAlexander Pyhalov int gb2312_2nd_byte(inbuf)
156*16d86563SAlexander Pyhalov char inbuf;
157*16d86563SAlexander Pyhalov {
158*16d86563SAlexander Pyhalov
159*16d86563SAlexander Pyhalov unsigned int buf = (unsigned int) (inbuf & ONEBYTE);
160*16d86563SAlexander Pyhalov
161*16d86563SAlexander Pyhalov if ((buf >= 0xa1) && (buf <= 0xfe))
162*16d86563SAlexander Pyhalov return 0;
163*16d86563SAlexander Pyhalov return 1;
164*16d86563SAlexander Pyhalov }
165*16d86563SAlexander Pyhalov
166*16d86563SAlexander Pyhalov /*
167*16d86563SAlexander Pyhalov * gb2312_to_big5: Convert gbk charactor to Big5.
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
gb2312_to_big5(char keepc[],char * buf,size_t buflen)172*16d86563SAlexander Pyhalov int gb2312_to_big5(char keepc[], char *buf, size_t buflen) {
173*16d86563SAlexander Pyhalov
174*16d86563SAlexander Pyhalov unsigned long gb_val; /* GB2312 value */
175*16d86563SAlexander Pyhalov int index;
176*16d86563SAlexander Pyhalov unsigned long big5_val; /* BIG5 value */
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 gb_val = ((keepc[0] & ONEBYTE) << 8) + (keepc[1] & ONEBYTE);
184*16d86563SAlexander Pyhalov index = binsearch(gb_val, gb_big5_tab, BIG5MAX);
185*16d86563SAlexander Pyhalov if (index >= 0) {
186*16d86563SAlexander Pyhalov big5_val = gb_big5_tab[index].value;
187*16d86563SAlexander Pyhalov *buf = (big5_val >> 8) & ONEBYTE;
188*16d86563SAlexander Pyhalov *(buf + 1) = big5_val & ONEBYTE;
189*16d86563SAlexander Pyhalov } else
190*16d86563SAlexander Pyhalov *buf = *(buf + 1) = (char)NON_ID_CHAR;
191*16d86563SAlexander Pyhalov return 2;
192*16d86563SAlexander Pyhalov }
193*16d86563SAlexander Pyhalov
194*16d86563SAlexander Pyhalov /*
195*16d86563SAlexander Pyhalov * binsearch()
196*16d86563SAlexander Pyhalov */
binsearch(unsigned long x,table_t table[],int n)197*16d86563SAlexander Pyhalov int binsearch(unsigned long x, table_t table[], int n) {
198*16d86563SAlexander Pyhalov int low, high, mid;
199*16d86563SAlexander Pyhalov
200*16d86563SAlexander Pyhalov low = 0;
201*16d86563SAlexander Pyhalov high = n - 1;
202*16d86563SAlexander Pyhalov while (low <= high) {
203*16d86563SAlexander Pyhalov mid = (low + high) >> 1;
204*16d86563SAlexander Pyhalov if (x < table[mid].key)
205*16d86563SAlexander Pyhalov high = mid - 1;
206*16d86563SAlexander Pyhalov else if (x > table[mid].key)
207*16d86563SAlexander Pyhalov low = mid + 1;
208*16d86563SAlexander Pyhalov else
209*16d86563SAlexander Pyhalov return mid;
210*16d86563SAlexander Pyhalov }
211*16d86563SAlexander Pyhalov return -1;
212*16d86563SAlexander Pyhalov }
213