Mercurial > pidgin
comparison intl/cat-compat.c @ 347:d64101dc5c7e
[gaim-migrate @ 357]
I18n, here we come!
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Wed, 07 Jun 2000 13:30:04 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
346:ec9fe9a58bd7 | 347:d64101dc5c7e |
---|---|
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 |