intl/cat-compat.c.dist

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