1 /* localealias.c -- handle aliases for locale names
2 Copyright (C) 1995, 1996 Free Software Foundation, Inc.
4 This file is part of the GNU C Library. Its master source is NOT part of
5 the C library, however. The master source lives in /gd/gnu/lib.
7 The GNU C Library is free software; you can redistribute it and/or
8 modify it under the terms of the GNU Library General Public License as
9 published by the Free Software Foundation; either version 2 of the
10 License, or (at your option) any later version.
12 The GNU C Library is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 Library General Public License for more details.
17 You should have received a copy of the GNU Library General Public
18 License along with the GNU C Library; see the file COPYING.LIB. If
19 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
20 Cambridge, MA 02139, USA. */
28 #include <sys/types.h>
31 # define alloca __builtin_alloca
33 # if defined HAVE_ALLOCA_H || defined _LIBC
46 #if defined STDC_HEADERS || defined _LIBC
57 #if defined HAVE_STRING_H || defined _LIBC
62 #if !HAVE_STRCHR && !defined _LIBC
71 /* @@ end of prolog @@ */
74 /* Rename the non ANSI C functions. This is required by the standard
75 because some ANSI C functions will require linking with this object
76 file and the name space must not be polluted. */
77 # define strcasecmp __strcasecmp
87 static struct alias_map
*map
;
88 static size_t nmap
= 0;
89 static size_t maxmap
= 0;
92 /* Prototypes for local functions. */
93 static size_t read_alias_file
PARAMS ((const char *fname
, int fname_len
));
94 static void extend_alias_table
PARAMS ((void));
95 static int alias_compare
PARAMS ((const struct alias_map
*map1
,
96 const struct alias_map
*map2
));
100 _nl_expand_alias (name
)
103 static const char *locale_alias_path
= LOCALE_ALIAS_PATH
;
104 struct alias_map
*retval
;
109 struct alias_map item
;
114 retval
= (struct alias_map
*) bsearch (&item
, map
, nmap
,
115 sizeof (struct alias_map
),
116 (int (*) PARAMS ((const void *,
122 /* We really found an alias. Return the value. */
124 return retval
->value
;
126 /* Perhaps we can find another alias file. */
128 while (added
== 0 && locale_alias_path
[0] != '\0')
132 while (locale_alias_path
[0] == ':')
134 start
= locale_alias_path
;
136 while (locale_alias_path
[0] != '\0' && locale_alias_path
[0] != ':')
139 if (start
< locale_alias_path
)
140 added
= read_alias_file (start
, locale_alias_path
- start
);
150 read_alias_file (fname
, fname_len
)
157 static const char aliasfile
[] = "/locale.alias";
159 full_fname
= (char *) alloca (fname_len
+ sizeof aliasfile
);
160 memcpy (full_fname
, fname
, fname_len
);
161 memcpy (&full_fname
[fname_len
], aliasfile
, sizeof aliasfile
);
163 fp
= fopen (full_fname
, "r");
170 /* It is a reasonable approach to use a fix buffer here because
171 a) we are only interested in the first two fields
172 b) these fields must be usable as file names and so must not
180 if (fgets (buf
, BUFSIZ
, fp
) == NULL
)
185 /* Ignore leading white space. */
186 while (isspace (cp
[0]))
189 /* A leading '#' signals a comment line. */
190 if (cp
[0] != '\0' && cp
[0] != '#')
193 while (cp
[0] != '\0' && !isspace (cp
[0]))
195 /* Terminate alias name. */
199 /* Now look for the beginning of the value. */
200 while (isspace (cp
[0]))
209 while (cp
[0] != '\0' && !isspace (cp
[0]))
211 /* Terminate value. */
214 /* This has to be done to make the following test
215 for the end of line possible. We are looking for
216 the terminating '\n' which do not overwrite here. */
220 else if (cp
[0] != '\0')
224 extend_alias_table ();
226 /* We cannot depend on strdup available in the libc. Sigh! */
227 len
= strlen (alias
) + 1;
228 tp
= (char *) malloc (len
);
231 memcpy (tp
, alias
, len
);
232 map
[nmap
].alias
= tp
;
234 len
= strlen (value
) + 1;
235 tp
= (char *) malloc (len
);
238 memcpy (tp
, value
, len
);
239 map
[nmap
].value
= tp
;
246 /* Possibily not the whole line fitted into the buffer. Ignore
247 the rest of the line. */
248 while (strchr (cp
, '\n') == NULL
)
251 if (fgets (buf
, BUFSIZ
, fp
) == NULL
)
252 /* Make sure the inner loop will be left. The outer loop
253 will exit at the `feof' test. */
258 /* Should we test for ferror()? I think we have to silently ignore
263 qsort (map
, nmap
, sizeof (struct alias_map
),
264 (int (*) PARAMS ((const void *, const void *))) alias_compare
);
271 extend_alias_table ()
274 struct alias_map
*new_map
;
276 new_size
= maxmap
== 0 ? 100 : 2 * maxmap
;
277 new_map
= (struct alias_map
*) malloc (new_size
278 * sizeof (struct alias_map
));
280 /* Simply don't extend: we don't have any more core. */
283 memcpy (new_map
, map
, nmap
* sizeof (struct alias_map
));
294 alias_compare (map1
, map2
)
295 const struct alias_map
*map1
;
296 const struct alias_map
*map2
;
298 #if defined _LIBC || defined HAVE_STRCASECMP
299 return strcasecmp (map1
->alias
, map2
->alias
);
301 const unsigned char *p1
= (const unsigned char *) map1
->alias
;
302 const unsigned char *p2
= (const unsigned char *) map2
->alias
;
303 unsigned char c1
, c2
;
310 /* I know this seems to be odd but the tolower() function in
311 some systems libc cannot handle nonalpha characters. */
312 c1
= isupper (*p1
) ? tolower (*p1
) : *p1
;
313 c2
= isupper (*p2
) ? tolower (*p2
) : *p2
;