]> git.ipfire.org Git - thirdparty/bash.git/blob - locale.c
Imported from ../bash-2.01.1.tar.gz.
[thirdparty/bash.git] / locale.c
1 /* locale.c - Miscellaneous internationalization functions. */
2
3 /* Copyright (C) 1996 Free Software Foundation, Inc.
4
5 This file is part of GNU Bash, the Bourne Again SHell.
6
7 Bash is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
10 version.
11
12 Bash is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16
17 You should have received a copy of the GNU General Public License along
18 with Bash; see the file COPYING. If not, write to the Free Software
19 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
20
21 #include "config.h"
22
23 #include "bashtypes.h"
24
25 #if defined (HAVE_UNISTD_H)
26 # include <unistd.h>
27 #endif
28
29 #include "bashintl.h"
30 #include "bashansi.h"
31 #include <stdio.h>
32 #include <ctype.h>
33
34 #include "shell.h"
35
36 /* The current locale when the program begins */
37 static char *default_locale;
38
39 /* The current domain for textdomain(3). */
40 static char *default_domain;
41 static char *default_dir;
42
43 /* tracks the value of LC_ALL; used to override values for other locale
44 categories */
45 static char *lc_all;
46
47 /* Set the value of default_locale and make the current locale the
48 system default locale. This should be called very early in main(). */
49 void
50 set_default_locale ()
51 {
52 #if defined (HAVE_SETLOCALE)
53 default_locale = setlocale (LC_ALL, "");
54 if (default_locale)
55 default_locale = savestring (default_locale);
56 #endif /* HAVE_SETLOCALE */
57 }
58
59 /* Set default values for LC_CTYPE, LC_COLLATE, and LC_MESSAGES if they
60 are not specified in the environment, but LANG or LC_ALL is. This
61 should be called from main() after parsing the environment. */
62 void
63 set_default_locale_vars ()
64 {
65 char *val;
66
67 #if defined (HAVE_SETLOCALE)
68 val = get_string_value ("LC_CTYPE");
69 if (val == 0 && lc_all && *lc_all)
70 setlocale (LC_CTYPE, lc_all);
71
72 # if defined (LC_COLLATE)
73 val = get_string_value ("LC_COLLATE");
74 if (val == 0 && lc_all && *lc_all)
75 setlocale (LC_COLLATE, lc_all);
76 # endif /* LC_COLLATE */
77
78 # if defined (LC_MESSAGES)
79 val = get_string_value ("LC_MESSAGES");
80 if (val == 0 && lc_all && *lc_all)
81 setlocale (LC_MESSAGES, lc_all);
82 # endif /* LC_MESSAGES */
83
84 #endif /* HAVE_SETLOCALE */
85
86 val = get_string_value ("TEXTDOMAIN");
87 if (val && *val)
88 {
89 FREE (default_domain);
90 default_domain = savestring (val);
91 textdomain (default_domain);
92 }
93
94 val = get_string_value ("TEXTDOMAINDIR");
95 if (val && *val)
96 {
97 FREE (default_dir);
98 default_dir = savestring (val);
99 bindtextdomain (default_domain, default_dir);
100 }
101 }
102
103 /* Set one of the locale categories (specified by VAR) to VALUE. Returns 1
104 if successful, 0 otherwise. */
105 int
106 set_locale_var (var, value)
107 char *var, *value;
108 {
109 if (var[0] == 'T' && var[10] == 0) /* TEXTDOMAIN */
110 {
111 FREE (default_domain);
112 default_domain = value ? savestring (value) : (char *)NULL;
113 textdomain (default_domain);
114 return (1);
115 }
116 else if (var[0] == 'T') /* TEXTDOMAINDIR */
117 {
118 FREE (default_dir);
119 default_dir = value ? savestring (value) : (char *)NULL;
120 bindtextdomain (default_domain, default_dir);
121 return (1);
122 }
123
124 /* var[0] == 'L' && var[1] == 'C' && var[2] == '_' */
125
126 else if (var[3] == 'A') /* LC_ALL */
127 {
128 FREE (lc_all);
129 if (value)
130 lc_all = savestring (value);
131 else if (default_locale)
132 lc_all = savestring (default_locale);
133 else
134 {
135 lc_all = xmalloc (1);
136 lc_all[0] = '\0';
137 }
138 #if defined (HAVE_SETLOCALE)
139 return (setlocale (LC_ALL, value) != 0);
140 #else
141 return (1);
142 #endif
143 }
144
145 #if defined (HAVE_SETLOCALE)
146 else if (var[3] == 'C' && var[4] == 'T') /* LC_CTYPE */
147 {
148 if (lc_all == 0 || *lc_all == '\0')
149 return (setlocale (LC_CTYPE, value) != 0);
150 }
151 else if (var[3] == 'C' && var[4] == 'O') /* LC_COLLATE */
152 {
153 # if defined (LC_COLLATE)
154 if (lc_all == 0 || *lc_all == '\0')
155 return (setlocale (LC_COLLATE, value) != 0);
156 # endif /* LC_COLLATE */
157 }
158 else if (var[3] == 'M' && var[4] == 'E') /* LC_MESSAGES */
159 {
160 # if defined (LC_MESSAGES)
161 if (lc_all == 0 || *lc_all == '\0')
162 return (setlocale (LC_MESSAGES, value) != 0);
163 # endif /* LC_MESSAGES */
164 }
165 #endif /* HAVE_SETLOCALE */
166
167 return (0);
168 }
169
170 /* Called when LANG is assigned a value. Sets LC_ALL if that has not
171 already been set. */
172 int
173 set_lang (var, value)
174 char *var, *value;
175 {
176 return ((lc_all == 0) ? set_locale_var ("LC_ALL", value) : 0);
177 }
178
179 /* Get the value of one of the locale variables (LC_MESSAGES, LC_CTYPE) */
180 char *
181 get_locale_var (var)
182 char *var;
183 {
184 char *locale;
185
186 locale = lc_all;
187
188 if (locale == 0)
189 locale = get_string_value (var);
190 if (locale == 0)
191 locale = default_locale;
192
193 return (locale);
194 }
195
196 /* Translate the contents of STRING, a $"..." quoted string, according
197 to the current locale. In the `C' or `POSIX' locale, or if gettext()
198 is not available, the passed string is returned unchanged. The
199 length of the translated string is returned in LENP, if non-null. */
200 char *
201 localetrans (string, len, lenp)
202 char *string;
203 int len, *lenp;
204 {
205 char *locale, *t;
206 #if defined (HAVE_GETTEXT)
207 char *translated;
208 int tlen;
209 #endif
210
211 /* Don't try to translate null strings. */
212 if (string == 0 || *string == 0)
213 {
214 if (lenp)
215 *lenp = 0;
216 return ((char *)NULL);
217 }
218
219 t = xmalloc (len + 1);
220
221 locale = get_locale_var ("LC_MESSAGES");
222
223 /* If we don't have setlocale() or the current locale is `C' or `POSIX',
224 just return the string. If we don't have gettext(), there's no use
225 doing anything else. */
226 #if defined (HAVE_GETTEXT)
227 if (locale == 0 || locale[0] == '\0' ||
228 (locale[0] == 'C' && locale[1] == '\0') || STREQ (locale, "POSIX"))
229 #endif
230 {
231 strcpy (t, string);
232 if (lenp)
233 *lenp = len;
234 return (t);
235 }
236
237 #if defined (HAVE_GETTEXT)
238 /* Now try to translate it. */
239 translated = gettext (string);
240 if (translated == string) /* gettext returns its argument if untranslatable */
241 {
242 strcpy (t, string);
243 if (lenp)
244 *lenp = len;
245 }
246 else
247 {
248 free (t);
249 tlen = strlen (translated);
250 t = xmalloc (tlen + 1);
251 strcpy (t, translated);
252 if (lenp)
253 *lenp = tlen;
254 }
255 return (t);
256 #endif /* HAVE_GETTEXT */
257 }