locale/localeconv.c

   1 /* Copyright (C) 1991-2023 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3
   4    The GNU C Library is free software; you can redistribute it and/or
   5    modify it under the terms of the GNU Lesser General Public
   6    License as published by the Free Software Foundation; either
   7    version 2.1 of the License, or (at your option) any later version.
   8
   9    The GNU C Library 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    Lesser General Public License for more details.
  13
  14    You should have received a copy of the GNU Lesser General Public
  15    License along with the GNU C Library; if not, see
  16    <https://www.gnu.org/licenses/>.  */
  17
  18 #include <locale.h>
  19 #include "localeinfo.h"
  20 #include <shlib-compat.h>
  21
  22 /* Return monetary and numeric information about the current locale.  */
  23 struct lconv *
  24 __localeconv (void)
  25 {
  26   static struct lconv result;
  27
  28   result.decimal_point = (char *) _NL_CURRENT (LC_NUMERIC, DECIMAL_POINT);
  29   result.thousands_sep = (char *) _NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP);
  30   result.grouping = (char *) _NL_CURRENT (LC_NUMERIC, GROUPING);
  31   if (*result.grouping == '\177' || *result.grouping == '\377')
  32     result.grouping = (char *) "";
  33
  34   result.int_curr_symbol = (char *) _NL_CURRENT (LC_MONETARY, INT_CURR_SYMBOL);
  35   result.currency_symbol = (char *) _NL_CURRENT (LC_MONETARY, CURRENCY_SYMBOL);
  36   result.mon_decimal_point = (char *) _NL_CURRENT (LC_MONETARY,
  37                                                    MON_DECIMAL_POINT);
  38   result.mon_thousands_sep = (char *) _NL_CURRENT (LC_MONETARY,
  39                                                    MON_THOUSANDS_SEP);
  40   result.mon_grouping = (char *) _NL_CURRENT (LC_MONETARY, MON_GROUPING);
  41   if (*result.mon_grouping == '\177' || *result.mon_grouping == '\377')
  42     result.mon_grouping = (char *) "";
  43   result.positive_sign = (char *) _NL_CURRENT (LC_MONETARY, POSITIVE_SIGN);
  44   result.negative_sign = (char *) _NL_CURRENT (LC_MONETARY, NEGATIVE_SIGN);
  45
  46 #define INT_ELEM(member, element) \
  47   result.member = *(char *) _NL_CURRENT (LC_MONETARY, element);               \
  48   if (result.member == '\377') result.member = CHAR_MAX
  49
  50   INT_ELEM (int_frac_digits, INT_FRAC_DIGITS);
  51   INT_ELEM (frac_digits, FRAC_DIGITS);
  52   INT_ELEM (p_cs_precedes, P_CS_PRECEDES);
  53   INT_ELEM (p_sep_by_space, P_SEP_BY_SPACE);
  54   INT_ELEM (n_cs_precedes, N_CS_PRECEDES);
  55   INT_ELEM (n_sep_by_space, N_SEP_BY_SPACE);
  56   INT_ELEM (p_sign_posn, P_SIGN_POSN);
  57   INT_ELEM (n_sign_posn, N_SIGN_POSN);
  58   INT_ELEM (int_p_cs_precedes, INT_P_CS_PRECEDES);
  59   INT_ELEM (int_p_sep_by_space, INT_P_SEP_BY_SPACE);
  60   INT_ELEM (int_n_cs_precedes, INT_N_CS_PRECEDES);
  61   INT_ELEM (int_n_sep_by_space, INT_N_SEP_BY_SPACE);
  62   INT_ELEM (int_p_sign_posn, INT_P_SIGN_POSN);
  63   INT_ELEM (int_n_sign_posn, INT_N_SIGN_POSN);
  64
  65   return &result;
  66 }
  67
  68 versioned_symbol (libc, __localeconv, localeconv, GLIBC_2_2);
  69 #if SHLIB_COMPAT (libc, GLIBC_2_0, GLIBC_2_2)
  70 strong_alias (__localeconv, __localeconv20)
  71 compat_symbol (libc, __localeconv20, localeconv, GLIBC_2_0);
  72 #endif