1
1
/* Implementation of the textdomain(3) function.
2
Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
3
Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
2
Copyright (C) 1995-1998, 2000, 2001, 2002 Free Software Foundation, Inc.
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)
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)
10
9
This program is distributed in the hope that it will be useful,
11
10
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.
11
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12
Library 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. */
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., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
19
19
#ifdef HAVE_CONFIG_H
20
20
# include <config.h>
23
#if defined STDC_HEADERS || defined _LIBC
27
#if defined STDC_HEADERS || defined HAVE_STRING_H || defined _LIBC
32
# define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
37
27
# include <libintl.h>
39
# include "libgettext.h"
29
# include "libgnuintl.h"
34
/* We have to handle multi-threaded applications. */
35
# include <bits/libc-lock.h>
37
/* Provide dummy implementation if this is outside glibc. */
38
# define __libc_rwlock_define(CLASS, NAME)
39
# define __libc_rwlock_wrlock(NAME)
40
# define __libc_rwlock_unlock(NAME)
43
/* The internal variables in the standalone libintl.a must have different
44
names than the internal variables in GNU libc, otherwise programs
45
using libintl.a cannot be linked statically. */
47
# define _nl_default_default_domain _nl_default_default_domain__
48
# define _nl_current_default_domain _nl_current_default_domain__
42
51
/* @@ end of prolog @@ */
44
53
/* Name of the default text domain. */
45
extern const char _nl_default_default_domain[];
54
extern const char _nl_default_default_domain[] attribute_hidden;
47
56
/* Default text domain in which entries for gettext(3) are to be found. */
48
extern const char *_nl_current_default_domain;
57
extern const char *_nl_current_default_domain attribute_hidden;
51
60
/* Names for the libintl functions are a problem. They must not clash
68
80
TEXTDOMAIN (domainname)
69
81
const char *domainname;
73
86
/* A NULL pointer requests the current setting. */
74
87
if (domainname == NULL)
75
88
return (char *) _nl_current_default_domain;
77
old = (char *) _nl_current_default_domain;
90
__libc_rwlock_wrlock (_nl_state_lock);
92
old_domain = (char *) _nl_current_default_domain;
79
94
/* If domain name is the null string set to default domain "messages". */
80
95
if (domainname[0] == '\0'
81
96
|| strcmp (domainname, _nl_default_default_domain) == 0)
82
_nl_current_default_domain = _nl_default_default_domain;
98
_nl_current_default_domain = _nl_default_default_domain;
99
new_domain = (char *) _nl_current_default_domain;
101
else if (strcmp (domainname, old_domain) == 0)
102
/* This can happen and people will use it to signal that some
103
environment variable changed. */
104
new_domain = old_domain;
85
107
/* If the following malloc fails `_nl_current_default_domain'
86
108
will be NULL. This value will be returned and so signals we
87
109
are out of core. */
88
110
#if defined _LIBC || defined HAVE_STRDUP
89
_nl_current_default_domain = strdup (domainname);
111
new_domain = strdup (domainname);
91
113
size_t len = strlen (domainname) + 1;
92
char *cp = (char *) malloc (len);
94
memcpy (cp, domainname, len);
95
_nl_current_default_domain = cp;
114
new_domain = (char *) malloc (len);
115
if (new_domain != NULL)
116
memcpy (new_domain, domainname, len);
99
if (old != _nl_default_default_domain)
102
return (char *) _nl_current_default_domain;
119
if (new_domain != NULL)
120
_nl_current_default_domain = new_domain;
123
/* We use this possibility to signal a change of the loaded catalogs
124
since this is most likely the case and there is no other easy we
125
to do it. Do it only when the call was successful. */
126
if (new_domain != NULL)
130
if (old_domain != new_domain && old_domain != _nl_default_default_domain)
134
__libc_rwlock_unlock (_nl_state_lock);