textdomain.c
No OneTemporary
Actions

Size

4 KB

Subscribers

None

textdomain.c
View Options

	/* Implementation of the textdomain(3) function.
	Copyright (C) 1995-1998, 2000-2003 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 (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

File Metadata

Mime Type: text/x-c
Expires: Tue, Aug 19, 12:50 AM (2 w, 6 d ago)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 3461693

textdomain.cNo OneTemporaryActions

textdomain.cView Options

File Metadata

Event Timeline

textdomain.c
No OneTemporary
Actions

textdomain.c
View Options