| /* Implementation of the bindtextdomain(3) function |
| Copyright (C) 1995-2018 Free Software Foundation, Inc. |
| |
| This program is free software: you can redistribute it and/or modify |
| it under the terms of the GNU Lesser General Public License as published by |
| the Free Software Foundation; either version 2.1 of the License, or |
| (at your option) any later version. |
| |
| This program is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU Lesser General Public License for more details. |
| |
| You should have received a copy of the GNU Lesser General Public License |
| along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
| |
| #ifdef HAVE_CONFIG_H |
| # include <config.h> |
| #endif |
| |
| #include <stddef.h> |
| #include <stdlib.h> |
| #include <string.h> |
| |
| #include "gettextP.h" |
| #ifdef _LIBC |
| # include <libintl.h> |
| #else |
| # include "libgnuintl.h" |
| #endif |
| |
| /* Handle multi-threaded applications. */ |
| #ifdef _LIBC |
| # include <libc-lock.h> |
| # define gl_rwlock_define __libc_rwlock_define |
| # define gl_rwlock_wrlock __libc_rwlock_wrlock |
| # define gl_rwlock_unlock __libc_rwlock_unlock |
| #else |
| # include "lock.h" |
| #endif |
| |
| /* Some compilers, like SunOS4 cc, don't have offsetof in <stddef.h>. */ |
| #ifndef offsetof |
| # define offsetof(type,ident) ((size_t)&(((type*)0)->ident)) |
| #endif |
| |
| /* @@ end of prolog @@ */ |
| |
| /* Lock variable to protect the global data in the gettext implementation. */ |
| gl_rwlock_define (extern, _nl_state_lock attribute_hidden) |
| |
| |
| /* Names for the libintl functions are a problem. They must not clash |
| with existing names and they should follow ANSI C. But this source |
| code is also used in GNU C Library where the names have a __ |
| prefix. So we have to make a difference here. */ |
| #ifdef _LIBC |
| # define BINDTEXTDOMAIN __bindtextdomain |
| # define BIND_TEXTDOMAIN_CODESET __bind_textdomain_codeset |
| # ifndef strdup |
| # define strdup(str) __strdup (str) |
| # endif |
| #else |
| # define BINDTEXTDOMAIN libintl_bindtextdomain |
| # define BIND_TEXTDOMAIN_CODESET libintl_bind_textdomain_codeset |
| #endif |
| |
| /* Specifies the directory name *DIRNAMEP and the output codeset *CODESETP |
| to be used for the DOMAINNAME message catalog. |
| If *DIRNAMEP or *CODESETP is NULL, the corresponding attribute is not |
| modified, only the current value is returned. |
| If DIRNAMEP or CODESETP is NULL, the corresponding attribute is neither |
| modified nor returned. */ |
| static void |
| set_binding_values (const char *domainname, |
| const char **dirnamep, const char **codesetp) |
| { |
| struct binding *binding; |
| int modified; |
| |
| /* Some sanity checks. */ |
| if (domainname == NULL || domainname[0] == '\0') |
| { |
| if (dirnamep) |
| *dirnamep = NULL; |
| if (codesetp) |
| *codesetp = NULL; |
| return; |
| } |
| |
| gl_rwlock_wrlock (_nl_state_lock); |
| |
| modified = 0; |
| |
| for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next) |
| { |
| int compare = strcmp (domainname, binding->domainname); |
| if (compare == 0) |
| /* We found it! */ |
| break; |
| if (compare < 0) |
| { |
| /* It is not in the list. */ |
| binding = NULL; |
| break; |
| } |
| } |
| |
| if (binding != NULL) |
| { |
| if (dirnamep) |
| { |
| const char *dirname = *dirnamep; |
| |
| if (dirname == NULL) |
| /* The current binding has be to returned. */ |
| *dirnamep = binding->dirname; |
| else |
| { |
| /* The domain is already bound. If the new value and the old |
| one are equal we simply do nothing. Otherwise replace the |
| old binding. */ |
| char *result = binding->dirname; |
| if (strcmp (dirname, result) != 0) |
| { |
| if (strcmp (dirname, _nl_default_dirname) == 0) |
| result = (char *) _nl_default_dirname; |
| else |
| { |
| #if defined _LIBC || defined HAVE_STRDUP |
| result = strdup (dirname); |
| #else |
| size_t len = strlen (dirname) + 1; |
| result = (char *) malloc (len); |
| if (__builtin_expect (result != NULL, 1)) |
| memcpy (result, dirname, len); |
| #endif |
| } |
| |
| if (__builtin_expect (result != NULL, 1)) |
| { |
| if (binding->dirname != _nl_default_dirname) |
| free (binding->dirname); |
| |
| binding->dirname = result; |
| modified = 1; |
| } |
| } |
| *dirnamep = result; |
| } |
| } |
| |
| if (codesetp) |
| { |
| const char *codeset = *codesetp; |
| |
| if (codeset == NULL) |
| /* The current binding has be to returned. */ |
| *codesetp = binding->codeset; |
| else |
| { |
| /* The domain is already bound. If the new value and the old |
| one are equal we simply do nothing. Otherwise replace the |
| old binding. */ |
| char *result = binding->codeset; |
| if (result == NULL || strcmp (codeset, result) != 0) |
| { |
| #if defined _LIBC || defined HAVE_STRDUP |
| result = strdup (codeset); |
| #else |
| size_t len = strlen (codeset) + 1; |
| result = (char *) malloc (len); |
| if (__builtin_expect (result != NULL, 1)) |
| memcpy (result, codeset, len); |
| #endif |
| |
| if (__builtin_expect (result != NULL, 1)) |
| { |
| free (binding->codeset); |
| |
| binding->codeset = result; |
| modified = 1; |
| } |
| } |
| *codesetp = result; |
| } |
| } |
| } |
| else if ((dirnamep == NULL || *dirnamep == NULL) |
| && (codesetp == NULL || *codesetp == NULL)) |
| { |
| /* Simply return the default values. */ |
| if (dirnamep) |
| *dirnamep = _nl_default_dirname; |
| if (codesetp) |
| *codesetp = NULL; |
| } |
| else |
| { |
| /* We have to create a new binding. */ |
| size_t len = strlen (domainname) + 1; |
| struct binding *new_binding = |
| (struct binding *) malloc (offsetof (struct binding, domainname) + len); |
| |
| if (__builtin_expect (new_binding == NULL, 0)) |
| goto failed; |
| |
| memcpy (new_binding->domainname, domainname, len); |
| |
| if (dirnamep) |
| { |
| const char *dirname = *dirnamep; |
| |
| if (dirname == NULL) |
| /* The default value. */ |
| dirname = _nl_default_dirname; |
| else |
| { |
| if (strcmp (dirname, _nl_default_dirname) == 0) |
| dirname = _nl_default_dirname; |
| else |
| { |
| char *result; |
| #if defined _LIBC || defined HAVE_STRDUP |
| result = strdup (dirname); |
| if (__builtin_expect (result == NULL, 0)) |
| goto failed_dirname; |
| #else |
| size_t len = strlen (dirname) + 1; |
| result = (char *) malloc (len); |
| if (__builtin_expect (result == NULL, 0)) |
| goto failed_dirname; |
| memcpy (result, dirname, len); |
| #endif |
| dirname = result; |
| } |
| } |
| *dirnamep = dirname; |
| new_binding->dirname = (char *) dirname; |
| } |
| else |
| /* The default value. */ |
| new_binding->dirname = (char *) _nl_default_dirname; |
| |
| if (codesetp) |
| { |
| const char *codeset = *codesetp; |
| |
| if (codeset != NULL) |
| { |
| char *result; |
| |
| #if defined _LIBC || defined HAVE_STRDUP |
| result = strdup (codeset); |
| if (__builtin_expect (result == NULL, 0)) |
| goto failed_codeset; |
| #else |
| size_t len = strlen (codeset) + 1; |
| result = (char *) malloc (len); |
| if (__builtin_expect (result == NULL, 0)) |
| goto failed_codeset; |
| memcpy (result, codeset, len); |
| #endif |
| codeset = result; |
| } |
| *codesetp = codeset; |
| new_binding->codeset = (char *) codeset; |
| } |
| else |
| new_binding->codeset = NULL; |
| |
| /* Now enqueue it. */ |
| if (_nl_domain_bindings == NULL |
| || strcmp (domainname, _nl_domain_bindings->domainname) < 0) |
| { |
| new_binding->next = _nl_domain_bindings; |
| _nl_domain_bindings = new_binding; |
| } |
| else |
| { |
| binding = _nl_domain_bindings; |
| while (binding->next != NULL |
| && strcmp (domainname, binding->next->domainname) > 0) |
| binding = binding->next; |
| |
| new_binding->next = binding->next; |
| binding->next = new_binding; |
| } |
| |
| modified = 1; |
| |
| /* Here we deal with memory allocation failures. */ |
| if (0) |
| { |
| failed_codeset: |
| if (new_binding->dirname != _nl_default_dirname) |
| free (new_binding->dirname); |
| failed_dirname: |
| free (new_binding); |
| failed: |
| if (dirnamep) |
| *dirnamep = NULL; |
| if (codesetp) |
| *codesetp = NULL; |
| } |
| } |
| |
| /* If we modified any binding, we flush the caches. */ |
| if (modified) |
| ++_nl_msg_cat_cntr; |
| |
| gl_rwlock_unlock (_nl_state_lock); |
| } |
| |
| /* Specify that the DOMAINNAME message catalog will be found |
| in DIRNAME rather than in the system locale data base. */ |
| char * |
| BINDTEXTDOMAIN (const char *domainname, const char *dirname) |
| { |
| set_binding_values (domainname, &dirname, NULL); |
| return (char *) dirname; |
| } |
| |
| /* Specify the character encoding in which the messages from the |
| DOMAINNAME message catalog will be returned. */ |
| char * |
| BIND_TEXTDOMAIN_CODESET (const char *domainname, const char *codeset) |
| { |
| set_binding_values (domainname, NULL, &codeset); |
| return (char *) codeset; |
| } |
| |
| #ifdef _LIBC |
| /* Aliases for function names in GNU C Library. */ |
| weak_alias (__bindtextdomain, bindtextdomain); |
| weak_alias (__bind_textdomain_codeset, bind_textdomain_codeset); |
| #endif |