OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [intl/] [textdomain.c] - Diff between revs 154 and 816

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 154 Rev 816
/* Implementation of the textdomain(3) function.
/* Implementation of the textdomain(3) function.
   Copyright (C) 1995-1998, 2000, 2001, 2002 Free Software Foundation, Inc.
   Copyright (C) 1995-1998, 2000, 2001, 2002 Free Software Foundation, Inc.
 
 
   This program is free software; you can redistribute it and/or modify it
   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
   under the terms of the GNU Library General Public License as published
   by the Free Software Foundation; either version 2, or (at your option)
   by the Free Software Foundation; either version 2, or (at your option)
   any later version.
   any later version.
 
 
   This program is distributed in the hope that it will be useful,
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Library General Public License for more details.
   Library General Public License for more details.
 
 
   You should have received a copy of the GNU Library General Public
   You should have received a copy of the GNU Library General Public
   License along with this program; if not, write to the Free Software
   License along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301,
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301,
   USA.  */
   USA.  */
 
 
#ifdef HAVE_CONFIG_H
#ifdef HAVE_CONFIG_H
# include <config.h>
# include <config.h>
#endif
#endif
 
 
#include <stdlib.h>
#include <stdlib.h>
#include <string.h>
#include <string.h>
 
 
#ifdef _LIBC
#ifdef _LIBC
# include <libintl.h>
# include <libintl.h>
#else
#else
# include "libgnuintl.h"
# include "libgnuintl.h"
#endif
#endif
#include "gettextP.h"
#include "gettextP.h"
 
 
#ifdef _LIBC
#ifdef _LIBC
/* We have to handle multi-threaded applications.  */
/* We have to handle multi-threaded applications.  */
# include <bits/libc-lock.h>
# include <bits/libc-lock.h>
#else
#else
/* Provide dummy implementation if this is outside glibc.  */
/* Provide dummy implementation if this is outside glibc.  */
# define __libc_rwlock_define(CLASS, NAME)
# define __libc_rwlock_define(CLASS, NAME)
# define __libc_rwlock_wrlock(NAME)
# define __libc_rwlock_wrlock(NAME)
# define __libc_rwlock_unlock(NAME)
# define __libc_rwlock_unlock(NAME)
#endif
#endif
 
 
/* The internal variables in the standalone libintl.a must have different
/* The internal variables in the standalone libintl.a must have different
   names than the internal variables in GNU libc, otherwise programs
   names than the internal variables in GNU libc, otherwise programs
   using libintl.a cannot be linked statically.  */
   using libintl.a cannot be linked statically.  */
#if !defined _LIBC
#if !defined _LIBC
# define _nl_default_default_domain libintl_nl_default_default_domain
# define _nl_default_default_domain libintl_nl_default_default_domain
# define _nl_current_default_domain libintl_nl_current_default_domain
# define _nl_current_default_domain libintl_nl_current_default_domain
#endif
#endif
 
 
/* @@ end of prolog @@ */
/* @@ end of prolog @@ */
 
 
/* Name of the default text domain.  */
/* Name of the default text domain.  */
extern const char _nl_default_default_domain[] attribute_hidden;
extern const char _nl_default_default_domain[] attribute_hidden;
 
 
/* Default text domain in which entries for gettext(3) are to be found.  */
/* Default text domain in which entries for gettext(3) are to be found.  */
extern const char *_nl_current_default_domain attribute_hidden;
extern const char *_nl_current_default_domain attribute_hidden;
 
 
 
 
/* Names for the libintl functions are a problem.  They must not clash
/* Names for the libintl functions are a problem.  They must not clash
   with existing names and they should follow ANSI C.  But this source
   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 __
   code is also used in GNU C Library where the names have a __
   prefix.  So we have to make a difference here.  */
   prefix.  So we have to make a difference here.  */
#ifdef _LIBC
#ifdef _LIBC
# define TEXTDOMAIN __textdomain
# define TEXTDOMAIN __textdomain
# ifndef strdup
# ifndef strdup
#  define strdup(str) __strdup (str)
#  define strdup(str) __strdup (str)
# endif
# endif
#else
#else
# define TEXTDOMAIN libintl_textdomain
# define TEXTDOMAIN libintl_textdomain
#endif
#endif
 
 
/* Lock variable to protect the global data in the gettext implementation.  */
/* Lock variable to protect the global data in the gettext implementation.  */
__libc_rwlock_define (extern, _nl_state_lock attribute_hidden)
__libc_rwlock_define (extern, _nl_state_lock attribute_hidden)
 
 
/* Set the current default message catalog to DOMAINNAME.
/* Set the current default message catalog to DOMAINNAME.
   If DOMAINNAME is null, return the current default.
   If DOMAINNAME is null, return the current default.
   If DOMAINNAME is "", reset to the default of "messages".  */
   If DOMAINNAME is "", reset to the default of "messages".  */
char *
char *
TEXTDOMAIN (domainname)
TEXTDOMAIN (domainname)
     const char *domainname;
     const char *domainname;
{
{
  char *new_domain;
  char *new_domain;
  char *old_domain;
  char *old_domain;
 
 
  /* A NULL pointer requests the current setting.  */
  /* A NULL pointer requests the current setting.  */
  if (domainname == NULL)
  if (domainname == NULL)
    return (char *) _nl_current_default_domain;
    return (char *) _nl_current_default_domain;
 
 
  __libc_rwlock_wrlock (_nl_state_lock);
  __libc_rwlock_wrlock (_nl_state_lock);
 
 
  old_domain = (char *) _nl_current_default_domain;
  old_domain = (char *) _nl_current_default_domain;
 
 
  /* If domain name is the null string set to default domain "messages".  */
  /* If domain name is the null string set to default domain "messages".  */
  if (domainname[0] == '\0'
  if (domainname[0] == '\0'
      || strcmp (domainname, _nl_default_default_domain) == 0)
      || strcmp (domainname, _nl_default_default_domain) == 0)
    {
    {
      _nl_current_default_domain = _nl_default_default_domain;
      _nl_current_default_domain = _nl_default_default_domain;
      new_domain = (char *) _nl_current_default_domain;
      new_domain = (char *) _nl_current_default_domain;
    }
    }
  else if (strcmp (domainname, old_domain) == 0)
  else if (strcmp (domainname, old_domain) == 0)
    /* This can happen and people will use it to signal that some
    /* This can happen and people will use it to signal that some
       environment variable changed.  */
       environment variable changed.  */
    new_domain = old_domain;
    new_domain = old_domain;
  else
  else
    {
    {
      /* If the following malloc fails `_nl_current_default_domain'
      /* If the following malloc fails `_nl_current_default_domain'
         will be NULL.  This value will be returned and so signals we
         will be NULL.  This value will be returned and so signals we
         are out of core.  */
         are out of core.  */
#if defined _LIBC || defined HAVE_STRDUP
#if defined _LIBC || defined HAVE_STRDUP
      new_domain = strdup (domainname);
      new_domain = strdup (domainname);
#else
#else
      size_t len = strlen (domainname) + 1;
      size_t len = strlen (domainname) + 1;
      new_domain = (char *) malloc (len);
      new_domain = (char *) malloc (len);
      if (new_domain != NULL)
      if (new_domain != NULL)
        memcpy (new_domain, domainname, len);
        memcpy (new_domain, domainname, len);
#endif
#endif
 
 
      if (new_domain != NULL)
      if (new_domain != NULL)
        _nl_current_default_domain = new_domain;
        _nl_current_default_domain = new_domain;
    }
    }
 
 
  /* We use this possibility to signal a change of the loaded catalogs
  /* 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
     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.  */
     to do it.  Do it only when the call was successful.  */
  if (new_domain != NULL)
  if (new_domain != NULL)
    {
    {
      ++_nl_msg_cat_cntr;
      ++_nl_msg_cat_cntr;
 
 
      if (old_domain != new_domain && old_domain != _nl_default_default_domain)
      if (old_domain != new_domain && old_domain != _nl_default_default_domain)
        free (old_domain);
        free (old_domain);
    }
    }
 
 
  __libc_rwlock_unlock (_nl_state_lock);
  __libc_rwlock_unlock (_nl_state_lock);
 
 
  return new_domain;
  return new_domain;
}
}
 
 
#ifdef _LIBC
#ifdef _LIBC
/* Alias for function name in GNU C Library.  */
/* Alias for function name in GNU C Library.  */
weak_alias (__textdomain, textdomain);
weak_alias (__textdomain, textdomain);
#endif
#endif
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.