1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22 /*
23 * Copyright 1989 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27 #pragma ident "%Z%%M% %I% %E% SMI"
28
29 #include <sys/types.h>
30 #include "codeset.h"
31 #include "mbextern.h"
32 #include "euc.h"
33 #include <limits.h>
34
35 #define EUCMASK 0x8080 /* All id bits */
36 #define MASK0 0x0000 /* Code Set 0 */
37 #define MASK1 0x8080 /* Code Set 1 */
38 #define MASK2 0x0080 /* Code Set 2 */
39 #define MASK3 0x8000 /* Code Set 3 */
40
41 #define EUCWID1 eucinfo->_eucw1
42 #define EUCWID2 eucinfo->_eucw2
43 #define EUCWID3 eucinfo->_eucw3
44
45 int _wctomb_euc(char *, wchar_t);
46
47 int
_mbtowc_euc(wchar_t * wchar,char * s,size_t n)48 _mbtowc_euc(wchar_t *wchar, char *s, size_t n)
49 {
50 int length;
51 wchar_t intcode;
52 int c;
53 char *olds = (char *)s;
54 wchar_t mask;
55 eucwidth_t * eucinfo = (eucwidth_t *)_code_set_info.code_info;
56
57 if(n <= 0)
58 return(-1);
59 if(s == (char *)0)
60 return (0);
61 c = (unsigned char)*s++;
62 if(c < 0200) {
63 if(wchar)
64 *wchar = c;
65 return (c ? 1 : 0);
66 }
67 intcode = 0;
68 if (c == SS2) {
69 if(!(length = EUCWID2)) {
70 if(wchar)
71 *wchar = c;
72 return (1);
73 }
74 mask = MASK2;
75 } else if(c == SS3) {
76 if(!(length = EUCWID3)) {
77 if(wchar)
78 *wchar = c;
79 return (1);
80 }
81 mask = MASK3;
82 } else {
83 if(iscntrl(c)) {
84 if(wchar)
85 *wchar = c;
86 return (1);
87 }
88 length = EUCWID1 - 1;
89 mask = MASK1;
90 intcode = c & 0177;
91 }
92 if(length + 1 > n)
93 return (-1);
94 while(length--) {
95 if((c = (unsigned char)*s++) < 0200 || iscntrl(c))
96 return (-1);
97 intcode = (intcode << 8) | (c & 0177);
98 }
99 if(wchar)
100 *wchar = intcode | mask;
101 return ((char *)s - olds);
102 }
103
104
105 size_t
_mbstowcs_euc(wchar_t * pwcs,char * s,size_t n)106 _mbstowcs_euc(wchar_t *pwcs, char *s, size_t n)
107 {
108 int i, j;
109
110 j=0;
111 while(*s) {
112 if(j>=n)
113 break;
114 i=_mbtowc_euc(pwcs+j, s, MB_LEN_MAX);
115 if(i==-1)
116 return (-1);
117 s+=i;
118 ++j;
119 }
120 if(j<n)
121 pwcs[j]=0;
122 return (j);
123 }
124
125
126 size_t
_wcstombs_euc(char * s,wchar_t * pwcs,size_t n)127 _wcstombs_euc(char *s, wchar_t *pwcs, size_t n)
128 {
129 wchar_t wc;
130 int i;
131 int r=n; /* Rest of bytes. */
132 char *t;
133 char mbbuf[MB_LEN_MAX+1];
134
135 while(wc=(*pwcs++)) {
136 i=_wctomb_euc(mbbuf, wc);
137
138 if (i>r)
139 break;
140 if (i==-1) return (-1);
141
142 r-=i;
143 for (t=mbbuf;i>0;--i){
144 /* Copy each byte. */
145 *(s++)=*(t++);
146 }
147 }
148 if (r>0)
149 /* Has enough room for NUL. */
150 *s=0;
151 return (n-r);
152 }
153
154 int
_wctomb_euc(char * s,wchar_t wchar)155 _wctomb_euc(char *s, wchar_t wchar)
156 {
157 eucwidth_t * eucinfo = (eucwidth_t *)_code_set_info.code_info;
158 char *olds = s;
159 int size, index;
160 unsigned char d;
161 if(!s)
162 return(0);
163 if( wchar <= 0177 || wchar <= 0377 && iscntrl(wchar)) {
164 *s++ = wchar;
165 return (wchar ? 1 : 0);
166 }
167 switch(wchar & EUCMASK) {
168
169 case MASK1:
170 size = EUCWID1;
171 break;
172
173 case MASK2:
174 *s++ = SS2;
175 size = EUCWID2;
176 break;
177
178 case MASK3:
179 *s++ = SS3;
180 size = EUCWID3;
181 break;
182
183 default:
184 return (-1);
185 }
186 index = size;
187 while(index--) {
188 d = wchar | 0200;
189 wchar >>= 8;
190 if(iscntrl(d))
191 return (-1);
192 s[index] = d;
193 }
194 return (s + size - olds);
195 }
196