intl/bindtextdom.c

   1 /* Implementation of the bindtextdomain(3) function
   2    Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    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
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software Foundation,
  16    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  17
  18 #ifdef HAVE_CONFIG_H
  19 # include <config.h>
  20 #endif
  21
  22 #if defined STDC_HEADERS || defined _LIBC
  23 # include <stdlib.h>
  24 #else
  25 # ifdef HAVE_MALLOC_H
  26 #  include <malloc.h>
  27 # else
  28 void free ();
  29 # endif
  30 #endif
  31
  32 #if defined HAVE_STRING_H || defined _LIBC
  33 # include <string.h>
  34 #else
  35 # include <strings.h>
  36 # ifndef memcpy
  37 #  define memcpy(Dst, Src, Num) bcopy (Src, Dst, Num)
  38 # endif
  39 #endif
  40
  41 #ifdef _LIBC
  42 # include <libintl.h>
  43 #else
  44 # include "libgettext.h"
  45 #endif
  46 #include "gettext.h"
  47 #include "gettextP.h"
  48
  49 /* @@ end of prolog @@ */
  50
  51 /* Contains the default location of the message catalogs.  */
  52 extern const char _nl_default_dirname[];
  53
  54 /* List with bindings of specific domains.  */
  55 extern struct binding *_nl_domain_bindings;
  56
  57
  58 /* Names for the libintl functions are a problem.  They must not clash
  59    with existing names and they should follow ANSI C.  But this source
  60    code is also used in GNU C Library where the names have a __
  61    prefix.  So we have to make a difference here.  */
  62 #ifdef _LIBC
  63 # define BINDTEXTDOMAIN __bindtextdomain
  64 # define strdup(str) __strdup (str)
  65 #else
  66 # define BINDTEXTDOMAIN bindtextdomain__
  67 #endif
  68
  69 /* Specify that the DOMAINNAME message catalog will be found
  70    in DIRNAME rather than in the system locale data base.  */
  71 char *
  72 BINDTEXTDOMAIN (domainname, dirname)
  73      const char *domainname;
  74      const char *dirname;
  75 {
  76   struct binding *binding;
  77
  78   /* Some sanity checks.  */
  79   if (domainname == NULL || domainname[0] == '\0')
  80     return NULL;
  81
  82   for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next)
  83     {
  84       int compare = strcmp (domainname, binding->domainname);
  85       if (compare == 0)
  86         /* We found it!  */
  87         break;
  88       if (compare < 0)
  89         {
  90           /* It is not in the list.  */
  91           binding = NULL;
  92           break;
  93         }
  94     }
  95
  96   if (dirname == NULL)
  97     /* The current binding has be to returned.  */
  98     return binding == NULL ? (char *) _nl_default_dirname : binding->dirname;
  99
 100   if (binding != NULL)
 101     {
 102       /* The domain is already bound.  If the new value and the old
 103          one are equal we simply do nothing.  Otherwise replace the
 104          old binding.  */
 105       if (strcmp (dirname, binding->dirname) != 0)
 106         {
 107           char *new_dirname;
 108
 109           if (strcmp (dirname, _nl_default_dirname) == 0)
 110             new_dirname = (char *) _nl_default_dirname;
 111           else
 112             {
 113 #if defined _LIBC || defined HAVE_STRDUP
 114               new_dirname = strdup (dirname);
 115               if (new_dirname == NULL)
 116                 return NULL;
 117 #else
 118               size_t len = strlen (dirname) + 1;
 119               new_dirname = (char *) malloc (len);
 120               if (new_dirname == NULL)
 121                 return NULL;
 122
 123               memcpy (new_dirname, dirname, len);
 124 #endif
 125             }
 126
 127           if (binding->dirname != _nl_default_dirname)
 128             free (binding->dirname);
 129
 130           binding->dirname = new_dirname;
 131         }
 132     }
 133   else
 134     {
 135       /* We have to create a new binding.  */
 136       size_t len;
 137       struct binding *new_binding =
 138         (struct binding *) malloc (sizeof (*new_binding));
 139
 140       if (new_binding == NULL)
 141         return NULL;
 142
 143 #if defined _LIBC || defined HAVE_STRDUP
 144       new_binding->domainname = strdup (domainname);
 145       if (new_binding->domainname == NULL)
 146         return NULL;
 147 #else
 148       len = strlen (domainname) + 1;
 149       new_binding->domainname = (char *) malloc (len);
 150       if (new_binding->domainname == NULL)
 151         return NULL;
 152       memcpy (new_binding->domainname, domainname, len);
 153 #endif
 154
 155       if (strcmp (dirname, _nl_default_dirname) == 0)
 156         new_binding->dirname = (char *) _nl_default_dirname;
 157       else
 158         {
 159 #if defined _LIBC || defined HAVE_STRDUP
 160           new_binding->dirname = strdup (dirname);
 161           if (new_binding->dirname == NULL)
 162             return NULL;
 163 #else
 164           len = strlen (dirname) + 1;
 165           new_binding->dirname = (char *) malloc (len);
 166           if (new_binding->dirname == NULL)
 167             return NULL;
 168           memcpy (new_binding->dirname, dirname, len);
 169 #endif
 170         }
 171
 172       /* Now enqueue it.  */
 173       if (_nl_domain_bindings == NULL
 174           || strcmp (domainname, _nl_domain_bindings->domainname) < 0)
 175         {
 176           new_binding->next = _nl_domain_bindings;
 177           _nl_domain_bindings = new_binding;
 178         }
 179       else
 180         {
 181           binding = _nl_domain_bindings;
 182           while (binding->next != NULL
 183                  && strcmp (domainname, binding->next->domainname) > 0)
 184             binding = binding->next;
 185
 186           new_binding->next = binding->next;
 187           binding->next = new_binding;
 188         }
 189
 190       binding = new_binding;
 191     }
 192
 193   return binding->dirname;
 194 }
 195
 196 #ifdef _LIBC
 197 /* Alias for function name in GNU C Library.  */
 198 weak_alias (__bindtextdomain, bindtextdomain);
 199 #endif