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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [intl/] [bindtextdom.c] - Diff between revs 827 and 840

Only display areas with differences | Details | Blame | View Log

Rev 827 Rev 840
/* Implementation of the bindtextdomain(3) function
/* Implementation of the bindtextdomain(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 <stddef.h>
#include <stddef.h>
#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_dirname libintl_nl_default_dirname
# define _nl_default_dirname libintl_nl_default_dirname
# define _nl_domain_bindings libintl_nl_domain_bindings
# define _nl_domain_bindings libintl_nl_domain_bindings
#endif
#endif
 
 
/* Some compilers, like SunOS4 cc, don't have offsetof in <stddef.h>.  */
/* Some compilers, like SunOS4 cc, don't have offsetof in <stddef.h>.  */
#ifndef offsetof
#ifndef offsetof
# define offsetof(type,ident) ((size_t)&(((type*)0)->ident))
# define offsetof(type,ident) ((size_t)&(((type*)0)->ident))
#endif
#endif
 
 
/* @@ end of prolog @@ */
/* @@ end of prolog @@ */
 
 
/* Contains the default location of the message catalogs.  */
/* Contains the default location of the message catalogs.  */
extern const char _nl_default_dirname[];
extern const char _nl_default_dirname[];
#ifdef _LIBC
#ifdef _LIBC
extern const char _nl_default_dirname_internal[] attribute_hidden;
extern const char _nl_default_dirname_internal[] attribute_hidden;
#else
#else
# define INTUSE(name) name
# define INTUSE(name) name
#endif
#endif
 
 
/* List with bindings of specific domains.  */
/* List with bindings of specific domains.  */
extern struct binding *_nl_domain_bindings;
extern struct binding *_nl_domain_bindings;
 
 
/* 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)
 
 
 
 
/* 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 BINDTEXTDOMAIN __bindtextdomain
# define BINDTEXTDOMAIN __bindtextdomain
# define BIND_TEXTDOMAIN_CODESET __bind_textdomain_codeset
# define BIND_TEXTDOMAIN_CODESET __bind_textdomain_codeset
# ifndef strdup
# ifndef strdup
#  define strdup(str) __strdup (str)
#  define strdup(str) __strdup (str)
# endif
# endif
#else
#else
# define BINDTEXTDOMAIN libintl_bindtextdomain
# define BINDTEXTDOMAIN libintl_bindtextdomain
# define BIND_TEXTDOMAIN_CODESET libintl_bind_textdomain_codeset
# define BIND_TEXTDOMAIN_CODESET libintl_bind_textdomain_codeset
#endif
#endif
 
 
/* Prototypes for local functions.  */
/* Prototypes for local functions.  */
static void set_binding_values PARAMS ((const char *domainname,
static void set_binding_values PARAMS ((const char *domainname,
                                        const char **dirnamep,
                                        const char **dirnamep,
                                        const char **codesetp));
                                        const char **codesetp));
 
 
/* Specifies the directory name *DIRNAMEP and the output codeset *CODESETP
/* Specifies the directory name *DIRNAMEP and the output codeset *CODESETP
   to be used for the DOMAINNAME message catalog.
   to be used for the DOMAINNAME message catalog.
   If *DIRNAMEP or *CODESETP is NULL, the corresponding attribute is not
   If *DIRNAMEP or *CODESETP is NULL, the corresponding attribute is not
   modified, only the current value is returned.
   modified, only the current value is returned.
   If DIRNAMEP or CODESETP is NULL, the corresponding attribute is neither
   If DIRNAMEP or CODESETP is NULL, the corresponding attribute is neither
   modified nor returned.  */
   modified nor returned.  */
static void
static void
set_binding_values (domainname, dirnamep, codesetp)
set_binding_values (domainname, dirnamep, codesetp)
     const char *domainname;
     const char *domainname;
     const char **dirnamep;
     const char **dirnamep;
     const char **codesetp;
     const char **codesetp;
{
{
  struct binding *binding;
  struct binding *binding;
  int modified;
  int modified;
 
 
  /* Some sanity checks.  */
  /* Some sanity checks.  */
  if (domainname == NULL || domainname[0] == '\0')
  if (domainname == NULL || domainname[0] == '\0')
    {
    {
      if (dirnamep)
      if (dirnamep)
        *dirnamep = NULL;
        *dirnamep = NULL;
      if (codesetp)
      if (codesetp)
        *codesetp = NULL;
        *codesetp = NULL;
      return;
      return;
    }
    }
 
 
  __libc_rwlock_wrlock (_nl_state_lock);
  __libc_rwlock_wrlock (_nl_state_lock);
 
 
  modified = 0;
  modified = 0;
 
 
  for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next)
  for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next)
    {
    {
      int compare = strcmp (domainname, binding->domainname);
      int compare = strcmp (domainname, binding->domainname);
      if (compare == 0)
      if (compare == 0)
        /* We found it!  */
        /* We found it!  */
        break;
        break;
      if (compare < 0)
      if (compare < 0)
        {
        {
          /* It is not in the list.  */
          /* It is not in the list.  */
          binding = NULL;
          binding = NULL;
          break;
          break;
        }
        }
    }
    }
 
 
  if (binding != NULL)
  if (binding != NULL)
    {
    {
      if (dirnamep)
      if (dirnamep)
        {
        {
          const char *dirname = *dirnamep;
          const char *dirname = *dirnamep;
 
 
          if (dirname == NULL)
          if (dirname == NULL)
            /* The current binding has be to returned.  */
            /* The current binding has be to returned.  */
            *dirnamep = binding->dirname;
            *dirnamep = binding->dirname;
          else
          else
            {
            {
              /* The domain is already bound.  If the new value and the old
              /* The domain is already bound.  If the new value and the old
                 one are equal we simply do nothing.  Otherwise replace the
                 one are equal we simply do nothing.  Otherwise replace the
                 old binding.  */
                 old binding.  */
              char *result = binding->dirname;
              char *result = binding->dirname;
              if (strcmp (dirname, result) != 0)
              if (strcmp (dirname, result) != 0)
                {
                {
                  if (strcmp (dirname, INTUSE(_nl_default_dirname)) == 0)
                  if (strcmp (dirname, INTUSE(_nl_default_dirname)) == 0)
                    result = (char *) INTUSE(_nl_default_dirname);
                    result = (char *) INTUSE(_nl_default_dirname);
                  else
                  else
                    {
                    {
#if defined _LIBC || defined HAVE_STRDUP
#if defined _LIBC || defined HAVE_STRDUP
                      result = strdup (dirname);
                      result = strdup (dirname);
#else
#else
                      size_t len = strlen (dirname) + 1;
                      size_t len = strlen (dirname) + 1;
                      result = (char *) malloc (len);
                      result = (char *) malloc (len);
                      if (__builtin_expect (result != NULL, 1))
                      if (__builtin_expect (result != NULL, 1))
                        memcpy (result, dirname, len);
                        memcpy (result, dirname, len);
#endif
#endif
                    }
                    }
 
 
                  if (__builtin_expect (result != NULL, 1))
                  if (__builtin_expect (result != NULL, 1))
                    {
                    {
                      if (binding->dirname != INTUSE(_nl_default_dirname))
                      if (binding->dirname != INTUSE(_nl_default_dirname))
                        free (binding->dirname);
                        free (binding->dirname);
 
 
                      binding->dirname = result;
                      binding->dirname = result;
                      modified = 1;
                      modified = 1;
                    }
                    }
                }
                }
              *dirnamep = result;
              *dirnamep = result;
            }
            }
        }
        }
 
 
      if (codesetp)
      if (codesetp)
        {
        {
          const char *codeset = *codesetp;
          const char *codeset = *codesetp;
 
 
          if (codeset == NULL)
          if (codeset == NULL)
            /* The current binding has be to returned.  */
            /* The current binding has be to returned.  */
            *codesetp = binding->codeset;
            *codesetp = binding->codeset;
          else
          else
            {
            {
              /* The domain is already bound.  If the new value and the old
              /* The domain is already bound.  If the new value and the old
                 one are equal we simply do nothing.  Otherwise replace the
                 one are equal we simply do nothing.  Otherwise replace the
                 old binding.  */
                 old binding.  */
              char *result = binding->codeset;
              char *result = binding->codeset;
              if (result == NULL || strcmp (codeset, result) != 0)
              if (result == NULL || strcmp (codeset, result) != 0)
                {
                {
#if defined _LIBC || defined HAVE_STRDUP
#if defined _LIBC || defined HAVE_STRDUP
                  result = strdup (codeset);
                  result = strdup (codeset);
#else
#else
                  size_t len = strlen (codeset) + 1;
                  size_t len = strlen (codeset) + 1;
                  result = (char *) malloc (len);
                  result = (char *) malloc (len);
                  if (__builtin_expect (result != NULL, 1))
                  if (__builtin_expect (result != NULL, 1))
                    memcpy (result, codeset, len);
                    memcpy (result, codeset, len);
#endif
#endif
 
 
                  if (__builtin_expect (result != NULL, 1))
                  if (__builtin_expect (result != NULL, 1))
                    {
                    {
                      if (binding->codeset != NULL)
                      if (binding->codeset != NULL)
                        free (binding->codeset);
                        free (binding->codeset);
 
 
                      binding->codeset = result;
                      binding->codeset = result;
                      binding->codeset_cntr++;
                      binding->codeset_cntr++;
                      modified = 1;
                      modified = 1;
                    }
                    }
                }
                }
              *codesetp = result;
              *codesetp = result;
            }
            }
        }
        }
    }
    }
  else if ((dirnamep == NULL || *dirnamep == NULL)
  else if ((dirnamep == NULL || *dirnamep == NULL)
           && (codesetp == NULL || *codesetp == NULL))
           && (codesetp == NULL || *codesetp == NULL))
    {
    {
      /* Simply return the default values.  */
      /* Simply return the default values.  */
      if (dirnamep)
      if (dirnamep)
        *dirnamep = INTUSE(_nl_default_dirname);
        *dirnamep = INTUSE(_nl_default_dirname);
      if (codesetp)
      if (codesetp)
        *codesetp = NULL;
        *codesetp = NULL;
    }
    }
  else
  else
    {
    {
      /* We have to create a new binding.  */
      /* We have to create a new binding.  */
      size_t len = strlen (domainname) + 1;
      size_t len = strlen (domainname) + 1;
      struct binding *new_binding =
      struct binding *new_binding =
        (struct binding *) malloc (offsetof (struct binding, domainname) + len);
        (struct binding *) malloc (offsetof (struct binding, domainname) + len);
 
 
      if (__builtin_expect (new_binding == NULL, 0))
      if (__builtin_expect (new_binding == NULL, 0))
        goto failed;
        goto failed;
 
 
      memcpy (new_binding->domainname, domainname, len);
      memcpy (new_binding->domainname, domainname, len);
 
 
      if (dirnamep)
      if (dirnamep)
        {
        {
          const char *dirname = *dirnamep;
          const char *dirname = *dirnamep;
 
 
          if (dirname == NULL)
          if (dirname == NULL)
            /* The default value.  */
            /* The default value.  */
            dirname = INTUSE(_nl_default_dirname);
            dirname = INTUSE(_nl_default_dirname);
          else
          else
            {
            {
              if (strcmp (dirname, INTUSE(_nl_default_dirname)) == 0)
              if (strcmp (dirname, INTUSE(_nl_default_dirname)) == 0)
                dirname = INTUSE(_nl_default_dirname);
                dirname = INTUSE(_nl_default_dirname);
              else
              else
                {
                {
                  char *result;
                  char *result;
#if defined _LIBC || defined HAVE_STRDUP
#if defined _LIBC || defined HAVE_STRDUP
                  result = strdup (dirname);
                  result = strdup (dirname);
                  if (__builtin_expect (result == NULL, 0))
                  if (__builtin_expect (result == NULL, 0))
                    goto failed_dirname;
                    goto failed_dirname;
#else
#else
                  size_t len = strlen (dirname) + 1;
                  size_t len = strlen (dirname) + 1;
                  result = (char *) malloc (len);
                  result = (char *) malloc (len);
                  if (__builtin_expect (result == NULL, 0))
                  if (__builtin_expect (result == NULL, 0))
                    goto failed_dirname;
                    goto failed_dirname;
                  memcpy (result, dirname, len);
                  memcpy (result, dirname, len);
#endif
#endif
                  dirname = result;
                  dirname = result;
                }
                }
            }
            }
          *dirnamep = dirname;
          *dirnamep = dirname;
          new_binding->dirname = (char *) dirname;
          new_binding->dirname = (char *) dirname;
        }
        }
      else
      else
        /* The default value.  */
        /* The default value.  */
        new_binding->dirname = (char *) INTUSE(_nl_default_dirname);
        new_binding->dirname = (char *) INTUSE(_nl_default_dirname);
 
 
      new_binding->codeset_cntr = 0;
      new_binding->codeset_cntr = 0;
 
 
      if (codesetp)
      if (codesetp)
        {
        {
          const char *codeset = *codesetp;
          const char *codeset = *codesetp;
 
 
          if (codeset != NULL)
          if (codeset != NULL)
            {
            {
              char *result;
              char *result;
 
 
#if defined _LIBC || defined HAVE_STRDUP
#if defined _LIBC || defined HAVE_STRDUP
              result = strdup (codeset);
              result = strdup (codeset);
              if (__builtin_expect (result == NULL, 0))
              if (__builtin_expect (result == NULL, 0))
                goto failed_codeset;
                goto failed_codeset;
#else
#else
              size_t len = strlen (codeset) + 1;
              size_t len = strlen (codeset) + 1;
              result = (char *) malloc (len);
              result = (char *) malloc (len);
              if (__builtin_expect (result == NULL, 0))
              if (__builtin_expect (result == NULL, 0))
                goto failed_codeset;
                goto failed_codeset;
              memcpy (result, codeset, len);
              memcpy (result, codeset, len);
#endif
#endif
              codeset = result;
              codeset = result;
              new_binding->codeset_cntr++;
              new_binding->codeset_cntr++;
            }
            }
          *codesetp = codeset;
          *codesetp = codeset;
          new_binding->codeset = (char *) codeset;
          new_binding->codeset = (char *) codeset;
        }
        }
      else
      else
        new_binding->codeset = NULL;
        new_binding->codeset = NULL;
 
 
      /* Now enqueue it.  */
      /* Now enqueue it.  */
      if (_nl_domain_bindings == NULL
      if (_nl_domain_bindings == NULL
          || strcmp (domainname, _nl_domain_bindings->domainname) < 0)
          || strcmp (domainname, _nl_domain_bindings->domainname) < 0)
        {
        {
          new_binding->next = _nl_domain_bindings;
          new_binding->next = _nl_domain_bindings;
          _nl_domain_bindings = new_binding;
          _nl_domain_bindings = new_binding;
        }
        }
      else
      else
        {
        {
          binding = _nl_domain_bindings;
          binding = _nl_domain_bindings;
          while (binding->next != NULL
          while (binding->next != NULL
                 && strcmp (domainname, binding->next->domainname) > 0)
                 && strcmp (domainname, binding->next->domainname) > 0)
            binding = binding->next;
            binding = binding->next;
 
 
          new_binding->next = binding->next;
          new_binding->next = binding->next;
          binding->next = new_binding;
          binding->next = new_binding;
        }
        }
 
 
      modified = 1;
      modified = 1;
 
 
      /* Here we deal with memory allocation failures.  */
      /* Here we deal with memory allocation failures.  */
      if (0)
      if (0)
        {
        {
        failed_codeset:
        failed_codeset:
          if (new_binding->dirname != INTUSE(_nl_default_dirname))
          if (new_binding->dirname != INTUSE(_nl_default_dirname))
            free (new_binding->dirname);
            free (new_binding->dirname);
        failed_dirname:
        failed_dirname:
          free (new_binding);
          free (new_binding);
        failed:
        failed:
          if (dirnamep)
          if (dirnamep)
            *dirnamep = NULL;
            *dirnamep = NULL;
          if (codesetp)
          if (codesetp)
            *codesetp = NULL;
            *codesetp = NULL;
        }
        }
    }
    }
 
 
  /* If we modified any binding, we flush the caches.  */
  /* If we modified any binding, we flush the caches.  */
  if (modified)
  if (modified)
    ++_nl_msg_cat_cntr;
    ++_nl_msg_cat_cntr;
 
 
  __libc_rwlock_unlock (_nl_state_lock);
  __libc_rwlock_unlock (_nl_state_lock);
}
}
 
 
/* Specify that the DOMAINNAME message catalog will be found
/* Specify that the DOMAINNAME message catalog will be found
   in DIRNAME rather than in the system locale data base.  */
   in DIRNAME rather than in the system locale data base.  */
char *
char *
BINDTEXTDOMAIN (domainname, dirname)
BINDTEXTDOMAIN (domainname, dirname)
     const char *domainname;
     const char *domainname;
     const char *dirname;
     const char *dirname;
{
{
  set_binding_values (domainname, &dirname, NULL);
  set_binding_values (domainname, &dirname, NULL);
  return (char *) dirname;
  return (char *) dirname;
}
}
 
 
/* Specify the character encoding in which the messages from the
/* Specify the character encoding in which the messages from the
   DOMAINNAME message catalog will be returned.  */
   DOMAINNAME message catalog will be returned.  */
char *
char *
BIND_TEXTDOMAIN_CODESET (domainname, codeset)
BIND_TEXTDOMAIN_CODESET (domainname, codeset)
     const char *domainname;
     const char *domainname;
     const char *codeset;
     const char *codeset;
{
{
  set_binding_values (domainname, NULL, &codeset);
  set_binding_values (domainname, NULL, &codeset);
  return (char *) codeset;
  return (char *) codeset;
}
}
 
 
#ifdef _LIBC
#ifdef _LIBC
/* Aliases for function names in GNU C Library.  */
/* Aliases for function names in GNU C Library.  */
weak_alias (__bindtextdomain, bindtextdomain);
weak_alias (__bindtextdomain, bindtextdomain);
weak_alias (__bind_textdomain_codeset, bind_textdomain_codeset);
weak_alias (__bind_textdomain_codeset, bind_textdomain_codeset);
#endif
#endif
 
 

powered by: WebSVN 2.1.0

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