xref: /illumos-gate/usr/src/lib/iconv_modules/ko/common/euc_to_johap92.c (revision 16d8656330ae5622ec32e5007f62145ebafdc50f)
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 (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright (c) 1995 by Sun Microsystems, Inc.
23  * All Rights Reserved.
24  */
25 
26 
27 #include <errno.h>
28 #include "ktable.h"
29 #include "hangulcode.h"
30 
31 static unsigned short _wansung_to_johap92(unsigned short code);
32 
33 /****  _ I C V _ O P E N  ****/
34 
_icv_open()35 void* _icv_open()
36 {
37 	return((void*)MAGIC_NUMBER);
38 }  /* end of int _icv_open(). */
39 
40 
41 /****  _ I C V _ C L O S E  ****/
42 
_icv_close(int * cd)43 void _icv_close(int* cd)
44 {
45 	if (!cd || cd != (int*)MAGIC_NUMBER)
46 		errno = EBADF;
47 }  /* end of void _icv_close(int*). */
48 
49 
50 /****  _ I C V _ I C O N V  ****/
51 
_icv_iconv(int * cd,char ** inbuf,size_t * inbufleft,char ** outbuf,size_t * outbufleft)52 size_t _icv_iconv(int* cd, char** inbuf, size_t* inbufleft,
53 			char** outbuf, size_t* outbufleft)
54 {
55 	size_t		ret_val = 0;
56 	unsigned char*	ib;
57 	unsigned char*	ob;
58 	unsigned char*	ibtail;
59 	unsigned char*	obtail;
60 
61 	if (!cd || cd != (int*)MAGIC_NUMBER)
62 	{
63 		errno = EBADF;
64 		return((size_t)-1);
65 	}
66 
67 	if (!inbuf || !(*inbuf))
68 	{
69 		return((size_t)0);
70 	}
71 
72 	ib = (unsigned char*)*inbuf;
73 	ob = (unsigned char*)*outbuf;
74 	ibtail = ib + *inbufleft;
75 	obtail = ob + *outbufleft;
76 
77 	while (ib < ibtail)
78 	{
79 		if (!(*ib & 0x80))		/* 7 bits */
80 		{
81 			if (ob >= obtail)
82 			{
83 				errno = E2BIG;
84 				ret_val = (size_t)-1;
85 				break;
86 			}
87 			*ob++ = *ib++;
88 		}
89 		else
90 		{
91 			unsigned short code;
92 
93 			if ((ibtail - ib) < 2)
94 			{
95 				errno = EINVAL;
96 				ret_val = (size_t)-1;
97 				break;
98 			}
99 
100 			if ((obtail - ob) < 2)
101 			{
102 				errno = E2BIG;
103 				ret_val = (size_t)-1;
104 				break;
105 			}
106 
107 			code = _wansung_to_johap92((unsigned short)(*ib)<<8 |
108 					(unsigned short)(*(ib + 1)));
109 			if (code != FAILED && code != ILLEGAL_SEQ)
110 			{
111 				*ob++ = (unsigned char)(code >> 8);
112 				*ob++ = (unsigned char)(code & 0xFF);
113 			}
114 			else
115 			{
116 				*ob++ = NON_IDENTICAL;
117 				*ob++ = NON_IDENTICAL;
118 			}
119 			ib += 2;
120 		}
121 	}
122 
123 	*inbuf = (char*)ib;
124 	*inbufleft = ibtail - ib;
125 	*outbuf = (char*)ob;
126 	*outbufleft = obtail - ob;
127 
128 	return(ret_val);
129 }  /* end of size_t _icv_iconv(int*, char**, size_t*, char**, size_t*).*/
130 
131 
132 /**** _ W A N S U N G _ T O _ J O H A P 9 2 ****/
133 
_wansung_to_johap92(unsigned short code)134 static unsigned short _wansung_to_johap92(unsigned short code)
135 {
136 	register unsigned short	jc, jc2;
137 	register short		h, i, l;
138 	short			ci, v, cf;
139 	short			disp;
140 	long			cfbit;
141 
142 	if ((unsigned short)(code & 0xFF) < 0xA1)
143 		return(ILLEGAL_SEQ);
144 
145 	if (code >= 0xB0A1 && code <= 0xC8FE)  /* Hangul */
146 	{
147 		for (h = CI_CNT, l = 0; ; )
148 		{
149 			ci = (l + h) / 2;
150 			if (l >= h)
151 				break;
152 			if (code < cmp_srchtbl[ci][0])
153 				h = ci - 1;
154 			else if (code < cmp_srchtbl[ci + 1][0])
155 				break;
156 			else
157 				l = ci + 1;
158 		}
159 
160 		for (v = 1; ; )
161 		{
162 			if (code < cmp_srchtbl[ci][v])
163 			{
164 				while (!cmp_srchtbl[ci][--v])
165 					;
166 				break;
167 			}
168 			else if (v == V_CNT)
169 				break;
170 			v++;
171 		}
172 
173 		disp = code - cmp_srchtbl[ci][v];
174 		if (((short)(cmp_srchtbl[ci][v] & BYTE_MASK) + disp) > 0xfe)
175 			disp -= SKIP;
176 
177 		for (cfbit = cmp_bitmap[ci][v], i = -1, cf = -1; i < disp; cf++)
178 		{
179 			if (cfbit & BIT_MASK)
180 				i++;
181 			cfbit >>= 1;
182 		}
183 
184 		if (cf == -1)
185 			return(FAILED);
186 
187 		code = ci + 2;
188 		code = (code << 5) | (v + (v + 1) / 6 * 2 + 3);
189 		return((code << 5) | (cf + cf / 18) | 0x8000);
190 	}
191 	else if (code >= 0xA1A1 && code <= 0xACFE)  /* Special symbols */
192 	{
193 		jc = (((unsigned short)(code - 0xA100) >> 1) + 0xD900) & 0xFF00;
194 		jc2 = code & 0xFF;
195 		if ((unsigned short)(code >> 8) % 2)
196 			return(jc | (jc2 - ((jc2 > 0xEE) ? 0x5E : 0x70)));
197 		return(jc | jc2);
198 	}
199 	else if (code >= 0xCAA1 && code <= 0xFDFE)  /* Hanja */
200 	{
201 		jc = (((unsigned short)(code - 0xCA00) >> 1) + 0xE000) & 0xFF00;
202 		jc2 = code & 0xFF;
203 		if ((unsigned short)(code >> 8) % 2)
204 			return(jc | jc2);
205 		return(jc | (jc2 - ((jc2 > 0xEE) ? 0x5E : 0x70)));
206 	}
207 	else if ((code >= 0xC9A1 && code <= 0xC9FE) ||
208 		 (code >= 0xFEA1 && code <= 0xFEFE))  /* User-definable area */
209 	{
210 		if ((code & 0xFF00) == 0xFE00)
211 			return(0xD800 | (code & 0xFF));
212 		code = code & 0xFF;
213 		return(0xD800 | (code - ((code > 0xEE) ? 0x5E : 0x70)));
214 	}
215 
216 	return(FAILED);
217 }  /* end of static unsigned short _wansung_to_johap92(unsigned short). */
218