]>
git.ipfire.org Git - thirdparty/bash.git/blob - locale.c
39ded78da9e869066364655c5077836f0bfd9c6e
1 /* locale.c - Miscellaneous internationalization functions. */
3 /* Copyright (C) 1996 Free Software Foundation, Inc.
5 This file is part of GNU Bash, the Bourne Again SHell.
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
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
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, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
23 #include "bashtypes.h"
25 #if defined (HAVE_UNISTD_H)
36 /* The current locale when the program begins */
37 static char *default_locale
;
39 /* The current domain for textdomain(3). */
40 static char *default_domain
;
41 static char *default_dir
;
43 /* tracks the value of LC_ALL; used to override values for other locale
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(). */
52 #if defined (HAVE_SETLOCALE)
53 default_locale
= setlocale (LC_ALL
, "");
55 default_locale
= savestring (default_locale
);
56 #endif /* HAVE_SETLOCALE */
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. */
63 set_default_locale_vars ()
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
);
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 */
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 */
84 # if defined (LC_NUMERIC)
85 val
= get_string_value ("LC_NUMERIC");
86 if (val
== 0 && lc_all
&& *lc_all
)
87 setlocale (LC_NUMERIC
, lc_all
);
88 # endif /* LC_NUMERIC */
90 #endif /* HAVE_SETLOCALE */
92 val
= get_string_value ("TEXTDOMAIN");
95 FREE (default_domain
);
96 default_domain
= savestring (val
);
97 textdomain (default_domain
);
100 val
= get_string_value ("TEXTDOMAINDIR");
104 default_dir
= savestring (val
);
105 bindtextdomain (default_domain
, default_dir
);
109 /* Set one of the locale categories (specified by VAR) to VALUE. Returns 1
110 if successful, 0 otherwise. */
112 set_locale_var (var
, value
)
115 if (var
[0] == 'T' && var
[10] == 0) /* TEXTDOMAIN */
117 FREE (default_domain
);
118 default_domain
= value
? savestring (value
) : (char *)NULL
;
119 textdomain (default_domain
);
122 else if (var
[0] == 'T') /* TEXTDOMAINDIR */
125 default_dir
= value
? savestring (value
) : (char *)NULL
;
126 bindtextdomain (default_domain
, default_dir
);
130 /* var[0] == 'L' && var[1] == 'C' && var[2] == '_' */
132 else if (var
[3] == 'A') /* LC_ALL */
136 lc_all
= savestring (value
);
137 else if (default_locale
)
138 lc_all
= savestring (default_locale
);
141 lc_all
= xmalloc (1);
144 #if defined (HAVE_SETLOCALE)
145 return (setlocale (LC_ALL
, lc_all
) != 0);
151 #if defined (HAVE_SETLOCALE)
152 else if (var
[3] == 'C' && var
[4] == 'T') /* LC_CTYPE */
154 if (lc_all
== 0 || *lc_all
== '\0')
155 return (setlocale (LC_CTYPE
, value
? value
: "") != 0);
157 else if (var
[3] == 'C' && var
[4] == 'O') /* LC_COLLATE */
159 # if defined (LC_COLLATE)
160 if (lc_all
== 0 || *lc_all
== '\0')
161 return (setlocale (LC_COLLATE
, value
? value
: "") != 0);
162 # endif /* LC_COLLATE */
164 else if (var
[3] == 'M' && var
[4] == 'E') /* LC_MESSAGES */
166 # if defined (LC_MESSAGES)
167 if (lc_all
== 0 || *lc_all
== '\0')
168 return (setlocale (LC_MESSAGES
, value
? value
: "") != 0);
169 # endif /* LC_MESSAGES */
171 else if (var
[3] = 'N' && var
[4] == 'U') /* LC_NUMERIC */
173 # if defined (LC_NUMERIC)
174 if (lc_all
== 0 || *lc_all
== '\0')
175 return (setlocale (LC_NUMERIC
, value
? value
: "") != 0);
176 # endif /* LC_NUMERIC */
178 #endif /* HAVE_SETLOCALE */
184 /* Called when LANG is assigned a value. Sets LC_ALL if that has not
187 /* This no longer does anything; we rely on the C library for correct
191 set_lang (var
, value
)
195 return ((lc_all
== 0) ? set_locale_var ("LC_ALL", value
) : 0);
201 /* Get the value of one of the locale variables (LC_MESSAGES, LC_CTYPE) */
211 locale
= get_string_value (var
);
213 locale
= default_locale
;
218 /* Translate the contents of STRING, a $"..." quoted string, according
219 to the current locale. In the `C' or `POSIX' locale, or if gettext()
220 is not available, the passed string is returned unchanged. The
221 length of the translated string is returned in LENP, if non-null. */
223 localetrans (string
, len
, lenp
)
228 #if defined (HAVE_GETTEXT)
233 /* Don't try to translate null strings. */
234 if (string
== 0 || *string
== 0)
238 return ((char *)NULL
);
241 locale
= get_locale_var ("LC_MESSAGES");
243 /* If we don't have setlocale() or the current locale is `C' or `POSIX',
244 just return the string. If we don't have gettext(), there's no use
245 doing anything else. */
246 #if defined (HAVE_GETTEXT)
247 if (locale
== 0 || locale
[0] == '\0' ||
248 (locale
[0] == 'C' && locale
[1] == '\0') || STREQ (locale
, "POSIX"))
251 t
= xmalloc (len
+ 1);
258 #if defined (HAVE_GETTEXT)
259 /* Now try to translate it. */
260 translated
= gettext (string
);
261 if (translated
== string
) /* gettext returns its argument if untranslatable */
263 t
= xmalloc (len
+ 1);
270 tlen
= strlen (translated
);
271 t
= xmalloc (tlen
+ 1);
272 strcpy (t
, translated
);
277 #endif /* HAVE_GETTEXT */