1
/* Handle aliases for locale names.
2
Copyright (C) 1995-1999, 2000, 2001 Free Software Foundation, Inc.
4
This program is free software; you can redistribute it and/or modify
5
it under the terms of the GNU General Public License as published by
6
the Free Software Foundation; either version 2, or (at your option)
9
This program is distributed in the hope that it will be useful,
10
but WITHOUT ANY WARRANTY; without even the implied warranty of
11
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
GNU General Public License for more details.
14
You should have received a copy of the GNU General Public License
15
along with this program; if not, write to the Free Software Foundation,
16
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
18
/* Tell glibc's <string.h> to provide a prototype for mempcpy().
19
This must come before <config.h> because <config.h> may include
20
<features.h>, and once <features.h> has been included, it's too late. */
22
# define _GNU_SOURCE 1
31
#include <sys/types.h>
34
# define alloca __builtin_alloca
35
# define HAVE_ALLOCA 1
37
# if defined HAVE_ALLOCA_H || defined _LIBC
53
#if !HAVE_STRCHR && !defined _LIBC
61
/* @@ end of prolog @@ */
64
/* Rename the non ANSI C functions. This is required by the standard
65
because some ANSI C functions will require linking with this object
66
file and the name space must not be polluted. */
67
# define strcasecmp __strcasecmp
70
# define mempcpy __mempcpy
72
# define HAVE_MEMPCPY 1
74
/* We need locking here since we can be called from different places. */
75
# include <bits/libc-lock.h>
77
__libc_lock_define_initialized (static, lock);
80
#ifndef internal_function
81
# define internal_function
84
/* For those losing systems which don't have `alloca' we have to add
85
some additional code emulating it. */
87
# define freea(p) /* nothing */
89
# define alloca(n) malloc (n)
90
# define freea(p) free (p)
93
#if defined _LIBC_REENTRANT || defined HAVE_FGETS_UNLOCKED
95
# define fgets(buf, len, s) fgets_unlocked (buf, len, s)
97
#if defined _LIBC_REENTRANT || defined HAVE_FEOF_UNLOCKED
99
# define feof(s) feof_unlocked (s)
110
static char *string_space;
111
static size_t string_space_act;
112
static size_t string_space_max;
113
static struct alias_map *map;
115
static size_t maxmap;
118
/* Prototypes for local functions. */
119
static size_t read_alias_file PARAMS ((const char *fname, int fname_len))
121
static int extend_alias_table PARAMS ((void));
122
static int alias_compare PARAMS ((const struct alias_map *map1,
123
const struct alias_map *map2));
127
_nl_expand_alias (name)
130
static const char *locale_alias_path = LOCALE_ALIAS_PATH;
131
struct alias_map *retval;
132
const char *result = NULL;
136
__libc_lock_lock (lock);
141
struct alias_map item;
146
retval = (struct alias_map *) bsearch (&item, map, nmap,
147
sizeof (struct alias_map),
148
(int (*) PARAMS ((const void *,
154
/* We really found an alias. Return the value. */
157
result = retval->value;
161
/* Perhaps we can find another alias file. */
163
while (added == 0 && locale_alias_path[0] != '\0')
167
while (locale_alias_path[0] == PATH_SEPARATOR)
169
start = locale_alias_path;
171
while (locale_alias_path[0] != '\0'
172
&& locale_alias_path[0] != PATH_SEPARATOR)
175
if (start < locale_alias_path)
176
added = read_alias_file (start, locale_alias_path - start);
182
__libc_lock_unlock (lock);
191
read_alias_file (fname, fname_len)
198
static const char aliasfile[] = "/locale.alias";
200
full_fname = (char *) alloca (fname_len + sizeof aliasfile);
202
mempcpy (mempcpy (full_fname, fname, fname_len),
203
aliasfile, sizeof aliasfile);
205
memcpy (full_fname, fname, fname_len);
206
memcpy (&full_fname[fname_len], aliasfile, sizeof aliasfile);
209
fp = fopen (full_fname, "r");
217
/* It is a reasonable approach to use a fix buffer here because
218
a) we are only interested in the first two fields
219
b) these fields must be usable as file names and so must not
227
if (fgets (buf, sizeof buf, fp) == NULL)
231
/* Possibly not the whole line fits into the buffer. Ignore
232
the rest of the line. */
233
if (strchr (buf, '\n') == NULL)
237
if (fgets (altbuf, sizeof altbuf, fp) == NULL)
238
/* Make sure the inner loop will be left. The outer loop
239
will exit at the `feof' test. */
241
while (strchr (altbuf, '\n') == NULL);
245
/* Ignore leading white space. */
246
while (isspace (cp[0]))
249
/* A leading '#' signals a comment line. */
250
if (cp[0] != '\0' && cp[0] != '#')
253
while (cp[0] != '\0' && !isspace (cp[0]))
255
/* Terminate alias name. */
259
/* Now look for the beginning of the value. */
260
while (isspace (cp[0]))
269
while (cp[0] != '\0' && !isspace (cp[0]))
271
/* Terminate value. */
274
/* This has to be done to make the following test
275
for the end of line possible. We are looking for
276
the terminating '\n' which do not overwrite here. */
280
else if (cp[0] != '\0')
284
if (__builtin_expect (extend_alias_table (), 0))
287
alias_len = strlen (alias) + 1;
288
value_len = strlen (value) + 1;
290
if (string_space_act + alias_len + value_len > string_space_max)
292
/* Increase size of memory pool. */
293
size_t new_size = (string_space_max
294
+ (alias_len + value_len > 1024
295
? alias_len + value_len : 1024));
296
char *new_pool = (char *) realloc (string_space, new_size);
297
if (new_pool == NULL)
300
if (__builtin_expect (string_space != new_pool, 0))
304
for (i = 0; i < nmap; i++)
306
map[i].alias += new_pool - string_space;
307
map[i].value += new_pool - string_space;
311
string_space = new_pool;
312
string_space_max = new_size;
315
map[nmap].alias = memcpy (&string_space[string_space_act],
317
string_space_act += alias_len;
319
map[nmap].value = memcpy (&string_space[string_space_act],
321
string_space_act += value_len;
329
/* Should we test for ferror()? I think we have to silently ignore
334
qsort (map, nmap, sizeof (struct alias_map),
335
(int (*) PARAMS ((const void *, const void *))) alias_compare);
342
extend_alias_table ()
345
struct alias_map *new_map;
347
new_size = maxmap == 0 ? 100 : 2 * maxmap;
348
new_map = (struct alias_map *) realloc (map, (new_size
349
* sizeof (struct alias_map)));
351
/* Simply don't extend: we don't have any more core. */
361
static void __attribute__ ((unused))
364
if (string_space != NULL)
369
text_set_element (__libc_subfreeres, free_mem);
374
alias_compare (map1, map2)
375
const struct alias_map *map1;
376
const struct alias_map *map2;
378
#if defined _LIBC || defined HAVE_STRCASECMP
379
return strcasecmp (map1->alias, map2->alias);
381
const unsigned char *p1 = (const unsigned char *) map1->alias;
382
const unsigned char *p2 = (const unsigned char *) map2->alias;
383
unsigned char c1, c2;
390
/* I know this seems to be odd but the tolower() function in
391
some systems libc cannot handle nonalpha characters. */
392
c1 = isupper (*p1) ? tolower (*p1) : *p1;
393
c2 = isupper (*p2) ? tolower (*p2) : *p2;