1 /* Implementation of the textdomain(3) function.
2 Copyright (C) 1995-1998, 2000, 2001 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library 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 GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
24 #if defined STDC_HEADERS || defined _LIBC
28 #if defined STDC_HEADERS || defined HAVE_STRING_H || defined _LIBC
33 # define memcpy(Dst, Src, Num) (bcopy (Src, Dst, Num), (Dst))
40 # include "libgnuintl.h"
45 /* We have to handle multi-threaded applications. */
46 # include <bits/libc-lock.h>
48 /* Provide dummy implementation if this is outside glibc. */
49 # define __libc_rwlock_define(CLASS, NAME)
50 # define __libc_rwlock_wrlock(NAME)
51 # define __libc_rwlock_unlock(NAME)
54 /* The internal variables in the standalone libintl.a must have different
55 names than the internal variables in GNU libc, otherwise programs
56 using libintl.a cannot be linked statically. */
58 # define _nl_default_default_domain _nl_default_default_domain__
59 # define _nl_current_default_domain _nl_current_default_domain__
62 /* @@ end of prolog @@ */
64 /* Name of the default text domain. */
65 extern const char _nl_default_default_domain
[];
67 /* Default text domain in which entries for gettext(3) are to be found. */
68 extern const char *_nl_current_default_domain
;
71 /* Names for the libintl functions are a problem. They must not clash
72 with existing names and they should follow ANSI C. But this source
73 code is also used in GNU C Library where the names have a __
74 prefix. So we have to make a difference here. */
76 # define TEXTDOMAIN __textdomain
78 # define strdup(str) __strdup (str)
81 # define TEXTDOMAIN textdomain__
84 /* Lock variable to protect the global data in the gettext implementation. */
85 __libc_rwlock_define (extern, _nl_state_lock
)
87 /* Set the current default message catalog to DOMAINNAME.
88 If DOMAINNAME is null, return the current default.
89 If DOMAINNAME is "", reset to the default of "messages". */
91 TEXTDOMAIN (domainname
)
92 const char *domainname
;
97 /* A NULL pointer requests the current setting. */
98 if (domainname
== NULL
)
99 return (char *) _nl_current_default_domain
;
101 __libc_rwlock_wrlock (_nl_state_lock
);
103 old_domain
= (char *) _nl_current_default_domain
;
105 /* If domain name is the null string set to default domain "messages". */
106 if (domainname
[0] == '\0'
107 || strcmp (domainname
, _nl_default_default_domain
) == 0)
109 _nl_current_default_domain
= _nl_default_default_domain
;
110 new_domain
= (char *) _nl_current_default_domain
;
112 else if (strcmp (domainname
, old_domain
) == 0)
113 /* This can happen and people will use it to signal that some
114 environment variable changed. */
115 new_domain
= old_domain
;
118 /* If the following malloc fails `_nl_current_default_domain'
119 will be NULL. This value will be returned and so signals we
121 #if defined _LIBC || defined HAVE_STRDUP
122 new_domain
= strdup (domainname
);
124 size_t len
= strlen (domainname
) + 1;
125 new_domain
= (char *) malloc (len
);
126 if (new_domain
!= NULL
)
127 memcpy (new_domain
, domainname
, len
);
130 if (new_domain
!= NULL
)
131 _nl_current_default_domain
= new_domain
;
134 /* We use this possibility to signal a change of the loaded catalogs
135 since this is most likely the case and there is no other easy we
136 to do it. Do it only when the call was successful. */
137 if (new_domain
!= NULL
)
141 if (old_domain
!= new_domain
&& old_domain
!= _nl_default_default_domain
)
145 __libc_rwlock_unlock (_nl_state_lock
);
151 /* Alias for function name in GNU C Library. */
152 weak_alias (__textdomain
, textdomain
);