euc.multibyte.c revision 722:636b850d4ee9 
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
45int	_wctomb_euc(char *, wchar_t);
46
47int
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
105size_t
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
126size_t
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
154int
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