1 /* Handle configuration data.
2 Copyright (C) 1997,98,99,2000,2001 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, write to the Free
18 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
29 #include <stdio_ext.h>
33 #include <sys/param.h>
35 #include <bits/libc-lock.h>
36 #include <gconv_int.h>
39 /* This is the default path where we look for module lists. */
40 static const char default_gconv_path
[] = GCONV_PATH
;
42 /* The path elements, as determined by the __gconv_get_path function.
43 All path elements end in a slash. */
44 struct path_elem
*__gconv_path_elem
;
45 /* Maximum length of a single path element in __gconv_path_elem. */
46 size_t __gconv_max_path_elem_len
;
48 /* We use the following struct if we couldn't allocate memory. */
49 static const struct path_elem empty_path_elem
;
51 /* Name of the file containing the module information in the directories
53 static const char gconv_conf_filename
[] = "gconv-modules";
55 /* Filename extension for the modules. */
57 # define MODULE_EXT ".so"
59 static const char gconv_module_ext
[] = MODULE_EXT
;
61 /* We have a few builtin transformations. */
62 static struct gconv_module builtin_modules
[] =
64 #define BUILTIN_TRANSFORMATION(From, To, Cost, Name, Fct, MinF, MaxF, \
73 #define BUILTIN_ALIAS(From, To)
75 #include "gconv_builtin.h"
78 #undef BUILTIN_TRANSFORMATION
81 static const char *builtin_aliases
[] =
83 #define BUILTIN_TRANSFORMATION(From, To, Cost, Name, Fct, MinF, MaxF, \
85 #define BUILTIN_ALIAS(From, To) From " " To,
87 #include "gconv_builtin.h"
91 # include <libio/libioP.h>
92 # define __getdelim(line, len, c, fp) _IO_getdelim (line, len, c, fp)
96 /* Value of the GCONV_PATH environment variable. */
97 const char *__gconv_path_envvar
;
100 /* Test whether there is already a matching module known. */
103 detect_conflict (const char *alias
)
105 struct gconv_module
*node
= __gconv_modules_db
;
109 int cmpres
= strcmp (alias
, node
->from_string
);
112 /* We have a conflict. */
126 add_alias (char *rp
, void *modules
)
128 /* We now expect two more string. The strings are normalized
129 (converted to UPPER case) and strored in the alias database. */
130 struct gconv_alias
*new_alias
;
131 char *from
, *to
, *wp
;
133 while (__isspace_l (*rp
, &_nl_C_locobj
))
136 while (*rp
!= '\0' && !__isspace_l (*rp
, &_nl_C_locobj
))
137 *wp
++ = __toupper_l (*rp
++, &_nl_C_locobj
);
139 /* There is no `to' string on the line. Ignore it. */
143 while (__isspace_l (*rp
, &_nl_C_locobj
))
145 while (*rp
!= '\0' && !__isspace_l (*rp
, &_nl_C_locobj
))
146 *wp
++ = __toupper_l (*rp
++, &_nl_C_locobj
);
148 /* No `to' string, ignore the line. */
152 /* Test whether this alias conflicts with any available module. */
153 if (detect_conflict (from
))
154 /* It does conflict, don't add the alias. */
157 new_alias
= (struct gconv_alias
*)
158 malloc (sizeof (struct gconv_alias
) + (wp
- from
));
159 if (new_alias
!= NULL
)
163 new_alias
->fromname
= memcpy ((char *) new_alias
164 + sizeof (struct gconv_alias
),
166 new_alias
->toname
= new_alias
->fromname
+ (to
- from
);
168 inserted
= (void **) __tsearch (new_alias
, &__gconv_alias_db
,
169 __gconv_alias_compare
);
170 if (inserted
== NULL
|| *inserted
!= new_alias
)
171 /* Something went wrong, free this entry. */
177 /* Insert a data structure for a new module in the search tree. */
180 insert_module (struct gconv_module
*newp
, int tobefreed
)
182 struct gconv_module
**rootp
= &__gconv_modules_db
;
184 while (*rootp
!= NULL
)
186 struct gconv_module
*root
= *rootp
;
189 cmpres
= strcmp (newp
->from_string
, root
->from_string
);
192 /* Both strings are identical. Insert the string at the
193 end of the `same' list if it is not already there. */
194 while (strcmp (newp
->from_string
, root
->from_string
) != 0
195 || strcmp (newp
->to_string
, root
->to_string
) != 0)
205 /* This is a no new conversion. But maybe the cost is
207 if (newp
->cost_hi
< root
->cost_hi
208 || (newp
->cost_hi
== root
->cost_hi
209 && newp
->cost_lo
< root
->cost_lo
))
211 newp
->left
= root
->left
;
212 newp
->right
= root
->right
;
213 newp
->same
= root
->same
;
228 rootp
= &root
->right
;
231 /* Plug in the new node here. */
236 /* Add new module. */
239 add_module (char *rp
, const char *directory
, size_t dir_len
, void **modules
,
240 size_t *nmodules
, int modcounter
)
245 3. filename of the module
246 4. an optional cost value
248 struct gconv_alias fake_alias
;
249 struct gconv_module
*new_module
;
250 char *from
, *to
, *module
, *wp
;
254 while (__isspace_l (*rp
, &_nl_C_locobj
))
257 while (*rp
!= '\0' && !__isspace_l (*rp
, &_nl_C_locobj
))
259 *rp
= __toupper_l (*rp
, &_nl_C_locobj
);
266 while (__isspace_l (*rp
, &_nl_C_locobj
))
268 while (*rp
!= '\0' && !__isspace_l (*rp
, &_nl_C_locobj
))
269 *wp
++ = __toupper_l (*rp
++, &_nl_C_locobj
);
275 while (__isspace_l (*rp
, &_nl_C_locobj
));
277 while (*rp
!= '\0' && !__isspace_l (*rp
, &_nl_C_locobj
))
281 /* There is no cost, use one by default. */
287 /* There might be a cost value. */
291 cost_hi
= strtol (rp
, &endp
, 10);
292 if (rp
== endp
|| cost_hi
< 1)
293 /* No useful information. */
297 if (module
[0] == '\0')
298 /* No module name given. */
300 if (module
[0] == '/')
303 /* See whether we must add the ending. */
305 if (wp
- module
< (ptrdiff_t) sizeof (gconv_module_ext
)
306 || memcmp (wp
- sizeof (gconv_module_ext
), gconv_module_ext
,
307 sizeof (gconv_module_ext
)) != 0)
308 /* We must add the module extension. */
309 need_ext
= sizeof (gconv_module_ext
) - 1;
311 /* See whether we have already an alias with this name defined. */
312 fake_alias
.fromname
= strndupa (from
, to
- from
);
314 if (__tfind (&fake_alias
, &__gconv_alias_db
, __gconv_alias_compare
) != NULL
)
315 /* This module duplicates an alias. */
318 new_module
= (struct gconv_module
*) calloc (1,
319 sizeof (struct gconv_module
)
321 + dir_len
+ need_ext
);
322 if (new_module
!= NULL
)
326 new_module
->from_string
= tmp
= (char *) (new_module
+ 1);
327 tmp
= __mempcpy (tmp
, from
, to
- from
);
329 new_module
->to_string
= tmp
;
330 tmp
= __mempcpy (tmp
, to
, module
- to
);
332 new_module
->cost_hi
= cost_hi
;
333 new_module
->cost_lo
= modcounter
;
335 new_module
->module_name
= tmp
;
338 tmp
= __mempcpy (tmp
, directory
, dir_len
);
340 tmp
= __mempcpy (tmp
, module
, wp
- module
);
343 memcpy (tmp
- 1, gconv_module_ext
, sizeof (gconv_module_ext
));
345 /* Now insert the new module data structure in our search tree. */
346 insert_module (new_module
, 1);
351 /* Read the next configuration file. */
354 read_conf_file (const char *filename
, const char *directory
, size_t dir_len
,
355 void **modules
, size_t *nmodules
)
357 FILE *fp
= fopen (filename
, "r");
360 static int modcounter
;
362 /* Don't complain if a file is not present or readable, simply silently
367 /* No threads reading from this stream. */
368 __fsetlocking (fp
, FSETLOCKING_BYCALLER
);
370 /* Process the known entries of the file. Comments start with `#' and
371 end with the end of the line. Empty lines are ignored. */
372 while (!feof_unlocked (fp
))
374 char *rp
, *endp
, *word
;
375 ssize_t n
= __getdelim (&line
, &line_len
, '\n', fp
);
377 /* An error occurred. */
381 /* Terminate the line (excluding comments or newline) by an NUL byte
382 to simplify the following code. */
383 endp
= strchr (rp
, '#');
387 if (rp
[n
- 1] == '\n')
390 while (__isspace_l (*rp
, &_nl_C_locobj
))
393 /* If this is an empty line go on with the next one. */
398 while (*rp
!= '\0' && !__isspace_l (*rp
, &_nl_C_locobj
))
401 if (rp
- word
== sizeof ("alias") - 1
402 && memcmp (word
, "alias", sizeof ("alias") - 1) == 0)
403 add_alias (rp
, *modules
);
404 else if (rp
- word
== sizeof ("module") - 1
405 && memcmp (word
, "module", sizeof ("module") - 1) == 0)
406 add_module (rp
, directory
, dir_len
, modules
, nmodules
, modcounter
++);
408 /* Otherwise ignore the line. */
417 /* Determine the directories we are looking for data in. */
419 __gconv_get_path (void)
421 struct path_elem
*result
;
422 __libc_lock_define_initialized (static, lock
);
424 __libc_lock_lock (lock
);
426 /* Make sure there wasn't a second thread doing it already. */
427 result
= (struct path_elem
*) __gconv_path_elem
;
430 /* Determine the complete path first. */
432 size_t gconv_path_len
;
440 if (__gconv_path_envvar
== NULL
)
442 /* No user-defined path. Make a modifiable copy of the
444 gconv_path
= strdupa (default_gconv_path
);
445 gconv_path_len
= sizeof (default_gconv_path
);
451 /* Append the default path to the user-defined path. */
452 size_t user_len
= strlen (__gconv_path_envvar
);
454 gconv_path_len
= user_len
+ 1 + sizeof (default_gconv_path
);
455 gconv_path
= alloca (gconv_path_len
);
456 __mempcpy (__mempcpy (__mempcpy (gconv_path
, __gconv_path_envvar
,
459 default_gconv_path
, sizeof (default_gconv_path
));
460 cwd
= __getcwd (NULL
, 0);
461 cwdlen
= strlen (cwd
);
463 assert (default_gconv_path
[0] == '/');
465 /* In a first pass we calculate the number of elements. */
467 cp
= strchr (gconv_path
, ':');
474 cp
= strchr (cp
+ 1, ':');
477 /* Allocate the memory for the result. */
478 result
= (struct path_elem
*) malloc ((nelems
+ 1)
479 * sizeof (struct path_elem
)
480 + gconv_path_len
+ nelems
481 + (nelems
- 1) * (cwdlen
+ 1));
484 char *strspace
= (char *) &result
[nelems
+ 1];
487 /* Separate the individual parts. */
488 __gconv_max_path_elem_len
= 0;
489 elem
= __strtok_r (gconv_path
, ":", &gconv_path
);
490 assert (elem
!= NULL
);
493 result
[n
].name
= strspace
;
496 assert (cwd
!= NULL
);
497 strspace
= __mempcpy (strspace
, cwd
, cwdlen
);
500 strspace
= __stpcpy (strspace
, elem
);
501 if (strspace
[-1] != '/')
504 result
[n
].len
= strspace
- result
[n
].name
;
505 if (result
[n
].len
> __gconv_max_path_elem_len
)
506 __gconv_max_path_elem_len
= result
[n
].len
;
511 while ((elem
= __strtok_r (NULL
, ":", &gconv_path
)) != NULL
);
513 result
[n
].name
= NULL
;
517 __gconv_path_elem
= result
?: (struct path_elem
*) &empty_path_elem
;
523 __libc_lock_unlock (lock
);
527 /* Read all configuration files found in the user-specified and the default
530 __gconv_read_conf (void)
532 void *modules
= NULL
;
534 int save_errno
= errno
;
537 /* First see whether we should use the cache. */
538 if (__gconv_load_cache () == 0)
540 /* Yes, we are done. */
541 __set_errno (save_errno
);
546 /* Find out where we have to look. */
547 if (__gconv_path_elem
== NULL
)
550 for (cnt
= 0; __gconv_path_elem
[cnt
].name
!= NULL
; ++cnt
)
552 const char *elem
= __gconv_path_elem
[cnt
].name
;
553 size_t elem_len
= __gconv_path_elem
[cnt
].len
;
556 /* No slash needs to be inserted between elem and gconv_conf_filename;
557 elem already ends in a slash. */
558 filename
= alloca (elem_len
+ sizeof (gconv_conf_filename
));
559 __mempcpy (__mempcpy (filename
, elem
, elem_len
),
560 gconv_conf_filename
, sizeof (gconv_conf_filename
));
562 /* Read the next configuration file. */
563 read_conf_file (filename
, elem
, elem_len
, &modules
, &nmodules
);
567 /* Add the internal modules. */
568 for (cnt
= 0; cnt
< sizeof (builtin_modules
) / sizeof (builtin_modules
[0]);
571 struct gconv_alias fake_alias
;
573 fake_alias
.fromname
= (char *) builtin_modules
[cnt
].from_string
;
575 if (__tfind (&fake_alias
, &__gconv_alias_db
, __gconv_alias_compare
)
577 /* It'll conflict so don't add it. */
580 insert_module (&builtin_modules
[cnt
], 0);
583 /* Add aliases for builtin conversions. */
584 cnt
= sizeof (builtin_aliases
) / sizeof (builtin_aliases
[0]);
587 char *copy
= strdupa (builtin_aliases
[--cnt
]);
588 add_alias (copy
, modules
);
591 /* Restore the error number. */
592 __set_errno (save_errno
);
597 /* Free all resources if necessary. */
598 static void __attribute__ ((unused
))
601 if (__gconv_path_elem
!= NULL
&& __gconv_path_elem
!= &empty_path_elem
)
602 free ((void *) __gconv_path_elem
);
605 text_set_element (__libc_subfreeres
, free_mem
);