1 /* Copyright (C) 1995-1999, 2000, 2001, 2002 Free Software Foundation, Inc.
2 Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
4 This program is free software; you can redistribute it and/or modify it
5 under the terms of the GNU Library General Public License as published
6 by 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 GNU
12 Library General Public License for more details.
14 You should have received a copy of the GNU Library General Public
15 License along with this program; if not, write to the Free Software
16 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301,
19 /* Tell glibc's <string.h> to provide a prototype for stpcpy().
20 This must come before <config.h> because <config.h> may include
21 <features.h>, and once <features.h> has been included, it's too late. */
23 # define _GNU_SOURCE 1
32 #if defined _LIBC || defined HAVE_ARGZ_H
36 #include <sys/types.h>
41 /* On some strange systems still no definition of NULL is found. Sigh! */
43 # if defined __STDC__ && __STDC__
44 # define NULL ((void *) 0)
50 /* @@ end of prolog @@ */
53 /* Rename the non ANSI C functions. This is required by the standard
54 because some ANSI C functions will require linking with this object
55 file and the name space must not be polluted. */
57 # define stpcpy(dest, src) __stpcpy(dest, src)
61 static char *stpcpy
PARAMS ((char *dest
, const char *src
));
66 ISSLASH(C) tests whether C is a directory separator character.
67 IS_ABSOLUTE_PATH(P) tests whether P is an absolute path. If it is not,
68 it may be concatenated to a directory pathname.
70 #if defined _WIN32 || defined __WIN32__ || defined __EMX__ || defined __DJGPP__
71 /* Win32, OS/2, DOS */
72 # define ISSLASH(C) ((C) == '/' || (C) == '\\')
73 # define HAS_DEVICE(P) \
74 ((((P)[0] >= 'A' && (P)[0] <= 'Z') || ((P)[0] >= 'a' && (P)[0] <= 'z')) \
76 # define IS_ABSOLUTE_PATH(P) (ISSLASH ((P)[0]) || HAS_DEVICE (P))
79 # define ISSLASH(C) ((C) == '/')
80 # define IS_ABSOLUTE_PATH(P) ISSLASH ((P)[0])
83 /* Define function which are usually not available. */
85 #if !defined _LIBC && !defined HAVE___ARGZ_COUNT
86 /* Returns the number of strings in ARGZ. */
87 static size_t argz_count__
PARAMS ((const char *argz
, size_t len
));
90 argz_count__ (argz
, len
)
97 size_t part_len
= strlen (argz
);
105 # define __argz_count(argz, len) argz_count__ (argz, len)
108 # define __argz_count(argz, len) INTUSE(__argz_count) (argz, len)
110 #endif /* !_LIBC && !HAVE___ARGZ_COUNT */
112 #if !defined _LIBC && !defined HAVE___ARGZ_STRINGIFY
113 /* Make '\0' separated arg vector ARGZ printable by converting all the '\0's
114 except the last into the character SEP. */
115 static void argz_stringify__
PARAMS ((char *argz
, size_t len
, int sep
));
118 argz_stringify__ (argz
, len
, sep
)
125 size_t part_len
= strlen (argz
);
132 # undef __argz_stringify
133 # define __argz_stringify(argz, len, sep) argz_stringify__ (argz, len, sep)
136 # define __argz_stringify(argz, len, sep) \
137 INTUSE(__argz_stringify) (argz, len, sep)
139 #endif /* !_LIBC && !HAVE___ARGZ_STRINGIFY */
141 #if !defined _LIBC && !defined HAVE___ARGZ_NEXT
142 static char *argz_next__
PARAMS ((char *argz
, size_t argz_len
,
146 argz_next__ (argz
, argz_len
, entry
)
153 if (entry
< argz
+ argz_len
)
154 entry
= strchr (entry
, '\0') + 1;
156 return entry
>= argz
+ argz_len
? NULL
: (char *) entry
;
165 # define __argz_next(argz, len, entry) argz_next__ (argz, len, entry)
166 #endif /* !_LIBC && !HAVE___ARGZ_NEXT */
169 /* Return number of bits set in X. */
170 static int pop
PARAMS ((int x
));
176 /* We assume that no more than 16 bits are used. */
177 x
= ((x
& ~0x5555) >> 1) + (x
& 0x5555);
178 x
= ((x
& ~0x3333) >> 2) + (x
& 0x3333);
179 x
= ((x
>> 4) + x
) & 0x0f0f;
180 x
= ((x
>> 8) + x
) & 0xff;
186 struct loaded_l10nfile
*
187 _nl_make_l10nflist (l10nfile_list
, dirlist
, dirlist_len
, mask
, language
,
188 territory
, codeset
, normalized_codeset
, modifier
, special
,
189 sponsor
, revision
, filename
, do_allocate
)
190 struct loaded_l10nfile
**l10nfile_list
;
194 const char *language
;
195 const char *territory
;
197 const char *normalized_codeset
;
198 const char *modifier
;
201 const char *revision
;
202 const char *filename
;
206 struct loaded_l10nfile
**lastp
;
207 struct loaded_l10nfile
*retval
;
209 size_t dirlist_count
;
213 /* If LANGUAGE contains an absolute directory specification, we ignore
215 if (IS_ABSOLUTE_PATH (language
))
218 /* Allocate room for the full file name. */
219 abs_filename
= (char *) malloc (dirlist_len
221 + ((mask
& TERRITORY
) != 0
222 ? strlen (territory
) + 1 : 0)
223 + ((mask
& XPG_CODESET
) != 0
224 ? strlen (codeset
) + 1 : 0)
225 + ((mask
& XPG_NORM_CODESET
) != 0
226 ? strlen (normalized_codeset
) + 1 : 0)
227 + (((mask
& XPG_MODIFIER
) != 0
228 || (mask
& CEN_AUDIENCE
) != 0)
229 ? strlen (modifier
) + 1 : 0)
230 + ((mask
& CEN_SPECIAL
) != 0
231 ? strlen (special
) + 1 : 0)
232 + (((mask
& CEN_SPONSOR
) != 0
233 || (mask
& CEN_REVISION
) != 0)
234 ? (1 + ((mask
& CEN_SPONSOR
) != 0
235 ? strlen (sponsor
) : 0)
236 + ((mask
& CEN_REVISION
) != 0
237 ? strlen (revision
) + 1 : 0)) : 0)
238 + 1 + strlen (filename
) + 1);
240 if (abs_filename
== NULL
)
243 /* Construct file name. */
247 memcpy (cp
, dirlist
, dirlist_len
);
248 __argz_stringify (cp
, dirlist_len
, PATH_SEPARATOR
);
253 cp
= stpcpy (cp
, language
);
255 if ((mask
& TERRITORY
) != 0)
258 cp
= stpcpy (cp
, territory
);
260 if ((mask
& XPG_CODESET
) != 0)
263 cp
= stpcpy (cp
, codeset
);
265 if ((mask
& XPG_NORM_CODESET
) != 0)
268 cp
= stpcpy (cp
, normalized_codeset
);
270 if ((mask
& (XPG_MODIFIER
| CEN_AUDIENCE
)) != 0)
272 /* This component can be part of both syntaces but has different
273 leading characters. For CEN we use `+', else `@'. */
274 *cp
++ = (mask
& CEN_AUDIENCE
) != 0 ? '+' : '@';
275 cp
= stpcpy (cp
, modifier
);
277 if ((mask
& CEN_SPECIAL
) != 0)
280 cp
= stpcpy (cp
, special
);
282 if ((mask
& (CEN_SPONSOR
| CEN_REVISION
)) != 0)
285 if ((mask
& CEN_SPONSOR
) != 0)
286 cp
= stpcpy (cp
, sponsor
);
287 if ((mask
& CEN_REVISION
) != 0)
290 cp
= stpcpy (cp
, revision
);
295 stpcpy (cp
, filename
);
297 /* Look in list of already loaded domains whether it is already
299 lastp
= l10nfile_list
;
300 for (retval
= *l10nfile_list
; retval
!= NULL
; retval
= retval
->next
)
301 if (retval
->filename
!= NULL
)
303 int compare
= strcmp (retval
->filename
, abs_filename
);
309 /* It's not in the list. */
314 lastp
= &retval
->next
;
317 if (retval
!= NULL
|| do_allocate
== 0)
323 dirlist_count
= (dirlist_len
> 0 ? __argz_count (dirlist
, dirlist_len
) : 1);
325 /* Allocate a new loaded_l10nfile. */
327 (struct loaded_l10nfile
*)
328 malloc (sizeof (*retval
)
329 + (((dirlist_count
<< pop (mask
)) + (dirlist_count
> 1 ? 1 : 0))
330 * sizeof (struct loaded_l10nfile
*)));
334 retval
->filename
= abs_filename
;
336 /* We set retval->data to NULL here; it is filled in later.
337 Setting retval->decided to 1 here means that retval does not
338 correspond to a real file (dirlist_count > 1) or is not worth
339 looking up (if an unnormalized codeset was specified). */
340 retval
->decided
= (dirlist_count
> 1
341 || ((mask
& XPG_CODESET
) != 0
342 && (mask
& XPG_NORM_CODESET
) != 0));
345 retval
->next
= *lastp
;
349 /* Recurse to fill the inheritance list of RETVAL.
350 If the DIRLIST is a real list (i.e. DIRLIST_COUNT > 1), the RETVAL
351 entry does not correspond to a real file; retval->filename contains
352 colons. In this case we loop across all elements of DIRLIST and
353 across all bit patterns dominated by MASK.
354 If the DIRLIST is a single directory or entirely redundant (i.e.
355 DIRLIST_COUNT == 1), we loop across all bit patterns dominated by
356 MASK, excluding MASK itself.
357 In either case, we loop down from MASK to 0. This has the effect
358 that the extra bits in the locale name are dropped in this order:
359 first the modifier, then the territory, then the codeset, then the
360 normalized_codeset. */
361 for (cnt
= dirlist_count
> 1 ? mask
: mask
- 1; cnt
>= 0; --cnt
)
362 if ((cnt
& ~mask
) == 0
363 && ((cnt
& CEN_SPECIFIC
) == 0 || (cnt
& XPG_SPECIFIC
) == 0)
364 && ((cnt
& XPG_CODESET
) == 0 || (cnt
& XPG_NORM_CODESET
) == 0))
366 if (dirlist_count
> 1)
368 /* Iterate over all elements of the DIRLIST. */
371 while ((dir
= __argz_next ((char *) dirlist
, dirlist_len
, dir
))
373 retval
->successor
[entries
++]
374 = _nl_make_l10nflist (l10nfile_list
, dir
, strlen (dir
) + 1,
375 cnt
, language
, territory
, codeset
,
376 normalized_codeset
, modifier
, special
,
377 sponsor
, revision
, filename
, 1);
380 retval
->successor
[entries
++]
381 = _nl_make_l10nflist (l10nfile_list
, dirlist
, dirlist_len
,
382 cnt
, language
, territory
, codeset
,
383 normalized_codeset
, modifier
, special
,
384 sponsor
, revision
, filename
, 1);
386 retval
->successor
[entries
] = NULL
;
391 /* Normalize codeset name. There is no standard for the codeset
392 names. Normalization allows the user to use any of the common
393 names. The return value is dynamically allocated and has to be
394 freed by the caller. */
396 _nl_normalize_codeset (codeset
, name_len
)
406 for (cnt
= 0; cnt
< name_len
; ++cnt
)
407 if (isalnum ((unsigned char) codeset
[cnt
]))
411 if (isalpha ((unsigned char) codeset
[cnt
]))
415 retval
= (char *) malloc ((only_digit
? 3 : 0) + len
+ 1);
420 wp
= stpcpy (retval
, "iso");
424 for (cnt
= 0; cnt
< name_len
; ++cnt
)
425 if (isalpha ((unsigned char) codeset
[cnt
]))
426 *wp
++ = tolower ((unsigned char) codeset
[cnt
]);
427 else if (isdigit ((unsigned char) codeset
[cnt
]))
428 *wp
++ = codeset
[cnt
];
433 return (const char *) retval
;
437 /* @@ begin of epilog @@ */
439 /* We don't want libintl.a to depend on any other library. So we
440 avoid the non-standard function stpcpy. In GNU C Library this
441 function is available, though. Also allow the symbol HAVE_STPCPY
443 #if !_LIBC && !HAVE_STPCPY
449 while ((*dest
++ = *src
++) != '\0')
This page took 0.037866 seconds and 4 git commands to generate.