Removed duplicate entry.
[findutils.git] / intl / textdomain.c
blob05c2fd76b3c7655fccca0d5e73a895424d6dd4f4
1 /* Implementation of the textdomain(3) function.
2 Copyright (C) 1995-1998, 2000, 2001 Free Software Foundation, Inc.
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
7 any later version.
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
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software Foundation,
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
18 #ifdef HAVE_CONFIG_H
19 # include <config.h>
20 #endif
22 #include <stdlib.h>
23 #include <string.h>
25 #ifdef _LIBC
26 # include <libintl.h>
27 #else
28 # include "libgnuintl.h"
29 #endif
30 #include "gettextP.h"
32 #ifdef _LIBC
33 /* We have to handle multi-threaded applications. */
34 # include <bits/libc-lock.h>
35 #else
36 /* Provide dummy implementation if this is outside glibc. */
37 # define __libc_rwlock_define(CLASS, NAME)
38 # define __libc_rwlock_wrlock(NAME)
39 # define __libc_rwlock_unlock(NAME)
40 #endif
42 /* The internal variables in the standalone libintl.a must have different
43 names than the internal variables in GNU libc, otherwise programs
44 using libintl.a cannot be linked statically. */
45 #if !defined _LIBC
46 # define _nl_default_default_domain _nl_default_default_domain__
47 # define _nl_current_default_domain _nl_current_default_domain__
48 #endif
50 /* @@ end of prolog @@ */
52 /* Name of the default text domain. */
53 extern const char _nl_default_default_domain[];
55 /* Default text domain in which entries for gettext(3) are to be found. */
56 extern const char *_nl_current_default_domain;
59 /* Names for the libintl functions are a problem. They must not clash
60 with existing names and they should follow ANSI C. But this source
61 code is also used in GNU C Library where the names have a __
62 prefix. So we have to make a difference here. */
63 #ifdef _LIBC
64 # define TEXTDOMAIN __textdomain
65 # ifndef strdup
66 # define strdup(str) __strdup (str)
67 # endif
68 #else
69 # define TEXTDOMAIN textdomain__
70 #endif
72 /* Lock variable to protect the global data in the gettext implementation. */
73 __libc_rwlock_define (extern, _nl_state_lock)
75 /* Set the current default message catalog to DOMAINNAME.
76 If DOMAINNAME is null, return the current default.
77 If DOMAINNAME is "", reset to the default of "messages". */
78 char *
79 TEXTDOMAIN (domainname)
80 const char *domainname;
82 char *new_domain;
83 char *old_domain;
85 /* A NULL pointer requests the current setting. */
86 if (domainname == NULL)
87 return (char *) _nl_current_default_domain;
89 __libc_rwlock_wrlock (_nl_state_lock);
91 old_domain = (char *) _nl_current_default_domain;
93 /* If domain name is the null string set to default domain "messages". */
94 if (domainname[0] == '\0'
95 || strcmp (domainname, _nl_default_default_domain) == 0)
97 _nl_current_default_domain = _nl_default_default_domain;
98 new_domain = (char *) _nl_current_default_domain;
100 else if (strcmp (domainname, old_domain) == 0)
101 /* This can happen and people will use it to signal that some
102 environment variable changed. */
103 new_domain = old_domain;
104 else
106 /* If the following malloc fails `_nl_current_default_domain'
107 will be NULL. This value will be returned and so signals we
108 are out of core. */
109 #if defined _LIBC || defined HAVE_STRDUP
110 new_domain = strdup (domainname);
111 #else
112 size_t len = strlen (domainname) + 1;
113 new_domain = (char *) malloc (len);
114 if (new_domain != NULL)
115 memcpy (new_domain, domainname, len);
116 #endif
118 if (new_domain != NULL)
119 _nl_current_default_domain = new_domain;
122 /* We use this possibility to signal a change of the loaded catalogs
123 since this is most likely the case and there is no other easy we
124 to do it. Do it only when the call was successful. */
125 if (new_domain != NULL)
127 ++_nl_msg_cat_cntr;
129 if (old_domain != new_domain && old_domain != _nl_default_default_domain)
130 free (old_domain);
133 __libc_rwlock_unlock (_nl_state_lock);
135 return new_domain;
138 #ifdef _LIBC
139 /* Alias for function name in GNU C Library. */
140 weak_alias (__textdomain, textdomain);
141 #endif