Switched to GPLv3.
[gnupg.git] / intl / bindtextdom.c
1 /* Implementation of the bindtextdomain(3) function
2    Copyright (C) 1995-1998, 2000-2003, 2005-2006 Free Software Foundation, Inc.
3
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)
7    any later version.
8
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.
13
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,
17    USA.  */
18
19 #ifdef HAVE_CONFIG_H
20 # include <config.h>
21 #endif
22
23 #include <stddef.h>
24 #include <stdlib.h>
25 #include <string.h>
26
27 #include "gettextP.h"
28 #ifdef _LIBC
29 # include <libintl.h>
30 #else
31 # include "libgnuintl.h"
32 #endif
33
34 /* Handle multi-threaded applications.  */
35 #ifdef _LIBC
36 # include <bits/libc-lock.h>
37 # define gl_rwlock_define __libc_rwlock_define
38 # define gl_rwlock_wrlock __libc_rwlock_wrlock
39 # define gl_rwlock_unlock __libc_rwlock_unlock
40 #else
41 # include "lock.h"
42 #endif
43
44 /* The internal variables in the standalone libintl.a must have different
45    names than the internal variables in GNU libc, otherwise programs
46    using libintl.a cannot be linked statically.  */
47 #if !defined _LIBC
48 # define _nl_default_dirname libintl_nl_default_dirname
49 # define _nl_domain_bindings libintl_nl_domain_bindings
50 #endif
51
52 /* Some compilers, like SunOS4 cc, don't have offsetof in <stddef.h>.  */
53 #ifndef offsetof
54 # define offsetof(type,ident) ((size_t)&(((type*)0)->ident))
55 #endif
56
57 /* @@ end of prolog @@ */
58
59 /* Contains the default location of the message catalogs.  */
60 extern const char _nl_default_dirname[];
61 #ifdef _LIBC
62 libc_hidden_proto (_nl_default_dirname)
63 #endif
64
65 /* List with bindings of specific domains.  */
66 extern struct binding *_nl_domain_bindings;
67
68 /* Lock variable to protect the global data in the gettext implementation.  */
69 gl_rwlock_define (extern, _nl_state_lock attribute_hidden)
70
71
72 /* Names for the libintl functions are a problem.  They must not clash
73    with existing names and they should follow ANSI C.  But this source
74    code is also used in GNU C Library where the names have a __
75    prefix.  So we have to make a difference here.  */
76 #ifdef _LIBC
77 # define BINDTEXTDOMAIN __bindtextdomain
78 # define BIND_TEXTDOMAIN_CODESET __bind_textdomain_codeset
79 # ifndef strdup
80 #  define strdup(str) __strdup (str)
81 # endif
82 #else
83 # define BINDTEXTDOMAIN libintl_bindtextdomain
84 # define BIND_TEXTDOMAIN_CODESET libintl_bind_textdomain_codeset
85 #endif
86
87 /* Specifies the directory name *DIRNAMEP and the output codeset *CODESETP
88    to be used for the DOMAINNAME message catalog.
89    If *DIRNAMEP or *CODESETP is NULL, the corresponding attribute is not
90    modified, only the current value is returned.
91    If DIRNAMEP or CODESETP is NULL, the corresponding attribute is neither
92    modified nor returned.  */
93 static void
94 set_binding_values (const char *domainname,
95                     const char **dirnamep, const char **codesetp)
96 {
97   struct binding *binding;
98   int modified;
99
100   /* Some sanity checks.  */
101   if (domainname == NULL || domainname[0] == '\0')
102     {
103       if (dirnamep)
104         *dirnamep = NULL;
105       if (codesetp)
106         *codesetp = NULL;
107       return;
108     }
109
110   gl_rwlock_wrlock (_nl_state_lock);
111
112   modified = 0;
113
114   for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next)
115     {
116       int compare = strcmp (domainname, binding->domainname);
117       if (compare == 0)
118         /* We found it!  */
119         break;
120       if (compare < 0)
121         {
122           /* It is not in the list.  */
123           binding = NULL;
124           break;
125         }
126     }
127
128   if (binding != NULL)
129     {
130       if (dirnamep)
131         {
132           const char *dirname = *dirnamep;
133
134           if (dirname == NULL)
135             /* The current binding has be to returned.  */
136             *dirnamep = binding->dirname;
137           else
138             {
139               /* The domain is already bound.  If the new value and the old
140                  one are equal we simply do nothing.  Otherwise replace the
141                  old binding.  */
142               char *result = binding->dirname;
143               if (strcmp (dirname, result) != 0)
144                 {
145                   if (strcmp (dirname, _nl_default_dirname) == 0)
146                     result = (char *) _nl_default_dirname;
147                   else
148                     {
149 #if defined _LIBC || defined HAVE_STRDUP
150                       result = strdup (dirname);
151 #else
152                       size_t len = strlen (dirname) + 1;
153                       result = (char *) malloc (len);
154                       if (__builtin_expect (result != NULL, 1))
155                         memcpy (result, dirname, len);
156 #endif
157                     }
158
159                   if (__builtin_expect (result != NULL, 1))
160                     {
161                       if (binding->dirname != _nl_default_dirname)
162                         free (binding->dirname);
163
164                       binding->dirname = result;
165                       modified = 1;
166                     }
167                 }
168               *dirnamep = result;
169             }
170         }
171
172       if (codesetp)
173         {
174           const char *codeset = *codesetp;
175
176           if (codeset == NULL)
177             /* The current binding has be to returned.  */
178             *codesetp = binding->codeset;
179           else
180             {
181               /* The domain is already bound.  If the new value and the old
182                  one are equal we simply do nothing.  Otherwise replace the
183                  old binding.  */
184               char *result = binding->codeset;
185               if (result == NULL || strcmp (codeset, result) != 0)
186                 {
187 #if defined _LIBC || defined HAVE_STRDUP
188                   result = strdup (codeset);
189 #else
190                   size_t len = strlen (codeset) + 1;
191                   result = (char *) malloc (len);
192                   if (__builtin_expect (result != NULL, 1))
193                     memcpy (result, codeset, len);
194 #endif
195
196                   if (__builtin_expect (result != NULL, 1))
197                     {
198                       if (binding->codeset != NULL)
199                         free (binding->codeset);
200
201                       binding->codeset = result;
202                       modified = 1;
203                     }
204                 }
205               *codesetp = result;
206             }
207         }
208     }
209   else if ((dirnamep == NULL || *dirnamep == NULL)
210            && (codesetp == NULL || *codesetp == NULL))
211     {
212       /* Simply return the default values.  */
213       if (dirnamep)
214         *dirnamep = _nl_default_dirname;
215       if (codesetp)
216         *codesetp = NULL;
217     }
218   else
219     {
220       /* We have to create a new binding.  */
221       size_t len = strlen (domainname) + 1;
222       struct binding *new_binding =
223         (struct binding *) malloc (offsetof (struct binding, domainname) + len);
224
225       if (__builtin_expect (new_binding == NULL, 0))
226         goto failed;
227
228       memcpy (new_binding->domainname, domainname, len);
229
230       if (dirnamep)
231         {
232           const char *dirname = *dirnamep;
233
234           if (dirname == NULL)
235             /* The default value.  */
236             dirname = _nl_default_dirname;
237           else
238             {
239               if (strcmp (dirname, _nl_default_dirname) == 0)
240                 dirname = _nl_default_dirname;
241               else
242                 {
243                   char *result;
244 #if defined _LIBC || defined HAVE_STRDUP
245                   result = strdup (dirname);
246                   if (__builtin_expect (result == NULL, 0))
247                     goto failed_dirname;
248 #else
249                   size_t len = strlen (dirname) + 1;
250                   result = (char *) malloc (len);
251                   if (__builtin_expect (result == NULL, 0))
252                     goto failed_dirname;
253                   memcpy (result, dirname, len);
254 #endif
255                   dirname = result;
256                 }
257             }
258           *dirnamep = dirname;
259           new_binding->dirname = (char *) dirname;
260         }
261       else
262         /* The default value.  */
263         new_binding->dirname = (char *) _nl_default_dirname;
264
265       if (codesetp)
266         {
267           const char *codeset = *codesetp;
268
269           if (codeset != NULL)
270             {
271               char *result;
272
273 #if defined _LIBC || defined HAVE_STRDUP
274               result = strdup (codeset);
275               if (__builtin_expect (result == NULL, 0))
276                 goto failed_codeset;
277 #else
278               size_t len = strlen (codeset) + 1;
279               result = (char *) malloc (len);
280               if (__builtin_expect (result == NULL, 0))
281                 goto failed_codeset;
282               memcpy (result, codeset, len);
283 #endif
284               codeset = result;
285             }
286           *codesetp = codeset;
287           new_binding->codeset = (char *) codeset;
288         }
289       else
290         new_binding->codeset = NULL;
291
292       /* Now enqueue it.  */
293       if (_nl_domain_bindings == NULL
294           || strcmp (domainname, _nl_domain_bindings->domainname) < 0)
295         {
296           new_binding->next = _nl_domain_bindings;
297           _nl_domain_bindings = new_binding;
298         }
299       else
300         {
301           binding = _nl_domain_bindings;
302           while (binding->next != NULL
303                  && strcmp (domainname, binding->next->domainname) > 0)
304             binding = binding->next;
305
306           new_binding->next = binding->next;
307           binding->next = new_binding;
308         }
309
310       modified = 1;
311
312       /* Here we deal with memory allocation failures.  */
313       if (0)
314         {
315         failed_codeset:
316           if (new_binding->dirname != _nl_default_dirname)
317             free (new_binding->dirname);
318         failed_dirname:
319           free (new_binding);
320         failed:
321           if (dirnamep)
322             *dirnamep = NULL;
323           if (codesetp)
324             *codesetp = NULL;
325         }
326     }
327
328   /* If we modified any binding, we flush the caches.  */
329   if (modified)
330     ++_nl_msg_cat_cntr;
331
332   gl_rwlock_unlock (_nl_state_lock);
333 }
334
335 /* Specify that the DOMAINNAME message catalog will be found
336    in DIRNAME rather than in the system locale data base.  */
337 char *
338 BINDTEXTDOMAIN (const char *domainname, const char *dirname)
339 {
340   set_binding_values (domainname, &dirname, NULL);
341   return (char *) dirname;
342 }
343
344 /* Specify the character encoding in which the messages from the
345    DOMAINNAME message catalog will be returned.  */
346 char *
347 BIND_TEXTDOMAIN_CODESET (const char *domainname, const char *codeset)
348 {
349   set_binding_values (domainname, NULL, &codeset);
350   return (char *) codeset;
351 }
352
353 #ifdef _LIBC
354 /* Aliases for function names in GNU C Library.  */
355 weak_alias (__bindtextdomain, bindtextdomain);
356 weak_alias (__bind_textdomain_codeset, bind_textdomain_codeset);
357 #endif