1 /* Handle list of needed message catalogs
2 Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
3 Contributed 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. */
24 #if defined HAVE_STRING_H || defined _LIBC
26 # define _GNU_SOURCE 1
32 # define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
35 #if !HAVE_STRCHR && !defined _LIBC
41 #if defined _LIBC || defined HAVE_ARGZ_H
45 #include <sys/types.h>
47 #if defined STDC_HEADERS || defined _LIBC
53 /* On some strange systems still no definition of NULL is found. Sigh! */
55 # if defined __STDC__ && __STDC__
56 # define NULL ((void *) 0)
62 /* @@ end of prolog @@ */
65 /* Rename the non ANSI C functions. This is required by the standard
66 because some ANSI C functions will require linking with this object
67 file and the name space must not be polluted. */
69 # define stpcpy(dest, src) __stpcpy(dest, src)
73 static char *stpcpy
PARAMS ((char *dest
, const char *src
));
77 /* Define function which are usually not available. */
79 #if !defined _LIBC && !defined HAVE___ARGZ_COUNT
80 /* Returns the number of strings in ARGZ. */
81 static size_t argz_count__
PARAMS ((const char *argz
, size_t len
));
84 argz_count__ (argz
, len
)
91 size_t part_len
= strlen (argz
);
99 # define __argz_count(argz, len) argz_count__ (argz, len)
100 #endif /* !_LIBC && !HAVE___ARGZ_COUNT */
102 #if !defined _LIBC && !defined HAVE___ARGZ_STRINGIFY
103 /* Make '\0' separated arg vector ARGZ printable by converting all the '\0's
104 except the last into the character SEP. */
105 static void argz_stringify__
PARAMS ((char *argz
, size_t len
, int sep
));
108 argz_stringify__ (argz
, len
, sep
)
115 size_t part_len
= strlen (argz
);
122 # undef __argz_stringify
123 # define __argz_stringify(argz, len, sep) argz_stringify__ (argz, len, sep)
124 #endif /* !_LIBC && !HAVE___ARGZ_STRINGIFY */
126 #if !defined _LIBC && !defined HAVE___ARGZ_NEXT
127 static char *argz_next__
PARAMS ((char *argz
, size_t argz_len
,
131 argz_next__ (argz
, argz_len
, entry
)
138 if (entry
< argz
+ argz_len
)
139 entry
= strchr (entry
, '\0') + 1;
141 return entry
>= argz
+ argz_len
? NULL
: (char *) entry
;
150 # define __argz_next(argz, len, entry) argz_next__ (argz, len, entry)
151 #endif /* !_LIBC && !HAVE___ARGZ_NEXT */
154 /* Return number of bits set in X. */
155 static int pop
PARAMS ((int x
));
161 /* We assume that no more than 16 bits are used. */
162 x
= ((x
& ~0x5555) >> 1) + (x
& 0x5555);
163 x
= ((x
& ~0x3333) >> 2) + (x
& 0x3333);
164 x
= ((x
>> 4) + x
) & 0x0f0f;
165 x
= ((x
>> 8) + x
) & 0xff;
171 struct loaded_l10nfile
*
172 _nl_make_l10nflist (l10nfile_list
, dirlist
, dirlist_len
, mask
, language
,
173 territory
, codeset
, normalized_codeset
, modifier
, special
,
174 sponsor
, revision
, filename
, do_allocate
)
175 struct loaded_l10nfile
**l10nfile_list
;
179 const char *language
;
180 const char *territory
;
182 const char *normalized_codeset
;
183 const char *modifier
;
186 const char *revision
;
187 const char *filename
;
191 struct loaded_l10nfile
*last
= NULL
;
192 struct loaded_l10nfile
*retval
;
197 /* Allocate room for the full file name. */
198 abs_filename
= (char *) malloc (dirlist_len
200 + ((mask
& TERRITORY
) != 0
201 ? strlen (territory
) + 1 : 0)
202 + ((mask
& XPG_CODESET
) != 0
203 ? strlen (codeset
) + 1 : 0)
204 + ((mask
& XPG_NORM_CODESET
) != 0
205 ? strlen (normalized_codeset
) + 1 : 0)
206 + (((mask
& XPG_MODIFIER
) != 0
207 || (mask
& CEN_AUDIENCE
) != 0)
208 ? strlen (modifier
) + 1 : 0)
209 + ((mask
& CEN_SPECIAL
) != 0
210 ? strlen (special
) + 1 : 0)
211 + (((mask
& CEN_SPONSOR
) != 0
212 || (mask
& CEN_REVISION
) != 0)
213 ? (1 + ((mask
& CEN_SPONSOR
) != 0
214 ? strlen (sponsor
) + 1 : 0)
215 + ((mask
& CEN_REVISION
) != 0
216 ? strlen (revision
) + 1 : 0)) : 0)
217 + 1 + strlen (filename
) + 1);
219 if (abs_filename
== NULL
)
225 /* Construct file name. */
226 memcpy (abs_filename
, dirlist
, dirlist_len
);
227 __argz_stringify (abs_filename
, dirlist_len
, ':');
228 cp
= abs_filename
+ (dirlist_len
- 1);
230 cp
= stpcpy (cp
, language
);
232 if ((mask
& TERRITORY
) != 0)
235 cp
= stpcpy (cp
, territory
);
237 if ((mask
& XPG_CODESET
) != 0)
240 cp
= stpcpy (cp
, codeset
);
242 if ((mask
& XPG_NORM_CODESET
) != 0)
245 cp
= stpcpy (cp
, normalized_codeset
);
247 if ((mask
& (XPG_MODIFIER
| CEN_AUDIENCE
)) != 0)
249 /* This component can be part of both syntaces but has different
250 leading characters. For CEN we use `+', else `@'. */
251 *cp
++ = (mask
& CEN_AUDIENCE
) != 0 ? '+' : '@';
252 cp
= stpcpy (cp
, modifier
);
254 if ((mask
& CEN_SPECIAL
) != 0)
257 cp
= stpcpy (cp
, special
);
259 if ((mask
& (CEN_SPONSOR
| CEN_REVISION
)) != 0)
262 if ((mask
& CEN_SPONSOR
) != 0)
263 cp
= stpcpy (cp
, sponsor
);
264 if ((mask
& CEN_REVISION
) != 0)
267 cp
= stpcpy (cp
, revision
);
272 stpcpy (cp
, filename
);
274 /* Look in list of already loaded domains whether it is already
277 for (retval
= *l10nfile_list
; retval
!= NULL
; retval
= retval
->next
)
278 if (retval
->filename
!= NULL
)
280 int compare
= strcmp (retval
->filename
, abs_filename
);
286 /* It's not in the list. */
294 if (retval
!= NULL
|| do_allocate
== 0)
300 retval
= (struct loaded_l10nfile
*)
301 malloc (sizeof (*retval
) + (__argz_count (dirlist
, dirlist_len
)
303 * sizeof (struct loaded_l10nfile
*)));
307 retval
->filename
= abs_filename
;
308 retval
->decided
= (__argz_count (dirlist
, dirlist_len
) != 1
309 || ((mask
& XPG_CODESET
) != 0
310 && (mask
& XPG_NORM_CODESET
) != 0));
315 retval
->next
= *l10nfile_list
;
316 *l10nfile_list
= retval
;
320 retval
->next
= last
->next
;
325 /* If the DIRLIST is a real list the RETVAL entry corresponds not to
326 a real file. So we have to use the DIRLIST separation mechanism
327 of the inner loop. */
328 cnt
= __argz_count (dirlist
, dirlist_len
) == 1 ? mask
- 1 : mask
;
329 for (; cnt
>= 0; --cnt
)
330 if ((cnt
& ~mask
) == 0
331 && ((cnt
& CEN_SPECIFIC
) == 0 || (cnt
& XPG_SPECIFIC
) == 0)
332 && ((cnt
& XPG_CODESET
) == 0 || (cnt
& XPG_NORM_CODESET
) == 0))
334 /* Iterate over all elements of the DIRLIST. */
337 while ((dir
= __argz_next ((char *) dirlist
, dirlist_len
, dir
))
339 retval
->successor
[entries
++]
340 = _nl_make_l10nflist (l10nfile_list
, dir
, strlen (dir
) + 1, cnt
,
341 language
, territory
, codeset
,
342 normalized_codeset
, modifier
, special
,
343 sponsor
, revision
, filename
, 1);
345 retval
->successor
[entries
] = NULL
;
350 /* Normalize codeset name. There is no standard for the codeset
351 names. Normalization allows the user to use any of the common
354 _nl_normalize_codeset (codeset
, name_len
)
355 const unsigned char *codeset
;
364 for (cnt
= 0; cnt
< name_len
; ++cnt
)
365 if (isalnum (codeset
[cnt
]))
369 if (isalpha (codeset
[cnt
]))
373 retval
= (char *) malloc ((only_digit
? 3 : 0) + len
+ 1);
378 wp
= stpcpy (retval
, "iso");
382 for (cnt
= 0; cnt
< name_len
; ++cnt
)
383 if (isalpha (codeset
[cnt
]))
384 *wp
++ = tolower (codeset
[cnt
]);
385 else if (isdigit (codeset
[cnt
]))
386 *wp
++ = codeset
[cnt
];
391 return (const char *) retval
;
395 /* @@ begin of epilog @@ */
397 /* We don't want libintl.a to depend on any other library. So we
398 avoid the non-standard function stpcpy. In GNU C Library this
399 function is available, though. Also allow the symbol HAVE_STPCPY
401 #if !_LIBC && !HAVE_STPCPY
407 while ((*dest
++ = *src
++) != '\0')
This page took 0.037501 seconds and 4 git commands to generate.