update from main archive 960904
[kopensolaris-gnu/glibc.git] / intl / finddomain.c
1 /* finddomain.c -- handle list of needed message catalogs
2    Copyright (C) 1995, 1996 Free Software Foundation, Inc.
3    Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
4
5 This file is part of the GNU C Library.  Its master source is NOT part of
6 the C library, however.  The master source lives in /gd/gnu/lib.
7
8 The GNU C Library is free software; you can redistribute it and/or
9 modify it under the terms of the GNU Library General Public License as
10 published by the Free Software Foundation; either version 2 of the
11 License, or (at your option) any later version.
12
13 The GNU C Library is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16 Library General Public License for more details.
17
18 You should have received a copy of the GNU Library General Public
19 License along with the GNU C Library; see the file COPYING.LIB.  If
20 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
21 Cambridge, MA 02139, USA.  */
22
23 #ifdef HAVE_CONFIG_H
24 # include <config.h>
25 #endif
26
27 #include <ctype.h>
28 #include <errno.h>
29 #include <stdio.h>
30 #include <sys/types.h>
31
32 #if defined STDC_HEADERS || defined _LIBC
33 # include <stdlib.h>
34 #else
35 # ifdef HAVE_MALLOC_H
36 #  include <malloc.h>
37 # else
38 void free ();
39 # endif
40 #endif
41
42 #if defined HAVE_STRING_H || defined _LIBC
43 # include <string.h>
44 #else
45 # include <strings.h>
46 #endif
47 #if !HAVE_STRCHR && !defined _LIBC
48 # ifndef strchr
49 #  define strchr index
50 # endif
51 #endif
52
53 #if defined HAVE_UNISTD_H || defined _LIBC
54 # include <unistd.h>
55 #endif
56
57 #include "gettext.h"
58 #include "gettextP.h"
59 #ifdef _LIBC
60 # include <libintl.h>
61 #else
62 # include "libgettext.h"
63 #endif
64
65 /* @@ end of prolog @@ */
66
67 #ifdef _LIBC
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.  */
71 # define stpcpy(dest, src) __stpcpy(dest, src)
72 #else
73 # ifndef HAVE_STPCPY
74 static char *stpcpy PARAMS ((char *dest, const char *src));
75 # endif
76 #endif
77
78 /* List of already loaded domains.  */
79 static struct loaded_l10nfile *_nl_loaded_domains;
80
81
82 /* Return a data structure describing the message catalog described by
83    the DOMAINNAME and CATEGORY parameters with respect to the currently
84    established bindings.  */
85 struct loaded_l10nfile *
86 _nl_find_domain (dirname, locale, domainname)
87      const char *dirname;
88      char *locale;
89      const char *domainname;
90 {
91   struct loaded_l10nfile *retval;
92   const char *language;
93   const char *modifier;
94   const char *territory;
95   const char *codeset;
96   const char *normalized_codeset;
97   const char *special;
98   const char *sponsor;
99   const char *revision;
100   const char *alias_value;
101   int mask;
102
103   /* LOCALE can consist of up to four recognized parts for the XPG syntax:
104
105                 language[_territory[.codeset]][@modifier]
106
107      and six parts for the CEN syntax:
108
109         language[_territory][+audience][+special][,sponsor][_revision]
110
111      Beside the first all of them are allowed to be missing.  If the
112      full specified locale is not found, the less specific one are
113      looked for.  The various part will be stripped of according to
114      the following order:
115                 (1) revision
116                 (2) sponsor
117                 (3) special
118                 (4) codeset
119                 (5) normalized codeset
120                 (6) territory
121                 (7) audience/modifier
122    */
123
124   /* If we have already tested for this locale entry there has to
125      be one data set in the list of loaded domains.  */
126   retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
127                                strlen (dirname) + 1, 0, locale, NULL, NULL,
128                                NULL, NULL, NULL, NULL, NULL, domainname, 0);
129   if (retval != NULL)
130     {
131       /* We know something about this locale.  */
132       int cnt;
133
134       if (retval->decided == 0)
135         _nl_load_domain (retval);
136
137       if (retval->data != NULL)
138         return retval;
139
140       for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
141         {
142           if (retval->successor[cnt]->decided == 0)
143             _nl_load_domain (retval->successor[cnt]);
144
145           if (retval->successor[cnt]->data != NULL)
146             break;
147         }
148       return cnt >= 0 ? retval : NULL;
149       /* NOTREACHED */
150     }
151
152   /* See whether the locale value is an alias.  If yes its value
153      *overwrites* the alias name.  No test for the original value is
154      done.  */
155   alias_value = _nl_expand_alias (locale);
156   if (alias_value != NULL)
157     {
158       size_t len = strlen (alias_value) + 1;
159       locale = (char *) malloc (len);
160       if (locale == NULL)
161         return NULL;
162
163       memcpy (locale, alias_value, len);
164     }
165
166   /* Now we determine the single parts of the locale name.  First
167      look for the language.  Termination symbols are `_' and `@' if
168      we use XPG4 style, and `_', `+', and `,' if we use CEN syntax.  */
169   mask = _nl_explode_name (locale, &language, &modifier, &territory,
170                            &codeset, &normalized_codeset, &special,
171                            &sponsor, &revision);
172
173   /* Create all possible locale entries which might be interested in
174      generalzation.  */
175   retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
176                                strlen (dirname) + 1, mask, language, territory,
177                                codeset, normalized_codeset, modifier, special,
178                                sponsor, revision, domainname, 1);
179   if (retval == NULL)
180     /* This means we are out of core.  */
181     return NULL;
182
183   if (retval->decided == 0)
184     _nl_load_domain (retval);
185   if (retval->data == NULL)
186     {
187       int cnt;
188       for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
189         {
190           if (retval->successor[cnt]->decided == 0)
191             _nl_load_domain (retval->successor[cnt]);
192           if (retval->successor[cnt]->data != NULL)
193             break;
194         }
195     }
196
197   /* The room for an alias was dynamically allocated.  Free it now.  */
198   if (alias_value != NULL)
199     free (locale);
200
201   return retval;
202 }
203
204 /* @@ begin of epilog @@ */
205
206 /* We don't want libintl.a to depend on any other library.  So we
207    avoid the non-standard function stpcpy.  In GNU C Library this
208    function is available, though.  Also allow the symbol HAVE_STPCPY
209    to be defined.  */
210 #if !_LIBC && !HAVE_STPCPY
211 static char *
212 stpcpy (dest, src)
213      char *dest;
214      const char *src;
215 {
216   while ((*dest++ = *src++) != '\0')
217     /* Do nothing. */ ;
218   return dest - 1;
219 }
220 #endif