Alphabetized the list, added Lubom�r Bulej, removed Sander Smeenk and Tijs van Bakel...
[tinc] / 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