1 /* Handle aliases for locale names
2 Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
3 Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2, or (at your option)
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software Foundation,
17 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
25 #include <sys/types.h>
28 # define alloca __builtin_alloca
29 # define HAVE_ALLOCA 1
31 # if defined HAVE_ALLOCA_H || defined _LIBC
44 #if defined STDC_HEADERS || defined _LIBC
55 #if defined HAVE_STRING_H || defined _LIBC
57 # define _GNU_SOURCE 1
63 # define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
66 #if !HAVE_STRCHR && !defined _LIBC
75 /* @@ end of prolog @@ */
78 /* Rename the non ANSI C functions. This is required by the standard
79 because some ANSI C functions will require linking with this object
80 file and the name space must not be polluted. */
81 # define strcasecmp __strcasecmp
85 /* For those loosing systems which don't have `alloca' we have to add
86 some additional code emulating it. */
88 /* Nothing has to be done. */
89 # define ADD_BLOCK(list, address) /* nothing */
90 # define FREE_BLOCKS(list) /* nothing */
95 struct block_list
*next
;
97 # define ADD_BLOCK(list, addr) \
99 struct block_list *newp = (struct block_list *) malloc (sizeof (*newp)); \
100 /* If we cannot get a free block we cannot add the new element to \
102 if (newp != NULL) { \
103 newp->address = (addr); \
104 newp->next = (list); \
108 # define FREE_BLOCKS(list) \
110 while (list != NULL) { \
111 struct block_list *old = list; \
117 # define alloca(size) (malloc (size))
118 #endif /* have alloca */
128 static struct alias_map
*map
;
129 static size_t nmap
= 0;
130 static size_t maxmap
= 0;
133 /* Prototypes for local functions. */
134 static size_t read_alias_file
PARAMS ((const char *fname
, int fname_len
));
135 static void extend_alias_table
PARAMS ((void));
136 static int alias_compare
PARAMS ((const struct alias_map
*map1
,
137 const struct alias_map
*map2
));
141 _nl_expand_alias (name
)
144 static const char *locale_alias_path
= LOCALE_ALIAS_PATH
;
145 struct alias_map
*retval
;
150 struct alias_map item
;
155 retval
= (struct alias_map
*) bsearch (&item
, map
, nmap
,
156 sizeof (struct alias_map
),
157 (int (*) PARAMS ((const void *,
163 /* We really found an alias. Return the value. */
165 return retval
->value
;
167 /* Perhaps we can find another alias file. */
169 while (added
== 0 && locale_alias_path
[0] != '\0')
173 while (locale_alias_path
[0] == ':')
175 start
= locale_alias_path
;
177 while (locale_alias_path
[0] != '\0' && locale_alias_path
[0] != ':')
180 if (start
< locale_alias_path
)
181 added
= read_alias_file (start
, locale_alias_path
- start
);
191 read_alias_file (fname
, fname_len
)
196 struct block_list
*block_list
= NULL
;
201 static const char aliasfile
[] = "/locale.alias";
203 full_fname
= (char *) alloca (fname_len
+ sizeof aliasfile
);
204 ADD_BLOCK (block_list
, full_fname
);
205 memcpy (full_fname
, fname
, fname_len
);
206 memcpy (&full_fname
[fname_len
], aliasfile
, sizeof aliasfile
);
208 fp
= fopen (full_fname
, "r");
211 FREE_BLOCKS (block_list
);
218 /* It is a reasonable approach to use a fix buffer here because
219 a) we are only interested in the first two fields
220 b) these fields must be usable as file names and so must not
228 if (fgets (buf
, BUFSIZ
, fp
) == NULL
)
233 /* Ignore leading white space. */
234 while (isspace (cp
[0]))
237 /* A leading '#' signals a comment line. */
238 if (cp
[0] != '\0' && cp
[0] != '#')
241 while (cp
[0] != '\0' && !isspace (cp
[0]))
243 /* Terminate alias name. */
247 /* Now look for the beginning of the value. */
248 while (isspace (cp
[0]))
257 while (cp
[0] != '\0' && !isspace (cp
[0]))
259 /* Terminate value. */
262 /* This has to be done to make the following test
263 for the end of line possible. We are looking for
264 the terminating '\n' which do not overwrite here. */
268 else if (cp
[0] != '\0')
272 extend_alias_table ();
274 /* We cannot depend on strdup available in the libc. Sigh! */
275 len
= strlen (alias
) + 1;
276 tp
= (char *) malloc (len
);
279 FREE_BLOCKS (block_list
);
282 memcpy (tp
, alias
, len
);
283 map
[nmap
].alias
= tp
;
285 len
= strlen (value
) + 1;
286 tp
= (char *) malloc (len
);
289 FREE_BLOCKS (block_list
);
292 memcpy (tp
, value
, len
);
293 map
[nmap
].value
= tp
;
300 /* Possibly not the whole line fits into the buffer. Ignore
301 the rest of the line. */
302 while (strchr (cp
, '\n') == NULL
)
305 if (fgets (buf
, BUFSIZ
, fp
) == NULL
)
306 /* Make sure the inner loop will be left. The outer loop
307 will exit at the `feof' test. */
312 /* Should we test for ferror()? I think we have to silently ignore
317 qsort (map
, nmap
, sizeof (struct alias_map
),
318 (int (*) PARAMS ((const void *, const void *))) alias_compare
);
320 FREE_BLOCKS (block_list
);
326 extend_alias_table ()
329 struct alias_map
*new_map
;
331 new_size
= maxmap
== 0 ? 100 : 2 * maxmap
;
332 new_map
= (struct alias_map
*) malloc (new_size
333 * sizeof (struct alias_map
));
335 /* Simply don't extend: we don't have any more core. */
338 memcpy (new_map
, map
, nmap
* sizeof (struct alias_map
));
349 alias_compare (map1
, map2
)
350 const struct alias_map
*map1
;
351 const struct alias_map
*map2
;
353 #if defined _LIBC || defined HAVE_STRCASECMP
354 return strcasecmp (map1
->alias
, map2
->alias
);
356 const unsigned char *p1
= (const unsigned char *) map1
->alias
;
357 const unsigned char *p2
= (const unsigned char *) map2
->alias
;
358 unsigned char c1
, c2
;
365 /* I know this seems to be odd but the tolower() function in
366 some systems libc cannot handle nonalpha characters. */
367 c1
= isupper (*p1
) ? tolower (*p1
) : *p1
;
368 c2
= isupper (*p2
) ? tolower (*p2
) : *p2
;
This page took 0.038954 seconds and 4 git commands to generate.