libc: locale support for static binaries.
[dragonfly.git] / lib / libc / citrus / citrus_module.c
1 /* $NetBSD: citrus_module.c,v 1.5 2005/11/29 03:11:58 christos Exp $ */
2 /* $DragonFly: src/lib/libc/citrus/citrus_module.c,v 1.5 2008/04/10 10:21:01 hasso Exp $ */
3
4 /*-
5  * Copyright (c)1999, 2000, 2001, 2002 Citrus Project,
6  * All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  *
17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27  * SUCH DAMAGE.
28  */
29
30 /*-
31  * Copyright (c) 1998 The NetBSD Foundation, Inc.
32  * All rights reserved.
33  *
34  * This code is derived from software contributed to The NetBSD Foundation
35  * by Paul Kranenburg.
36  *
37  * Redistribution and use in source and binary forms, with or without
38  * modification, are permitted provided that the following conditions
39  * are met:
40  * 1. Redistributions of source code must retain the above copyright
41  *    notice, this list of conditions and the following disclaimer.
42  * 2. Redistributions in binary form must reproduce the above copyright
43  *    notice, this list of conditions and the following disclaimer in the
44  *    documentation and/or other materials provided with the distribution.
45  * 3. All advertising materials mentioning features or use of this software
46  *    must display the following acknowledgement:
47  *        This product includes software developed by the NetBSD
48  *        Foundation, Inc. and its contributors.
49  * 4. Neither the name of The NetBSD Foundation nor the names of its
50  *    contributors may be used to endorse or promote products derived
51  *    from this software without specific prior written permission.
52  *
53  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
54  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
55  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
56  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
57  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
58  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
59  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
60  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
61  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
62  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
63  * POSSIBILITY OF SUCH DAMAGE.
64  */
65
66 /*-
67  * Copyright (c) 1993
68  *      The Regents of the University of California.  All rights reserved.
69  *
70  * This code is derived from software contributed to Berkeley by
71  * Paul Borman at Krystal Technologies.
72  *
73  * Redistribution and use in source and binary forms, with or without
74  * modification, are permitted provided that the following conditions
75  * are met:
76  * 1. Redistributions of source code must retain the above copyright
77  *    notice, this list of conditions and the following disclaimer.
78  * 2. Redistributions in binary form must reproduce the above copyright
79  *    notice, this list of conditions and the following disclaimer in the
80  *    documentation and/or other materials provided with the distribution.
81  * 3. Neither the name of the University nor the names of its contributors
82  *    may be used to endorse or promote products derived from this software
83  *    without specific prior written permission.
84  *
85  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
86  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
87  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
88  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
89  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
90  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
91  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
92  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
93  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
94  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
95  * SUCH DAMAGE.
96  */
97
98 #include <assert.h>
99 #include <errno.h>
100 #include <limits.h>
101 #include <string.h>
102 #include <stdio.h>
103 #include <stdlib.h>
104 #include <unistd.h>
105 #include <locale.h>
106 #include <stddef.h>
107 #include <paths.h>
108 #include <wchar.h>
109 #include "citrus_module.h"
110
111 #include <sys/types.h>
112 #include <dirent.h>
113 #include <dlfcn.h>
114
115 #ifdef __PIC__
116
117 static int _getdewey(int [], char *);
118 static int _cmpndewey(int [], int, int [], int);
119 static const char *_findshlib(char *, int *, int *);
120
121 static const char *_pathI18nModule = NULL;
122
123 /* from libexec/ld.aout_so/shlib.c */
124 #undef major
125 #undef minor
126 #define MAXDEWEY        3       /*ELF*/
127
128 static int
129 _getdewey(int dewey[], char *cp)
130 {
131         int     i, n;
132
133         _DIAGASSERT(dewey != NULL);
134         _DIAGASSERT(cp != NULL);
135
136         for (n = 0, i = 0; i < MAXDEWEY; i++) {
137                 if (*cp == '\0')
138                         break;
139
140                 if (*cp == '.') cp++;
141                 if (*cp < '0' || '9' < *cp)
142                         return 0;
143
144                 dewey[n++] = (int)strtol(cp, &cp, 10);
145         }
146
147         return n;
148 }
149
150 /*
151  * Compare two dewey arrays.
152  * Return -1 if `d1' represents a smaller value than `d2'.
153  * Return  1 if `d1' represents a greater value than `d2'.
154  * Return  0 if equal.
155  */
156 static int
157 _cmpndewey(int d1[], int n1, int d2[], int n2)
158 {
159         int     i;
160
161         _DIAGASSERT(d1 != NULL);
162         _DIAGASSERT(d2 != NULL);
163
164         for (i = 0; i < n1 && i < n2; i++) {
165                 if (d1[i] < d2[i])
166                         return -1;
167                 if (d1[i] > d2[i])
168                         return 1;
169         }
170
171         if (n1 == n2)
172                 return 0;
173
174         if (i == n1)
175                 return -1;
176
177         if (i == n2)
178                 return 1;
179
180         /* XXX cannot happen */
181         return 0;
182 }
183
184 static const char *
185 _findshlib(char *name, int *majorp, int *minorp)
186 {
187         int             dewey[MAXDEWEY];
188         int             ndewey;
189         int             tmp[MAXDEWEY];
190         int             i;
191         int             len;
192         char            *lname;
193         static char     path[PATH_MAX];
194         int             major, minor;
195         const char      *search_dirs[1];
196         const int       n_search_dirs = 1;
197
198         _DIAGASSERT(name != NULL);
199         _DIAGASSERT(majorp != NULL);
200         _DIAGASSERT(minorp != NULL);
201
202         major = *majorp;
203         minor = *minorp;
204         path[0] = '\0';
205         search_dirs[0] = _pathI18nModule;
206         len = strlen(name);
207         lname = name;
208
209         ndewey = 0;
210
211         for (i = 0; i < n_search_dirs; i++) {
212                 DIR             *dd = opendir(search_dirs[i]);
213                 struct dirent   *dp;
214                 int             found_dot_a = 0;
215                 int             found_dot_so = 0;
216
217                 if (dd == NULL)
218                         continue;
219
220                 while ((dp = readdir(dd)) != NULL) {
221                         int     n;
222
223                         if (dp->d_namlen < len + 4)
224                                 continue;
225                         if (strncmp(dp->d_name, lname, (size_t)len) != 0)
226                                 continue;
227                         if (strncmp(dp->d_name+len, ".so.", 4) != 0)
228                                 continue;
229
230                         if ((n = _getdewey(tmp, dp->d_name+len+4)) == 0)
231                                 continue;
232
233                         if (major != -1 && found_dot_a)
234                                 found_dot_a = 0;
235
236                         /* XXX should verify the library is a.out/ELF? */
237
238                         if (major == -1 && minor == -1) {
239                                 goto compare_version;
240                         } else if (major != -1 && minor == -1) {
241                                 if (tmp[0] == major)
242                                         goto compare_version;
243                         } else if (major != -1 && minor != -1) {
244                                 if (tmp[0] == major) {
245                                         if (n == 1 || tmp[1] >= minor)
246                                                 goto compare_version;
247                                 }
248                         }
249
250                         /* else, this file does not qualify */
251                         continue;
252
253                 compare_version:
254                         if (_cmpndewey(tmp, n, dewey, ndewey) <= 0)
255                                 continue;
256
257                         /* We have a better version */
258                         found_dot_so = 1;
259                         snprintf(path, sizeof(path), "%s/%s", search_dirs[i],
260                             dp->d_name);
261                         found_dot_a = 0;
262                         bcopy(tmp, dewey, sizeof(dewey));
263                         ndewey = n;
264                         *majorp = dewey[0];
265                         *minorp = dewey[1];
266                 }
267                 closedir(dd);
268
269                 if (found_dot_a || found_dot_so)
270                         /*
271                          * There's a lib in this dir; take it.
272                          */
273                         return path[0] ? path : NULL;
274         }
275
276         return path[0] ? path : NULL;
277 }
278
279 void *
280 _citrus_find_getops(_citrus_module_t handle, const char *modname,
281                     const char *ifname)
282 {
283         char name[PATH_MAX];
284         void *p;
285
286         _DIAGASSERT(handle != NULL);
287         _DIAGASSERT(modname != NULL);
288         _DIAGASSERT(ifname != NULL);
289
290         snprintf(name, sizeof(name), "_citrus_%s_%s_getops", modname, ifname);
291         p = dlsym((void *)handle, name);
292         return p;
293 }
294
295 int
296 _citrus_load_module(_citrus_module_t *rhandle, const char *encname)
297 {
298         const char *p;
299         char path[PATH_MAX];
300         int maj, min;
301         void *handle;
302
303         _DIAGASSERT(rhandle != NULL);
304
305         if (_pathI18nModule == NULL) {
306                 p = getenv("PATH_I18NMODULE");
307                 if (p != NULL && !issetugid()) {
308                         _pathI18nModule = strdup(p);
309                         if (_pathI18nModule == NULL)
310                                 return ENOMEM;
311                 } else
312                         _pathI18nModule = _PATH_I18NMODULE;
313         }
314
315         snprintf(path, sizeof(path), "lib%s", encname);
316         maj = I18NMODULE_MAJOR;
317         min = -1;
318         p = _findshlib(path, &maj, &min);
319         if (!p)
320                 return (EINVAL);
321         handle = dlopen(p, RTLD_LAZY);
322         if (!handle)
323                 return (EINVAL);
324
325         *rhandle = (_citrus_module_t)handle;
326
327         return (0);
328 }
329
330 void
331 _citrus_unload_module(_citrus_module_t handle)
332 {
333         if (handle)
334                 dlclose((void *)handle);
335 }
336 #elif defined(_I18N_STATIC)
337 /*
338  * Compiled-in multibyte locale support for statically linked programs.
339  */
340
341 #include "citrus_ctype.h"
342 #ifdef _I18N_STATIC_BIG5
343 #include "modules/citrus_big5.h"
344 #endif
345 #ifdef _I18N_STATIC_EUC
346 #include "modules/citrus_euc.h"
347 #endif
348 #ifdef _I18N_STATIC_EUCTW
349 #include "modules/citrus_euctw.h"
350 #endif
351 #ifdef _I18N_STATIC_ISO2022
352 #include "modules/citrus_iso2022.h"
353 #endif
354 #ifdef _I18N_STATIC_MSKanji
355 #include "modules/citrus_mskanji.h"
356 #endif
357 #ifdef _I18N_STATIC_UTF8
358 #include "modules/citrus_utf8.h"
359 #endif
360
361 #define _CITRUS_GETOPS_FUNC(_m_, _if_) _citrus_##_m_##_##_if_##_getops
362 /* only ctype is supported */
363 #define _CITRUS_LOCALE_TABLE_ENTRY(_n_) \
364 { #_n_, "ctype", _CITRUS_GETOPS_FUNC(_n_, ctype) }
365
366 /*
367  * Table of compiled-in locales.
368  */
369 struct citrus_metadata locale_table[] = {
370 #ifdef _I18N_STATIC_BIG5
371  _CITRUS_LOCALE_TABLE_ENTRY(BIG5),
372 #endif
373 #ifdef _I18N_STATIC_EUC
374  _CITRUS_LOCALE_TABLE_ENTRY(EUC),
375 #endif
376 #ifdef _I18N_STATIC_EUCTW
377  _CITRUS_LOCALE_TABLE_ENTRY(EUCTW),
378 #endif
379 #ifdef _I18N_STATIC_ISO2022
380  _CITRUS_LOCALE_TABLE_ENTRY(ISO2022),
381 #endif
382 #ifdef _I18N_STATIC_MSKanji
383  _CITRUS_LOCALE_TABLE_ENTRY(MSKanji),
384 #endif
385 #ifdef _I18N_STATIC_UTF8
386  _CITRUS_LOCALE_TABLE_ENTRY(UTF8),
387 #endif
388  { NULL, NULL, NULL },
389 };
390
391 SET_DECLARE(citrus_set, struct citrus_metadata);
392
393 DATA_SET(citrus_set, locale_table);
394
395 #define MAGIC_HANDLE    (void *)(0xC178C178)
396
397 void *
398 /*ARGSUSED*/
399 _citrus_find_getops(_citrus_module_t handle __unused, const char *modname,
400                     const char *ifname)
401 {
402         struct citrus_metadata **mdp, *mod;
403
404         SET_FOREACH(mdp, citrus_set) {
405                 mod = *mdp;
406                 if (mod == NULL || mod->module_name == NULL || mod->interface_name == NULL)
407                         continue;
408                 if (strcmp(mod->module_name, modname) != 0)
409                         continue;
410                 if (strcmp(mod->interface_name, ifname) != 0)
411                         continue;       
412                 return(mod->module_ops);
413         }
414         return (NULL);
415 }
416
417 int
418 /*ARGSUSED*/
419 _citrus_load_module(_citrus_module_t *rhandle, char const *modname)
420 {
421         struct citrus_metadata **mdp, *mod;
422
423         SET_FOREACH(mdp, citrus_set) {
424                 mod = *mdp;
425                 if (mod == NULL || mod->module_name == NULL)
426                         continue;
427                 if (strcmp(mod->module_name, modname) != 0)
428                         continue;
429                 *rhandle = (_citrus_module_t)mod;
430                 return(0);
431         }
432         return (EINVAL);
433 }
434
435 void
436 /*ARGSUSED*/
437 _citrus_unload_module(_citrus_module_t handle __unused)
438 {
439 }
440 #else
441 SET_DECLARE(citrus_set, struct citrus_metadata);
442
443 struct citrus_metadata empty = {
444     NULL, NULL, NULL
445 };
446
447 DATA_SET(citrus_set, empty);
448
449 #define MAGIC_HANDLE    (void *)(0xC178C178)
450
451 void *
452 /*ARGSUSED*/
453 _citrus_find_getops(_citrus_module_t handle __unused, const char *modname,
454                     const char *ifname)
455 {
456         struct citrus_metadata **mdp, *mod;
457
458         _DIAGASSERT(handle == MAGIC_HANDLE);
459
460         SET_FOREACH(mdp, citrus_set) {
461                 mod = *mdp;
462                 if (mod == NULL || mod->module_name == NULL || mod->interface_name == NULL)
463                         continue;
464                 if (strcmp(mod->module_name, modname) != 0)
465                         continue;
466                 if (strcmp(mod->interface_name, ifname) != 0)
467                         continue;
468                 return(mod->module_ops);
469         }
470         return (NULL);
471 }
472
473 int
474 /*ARGSUSED*/
475 _citrus_load_module(_citrus_module_t *rhandle, char const *modname)
476 {
477         struct citrus_metadata **mdp, *mod;
478
479         SET_FOREACH(mdp, citrus_set) {
480                 mod = *mdp;
481                 if (mod == NULL || mod->module_name == NULL)
482                         continue;
483                 if (strcmp(mod->module_name, modname) != 0)
484                         continue;
485                 *rhandle = MAGIC_HANDLE;
486                 return(0);
487         }
488         return (EINVAL);
489 }
490
491 void
492 /*ARGSUSED*/
493 _citrus_unload_module(_citrus_module_t handle __unused)
494 {
495 }
496 #endif