xref: /illumos-gate/usr/src/lib/libc/port/i18n/wdresolve.c (revision b599bd93)
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 usr/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 usr/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 /*
23  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #include "lint.h"
28 #include "mtlib.h"
29 #include <sys/types.h>
30 #include <ctype.h>
31 #include <string.h>
32 #include <stdlib.h>
33 #include <euc.h>
34 #include <widec.h>
35 #include <wctype.h>
36 #include <limits.h>
37 #include <synch.h>
38 #include <thread.h>
39 #include <libintl.h>
40 #include "libc.h"
41 
42 #include <locale.h>
43 #include <dlfcn.h>
44 #include "_loc_path.h"
45 
46 static int	wdchkind_C(wchar_t);
47 static int	(*wdchknd)(wchar_t) = wdchkind_C;
48 static int	wdbindf_C(wchar_t, wchar_t, int);
49 static int	(*wdbdg)(wchar_t, wchar_t, int) = wdbindf_C;
50 static wchar_t	*wddelim_C(wchar_t, wchar_t, int);
51 static wchar_t	*(*wddlm)(wchar_t, wchar_t, int) = wddelim_C;
52 static wchar_t	(*mcfllr)(void) = NULL;
53 static int	(*mcwrp)(void) = NULL;
54 static void	*modhandle = NULL;
55 static int	initialized = 0;
56 
57 static int
_wdinitialize(void)58 _wdinitialize(void)
59 {
60 #define	_DFLTLOCPATH_LEN	(sizeof (_DFLT_LOC_PATH) - 1)
61 #define	_WDMODPATH_LEN		(sizeof (_WDMOD_PATH) - 1)
62 	char	wdmodpath[PATH_MAX];
63 	char	*loc;
64 	size_t	loclen;
65 	locale_t	curloc;
66 
67 	initialized = 1;
68 
69 	if (modhandle)
70 		(void) dlclose(modhandle);
71 
72 	curloc = uselocale(NULL);
73 	loc = current_locale(curloc, LC_CTYPE);
74 	loclen = strlen(loc);
75 	if (_DFLTLOCPATH_LEN + loclen + _WDMODPATH_LEN >= sizeof (wdmodpath)) {
76 		/* pathname too long */
77 		modhandle = NULL;
78 		goto C_fallback;
79 	}
80 
81 	(void) strcpy(wdmodpath, _DFLT_LOC_PATH);
82 	(void) strcpy(wdmodpath + _DFLTLOCPATH_LEN, loc);
83 	(void) strcpy(wdmodpath + _DFLTLOCPATH_LEN + loclen, _WDMOD_PATH);
84 
85 	if ((modhandle = dlopen(wdmodpath, RTLD_LAZY)) != NULL) {
86 		wdchknd = (int(*)(wchar_t))dlsym(modhandle, "_wdchkind_");
87 		if (wdchknd == NULL)
88 			wdchknd = wdchkind_C;
89 		wdbdg = (int(*)(wchar_t, wchar_t, int))dlsym(modhandle,
90 		    "_wdbindf_");
91 		if (wdbdg == NULL)
92 			wdbdg = wdbindf_C;
93 		wddlm = (wchar_t *(*)(wchar_t, wchar_t, int))
94 		    dlsym(modhandle, "_wddelim_");
95 		if (wddlm == NULL)
96 			wddlm = wddelim_C;
97 		mcfllr = (wchar_t(*)(void))dlsym(modhandle, "_mcfiller_");
98 		mcwrp = (int(*)(void))dlsym(modhandle, "_mcwrap_");
99 		return ((mcfllr && mcwrp) ? 0 : -1);
100 	}
101 
102 C_fallback:
103 	wdchknd = wdchkind_C;
104 	wdbdg = wdbindf_C;
105 	wddlm = wddelim_C;
106 	mcfllr = NULL;
107 	mcwrp = NULL;
108 	return (-1);
109 }
110 
111 /*
112  * wdinit() initializes other word-analyzing routines according to the
113  * current locale.  Programmers are supposed to call this routine every
114  * time the locale for the LC_CTYPE category is changed.  It returns 0
115  * when every initialization completes successfully, or -1 otherwise.
116  */
117 /* XXX: wdinit() is not exported from libc.  Should it be? */
118 int
wdinit()119 wdinit()
120 {
121 	int res;
122 
123 	callout_lock_enter();
124 	res = _wdinitialize();
125 	callout_lock_exit();
126 	return (res);
127 }
128 
129 /*
130  * wdchkind() returns a non-negative integral value unique to the kind
131  * of the character represented by given argument.
132  */
133 int
wdchkind(wchar_t wc)134 wdchkind(wchar_t wc)
135 {
136 	int i;
137 
138 	callout_lock_enter();
139 	if (!initialized)
140 		(void) _wdinitialize();
141 	i = (*wdchknd)(wc);
142 	callout_lock_exit();
143 	return (i);
144 }
145 static int
wdchkind_C(wchar_t wc)146 wdchkind_C(wchar_t wc)
147 {
148 	switch (wcsetno(wc)) {
149 	case 1:
150 		return (2);
151 	case 2:
152 		return (3);
153 	case 3:
154 		return (4);
155 	case 0:
156 		return (isascii(wc) &&
157 		    (isalpha(wc) || isdigit(wc) || wc == ' '));
158 	}
159 	return (0);
160 }
161 
162 /*
163  * wdbindf() returns an integral value (0 - 7) indicating binding
164  *  strength of two characters represented by the first two arguments.
165  * It returns -1 when either of the two character is not printable.
166  */
167 /*ARGSUSED*/
168 int
wdbindf(wchar_t wc1,wchar_t wc2,int type)169 wdbindf(wchar_t wc1, wchar_t wc2, int type)
170 {
171 	int i;
172 
173 	callout_lock_enter();
174 	if (!initialized)
175 		(void) _wdinitialize();
176 	if (!iswprint(wc1) || !iswprint(wc2)) {
177 		callout_lock_exit();
178 		return (-1);
179 	}
180 	i = (*wdbdg)(wc1, wc2, type);
181 	callout_lock_exit();
182 	return (i);
183 }
184 /*ARGSUSED*/
185 static int
wdbindf_C(wchar_t wc1,wchar_t wc2,int type)186 wdbindf_C(wchar_t wc1, wchar_t wc2, int type)
187 {
188 	if (csetlen(wc1) > 1 && csetlen(wc2) > 1)
189 		return (4);
190 	return (6);
191 }
192 
193 /*
194  * wddelim() returns a pointer to a null-terminated word delimiter
195  * string in wchar_t type that is thought most appropriate to join
196  * a text line ending with the first argument and a line beginning
197  * with the second argument, with.  When either of the two character
198  * is not printable it returns a pointer to a null wide character.
199  */
200 /*ARGSUSED*/
201 wchar_t *
wddelim(wchar_t wc1,wchar_t wc2,int type)202 wddelim(wchar_t wc1, wchar_t wc2, int type)
203 {
204 	wchar_t *i;
205 
206 	callout_lock_enter();
207 	if (!initialized)
208 		(void) _wdinitialize();
209 	if (!iswprint(wc1) || !iswprint(wc2)) {
210 		callout_lock_exit();
211 		return ((wchar_t *)L"");
212 	}
213 	i = (*wddlm)(wc1, wc2, type);
214 	callout_lock_exit();
215 	return (i);
216 }
217 /*ARGSUSED*/
218 static wchar_t *
wddelim_C(wchar_t wc1,wchar_t wc2,int type)219 wddelim_C(wchar_t wc1, wchar_t wc2, int type)
220 {
221 	return ((wchar_t *)L" ");
222 }
223 
224 /*
225  * mcfiller returns a printable ASCII character suggested for use in
226  * filling space resulted by a multicolumn character at the right margin.
227  */
228 wchar_t
mcfiller(void)229 mcfiller(void)
230 {
231 	wchar_t fillerchar;
232 
233 	callout_lock_enter();
234 	if (!initialized)
235 		(void) _wdinitialize();
236 	if (mcfllr) {
237 		fillerchar = (*mcfllr)();
238 		if (!fillerchar)
239 			fillerchar = (wchar_t)'~';
240 		if (iswprint(fillerchar)) {
241 			callout_lock_exit();
242 			return (fillerchar);
243 		}
244 	}
245 	callout_lock_exit();
246 	return ((wchar_t)'~');
247 }
248 
249 /*
250  * mcwrap returns an integral value indicating if a multicolumn character
251  * on the right margin should be wrapped around on a terminal screen.
252  */
253 /* XXX: mcwrap() is not exported from libc.  Should it be? */
254 int
mcwrap(void)255 mcwrap(void)
256 {
257 	callout_lock_enter();
258 	if (!initialized)
259 		(void) _wdinitialize();
260 	if (mcwrp)
261 		if ((*mcwrp)() == 0) {
262 			callout_lock_exit();
263 			return (0);
264 		}
265 	callout_lock_exit();
266 	return (1);
267 }
268