src/oldsed/intl/intl-compat.c

   1 /* intl-compat.c - Stub functions to call gettext functions from GNU gettext
   2    Library.
   3    Copyright (C) 1995, 2000, 2001 Software Foundation, Inc.
   4
   5    This program is free software; you can redistribute it and/or modify it
   6    under the terms of the GNU Library General Public License as published
   7    by the Free Software Foundation; either version 2, or (at your option)
   8    any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Library General Public License for more details.
  14
  15    You should have received a copy of the GNU Library General Public
  16    License along with this program; if not, write to the Free Software
  17    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
  18    USA.  */
  19
  20 #ifdef HAVE_CONFIG_H
  21 # include <config.h>
  22 #endif
  23
  24 #include "libgnuintl.h"
  25 #include "gettextP.h"
  26
  27 /* @@ end of prolog @@ */
  28
  29 /* This file redirects the gettext functions (without prefix or suffix) to
  30    those defined in the included GNU gettext library (with "__" suffix).
  31    It is compiled into libintl when the included GNU gettext library is
  32    configured --with-included-gettext.
  33
  34    This redirection works also in the case that the system C library or
  35    the system libintl library contain gettext/textdomain/... functions.
  36    If it didn't, we would need to add preprocessor level redirections to
  37    libgnuintl.h of the following form:
  38
  39 #    define gettext gettext__
  40 #    define dgettext dgettext__
  41 #    define dcgettext dcgettext__
  42 #    define ngettext ngettext__
  43 #    define dngettext dngettext__
  44 #    define dcngettext dcngettext__
  45 #    define textdomain textdomain__
  46 #    define bindtextdomain bindtextdomain__
  47 #    define bind_textdomain_codeset bind_textdomain_codeset__
  48
  49    How does this redirection work? There are two cases.
  50    A. When libintl.a is linked into an executable, it works because
  51       functions defined in the executable always override functions in
  52       the shared libraries.
  53    B. When libintl.so is used, it works because
  54       1. those systems defining gettext/textdomain/... in the C library
  55          (namely, Solaris 2.4 and newer, and GNU libc 2.0 and newer) are
  56          ELF systems and define these symbols as weak, thus explicitly
  57          letting other shared libraries override it.
  58       2. those systems defining gettext/textdomain/... in a standalone
  59          libintl.so library (namely, Solaris 2.3 and newer) have this
  60          shared library in /usr/lib, and the linker will search /usr/lib
  61          *after* the directory where the GNU gettext library is installed.
  62
  63    A third case, namely when libintl.a is linked into a shared library
  64    whose name is not libintl.so, is not supported. In this case, on
  65    Solaris, when -lintl precedes the linker option for the shared library
  66    containing GNU gettext, the system's gettext would indeed override
  67    the GNU gettext. Anyone doing this kind of stuff must be clever enough
  68    to 1. compile libintl.a with -fPIC, 2. remove -lintl from his linker
  69    command line.  */
  70
  71
  72 #undef gettext
  73 #undef dgettext
  74 #undef dcgettext
  75 #undef ngettext
  76 #undef dngettext
  77 #undef dcngettext
  78 #undef textdomain
  79 #undef bindtextdomain
  80 #undef bind_textdomain_codeset
  81
  82
  83 char *
  84 gettext (msgid)
  85      const char *msgid;
  86 {
  87   return gettext__ (msgid);
  88 }
  89
  90
  91 char *
  92 dgettext (domainname, msgid)
  93      const char *domainname;
  94      const char *msgid;
  95 {
  96   return dgettext__ (domainname, msgid);
  97 }
  98
  99
 100 char *
 101 dcgettext (domainname, msgid, category)
 102      const char *domainname;
 103      const char *msgid;
 104      int category;
 105 {
 106   return dcgettext__ (domainname, msgid, category);
 107 }
 108
 109
 110 char *
 111 ngettext (msgid1, msgid2, n)
 112      const char *msgid1;
 113      const char *msgid2;
 114      unsigned long int n;
 115 {
 116   return ngettext__ (msgid1, msgid2, n);
 117 }
 118
 119
 120 char *
 121 dngettext (domainname, msgid1, msgid2, n)
 122      const char *domainname;
 123      const char *msgid1;
 124      const char *msgid2;
 125      unsigned long int n;
 126 {
 127   return dngettext__ (domainname, msgid1, msgid2, n);
 128 }
 129
 130
 131 char *
 132 dcngettext (domainname, msgid1, msgid2, n, category)
 133      const char *domainname;
 134      const char *msgid1;
 135      const char *msgid2;
 136      unsigned long int n;
 137      int category;
 138 {
 139   return dcngettext__ (domainname, msgid1, msgid2, n, category);
 140 }
 141
 142
 143 char *
 144 textdomain (domainname)
 145      const char *domainname;
 146 {
 147   return textdomain__ (domainname);
 148 }
 149
 150
 151 char *
 152 bindtextdomain (domainname, dirname)
 153      const char *domainname;
 154      const char *dirname;
 155 {
 156   return bindtextdomain__ (domainname, dirname);
 157 }
 158
 159
 160 char *
 161 bind_textdomain_codeset (domainname, codeset)
 162      const char *domainname;
 163      const char *codeset;
 164 {
 165   return bind_textdomain_codeset__ (domainname, codeset);
 166 }