1 /* Implementation of the bindtextdomain(3) function 2 Copyright (C) 1995-1998, 2000, 2001, 2002 Free Software Foundation, Inc. 3 4 This program is free software; you can redistribute it and/or modify it 5 under the terms of the GNU Library General Public License as published 6 by 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 GNU 12 Library General Public License for more details. 13 14 You should have received a copy of the GNU Library General Public 15 License along with this program; if not, write to the Free Software 16 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, 17 USA. */ 18 19 #ifdef HAVE_CONFIG_H 20 # include <config.h> 21 #endif 22 23 #include <stddef.h> 24 #include <stdlib.h> 25 #include <string.h> 26 27 #ifdef _LIBC 28 # include <libintl.h> 29 #else 30 # include "libgnuintl.h" 31 #endif 32 #include "gettextP.h" 33 34 #ifdef _LIBC 35 /* We have to handle multi-threaded applications. */ 36 # include <bits/libc-lock.h> 37 #else 38 /* Provide dummy implementation if this is outside glibc. */ 39 # define __libc_rwlock_define(CLASS, NAME) 40 # define __libc_rwlock_wrlock(NAME) 41 # define __libc_rwlock_unlock(NAME) 42 #endif 43 44 /* The internal variables in the standalone libintl.a must have different 45 names than the internal variables in GNU libc, otherwise programs 46 using libintl.a cannot be linked statically. */ 47 #if !defined _LIBC 48 # define _nl_default_dirname libintl_nl_default_dirname 49 # define _nl_domain_bindings libintl_nl_domain_bindings 50 #endif 51 52 /* Some compilers, like SunOS4 cc, don't have offsetof in <stddef.h>. */ 53 #ifndef offsetof 54 # define offsetof(type,ident) ((size_t)&(((type*)0)->ident)) 55 #endif 56 57 /* @@ end of prolog @@ */ 58 59 /* Contains the default location of the message catalogs. */ 60 extern const char _nl_default_dirname[]; 61 #ifdef _LIBC 62 extern const char _nl_default_dirname_internal[] attribute_hidden; 63 #else 64 # define INTUSE(name) name 65 #endif 66 67 /* List with bindings of specific domains. */ 68 extern struct binding *_nl_domain_bindings; 69 70 /* Lock variable to protect the global data in the gettext implementation. */ 71 __libc_rwlock_define (extern, _nl_state_lock attribute_hidden) 72 73 74 /* Names for the libintl functions are a problem. They must not clash 75 with existing names and they should follow ANSI C. But this source 76 code is also used in GNU C Library where the names have a __ 77 prefix. So we have to make a difference here. */ 78 #ifdef _LIBC 79 # define BINDTEXTDOMAIN __bindtextdomain 80 # define BIND_TEXTDOMAIN_CODESET __bind_textdomain_codeset 81 # ifndef strdup 82 # define strdup(str) __strdup (str) 83 # endif 84 #else 85 # define BINDTEXTDOMAIN libintl_bindtextdomain 86 # define BIND_TEXTDOMAIN_CODESET libintl_bind_textdomain_codeset 87 #endif 88 89 /* Prototypes for local functions. */ 90 static void set_binding_values PARAMS ((const char *domainname, 91 const char **dirnamep, 92 const char **codesetp)); 93 94 /* Specifies the directory name *DIRNAMEP and the output codeset *CODESETP 95 to be used for the DOMAINNAME message catalog. 96 If *DIRNAMEP or *CODESETP is NULL, the corresponding attribute is not 97 modified, only the current value is returned. 98 If DIRNAMEP or CODESETP is NULL, the corresponding attribute is neither 99 modified nor returned. */ 100 static void 101 set_binding_values (domainname, dirnamep, codesetp) 102 const char *domainname; 103 const char **dirnamep; 104 const char **codesetp; 105 { 106 struct binding *binding; 107 int modified; 108 109 /* Some sanity checks. */ 110 if (domainname == NULL || domainname[0] == '\0') 111 { 112 if (dirnamep) 113 *dirnamep = NULL; 114 if (codesetp) 115 *codesetp = NULL; 116 return; 117 } 118 119 __libc_rwlock_wrlock (_nl_state_lock); 120 121 modified = 0; 122 123 for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next) 124 { 125 int compare = strcmp (domainname, binding->domainname); 126 if (compare == 0) 127 /* We found it! */ 128 break; 129 if (compare < 0) 130 { 131 /* It is not in the list. */ 132 binding = NULL; 133 break; 134 } 135 } 136 137 if (binding != NULL) 138 { 139 if (dirnamep) 140 { 141 const char *dirname = *dirnamep; 142 143 if (dirname == NULL) 144 /* The current binding has be to returned. */ 145 *dirnamep = binding->dirname; 146 else 147 { 148 /* The domain is already bound. If the new value and the old 149 one are equal we simply do nothing. Otherwise replace the 150 old binding. */ 151 char *result = binding->dirname; 152 if (strcmp (dirname, result) != 0) 153 { 154 if (strcmp (dirname, INTUSE(_nl_default_dirname)) == 0) 155 result = (char *) INTUSE(_nl_default_dirname); 156 else 157 { 158 #if defined _LIBC || defined HAVE_STRDUP 159 result = strdup (dirname); 160 #else 161 size_t len = strlen (dirname) + 1; 162 result = (char *) malloc (len); 163 if (__builtin_expect (result != NULL, 1)) 164 memcpy (result, dirname, len); 165 #endif 166 } 167 168 if (__builtin_expect (result != NULL, 1)) 169 { 170 if (binding->dirname != INTUSE(_nl_default_dirname)) 171 free (binding->dirname); 172 173 binding->dirname = result; 174 modified = 1; 175 } 176 } 177 *dirnamep = result; 178 } 179 } 180 181 if (codesetp) 182 { 183 const char *codeset = *codesetp; 184 185 if (codeset == NULL) 186 /* The current binding has be to returned. */ 187 *codesetp = binding->codeset; 188 else 189 { 190 /* The domain is already bound. If the new value and the old 191 one are equal we simply do nothing. Otherwise replace the 192 old binding. */ 193 char *result = binding->codeset; 194 if (result == NULL || strcmp (codeset, result) != 0) 195 { 196 #if defined _LIBC || defined HAVE_STRDUP 197 result = strdup (codeset); 198 #else 199 size_t len = strlen (codeset) + 1; 200 result = (char *) malloc (len); 201 if (__builtin_expect (result != NULL, 1)) 202 memcpy (result, codeset, len); 203 #endif 204 205 if (__builtin_expect (result != NULL, 1)) 206 { 207 if (binding->codeset != NULL) 208 free (binding->codeset); 209 210 binding->codeset = result; 211 binding->codeset_cntr++; 212 modified = 1; 213 } 214 } 215 *codesetp = result; 216 } 217 } 218 } 219 else if ((dirnamep == NULL || *dirnamep == NULL) 220 && (codesetp == NULL || *codesetp == NULL)) 221 { 222 /* Simply return the default values. */ 223 if (dirnamep) 224 *dirnamep = INTUSE(_nl_default_dirname); 225 if (codesetp) 226 *codesetp = NULL; 227 } 228 else 229 { 230 /* We have to create a new binding. */ 231 size_t len = strlen (domainname) + 1; 232 struct binding *new_binding = 233 (struct binding *) malloc (offsetof (struct binding, domainname) + len); 234 235 if (__builtin_expect (new_binding == NULL, 0)) 236 goto failed; 237 238 memcpy (new_binding->domainname, domainname, len); 239 240 if (dirnamep) 241 { 242 const char *dirname = *dirnamep; 243 244 if (dirname == NULL) 245 /* The default value. */ 246 dirname = INTUSE(_nl_default_dirname); 247 else 248 { 249 if (strcmp (dirname, INTUSE(_nl_default_dirname)) == 0) 250 dirname = INTUSE(_nl_default_dirname); 251 else 252 { 253 char *result; 254 #if defined _LIBC || defined HAVE_STRDUP 255 result = strdup (dirname); 256 if (__builtin_expect (result == NULL, 0)) 257 goto failed_dirname; 258 #else 259 size_t len = strlen (dirname) + 1; 260 result = (char *) malloc (len); 261 if (__builtin_expect (result == NULL, 0)) 262 goto failed_dirname; 263 memcpy (result, dirname, len); 264 #endif 265 dirname = result; 266 } 267 } 268 *dirnamep = dirname; 269 new_binding->dirname = (char *) dirname; 270 } 271 else 272 /* The default value. */ 273 new_binding->dirname = (char *) INTUSE(_nl_default_dirname); 274 275 new_binding->codeset_cntr = 0; 276 277 if (codesetp) 278 { 279 const char *codeset = *codesetp; 280 281 if (codeset != NULL) 282 { 283 char *result; 284 285 #if defined _LIBC || defined HAVE_STRDUP 286 result = strdup (codeset); 287 if (__builtin_expect (result == NULL, 0)) 288 goto failed_codeset; 289 #else 290 size_t len = strlen (codeset) + 1; 291 result = (char *) malloc (len); 292 if (__builtin_expect (result == NULL, 0)) 293 goto failed_codeset; 294 memcpy (result, codeset, len); 295 #endif 296 codeset = result; 297 new_binding->codeset_cntr++; 298 } 299 *codesetp = codeset; 300 new_binding->codeset = (char *) codeset; 301 } 302 else 303 new_binding->codeset = NULL; 304 305 /* Now enqueue it. */ 306 if (_nl_domain_bindings == NULL 307 || strcmp (domainname, _nl_domain_bindings->domainname) < 0) 308 { 309 new_binding->next = _nl_domain_bindings; 310 _nl_domain_bindings = new_binding; 311 } 312 else 313 { 314 binding = _nl_domain_bindings; 315 while (binding->next != NULL 316 && strcmp (domainname, binding->next->domainname) > 0) 317 binding = binding->next; 318 319 new_binding->next = binding->next; 320 binding->next = new_binding; 321 } 322 323 modified = 1; 324 325 /* Here we deal with memory allocation failures. */ 326 if (0) 327 { 328 failed_codeset: 329 if (new_binding->dirname != INTUSE(_nl_default_dirname)) 330 free (new_binding->dirname); 331 failed_dirname: 332 free (new_binding); 333 failed: 334 if (dirnamep) 335 *dirnamep = NULL; 336 if (codesetp) 337 *codesetp = NULL; 338 } 339 } 340 341 /* If we modified any binding, we flush the caches. */ 342 if (modified) 343 ++_nl_msg_cat_cntr; 344 345 __libc_rwlock_unlock (_nl_state_lock); 346 } 347 348 /* Specify that the DOMAINNAME message catalog will be found 349 in DIRNAME rather than in the system locale data base. */ 350 char * 351 BINDTEXTDOMAIN (domainname, dirname) 352 const char *domainname; 353 const char *dirname; 354 { 355 set_binding_values (domainname, &dirname, NULL); 356 return (char *) dirname; 357 } 358 359 /* Specify the character encoding in which the messages from the 360 DOMAINNAME message catalog will be returned. */ 361 char * 362 BIND_TEXTDOMAIN_CODESET (domainname, codeset) 363 const char *domainname; 364 const char *codeset; 365 { 366 set_binding_values (domainname, NULL, &codeset); 367 return (char *) codeset; 368 } 369 370 #ifdef _LIBC 371 /* Aliases for function names in GNU C Library. */ 372 weak_alias (__bindtextdomain, bindtextdomain); 373 weak_alias (__bind_textdomain_codeset, bind_textdomain_codeset); 374 #endif 375
