eggdrop1.9/intl/textdomain.c

/* Implementation of the textdomain(3) function.
   Copyright (C) 1995-1998, 2000, 2001, 2002 Free Software Foundation, Inc.

   This program is free software; you can redistribute it and/or modify it
   under the terms of the GNU Library General Public License as published
   by the Free Software Foundation; either version 2, or (at your option)
   any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Library General Public License for more details.

   You should have received a copy of the GNU Library General Public
   License along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
   USA.  */

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#include <stdlib.h>
#include <string.h>

#ifdef _LIBC
# include <libintl.h>
#else
# include "libgnuintl.h"
#endif
#include "gettextP.h"

#ifdef _LIBC
/* We have to handle multi-threaded applications.  */
# include <bits/libc-lock.h>
#else
/* Provide dummy implementation if this is outside glibc.  */
# define __libc_rwlock_define(CLASS, NAME)
# define __libc_rwlock_wrlock(NAME)
# define __libc_rwlock_unlock(NAME)
#endif

/* The internal variables in the standalone libintl.a must have different
   names than the internal variables in GNU libc, otherwise programs
   using libintl.a cannot be linked statically.  */
#if !defined _LIBC
# define _nl_default_default_domain libintl_nl_default_default_domain
# define _nl_current_default_domain libintl_nl_current_default_domain
#endif

/* @@ end of prolog @@ */

/* Name of the default text domain.  */
extern const char _nl_default_default_domain[] attribute_hidden;

/* Default text domain in which entries for gettext(3) are to be found.  */
extern const char *_nl_current_default_domain attribute_hidden;


/* Names for the libintl functions are a problem.  They must not clash
   with existing names and they should follow ANSI C.  But this source
   code is also used in GNU C Library where the names have a __
   prefix.  So we have to make a difference here.  */
#ifdef _LIBC
# define TEXTDOMAIN __textdomain
# ifndef strdup
#  define strdup(str) __strdup (str)
# endif
#else
# define TEXTDOMAIN libintl_textdomain
#endif

/* Lock variable to protect the global data in the gettext implementation.  */
__libc_rwlock_define (extern, _nl_state_lock attribute_hidden)

/* Set the current default message catalog to DOMAINNAME.
   If DOMAINNAME is null, return the current default.
   If DOMAINNAME is "", reset to the default of "messages".  */
char *
TEXTDOMAIN (domainname)
     const char *domainname;
{
  char *new_domain;
  char *old_domain;

  /* A NULL pointer requests the current setting.  */
  if (domainname == NULL)
    return (char *) _nl_current_default_domain;

  __libc_rwlock_wrlock (_nl_state_lock);

  old_domain = (char *) _nl_current_default_domain;

  /* If domain name is the null string set to default domain "messages".  */
  if (domainname[0] == '\0'
      || strcmp (domainname, _nl_default_default_domain) == 0)
    {
      _nl_current_default_domain = _nl_default_default_domain;
      new_domain = (char *) _nl_current_default_domain;
    }
  else if (strcmp (domainname, old_domain) == 0)
    /* This can happen and people will use it to signal that some
       environment variable changed.  */
    new_domain = old_domain;
  else
    {
      /* If the following malloc fails `_nl_current_default_domain'
     will be NULL.  This value will be returned and so signals we
     are out of core.  */
#if defined _LIBC || defined HAVE_STRDUP
      new_domain = strdup (domainname);
#else
      size_t len = strlen (domainname) + 1;
      new_domain = (char *) malloc (len);
      if (new_domain != NULL)
    memcpy (new_domain, domainname, len);
#endif

      if (new_domain != NULL)
    _nl_current_default_domain = new_domain;
    }

  /* We use this possibility to signal a change of the loaded catalogs
     since this is most likely the case and there is no other easy we
     to do it.  Do it only when the call was successful.  */
  if (new_domain != NULL)
    {
      ++_nl_msg_cat_cntr;

      if (old_domain != new_domain && old_domain != _nl_default_default_domain)
    free (old_domain);
    }

  __libc_rwlock_unlock (_nl_state_lock);

  return new_domain;
}

#ifdef _LIBC
/* Alias for function name in GNU C Library.  */
weak_alias (__textdomain, textdomain);
#endif
1	ite	1.1	/* Implementation of the textdomain(3) function.
2	tothwolf	1.2	Copyright (C) 1995-1998, 2000, 2001, 2002 Free Software Foundation, Inc.
3	ite	1.1
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)
7			any later version.
8
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 GNU
12			Library General Public License for more details.
13
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,
17			USA. */
18
19			#ifdef HAVE_CONFIG_H
20			# include <config.h>
21			#endif
22
23			#include <stdlib.h>
24			#include <string.h>
25
26			#ifdef _LIBC
27			# include <libintl.h>
28			#else
29			# include "libgnuintl.h"
30			#endif
31			#include "gettextP.h"
32
33			#ifdef _LIBC
34			/* We have to handle multi-threaded applications. */
35			# include <bits/libc-lock.h>
36			#else
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)
41			#endif
42
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. */
46			#if !defined _LIBC
47	tothwolf	1.2	# define _nl_default_default_domain libintl_nl_default_default_domain
48			# define _nl_current_default_domain libintl_nl_current_default_domain
49	ite	1.1	#endif
50
51			/* @@ end of prolog @@ */
52
53			/* Name of the default text domain. */
54	tothwolf	1.2	extern const char _nl_default_default_domain[] attribute_hidden;
55	ite	1.1
56			/* Default text domain in which entries for gettext(3) are to be found. */
57	tothwolf	1.2	extern const char *_nl_current_default_domain attribute_hidden;
58	ite	1.1
59
60			/* Names for the libintl functions are a problem. They must not clash
61			with existing names and they should follow ANSI C. But this source
62			code is also used in GNU C Library where the names have a __
63			prefix. So we have to make a difference here. */
64			#ifdef _LIBC
65			# define TEXTDOMAIN __textdomain
66			# ifndef strdup
67			# define strdup(str) __strdup (str)
68			# endif
69			#else
70	tothwolf	1.2	# define TEXTDOMAIN libintl_textdomain
71	ite	1.1	#endif
72
73			/* Lock variable to protect the global data in the gettext implementation. */
74	tothwolf	1.2	__libc_rwlock_define (extern, _nl_state_lock attribute_hidden)
75	ite	1.1
76			/* Set the current default message catalog to DOMAINNAME.
77			If DOMAINNAME is null, return the current default.
78			If DOMAINNAME is "", reset to the default of "messages". */
79			char *
80			TEXTDOMAIN (domainname)
81			const char *domainname;
82			{
83			char *new_domain;
84			char *old_domain;
85
86			/* A NULL pointer requests the current setting. */
87			if (domainname == NULL)
88			return (char *) _nl_current_default_domain;
89
90			__libc_rwlock_wrlock (_nl_state_lock);
91
92			old_domain = (char *) _nl_current_default_domain;
93
94			/* If domain name is the null string set to default domain "messages". */
95			if (domainname[0] == '\0'
96			\|\| strcmp (domainname, _nl_default_default_domain) == 0)
97			{
98			_nl_current_default_domain = _nl_default_default_domain;
99			new_domain = (char *) _nl_current_default_domain;
100			}
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;
105			else
106			{
107			/* If the following malloc fails `_nl_current_default_domain'
108			will be NULL. This value will be returned and so signals we
109			are out of core. */
110			#if defined _LIBC \|\| defined HAVE_STRDUP
111			new_domain = strdup (domainname);
112			#else
113			size_t len = strlen (domainname) + 1;
114			new_domain = (char *) malloc (len);
115			if (new_domain != NULL)
116			memcpy (new_domain, domainname, len);
117			#endif
118
119			if (new_domain != NULL)
120			_nl_current_default_domain = new_domain;
121			}
122
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)
127			{
128			++_nl_msg_cat_cntr;
129
130			if (old_domain != new_domain && old_domain != _nl_default_default_domain)
131			free (old_domain);
132			}
133
134			__libc_rwlock_unlock (_nl_state_lock);
135
136			return new_domain;
137			}
138
139			#ifdef _LIBC
140			/* Alias for function name in GNU C Library. */
141			weak_alias (__textdomain, textdomain);
142			#endif
webmaster@eggheads.org	ViewVC Help
Powered by ViewVC 1.1.23