intl/cat-compat.c

   1 /* Compatibility code for gettext-using-catgets interface.
   2    Copyright (C) 1995, 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 #include <stdio.h>
  23
  24 #ifdef STDC_HEADERS
  25 # include <stdlib.h>
  26 # include <string.h>
  27 #else
  28 char *getenv ();
  29 # ifdef HAVE_MALLOC_H
  30 #  include <malloc.h>
  31 # endif
  32 #endif
  33
  34 #ifdef HAVE_NL_TYPES_H
  35 # include <nl_types.h>
  36 #endif
  37
  38 #include "libgettext.h"
  39
  40 /* @@ end of prolog @@ */
  41
  42 /* XPG3 defines the result of `setlocale (category, NULL)' as:
  43    ``Directs `setlocale()' to query `category' and return the current
  44      setting of `local'.''
  45    However it does not specify the exact format.  And even worse: POSIX
  46    defines this not at all.  So we can use this feature only on selected
  47    system (e.g. those using GNU C Library).  */
  48 #ifdef _LIBC
  49 # define HAVE_LOCALE_NULL
  50 #endif
  51
  52 /* The catalog descriptor.  */
  53 static nl_catd catalog = (nl_catd) -1;
  54
  55 /* Name of the default catalog.  */
  56 static const char default_catalog_name[] = "messages";
  57
  58 /* Name of currently used catalog.  */
  59 static const char *catalog_name = default_catalog_name;
  60
  61 /* Get ID for given string.  If not found return -1.  */
  62 static int msg_to_cat_id PARAMS ((const char *msg));
  63
  64 /* Substitution for systems lacking this function in their C library.  */
  65 #if !_LIBC && !HAVE_STPCPY
  66 static char *stpcpy PARAMS ((char *dest, const char *src));
  67 #endif
  68
  69
  70 /* Set currently used domain/catalog.  */
  71 char *
  72 textdomain (domainname)
  73      const char *domainname;
  74 {
  75   nl_catd new_catalog;
  76   char *new_name;
  77   size_t new_name_len;
  78   char *lang;
  79
  80 #if defined HAVE_SETLOCALE && defined HAVE_LC_MESSAGES \
  81     && defined HAVE_LOCALE_NULL
  82   lang = setlocale (LC_MESSAGES, NULL);
  83 #else
  84   lang = getenv ("LC_ALL");
  85   if (lang == NULL || lang[0] == '\0')
  86     {
  87       lang = getenv ("LC_MESSAGES");
  88       if (lang == NULL || lang[0] == '\0')
  89         lang = getenv ("LANG");
  90     }
  91 #endif
  92   if (lang == NULL || lang[0] == '\0')
  93     lang = "C";
  94
  95   /* See whether name of currently used domain is asked.  */
  96   if (domainname == NULL)
  97     return (char *) catalog_name;
  98
  99   if (domainname[0] == '\0')
 100     domainname = default_catalog_name;
 101
 102   /* Compute length of added path element.  */
 103   new_name_len = sizeof (LOCALEDIR) - 1 + 1 + strlen (lang)
 104                  + sizeof ("/LC_MESSAGES/") - 1 + sizeof (PACKAGE) - 1
 105                  + sizeof (".cat");
 106
 107   new_name = (char *) malloc (new_name_len);
 108   if (new_name == NULL)
 109     return NULL;
 110
 111   strcpy (new_name, PACKAGE);
 112   new_catalog = catopen (new_name, 0);
 113
 114   if (new_catalog == (nl_catd) -1)
 115     {
 116       /* NLSPATH search didn't work, try absolute path */
 117       sprintf (new_name, "%s/%s/LC_MESSAGES/%s.cat", LOCALEDIR, lang,
 118                PACKAGE);
 119       new_catalog = catopen (new_name, 0);
 120
 121       if (new_catalog == (nl_catd) -1)
 122         {
 123           free (new_name);
 124           return (char *) catalog_name;
 125         }
 126     }
 127
 128   /* Close old catalog.  */
 129   if (catalog != (nl_catd) -1)
 130     catclose (catalog);
 131   if (catalog_name != default_catalog_name)
 132     free ((char *) catalog_name);
 133
 134   catalog = new_catalog;
 135   catalog_name = new_name;
 136
 137   return (char *) catalog_name;
 138 }
 139
 140 char *
 141 bindtextdomain (domainname, dirname)
 142      const char *domainname;
 143      const char *dirname;
 144 {
 145 #if HAVE_SETENV || HAVE_PUTENV
 146   char *old_val, *new_val, *cp;
 147   size_t new_val_len;
 148
 149   /* This does not make much sense here but to be compatible do it.  */
 150   if (domainname == NULL)
 151     return NULL;
 152
 153   /* Compute length of added path element.  If we use setenv we don't need
 154      the first byts for NLSPATH=, but why complicate the code for this
 155      peanuts.  */
 156   new_val_len = sizeof ("NLSPATH=") - 1 + strlen (dirname)
 157                 + sizeof ("/%L/LC_MESSAGES/%N.cat");
 158
 159   old_val = getenv ("NLSPATH");
 160   if (old_val == NULL || old_val[0] == '\0')
 161     {
 162       old_val = NULL;
 163       new_val_len += 1 + sizeof (LOCALEDIR) - 1
 164                      + sizeof ("/%L/LC_MESSAGES/%N.cat");
 165     }
 166   else
 167     new_val_len += strlen (old_val);
 168
 169   new_val = (char *) malloc (new_val_len);
 170   if (new_val == NULL)
 171     return NULL;
 172
 173 # if HAVE_SETENV
 174   cp = new_val;
 175 # else
 176   cp = stpcpy (new_val, "NLSPATH=");
 177 # endif
 178
 179   cp = stpcpy (cp, dirname);
 180   cp = stpcpy (cp, "/%L/LC_MESSAGES/%N.cat:");
 181
 182   if (old_val == NULL)
 183     {
 184 # if __STDC__
 185       stpcpy (cp, LOCALEDIR "/%L/LC_MESSAGES/%N.cat");
 186 # else
 187
 188       cp = stpcpy (cp, LOCALEDIR);
 189       stpcpy (cp, "/%L/LC_MESSAGES/%N.cat");
 190 # endif
 191     }
 192   else
 193     stpcpy (cp, old_val);
 194
 195 # if HAVE_SETENV
 196   setenv ("NLSPATH", new_val, 1);
 197   free (new_val);
 198 # else
 199   putenv (new_val);
 200   /* Do *not* free the environment entry we just entered.  It is used
 201      from now on.   */
 202 # endif
 203
 204 #endif
 205
 206   return (char *) domainname;
 207 }
 208
 209 #undef gettext
 210 char *
 211 gettext (msg)
 212      const char *msg;
 213 {
 214   int msgid;
 215
 216   if (msg == NULL || catalog == (nl_catd) -1)
 217     return (char *) msg;
 218
 219   /* Get the message from the catalog.  We always use set number 1.
 220      The message ID is computed by the function `msg_to_cat_id'
 221      which works on the table generated by `po-to-tbl'.  */
 222   msgid = msg_to_cat_id (msg);
 223   if (msgid == -1)
 224     return (char *) msg;
 225
 226   return catgets (catalog, 1, msgid, (char *) msg);
 227 }
 228
 229 /* Look through the table `_msg_tbl' which has `_msg_tbl_length' entries
 230    for the one equal to msg.  If it is found return the ID.  In case when
 231    the string is not found return -1.  */
 232 static int
 233 msg_to_cat_id (msg)
 234      const char *msg;
 235 {
 236   int cnt;
 237
 238   for (cnt = 0; cnt < _msg_tbl_length; ++cnt)
 239     if (strcmp (msg, _msg_tbl[cnt]._msg) == 0)
 240       return _msg_tbl[cnt]._msg_number;
 241
 242   return -1;
 243 }
 244
 245
 246 /* @@ begin of epilog @@ */
 247
 248 /* We don't want libintl.a to depend on any other library.  So we
 249    avoid the non-standard function stpcpy.  In GNU C Library this
 250    function is available, though.  Also allow the symbol HAVE_STPCPY
 251    to be defined.  */
 252 #if !_LIBC && !HAVE_STPCPY
 253 static char *
 254 stpcpy (dest, src)
 255      char *dest;
 256      const char *src;
 257 {
 258   while ((*dest++ = *src++) != '\0')
 259     /* Do nothing. */ ;
 260   return dest - 1;
 261 }
 262 #endif