1 /* Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
2 Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
4 This file is part of the GNU C Library. Its master source is NOT part of
5 the C library, however.
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 not,
19 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
27 #if defined HAVE_STRING_H || defined _LIBC
29 # define _GNU_SOURCE 1
35 # define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
38 #if !HAVE_STRCHR && !defined _LIBC
44 #if defined _LIBC || defined HAVE_ARGZ_H
48 #include <sys/types.h>
50 #if defined STDC_HEADERS || defined _LIBC
56 /* On some strange systems still no definition of NULL is found. Sigh! */
58 # if defined __STDC__ && __STDC__
59 # define NULL ((void *) 0)
65 /* @@ end of prolog @@ */
68 /* Rename the non ANSI C functions. This is required by the standard
69 because some ANSI C functions will require linking with this object
70 file and the name space must not be polluted. */
72 # define stpcpy(dest, src) __stpcpy(dest, src)
76 static char *stpcpy
PARAMS ((char *dest
, const char *src
));
80 /* Define function which are usually not available. */
82 #if !defined _LIBC && !defined HAVE___ARGZ_COUNT
83 /* Returns the number of strings in ARGZ. */
84 static size_t argz_count__
PARAMS ((const char *argz
, size_t len
));
87 argz_count__ (argz
, len
)
94 size_t part_len
= strlen (argz
);
102 # define __argz_count(argz, len) argz_count__ (argz, len)
103 #endif /* !_LIBC && !HAVE___ARGZ_COUNT */
105 #if !defined _LIBC && !defined HAVE___ARGZ_STRINGIFY
106 /* Make '\0' separated arg vector ARGZ printable by converting all the '\0's
107 except the last into the character SEP. */
108 static void argz_stringify__
PARAMS ((char *argz
, size_t len
, int sep
));
111 argz_stringify__ (argz
, len
, sep
)
118 size_t part_len
= strlen (argz
);
125 # undef __argz_stringify
126 # define __argz_stringify(argz, len, sep) argz_stringify__ (argz, len, sep)
127 #endif /* !_LIBC && !HAVE___ARGZ_STRINGIFY */
129 #if !defined _LIBC && !defined HAVE___ARGZ_NEXT
130 static char *argz_next__
PARAMS ((char *argz
, size_t argz_len
,
134 argz_next__ (argz
, argz_len
, entry
)
141 if (entry
< argz
+ argz_len
)
142 entry
= strchr (entry
, '\0') + 1;
144 return entry
>= argz
+ argz_len
? NULL
: (char *) entry
;
153 # define __argz_next(argz, len, entry) argz_next__ (argz, len, entry)
154 #endif /* !_LIBC && !HAVE___ARGZ_NEXT */
157 /* Return number of bits set in X. */
158 static int pop
PARAMS ((int x
));
164 /* We assume that no more than 16 bits are used. */
165 x
= ((x
& ~0x5555) >> 1) + (x
& 0x5555);
166 x
= ((x
& ~0x3333) >> 2) + (x
& 0x3333);
167 x
= ((x
>> 4) + x
) & 0x0f0f;
168 x
= ((x
>> 8) + x
) & 0xff;
174 struct loaded_l10nfile
*
175 _nl_make_l10nflist (l10nfile_list
, dirlist
, dirlist_len
, mask
, language
,
176 territory
, codeset
, normalized_codeset
, modifier
, special
,
177 sponsor
, revision
, filename
, do_allocate
)
178 struct loaded_l10nfile
**l10nfile_list
;
182 const char *language
;
183 const char *territory
;
185 const char *normalized_codeset
;
186 const char *modifier
;
189 const char *revision
;
190 const char *filename
;
194 struct loaded_l10nfile
*last
= NULL
;
195 struct loaded_l10nfile
*retval
;
200 /* Allocate room for the full file name. */
201 abs_filename
= (char *) malloc (dirlist_len
203 + ((mask
& TERRITORY
) != 0
204 ? strlen (territory
) + 1 : 0)
205 + ((mask
& XPG_CODESET
) != 0
206 ? strlen (codeset
) + 1 : 0)
207 + ((mask
& XPG_NORM_CODESET
) != 0
208 ? strlen (normalized_codeset
) + 1 : 0)
209 + (((mask
& XPG_MODIFIER
) != 0
210 || (mask
& CEN_AUDIENCE
) != 0)
211 ? strlen (modifier
) + 1 : 0)
212 + ((mask
& CEN_SPECIAL
) != 0
213 ? strlen (special
) + 1 : 0)
214 + (((mask
& CEN_SPONSOR
) != 0
215 || (mask
& CEN_REVISION
) != 0)
216 ? (1 + ((mask
& CEN_SPONSOR
) != 0
217 ? strlen (sponsor
) + 1 : 0)
218 + ((mask
& CEN_REVISION
) != 0
219 ? strlen (revision
) + 1 : 0)) : 0)
220 + 1 + strlen (filename
) + 1);
222 if (abs_filename
== NULL
)
228 /* Construct file name. */
229 memcpy (abs_filename
, dirlist
, dirlist_len
);
230 __argz_stringify (abs_filename
, dirlist_len
, ':');
231 cp
= abs_filename
+ (dirlist_len
- 1);
233 cp
= stpcpy (cp
, language
);
235 if ((mask
& TERRITORY
) != 0)
238 cp
= stpcpy (cp
, territory
);
240 if ((mask
& XPG_CODESET
) != 0)
243 cp
= stpcpy (cp
, codeset
);
245 if ((mask
& XPG_NORM_CODESET
) != 0)
248 cp
= stpcpy (cp
, normalized_codeset
);
250 if ((mask
& (XPG_MODIFIER
| CEN_AUDIENCE
)) != 0)
252 /* This component can be part of both syntaces but has different
253 leading characters. For CEN we use `+', else `@'. */
254 *cp
++ = (mask
& CEN_AUDIENCE
) != 0 ? '+' : '@';
255 cp
= stpcpy (cp
, modifier
);
257 if ((mask
& CEN_SPECIAL
) != 0)
260 cp
= stpcpy (cp
, special
);
262 if ((mask
& (CEN_SPONSOR
| CEN_REVISION
)) != 0)
265 if ((mask
& CEN_SPONSOR
) != 0)
266 cp
= stpcpy (cp
, sponsor
);
267 if ((mask
& CEN_REVISION
) != 0)
270 cp
= stpcpy (cp
, revision
);
275 stpcpy (cp
, filename
);
277 /* Look in list of already loaded domains whether it is already
280 for (retval
= *l10nfile_list
; retval
!= NULL
; retval
= retval
->next
)
281 if (retval
->filename
!= NULL
)
283 int compare
= strcmp (retval
->filename
, abs_filename
);
289 /* It's not in the list. */
297 if (retval
!= NULL
|| do_allocate
== 0)
303 retval
= (struct loaded_l10nfile
*)
304 malloc (sizeof (*retval
) + (__argz_count (dirlist
, dirlist_len
)
306 * sizeof (struct loaded_l10nfile
*)));
310 retval
->filename
= abs_filename
;
311 retval
->decided
= (__argz_count (dirlist
, dirlist_len
) != 1
312 || ((mask
& XPG_CODESET
) != 0
313 && (mask
& XPG_NORM_CODESET
) != 0));
318 retval
->next
= *l10nfile_list
;
319 *l10nfile_list
= retval
;
323 retval
->next
= last
->next
;
328 /* If the DIRLIST is a real list the RETVAL entry corresponds not to
329 a real file. So we have to use the DIRLIST separation mechanism
330 of the inner loop. */
331 cnt
= __argz_count (dirlist
, dirlist_len
) == 1 ? mask
- 1 : mask
;
332 for (; cnt
>= 0; --cnt
)
333 if ((cnt
& ~mask
) == 0
334 && ((cnt
& CEN_SPECIFIC
) == 0 || (cnt
& XPG_SPECIFIC
) == 0)
335 && ((cnt
& XPG_CODESET
) == 0 || (cnt
& XPG_NORM_CODESET
) == 0))
337 /* Iterate over all elements of the DIRLIST. */
340 while ((dir
= __argz_next ((char *) dirlist
, dirlist_len
, dir
))
342 retval
->successor
[entries
++]
343 = _nl_make_l10nflist (l10nfile_list
, dir
, strlen (dir
) + 1, cnt
,
344 language
, territory
, codeset
,
345 normalized_codeset
, modifier
, special
,
346 sponsor
, revision
, filename
, 1);
348 retval
->successor
[entries
] = NULL
;
353 /* Normalize codeset name. There is no standard for the codeset
354 names. Normalization allows the user to use any of the common
355 names. The return value is dynamically allocated and has to be
356 freed by the caller. */
358 _nl_normalize_codeset (codeset
, name_len
)
368 for (cnt
= 0; cnt
< name_len
; ++cnt
)
369 if (isalnum (codeset
[cnt
]))
373 if (isalpha (codeset
[cnt
]))
377 retval
= (char *) malloc ((only_digit
? 3 : 0) + len
+ 1);
382 wp
= stpcpy (retval
, "iso");
386 for (cnt
= 0; cnt
< name_len
; ++cnt
)
387 if (isalpha (codeset
[cnt
]))
388 *wp
++ = _tolower (codeset
[cnt
]);
389 else if (isdigit (codeset
[cnt
]))
390 *wp
++ = codeset
[cnt
];
395 return (const char *) retval
;
399 /* @@ begin of epilog @@ */
401 /* We don't want libintl.a to depend on any other library. So we
402 avoid the non-standard function stpcpy. In GNU C Library this
403 function is available, though. Also allow the symbol HAVE_STPCPY
405 #if !_LIBC && !HAVE_STPCPY
411 while ((*dest
++ = *src
++) != '\0')