common/localename.c

   1 /* localename.c - Determine the current selected locale.
   2  * Copyright (C) 1995-1999, 2000-2003, 2007,
   3  *               2008 Free Software Foundation, Inc.
   4  *
   5  * This file is free software; you can redistribute it and/or modify
   6  * it under the terms of either
   7  *
   8  *   - the GNU Lesser General Public License as published by the Free
   9  *     Software Foundation; either version 3 of the License, or (at
  10  *     your option) any later version.
  11  *
  12  * or
  13  *
  14  *   - the GNU General Public License as published by the Free
  15  *     Software Foundation; either version 2 of the License, or (at
  16  *     your option) any later version.
  17  *
  18  * or both in parallel, as here.
  19  *
  20  * This file is distributed in the hope that it will be useful,
  21  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23  * GNU General Public License for more details.
  24  *
  25  * You should have received a copy of the GNU General Public
  26  * License along with this program; if not, see <https://www.gnu.org/licenses/>.
  27  */
  28 /* Written by Ulrich Drepper <drepper@gnu.org>, 1995.  */
  29 /* Win32 code written by Tor Lillqvist <tml@iki.fi>.  */
  30 /* Modified for GpgOL use by Werner Koch <wk@gnupg.org>, 2005.  */
  31 /* Modified for GnuPG use by Werner Koch <wk@gnupg.org>, 2007 */
  32
  33 #ifdef HAVE_CONFIG_H
  34 # include <config.h>
  35 #endif
  36
  37 #include <stdlib.h>
  38 #include <string.h>
  39 #ifdef HAVE_LOCALE_H
  40 #include <locale.h>
  41 #endif
  42 #include <gpg-error.h> /* We need gettext_localename for W32. */
  43
  44 #include "../common/w32help.h"
  45
  46 /* XPG3 defines the result of 'setlocale (category, NULL)' as:
  47    "Directs 'setlocale()' to query 'category' and return the current
  48     setting of 'local'."
  49    However it does not specify the exact format.  Neither do SUSV2 and
  50    ISO C 99.  So we can use this feature only on selected systems (e.g.
  51    those using GNU C Library).  */
  52 #if defined _LIBC || (defined __GNU_LIBRARY__ && __GNU_LIBRARY__ >= 2)
  53 # define HAVE_LOCALE_NULL
  54 #endif
  55
  56 /* Use a dummy value for LC_MESSAGES in case it is not defined.  This
  57    works because we always test for HAVE_LC_MESSAGES and the core
  58    function takes the category as a string as well.  */
  59 #ifndef HAVE_LC_MESSAGES
  60 #define LC_MESSAGES 0
  61 #endif
  62
  63
  64 /* Determine the current locale's name, and canonicalize it into XPG syntax
  65      language[_territory[.codeset]][@modifier]
  66    The codeset part in the result is not reliable; the locale_charset()
  67    should be used for codeset information instead.
  68    The result must not be freed; it is statically allocated.  */
  69
  70 #ifndef HAVE_W32_SYSTEM
  71 static const char *
  72 do_nl_locale_name (int category, const char *categoryname)
  73 {
  74   const char *retval;
  75
  76   /* Use the POSIX methods of looking to 'LC_ALL', 'LC_xxx', and 'LANG'.
  77      On some systems this can be done by the 'setlocale' function itself.  */
  78 # if defined HAVE_SETLOCALE && defined HAVE_LC_MESSAGES && defined HAVE_LOCALE_NULL
  79   (void)categoryname;
  80   retval = setlocale (category, NULL);
  81 # else
  82   /* Setting of LC_ALL overwrites all other.  */
  83   retval = getenv ("LC_ALL");
  84   if (retval == NULL || retval[0] == '\0')
  85     {
  86       /* Next comes the name of the desired category.  */
  87       retval = getenv (categoryname);
  88       if (retval == NULL || retval[0] == '\0')
  89         {
  90           /* Last possibility is the LANG environment variable.  */
  91           retval = getenv ("LANG");
  92           if (retval == NULL || retval[0] == '\0')
  93             /* We use C as the default domain.  POSIX says this is
  94                implementation defined.  */
  95             retval = "C";
  96         }
  97     }
  98 # endif
  99
 100   return retval;
 101 }
 102 #endif /* HAVE_W32_SYSTEM */
 103
 104
 105
 106 /* Return the locale used for translatable messages.  The standard C
 107    and POSIX are locale names are mapped to an empty string.  If a
 108    locale can't be found an empty string will be returned.  */
 109 const char *
 110 gnupg_messages_locale_name (void)
 111 {
 112   const char *s;
 113
 114 #ifdef HAVE_W32_SYSTEM
 115   /* We use the localename function libgpg-error.  */
 116   s = gettext_localename ();
 117 #else
 118   s = do_nl_locale_name (LC_MESSAGES, "LC_MESSAGES");
 119 #endif
 120   if (!s)
 121     s = "";
 122   else if (!strcmp (s, "C") || !strcmp (s, "POSIX"))
 123     s = "";
 124
 125   return s;
 126 }