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) 1998-1999 by Sun Microsystems, Inc.
23*16d86563SAlexander Pyhalov * All rights reserved.
24*16d86563SAlexander Pyhalov *
25*16d86563SAlexander Pyhalov * This program covers UTF-7 to UTF-8, UCS-2, and, UCS-4 code conversions.
26*16d86563SAlexander Pyhalov * UTF-7 described in RFC 2152.
27*16d86563SAlexander Pyhalov * We don't support any other UCS formats to and from UTF-7 unless there is
28*16d86563SAlexander Pyhalov * a significant requirement.
29*16d86563SAlexander Pyhalov */
30*16d86563SAlexander Pyhalov
31*16d86563SAlexander Pyhalov
32*16d86563SAlexander Pyhalov #include <stdio.h>
33*16d86563SAlexander Pyhalov #include <stdlib.h>
34*16d86563SAlexander Pyhalov #include <errno.h>
35*16d86563SAlexander Pyhalov #include <sys/types.h>
36*16d86563SAlexander Pyhalov #include <sys/isa_defs.h>
37*16d86563SAlexander Pyhalov #include "utf7_to_ucs.h"
38*16d86563SAlexander Pyhalov
39*16d86563SAlexander Pyhalov
40*16d86563SAlexander Pyhalov void *
_icv_open()41*16d86563SAlexander Pyhalov _icv_open()
42*16d86563SAlexander Pyhalov {
43*16d86563SAlexander Pyhalov utf7_state_t *cd = (utf7_state_t *)calloc(1, sizeof(utf7_state_t));
44*16d86563SAlexander Pyhalov
45*16d86563SAlexander Pyhalov if (cd == (utf7_state_t *)NULL) {
46*16d86563SAlexander Pyhalov errno = ENOMEM;
47*16d86563SAlexander Pyhalov return((void *)-1);
48*16d86563SAlexander Pyhalov }
49*16d86563SAlexander Pyhalov
50*16d86563SAlexander Pyhalov #if defined(_LITTLE_ENDIAN)
51*16d86563SAlexander Pyhalov cd->little_endian = true;
52*16d86563SAlexander Pyhalov #endif
53*16d86563SAlexander Pyhalov
54*16d86563SAlexander Pyhalov return((void *)cd);
55*16d86563SAlexander Pyhalov }
56*16d86563SAlexander Pyhalov
57*16d86563SAlexander Pyhalov
58*16d86563SAlexander Pyhalov void
_icv_close(utf7_state_t * cd)59*16d86563SAlexander Pyhalov _icv_close(utf7_state_t *cd)
60*16d86563SAlexander Pyhalov {
61*16d86563SAlexander Pyhalov if (! cd)
62*16d86563SAlexander Pyhalov errno = EBADF;
63*16d86563SAlexander Pyhalov else
64*16d86563SAlexander Pyhalov free((void *)cd);
65*16d86563SAlexander Pyhalov }
66*16d86563SAlexander Pyhalov
67*16d86563SAlexander Pyhalov
68*16d86563SAlexander Pyhalov size_t
_icv_iconv(utf7_state_t * cd,char ** inbuf,size_t * inbufleft,char ** outbuf,size_t * outbufleft)69*16d86563SAlexander Pyhalov _icv_iconv(utf7_state_t *cd, char **inbuf, size_t *inbufleft, char **outbuf,
70*16d86563SAlexander Pyhalov size_t *outbufleft)
71*16d86563SAlexander Pyhalov {
72*16d86563SAlexander Pyhalov size_t ret_val = 0;
73*16d86563SAlexander Pyhalov uchar_t *ib;
74*16d86563SAlexander Pyhalov uchar_t *ob;
75*16d86563SAlexander Pyhalov uchar_t *ibtail;
76*16d86563SAlexander Pyhalov uchar_t *obtail;
77*16d86563SAlexander Pyhalov
78*16d86563SAlexander Pyhalov if (! cd) {
79*16d86563SAlexander Pyhalov errno = EBADF;
80*16d86563SAlexander Pyhalov return((size_t)-1);
81*16d86563SAlexander Pyhalov }
82*16d86563SAlexander Pyhalov
83*16d86563SAlexander Pyhalov if (!inbuf || !(*inbuf)) {
84*16d86563SAlexander Pyhalov /* We just ignore any remnant bits we so far accumulated. */
85*16d86563SAlexander Pyhalov cd->in_the_middle_of_utf7_sequence = false;
86*16d86563SAlexander Pyhalov cd->remnant = 0;
87*16d86563SAlexander Pyhalov cd->remnant_count = 0;
88*16d86563SAlexander Pyhalov cd->prevch = (uchar_t)'\0';
89*16d86563SAlexander Pyhalov
90*16d86563SAlexander Pyhalov return((size_t)0);
91*16d86563SAlexander Pyhalov }
92*16d86563SAlexander Pyhalov
93*16d86563SAlexander Pyhalov ib = (uchar_t *)*inbuf;
94*16d86563SAlexander Pyhalov ob = (uchar_t *)*outbuf;
95*16d86563SAlexander Pyhalov ibtail = ib + *inbufleft;
96*16d86563SAlexander Pyhalov obtail = ob + *outbufleft;
97*16d86563SAlexander Pyhalov
98*16d86563SAlexander Pyhalov while (ib < ibtail) {
99*16d86563SAlexander Pyhalov uint_t temp_remnant;
100*16d86563SAlexander Pyhalov uint_t u4;
101*16d86563SAlexander Pyhalov #if defined(UCS_2) || defined(UCS_4)
102*16d86563SAlexander Pyhalov signed char obsz;
103*16d86563SAlexander Pyhalov #endif
104*16d86563SAlexander Pyhalov
105*16d86563SAlexander Pyhalov u4 = ICV_U7_UCS4_OUTOFUTF16;
106*16d86563SAlexander Pyhalov if (cd->in_the_middle_of_utf7_sequence) {
107*16d86563SAlexander Pyhalov if (rmb64[*ib] >= 0) {
108*16d86563SAlexander Pyhalov temp_remnant = (cd->remnant << 6) | rmb64[*ib];
109*16d86563SAlexander Pyhalov
110*16d86563SAlexander Pyhalov switch (cd->remnant_count) {
111*16d86563SAlexander Pyhalov case ICV_U7_ACTION_HARVEST1:
112*16d86563SAlexander Pyhalov u4 = (temp_remnant >> 2) & 0xffff;
113*16d86563SAlexander Pyhalov break;
114*16d86563SAlexander Pyhalov case ICV_U7_ACTION_HARVEST2:
115*16d86563SAlexander Pyhalov u4 = (temp_remnant >> 4) & 0xffff;
116*16d86563SAlexander Pyhalov break;
117*16d86563SAlexander Pyhalov case ICV_U7_ACTION_HARVEST3:
118*16d86563SAlexander Pyhalov u4 = temp_remnant & 0xffff;
119*16d86563SAlexander Pyhalov break;
120*16d86563SAlexander Pyhalov }
121*16d86563SAlexander Pyhalov
122*16d86563SAlexander Pyhalov if (u4 != ICV_U7_UCS4_OUTOFUTF16) {
123*16d86563SAlexander Pyhalov if (u4 == 0x00fffe || u4 == 0x00ffff ||
124*16d86563SAlexander Pyhalov (u4 >= 0x00d800 &&
125*16d86563SAlexander Pyhalov u4 <= 0x00dfff)) {
126*16d86563SAlexander Pyhalov errno = EILSEQ;
127*16d86563SAlexander Pyhalov ret_val = (size_t)-1;
128*16d86563SAlexander Pyhalov break;
129*16d86563SAlexander Pyhalov }
130*16d86563SAlexander Pyhalov #if defined(UCS_2)
131*16d86563SAlexander Pyhalov CHECK_OUTBUF_SZ_AND_WRITE_U2;
132*16d86563SAlexander Pyhalov #elif defined(UCS_4)
133*16d86563SAlexander Pyhalov CHECK_OUTBUF_SZ_AND_WRITE_U4;
134*16d86563SAlexander Pyhalov #elif defined(UTF_8)
135*16d86563SAlexander Pyhalov CHECK_OUTBUF_SZ_AND_WRITE_U8_OR_EILSEQ;
136*16d86563SAlexander Pyhalov #else
137*16d86563SAlexander Pyhalov #error "Fatal: One of UCS_2, UCS_4, or, UTF_8 is needed."
138*16d86563SAlexander Pyhalov #endif
139*16d86563SAlexander Pyhalov }
140*16d86563SAlexander Pyhalov
141*16d86563SAlexander Pyhalov /* It's now safe to have the bits. */
142*16d86563SAlexander Pyhalov cd->remnant = temp_remnant;
143*16d86563SAlexander Pyhalov if (cd->remnant_count == ICV_U7_ACTION_HARVEST3)
144*16d86563SAlexander Pyhalov cd->remnant_count = ICV_U7_ACTION_START;
145*16d86563SAlexander Pyhalov else
146*16d86563SAlexander Pyhalov cd->remnant_count++;
147*16d86563SAlexander Pyhalov } else {
148*16d86563SAlexander Pyhalov if (*ib == (uint_t)'-') {
149*16d86563SAlexander Pyhalov if (cd->prevch == '+')
150*16d86563SAlexander Pyhalov u4 = (uint_t)'+';
151*16d86563SAlexander Pyhalov } else
152*16d86563SAlexander Pyhalov u4 = (uint_t)(*ib);
153*16d86563SAlexander Pyhalov
154*16d86563SAlexander Pyhalov switch (cd->remnant_count) {
155*16d86563SAlexander Pyhalov case ICV_U7_ACTION_START:
156*16d86563SAlexander Pyhalov /* (ICV_U7_ACTION_HARVEST3+1): */
157*16d86563SAlexander Pyhalov /* These are normal cases. */
158*16d86563SAlexander Pyhalov break;
159*16d86563SAlexander Pyhalov case (ICV_U7_ACTION_HARVEST1+1):
160*16d86563SAlexander Pyhalov if (cd->remnant & 0x03) {
161*16d86563SAlexander Pyhalov errno = EILSEQ;
162*16d86563SAlexander Pyhalov ret_val = (size_t)-1;
163*16d86563SAlexander Pyhalov goto illegal_char_err;
164*16d86563SAlexander Pyhalov }
165*16d86563SAlexander Pyhalov break;
166*16d86563SAlexander Pyhalov case (ICV_U7_ACTION_HARVEST2+1):
167*16d86563SAlexander Pyhalov if (cd->remnant & 0x0f) {
168*16d86563SAlexander Pyhalov errno = EILSEQ;
169*16d86563SAlexander Pyhalov ret_val = (size_t)-1;
170*16d86563SAlexander Pyhalov goto illegal_char_err;
171*16d86563SAlexander Pyhalov }
172*16d86563SAlexander Pyhalov break;
173*16d86563SAlexander Pyhalov default:
174*16d86563SAlexander Pyhalov errno = EILSEQ;
175*16d86563SAlexander Pyhalov ret_val = (size_t)-1;
176*16d86563SAlexander Pyhalov goto illegal_char_err;
177*16d86563SAlexander Pyhalov break;
178*16d86563SAlexander Pyhalov }
179*16d86563SAlexander Pyhalov
180*16d86563SAlexander Pyhalov if (u4 != ICV_U7_UCS4_OUTOFUTF16) {
181*16d86563SAlexander Pyhalov #if defined(UCS_2)
182*16d86563SAlexander Pyhalov CHECK_OUTBUF_SZ_AND_WRITE_U2;
183*16d86563SAlexander Pyhalov #elif defined(UCS_4)
184*16d86563SAlexander Pyhalov CHECK_OUTBUF_SZ_AND_WRITE_U4;
185*16d86563SAlexander Pyhalov #elif defined(UTF_8)
186*16d86563SAlexander Pyhalov if (ob >= obtail) {
187*16d86563SAlexander Pyhalov errno = E2BIG;
188*16d86563SAlexander Pyhalov ret_val = (size_t)-1;
189*16d86563SAlexander Pyhalov break;
190*16d86563SAlexander Pyhalov }
191*16d86563SAlexander Pyhalov *ob++ = (uchar_t)(u4 & 0x7f);
192*16d86563SAlexander Pyhalov #else
193*16d86563SAlexander Pyhalov #error "Fatal: One of UCS_2, UCS_4, or, UTF_8 is needed."
194*16d86563SAlexander Pyhalov #endif
195*16d86563SAlexander Pyhalov }
196*16d86563SAlexander Pyhalov
197*16d86563SAlexander Pyhalov cd->in_the_middle_of_utf7_sequence = false;
198*16d86563SAlexander Pyhalov cd->remnant = 0;
199*16d86563SAlexander Pyhalov cd->remnant_count = 0;
200*16d86563SAlexander Pyhalov }
201*16d86563SAlexander Pyhalov } else {
202*16d86563SAlexander Pyhalov if (*ib == '+') {
203*16d86563SAlexander Pyhalov cd->in_the_middle_of_utf7_sequence = true;
204*16d86563SAlexander Pyhalov cd->remnant = 0;
205*16d86563SAlexander Pyhalov cd->remnant_count = 0;
206*16d86563SAlexander Pyhalov } else {
207*16d86563SAlexander Pyhalov #if defined(UCS_2)
208*16d86563SAlexander Pyhalov u4 = (uint_t)*ib;
209*16d86563SAlexander Pyhalov CHECK_OUTBUF_SZ_AND_WRITE_U2;
210*16d86563SAlexander Pyhalov #elif defined(UCS_4)
211*16d86563SAlexander Pyhalov u4 = (uint_t)*ib;
212*16d86563SAlexander Pyhalov CHECK_OUTBUF_SZ_AND_WRITE_U4;
213*16d86563SAlexander Pyhalov #elif defined(UTF_8)
214*16d86563SAlexander Pyhalov if (ob >= obtail) {
215*16d86563SAlexander Pyhalov errno = E2BIG;
216*16d86563SAlexander Pyhalov ret_val = (size_t)-1;
217*16d86563SAlexander Pyhalov break;
218*16d86563SAlexander Pyhalov }
219*16d86563SAlexander Pyhalov *ob++ = *ib;
220*16d86563SAlexander Pyhalov #else
221*16d86563SAlexander Pyhalov #error "Fatal: One of UCS_2, UCS_4, or, UTF_8 is needed."
222*16d86563SAlexander Pyhalov #endif
223*16d86563SAlexander Pyhalov }
224*16d86563SAlexander Pyhalov }
225*16d86563SAlexander Pyhalov cd->prevch = *ib++;
226*16d86563SAlexander Pyhalov }
227*16d86563SAlexander Pyhalov
228*16d86563SAlexander Pyhalov illegal_char_err:
229*16d86563SAlexander Pyhalov *inbuf = (char *)ib;
230*16d86563SAlexander Pyhalov *inbufleft = ibtail - ib;
231*16d86563SAlexander Pyhalov *outbuf = (char *)ob;
232*16d86563SAlexander Pyhalov *outbufleft = obtail - ob;
233*16d86563SAlexander Pyhalov
234*16d86563SAlexander Pyhalov
235*16d86563SAlexander Pyhalov return(ret_val);
236*16d86563SAlexander Pyhalov }
237