"Fossies" - the Fresh Open Source Software Archive

Member "tin-2.4.1/intl/textdomain.c" (28 Aug 2013, 4481 Bytes) of package /linux/misc/tin-2.4.1.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "textdomain.c" see the Fossies "Dox" file reference documentation.

    1 /* Implementation of the textdomain(3) function.
    2    Copyright (C) 1995-1998, 2000, 2001 Free Software Foundation, Inc.
    3 
    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 <autoconf.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 # define _nl_default_default_domain _nl_default_default_domain__
   48 # define _nl_current_default_domain _nl_current_default_domain__
   49 #endif
   50 
   51 /* @@ end of prolog @@ */
   52 
   53 /* Name of the default text domain.  */
   54 extern const char _nl_default_default_domain[];
   55 
   56 /* Default text domain in which entries for gettext(3) are to be found.  */
   57 extern const char *_nl_current_default_domain;
   58 
   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 # define TEXTDOMAIN textdomain__
   71 #endif
   72 
   73 /* Lock variable to protect the global data in the gettext implementation.  */
   74 __libc_rwlock_define (extern, _nl_state_lock)
   75 
   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