Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 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 |
Jari Aalto | bb70624 | 2000-03-17 21:46:59 +0000 | [diff] [blame^] | 19 | Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */ |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 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 | |
Jari Aalto | bb70624 | 2000-03-17 21:46:59 +0000 | [diff] [blame^] | 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 */ |
| 89 | |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 90 | #endif /* HAVE_SETLOCALE */ |
| 91 | |
| 92 | val = get_string_value ("TEXTDOMAIN"); |
| 93 | if (val && *val) |
| 94 | { |
| 95 | FREE (default_domain); |
| 96 | default_domain = savestring (val); |
| 97 | textdomain (default_domain); |
| 98 | } |
| 99 | |
| 100 | val = get_string_value ("TEXTDOMAINDIR"); |
| 101 | if (val && *val) |
| 102 | { |
| 103 | FREE (default_dir); |
| 104 | default_dir = savestring (val); |
| 105 | bindtextdomain (default_domain, default_dir); |
| 106 | } |
| 107 | } |
| 108 | |
| 109 | /* Set one of the locale categories (specified by VAR) to VALUE. Returns 1 |
| 110 | if successful, 0 otherwise. */ |
| 111 | int |
| 112 | set_locale_var (var, value) |
| 113 | char *var, *value; |
| 114 | { |
| 115 | if (var[0] == 'T' && var[10] == 0) /* TEXTDOMAIN */ |
| 116 | { |
| 117 | FREE (default_domain); |
| 118 | default_domain = value ? savestring (value) : (char *)NULL; |
| 119 | textdomain (default_domain); |
| 120 | return (1); |
| 121 | } |
| 122 | else if (var[0] == 'T') /* TEXTDOMAINDIR */ |
| 123 | { |
| 124 | FREE (default_dir); |
| 125 | default_dir = value ? savestring (value) : (char *)NULL; |
| 126 | bindtextdomain (default_domain, default_dir); |
| 127 | return (1); |
| 128 | } |
| 129 | |
| 130 | /* var[0] == 'L' && var[1] == 'C' && var[2] == '_' */ |
| 131 | |
| 132 | else if (var[3] == 'A') /* LC_ALL */ |
| 133 | { |
| 134 | FREE (lc_all); |
Jari Aalto | e8ce775 | 1997-09-22 20:22:27 +0000 | [diff] [blame] | 135 | if (value) |
| 136 | lc_all = savestring (value); |
| 137 | else if (default_locale) |
| 138 | lc_all = savestring (default_locale); |
| 139 | else |
| 140 | { |
| 141 | lc_all = xmalloc (1); |
| 142 | lc_all[0] = '\0'; |
| 143 | } |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 144 | #if defined (HAVE_SETLOCALE) |
Jari Aalto | bb70624 | 2000-03-17 21:46:59 +0000 | [diff] [blame^] | 145 | return (setlocale (LC_ALL, lc_all) != 0); |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 146 | #else |
| 147 | return (1); |
| 148 | #endif |
| 149 | } |
| 150 | |
| 151 | #if defined (HAVE_SETLOCALE) |
| 152 | else if (var[3] == 'C' && var[4] == 'T') /* LC_CTYPE */ |
| 153 | { |
| 154 | if (lc_all == 0 || *lc_all == '\0') |
Jari Aalto | bb70624 | 2000-03-17 21:46:59 +0000 | [diff] [blame^] | 155 | return (setlocale (LC_CTYPE, value ? value : "") != 0); |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 156 | } |
| 157 | else if (var[3] == 'C' && var[4] == 'O') /* LC_COLLATE */ |
| 158 | { |
| 159 | # if defined (LC_COLLATE) |
| 160 | if (lc_all == 0 || *lc_all == '\0') |
Jari Aalto | bb70624 | 2000-03-17 21:46:59 +0000 | [diff] [blame^] | 161 | return (setlocale (LC_COLLATE, value ? value : "") != 0); |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 162 | # endif /* LC_COLLATE */ |
| 163 | } |
| 164 | else if (var[3] == 'M' && var[4] == 'E') /* LC_MESSAGES */ |
| 165 | { |
| 166 | # if defined (LC_MESSAGES) |
| 167 | if (lc_all == 0 || *lc_all == '\0') |
Jari Aalto | bb70624 | 2000-03-17 21:46:59 +0000 | [diff] [blame^] | 168 | return (setlocale (LC_MESSAGES, value ? value : "") != 0); |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 169 | # endif /* LC_MESSAGES */ |
| 170 | } |
Jari Aalto | bb70624 | 2000-03-17 21:46:59 +0000 | [diff] [blame^] | 171 | else if (var[3] = 'N' && var[4] == 'U') /* LC_NUMERIC */ |
| 172 | { |
| 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 */ |
| 177 | } |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 178 | #endif /* HAVE_SETLOCALE */ |
| 179 | |
| 180 | return (0); |
| 181 | } |
| 182 | |
Jari Aalto | b72432f | 1999-02-19 17:11:39 +0000 | [diff] [blame] | 183 | #if 0 |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 184 | /* Called when LANG is assigned a value. Sets LC_ALL if that has not |
| 185 | already been set. */ |
Jari Aalto | b72432f | 1999-02-19 17:11:39 +0000 | [diff] [blame] | 186 | #else |
| 187 | /* This no longer does anything; we rely on the C library for correct |
| 188 | behavior. */ |
| 189 | #endif |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 190 | int |
| 191 | set_lang (var, value) |
| 192 | char *var, *value; |
| 193 | { |
Jari Aalto | b72432f | 1999-02-19 17:11:39 +0000 | [diff] [blame] | 194 | #if 0 |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 195 | return ((lc_all == 0) ? set_locale_var ("LC_ALL", value) : 0); |
Jari Aalto | b72432f | 1999-02-19 17:11:39 +0000 | [diff] [blame] | 196 | #else |
| 197 | return 0; |
| 198 | #endif |
Jari Aalto | ccc6cda | 1996-12-23 17:02:34 +0000 | [diff] [blame] | 199 | } |
| 200 | |
| 201 | /* Get the value of one of the locale variables (LC_MESSAGES, LC_CTYPE) */ |
| 202 | char * |
| 203 | get_locale_var (var) |
| 204 | char *var; |
| 205 | { |
| 206 | char *locale; |
| 207 | |
| 208 | locale = lc_all; |
| 209 | |
| 210 | if (locale == 0) |
| 211 | locale = get_string_value (var); |
| 212 | if (locale == 0) |
| 213 | locale = default_locale; |
| 214 | |
| 215 | return (locale); |
| 216 | } |
| 217 | |
| 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. */ |
| 222 | char * |
| 223 | localetrans (string, len, lenp) |
| 224 | char *string; |
| 225 | int len, *lenp; |
| 226 | { |
| 227 | char *locale, *t; |
| 228 | #if defined (HAVE_GETTEXT) |
| 229 | char *translated; |
| 230 | int tlen; |
| 231 | #endif |
| 232 | |
| 233 | /* Don't try to translate null strings. */ |
| 234 | if (string == 0 || *string == 0) |
| 235 | { |
| 236 | if (lenp) |
| 237 | *lenp = 0; |
| 238 | return ((char *)NULL); |
| 239 | } |
| 240 | |
| 241 | t = xmalloc (len + 1); |
| 242 | |
| 243 | locale = get_locale_var ("LC_MESSAGES"); |
| 244 | |
| 245 | /* If we don't have setlocale() or the current locale is `C' or `POSIX', |
| 246 | just return the string. If we don't have gettext(), there's no use |
| 247 | doing anything else. */ |
| 248 | #if defined (HAVE_GETTEXT) |
| 249 | if (locale == 0 || locale[0] == '\0' || |
| 250 | (locale[0] == 'C' && locale[1] == '\0') || STREQ (locale, "POSIX")) |
| 251 | #endif |
| 252 | { |
| 253 | strcpy (t, string); |
| 254 | if (lenp) |
| 255 | *lenp = len; |
| 256 | return (t); |
| 257 | } |
| 258 | |
| 259 | #if defined (HAVE_GETTEXT) |
| 260 | /* Now try to translate it. */ |
| 261 | translated = gettext (string); |
| 262 | if (translated == string) /* gettext returns its argument if untranslatable */ |
| 263 | { |
| 264 | strcpy (t, string); |
| 265 | if (lenp) |
| 266 | *lenp = len; |
| 267 | } |
| 268 | else |
| 269 | { |
| 270 | free (t); |
| 271 | tlen = strlen (translated); |
| 272 | t = xmalloc (tlen + 1); |
| 273 | strcpy (t, translated); |
| 274 | if (lenp) |
| 275 | *lenp = tlen; |
| 276 | } |
| 277 | return (t); |
| 278 | #endif /* HAVE_GETTEXT */ |
| 279 | } |