3 /* Handle aliases for locale names.
4 Copyright (C) 1995-1999, 2000-2001, 2003 Free Software Foundation, Inc.
6 This program is free software; you can redistribute it and/or modify it
7 under the terms of the GNU Library General Public License as published
8 by the Free Software Foundation; either version 2, or (at your option)
11 This program 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 Library General Public License for more details.
16 You should have received a copy of the GNU Library General Public
17 License along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
21 /* Tell glibc's <string.h> to provide a prototype for mempcpy().
22 This must come before <config.h> because <config.h> may include
23 <features.h>, and once <features.h> has been included, it's too late. */
25 # define _GNU_SOURCE 1
34 #if defined _LIBC || defined HAVE___FSETLOCKING
35 # include <stdio_ext.h>
37 #include <sys/types.h>
41 # define alloca __builtin_alloca
42 # define HAVE_ALLOCA 1
46 # define alloca _alloca
48 # if defined HAVE_ALLOCA_H || defined _LIBC
67 #if ENABLE_RELOCATABLE
68 # include "relocatable.h"
70 # define relocate(pathname) (pathname)
73 /* @@ end of prolog @@ */
76 /* Rename the non ANSI C functions. This is required by the standard
77 because some ANSI C functions will require linking with this object
78 file and the name space must not be polluted. */
79 # define strcasecmp __strcasecmp
82 # define mempcpy __mempcpy
84 # define HAVE_MEMPCPY 1
85 # define HAVE___FSETLOCKING 1
87 /* We need locking here since we can be called from different places. */
88 # include <bits/libc-lock.h>
90 __libc_lock_define_initialized (static, lock
);
93 #ifndef internal_function
94 # define internal_function
97 /* Some optimizations for glibc. */
99 # define FEOF(fp) feof_unlocked (fp)
100 # define FGETS(buf, n, fp) fgets_unlocked (buf, n, fp)
102 # define FEOF(fp) feof (fp)
103 # define FGETS(buf, n, fp) fgets (buf, n, fp)
106 /* For those losing systems which don't have `alloca' we have to add
107 some additional code emulating it. */
109 # define freea(p) /* nothing */
111 # define alloca(n) malloc (n)
112 # define freea(p) free (p)
115 #if defined _LIBC_REENTRANT || HAVE_DECL_FGETS_UNLOCKED
117 # define fgets(buf, len, s) fgets_unlocked (buf, len, s)
119 #if defined _LIBC_REENTRANT || HAVE_DECL_FEOF_UNLOCKED
121 # define feof(s) feof_unlocked (s)
133 # define libc_freeres_ptr(decl) decl
136 libc_freeres_ptr (static char *string_space
);
137 static size_t string_space_act
;
138 static size_t string_space_max
;
139 libc_freeres_ptr (static struct alias_map
*map
);
141 static size_t maxmap
;
144 /* Prototypes for local functions. */
145 static size_t read_alias_file (const char *fname
, int fname_len
)
147 static int extend_alias_table (void);
148 static int alias_compare (const struct alias_map
*map1
,
149 const struct alias_map
*map2
);
153 _nl_expand_alias (const char *name
)
155 static const char *locale_alias_path
;
156 struct alias_map
*retval
;
157 const char *result
= NULL
;
161 __libc_lock_lock (lock
);
164 if (locale_alias_path
== NULL
)
165 locale_alias_path
= LOCALE_ALIAS_PATH
;
169 struct alias_map item
;
174 retval
= (struct alias_map
*) bsearch (&item
, map
, nmap
,
175 sizeof (struct alias_map
),
176 (int (*) (const void *,
182 /* We really found an alias. Return the value. */
185 result
= retval
->value
;
189 /* Perhaps we can find another alias file. */
191 while (added
== 0 && locale_alias_path
[0] != '\0')
195 while (locale_alias_path
[0] == PATH_SEPARATOR
)
197 start
= locale_alias_path
;
199 while (locale_alias_path
[0] != '\0'
200 && locale_alias_path
[0] != PATH_SEPARATOR
)
203 if (start
< locale_alias_path
)
204 added
= read_alias_file (start
, locale_alias_path
- start
);
210 __libc_lock_unlock (lock
);
219 read_alias_file (const char *fname
, int fname_len
)
224 static const char aliasfile
[] = "/locale.alias";
226 full_fname
= (char *) alloca (fname_len
+ sizeof aliasfile
);
228 mempcpy (mempcpy (full_fname
, fname
, fname_len
),
229 aliasfile
, sizeof aliasfile
);
231 memcpy (full_fname
, fname
, fname_len
);
232 memcpy (&full_fname
[fname_len
], aliasfile
, sizeof aliasfile
);
235 fp
= fopen (relocate (full_fname
), "r");
240 #ifdef HAVE___FSETLOCKING
241 /* No threads present. */
242 __fsetlocking (fp
, FSETLOCKING_BYCALLER
);
248 /* It is a reasonable approach to use a fix buffer here because
249 a) we are only interested in the first two fields
250 b) these fields must be usable as file names and so must not
252 We avoid a multi-kilobyte buffer here since this would use up
253 stack space which we might not have if the program ran out of
260 if (FGETS (buf
, sizeof buf
, fp
) == NULL
)
265 /* Ignore leading white space. */
266 while (isspace ((unsigned char) cp
[0]))
269 /* A leading '#' signals a comment line. */
270 if (cp
[0] != '\0' && cp
[0] != '#')
273 while (cp
[0] != '\0' && !isspace ((unsigned char) cp
[0]))
275 /* Terminate alias name. */
279 /* Now look for the beginning of the value. */
280 while (isspace ((unsigned char) cp
[0]))
289 while (cp
[0] != '\0' && !isspace ((unsigned char) cp
[0]))
291 /* Terminate value. */
294 /* This has to be done to make the following test
295 for the end of line possible. We are looking for
296 the terminating '\n' which do not overwrite here. */
300 else if (cp
[0] != '\0')
304 if (__builtin_expect (extend_alias_table (), 0))
307 alias_len
= strlen (alias
) + 1;
308 value_len
= strlen (value
) + 1;
310 if (string_space_act
+ alias_len
+ value_len
> string_space_max
)
312 /* Increase size of memory pool. */
313 size_t new_size
= (string_space_max
314 + (alias_len
+ value_len
> 1024
315 ? alias_len
+ value_len
: 1024));
316 char *new_pool
= (char *) realloc (string_space
, new_size
);
317 if (new_pool
== NULL
)
320 if (__builtin_expect (string_space
!= new_pool
, 0))
324 for (i
= 0; i
< nmap
; i
++)
326 map
[i
].alias
+= new_pool
- string_space
;
327 map
[i
].value
+= new_pool
- string_space
;
331 string_space
= new_pool
;
332 string_space_max
= new_size
;
335 map
[nmap
].alias
= memcpy (&string_space
[string_space_act
],
337 string_space_act
+= alias_len
;
339 map
[nmap
].value
= memcpy (&string_space
[string_space_act
],
341 string_space_act
+= value_len
;
348 /* Possibly not the whole line fits into the buffer. Ignore
349 the rest of the line. */
350 while (strchr (buf
, '\n') == NULL
)
351 if (FGETS (buf
, sizeof buf
, fp
) == NULL
)
352 /* Make sure the inner loop will be left. The outer loop
353 will exit at the `feof' test. */
357 /* Should we test for ferror()? I think we have to silently ignore
362 qsort (map
, nmap
, sizeof (struct alias_map
),
363 (int (*) (const void *, const void *)) alias_compare
);
370 extend_alias_table ()
373 struct alias_map
*new_map
;
375 new_size
= maxmap
== 0 ? 100 : 2 * maxmap
;
376 new_map
= (struct alias_map
*) realloc (map
, (new_size
377 * sizeof (struct alias_map
)));
379 /* Simply don't extend: we don't have any more core. */
389 alias_compare (const struct alias_map
*map1
, const struct alias_map
*map2
)
391 #if defined _LIBC || defined HAVE_STRCASECMP
392 return strcasecmp (map1
->alias
, map2
->alias
);
394 const unsigned char *p1
= (const unsigned char *) map1
->alias
;
395 const unsigned char *p2
= (const unsigned char *) map2
->alias
;
396 unsigned char c1
, c2
;
403 /* I know this seems to be odd but the tolower() function in
404 some systems libc cannot handle nonalpha characters. */
405 c1
= isupper (*p1
) ? tolower (*p1
) : *p1
;
406 c2
= isupper (*p2
) ? tolower (*p2
) : *p2
;