Annotation of embedaddon/lrzsz/intl/cat-compat.c, revision 1.1.1.1
1.1 misho 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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to cat-compat.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lrzsz / intl