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 #include <stdio.h>
26*16d86563SAlexander Pyhalov #include <errno.h>
27*16d86563SAlexander Pyhalov #include <stdlib.h>
28*16d86563SAlexander Pyhalov #include <sys/types.h>
29*16d86563SAlexander Pyhalov #define __NEED_UNI_2_TCVN__
30*16d86563SAlexander Pyhalov #include <unicode_tcvn.h> /* Unicode to TCVN mapping table */
31*16d86563SAlexander Pyhalov #include "common_defs.h"
32*16d86563SAlexander Pyhalov
33*16d86563SAlexander Pyhalov #define NON_ID_CHAR '?' /* non-identified character */
34*16d86563SAlexander Pyhalov
35*16d86563SAlexander Pyhalov typedef struct _icv_state {
36*16d86563SAlexander Pyhalov int _errno; /* internal errno */
37*16d86563SAlexander Pyhalov } _iconv_st;
38*16d86563SAlexander Pyhalov
39*16d86563SAlexander Pyhalov
40*16d86563SAlexander Pyhalov /*
41*16d86563SAlexander Pyhalov * Open; called from iconv_open()
42*16d86563SAlexander Pyhalov */
43*16d86563SAlexander Pyhalov void *
_icv_open()44*16d86563SAlexander Pyhalov _icv_open()
45*16d86563SAlexander Pyhalov {
46*16d86563SAlexander Pyhalov _iconv_st *st;
47*16d86563SAlexander Pyhalov
48*16d86563SAlexander Pyhalov if ((st = (_iconv_st *)malloc(sizeof(_iconv_st))) == NULL) {
49*16d86563SAlexander Pyhalov errno = ENOMEM;
50*16d86563SAlexander Pyhalov return ((void *) -1);
51*16d86563SAlexander Pyhalov }
52*16d86563SAlexander Pyhalov
53*16d86563SAlexander Pyhalov st->_errno = 0;
54*16d86563SAlexander Pyhalov return ((void *) st);
55*16d86563SAlexander Pyhalov }
56*16d86563SAlexander Pyhalov
57*16d86563SAlexander Pyhalov
58*16d86563SAlexander Pyhalov /*
59*16d86563SAlexander Pyhalov * Close; called from iconv_close()
60*16d86563SAlexander Pyhalov */
61*16d86563SAlexander Pyhalov void
_icv_close(_iconv_st * st)62*16d86563SAlexander Pyhalov _icv_close(_iconv_st *st)
63*16d86563SAlexander Pyhalov {
64*16d86563SAlexander Pyhalov if (!st)
65*16d86563SAlexander Pyhalov errno = EBADF;
66*16d86563SAlexander Pyhalov else
67*16d86563SAlexander Pyhalov free(st);
68*16d86563SAlexander Pyhalov }
69*16d86563SAlexander Pyhalov
70*16d86563SAlexander Pyhalov
71*16d86563SAlexander Pyhalov /*
72*16d86563SAlexander Pyhalov * Actual conversion; called from iconv()
73*16d86563SAlexander Pyhalov */
74*16d86563SAlexander Pyhalov size_t
_icv_iconv(_iconv_st * st,char ** inbuf,size_t * inbytesleft,char ** outbuf,size_t * outbytesleft)75*16d86563SAlexander Pyhalov _icv_iconv(_iconv_st *st, char **inbuf, size_t *inbytesleft,
76*16d86563SAlexander Pyhalov char **outbuf, size_t *outbytesleft)
77*16d86563SAlexander Pyhalov {
78*16d86563SAlexander Pyhalov int no_id_char_num = 0;
79*16d86563SAlexander Pyhalov #ifdef DEBUG
80*16d86563SAlexander Pyhalov fprintf(stderr, "========== iconv(): UCS-2 --> TCVN5712 ==========\n");
81*16d86563SAlexander Pyhalov #endif
82*16d86563SAlexander Pyhalov if (st == NULL) {
83*16d86563SAlexander Pyhalov errno = EBADF;
84*16d86563SAlexander Pyhalov return ((size_t) -1);
85*16d86563SAlexander Pyhalov }
86*16d86563SAlexander Pyhalov
87*16d86563SAlexander Pyhalov if (inbuf == NULL || *inbuf == NULL) { /* Reset request. */
88*16d86563SAlexander Pyhalov st->_errno = 0;
89*16d86563SAlexander Pyhalov return ((size_t) 0);
90*16d86563SAlexander Pyhalov }
91*16d86563SAlexander Pyhalov
92*16d86563SAlexander Pyhalov st->_errno = 0; /* Rreset internal errno */
93*16d86563SAlexander Pyhalov errno = 0; /* Rreset external errno */
94*16d86563SAlexander Pyhalov
95*16d86563SAlexander Pyhalov /* Convert UCS-2 encoding to TCVN5712 */
96*16d86563SAlexander Pyhalov while (*inbytesleft > 0 && *outbytesleft > 0) {
97*16d86563SAlexander Pyhalov unsigned long uni = 0;
98*16d86563SAlexander Pyhalov unsigned char c1 = 0, c2 = 0;
99*16d86563SAlexander Pyhalov unsigned char ch = 0;
100*16d86563SAlexander Pyhalov
101*16d86563SAlexander Pyhalov c1 = **inbuf;
102*16d86563SAlexander Pyhalov if (*inbytesleft <= 1 ) {
103*16d86563SAlexander Pyhalov errno = EINVAL;
104*16d86563SAlexander Pyhalov return ((size_t)-1);
105*16d86563SAlexander Pyhalov }
106*16d86563SAlexander Pyhalov (*inbuf)++;
107*16d86563SAlexander Pyhalov (*inbytesleft) -= 1;
108*16d86563SAlexander Pyhalov c2 = **inbuf;
109*16d86563SAlexander Pyhalov (*inbuf)++;
110*16d86563SAlexander Pyhalov (*inbytesleft) -= 1;
111*16d86563SAlexander Pyhalov
112*16d86563SAlexander Pyhalov #if defined(UCS_2LE)
113*16d86563SAlexander Pyhalov uni |= (unsigned long)c1;
114*16d86563SAlexander Pyhalov uni |= (unsigned long)c2<< 8;
115*16d86563SAlexander Pyhalov #else
116*16d86563SAlexander Pyhalov uni |= (unsigned long)c1<< 8;
117*16d86563SAlexander Pyhalov uni |= (unsigned long)c2;
118*16d86563SAlexander Pyhalov #endif
119*16d86563SAlexander Pyhalov if ( *inbytesleft > 0 && *outbytesleft <= 0 ) {
120*16d86563SAlexander Pyhalov errno = E2BIG;
121*16d86563SAlexander Pyhalov (*inbuf) -= 2;
122*16d86563SAlexander Pyhalov (*inbytesleft) +=2;
123*16d86563SAlexander Pyhalov return ((size_t)-1);
124*16d86563SAlexander Pyhalov }
125*16d86563SAlexander Pyhalov
126*16d86563SAlexander Pyhalov if (uni_2_tcvn(uni, &ch) == 1) {
127*16d86563SAlexander Pyhalov **outbuf = ch;
128*16d86563SAlexander Pyhalov } else {
129*16d86563SAlexander Pyhalov **outbuf = NON_ID_CHAR;
130*16d86563SAlexander Pyhalov no_id_char_num += 1;
131*16d86563SAlexander Pyhalov }
132*16d86563SAlexander Pyhalov (*outbuf) += 1;
133*16d86563SAlexander Pyhalov (*outbytesleft) -= 1;
134*16d86563SAlexander Pyhalov
135*16d86563SAlexander Pyhalov }
136*16d86563SAlexander Pyhalov
137*16d86563SAlexander Pyhalov return ((size_t)no_id_char_num);
138*16d86563SAlexander Pyhalov }
139