Update.
[glibc.git] / intl / textdomain.c
blob5dd4003a8ea4bbecf25931207b57716263434e9a
1 /* Implementation of the textdomain(3) function.
2 Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
4 This file is part of the GNU C Library. Its master source is NOT part of
5 the C library, however. The master source lives in /gd/gnu/lib.
7 The GNU C Library is free software; you can redistribute it and/or
8 modify it under the terms of the GNU Library General Public License as
9 published by the Free Software Foundation; either version 2 of the
10 License, or (at your option) any later version.
12 The GNU C Library is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 Library General Public License for more details.
17 You should have received a copy of the GNU Library General Public
18 License along with the GNU C Library; see the file COPYING.LIB. If not,
19 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
22 #ifdef HAVE_CONFIG_H
23 # include <config.h>
24 #endif
26 #if defined STDC_HEADERS || defined _LIBC
27 # include <stdlib.h>
28 #endif
30 #if defined STDC_HEADERS || defined HAVE_STRING_H || defined _LIBC
31 # include <string.h>
32 #else
33 # include <strings.h>
34 # ifndef memcpy
35 # define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
36 # endif
37 #endif
39 #ifdef _LIBC
40 # include <libintl.h>
41 #else
42 # include "libgettext.h"
43 #endif
45 /* @@ end of prolog @@ */
47 /* Name of the default text domain. */
48 extern const char _nl_default_default_domain[];
50 /* Default text domain in which entries for gettext(3) are to be found. */
51 extern const char *_nl_current_default_domain;
54 /* Names for the libintl functions are a problem. They must not clash
55 with existing names and they should follow ANSI C. But this source
56 code is also used in GNU C Library where the names have a __
57 prefix. So we have to make a difference here. */
58 #ifdef _LIBC
59 # define TEXTDOMAIN __textdomain
60 # ifndef strdup
61 # define strdup(str) __strdup (str)
62 # endif
63 #else
64 # define TEXTDOMAIN textdomain__
65 #endif
67 /* Set the current default message catalog to DOMAINNAME.
68 If DOMAINNAME is null, return the current default.
69 If DOMAINNAME is "", reset to the default of "messages". */
70 char *
71 TEXTDOMAIN (domainname)
72 const char *domainname;
74 char *old;
76 /* A NULL pointer requests the current setting. */
77 if (domainname == NULL)
78 return (char *) _nl_current_default_domain;
80 old = (char *) _nl_current_default_domain;
82 /* If domain name is the null string set to default domain "messages". */
83 if (domainname[0] == '\0'
84 || strcmp (domainname, _nl_default_default_domain) == 0)
85 _nl_current_default_domain = _nl_default_default_domain;
86 else
88 /* If the following malloc fails `_nl_current_default_domain'
89 will be NULL. This value will be returned and so signals we
90 are out of core. */
91 #if defined _LIBC || defined HAVE_STRDUP
92 _nl_current_default_domain = strdup (domainname);
93 #else
94 size_t len = strlen (domainname) + 1;
95 char *cp = (char *) malloc (len);
96 if (cp != NULL)
97 memcpy (cp, domainname, len);
98 _nl_current_default_domain = cp;
99 #endif
102 if (old != _nl_default_default_domain)
103 free (old);
105 return (char *) _nl_current_default_domain;
108 #ifdef _LIBC
109 /* Alias for function name in GNU C Library. */
110 weak_alias (__textdomain, textdomain);
111 #endif