filtering dialog box and some changes
[claws.git] / intl / textdomain.c
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.
4
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)
8    any later version.
9
10    This program 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
13    GNU General Public License for more details.
14
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.  */
18
19 #ifdef HAVE_CONFIG_H
20 # include <config.h>
21 #endif
22
23 #if defined STDC_HEADERS || defined _LIBC
24 # include <stdlib.h>
25 #endif
26
27 #if defined STDC_HEADERS || defined HAVE_STRING_H || defined _LIBC
28 # include <string.h>
29 #else
30 # include <strings.h>
31 # ifndef memcpy
32 #  define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
33 # endif
34 #endif
35
36 #ifdef _LIBC
37 # include <libintl.h>
38 #else
39 # include "libgettext.h"
40 #endif
41
42 /* @@ end of prolog @@ */
43
44 /* Name of the default text domain.  */
45 extern const char _nl_default_default_domain[];
46
47 /* Default text domain in which entries for gettext(3) are to be found.  */
48 extern const char *_nl_current_default_domain;
49
50
51 /* Names for the libintl functions are a problem.  They must not clash
52    with existing names and they should follow ANSI C.  But this source
53    code is also used in GNU C Library where the names have a __
54    prefix.  So we have to make a difference here.  */
55 #ifdef _LIBC
56 # define TEXTDOMAIN __textdomain
57 # ifndef strdup
58 #  define strdup(str) __strdup (str)
59 # endif
60 #else
61 # define TEXTDOMAIN textdomain__
62 #endif
63
64 /* Set the current default message catalog to DOMAINNAME.
65    If DOMAINNAME is null, return the current default.
66    If DOMAINNAME is "", reset to the default of "messages".  */
67 char *
68 TEXTDOMAIN (domainname)
69      const char *domainname;
70 {
71   char *old;
72
73   /* A NULL pointer requests the current setting.  */
74   if (domainname == NULL)
75     return (char *) _nl_current_default_domain;
76
77   old = (char *) _nl_current_default_domain;
78
79   /* If domain name is the null string set to default domain "messages".  */
80   if (domainname[0] == '\0'
81       || strcmp (domainname, _nl_default_default_domain) == 0)
82     _nl_current_default_domain = _nl_default_default_domain;
83   else
84     {
85       /* If the following malloc fails `_nl_current_default_domain'
86          will be NULL.  This value will be returned and so signals we
87          are out of core.  */
88 #if defined _LIBC || defined HAVE_STRDUP
89       _nl_current_default_domain = strdup (domainname);
90 #else
91       size_t len = strlen (domainname) + 1;
92       char *cp = (char *) malloc (len);
93       if (cp != NULL)
94         memcpy (cp, domainname, len);
95       _nl_current_default_domain = cp;
96 #endif
97     }
98
99   if (old != _nl_default_default_domain)
100     free (old);
101
102   return (char *) _nl_current_default_domain;
103 }
104
105 #ifdef _LIBC
106 /* Alias for function name in GNU C Library.  */
107 weak_alias (__textdomain, textdomain);
108 #endif