1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
/* Query locale dependent information for formatting numbers.
Copyright (C) 2012-2023 Free Software Foundation, Inc.
This file 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 file 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 <https://www.gnu.org/licenses/>. */
#include <config.h>
/* Specification. */
#include <locale.h>
#include <limits.h>
#if HAVE_STRUCT_LCONV_DECIMAL_POINT
# define FIX_CHAR_VALUE(x) ((x) >= 0 ? (x) : CHAR_MAX)
/* Override for platforms where 'struct lconv' lacks the int_p_*, int_n_*
members or where fields of type 'char' are set to -1 instead of CHAR_MAX. */
struct lconv *
localeconv (void)
{
static struct lconv result;
# undef lconv
# undef localeconv
struct lconv *sys_result = localeconv ();
result.decimal_point = sys_result->decimal_point;
result.thousands_sep = sys_result->thousands_sep;
result.grouping = sys_result->grouping;
result.mon_decimal_point = sys_result->mon_decimal_point;
result.mon_thousands_sep = sys_result->mon_thousands_sep;
result.mon_grouping = sys_result->mon_grouping;
result.positive_sign = sys_result->positive_sign;
result.negative_sign = sys_result->negative_sign;
result.currency_symbol = sys_result->currency_symbol;
result.frac_digits = FIX_CHAR_VALUE (sys_result->frac_digits);
result.p_cs_precedes = FIX_CHAR_VALUE (sys_result->p_cs_precedes);
result.p_sign_posn = FIX_CHAR_VALUE (sys_result->p_sign_posn);
result.p_sep_by_space = FIX_CHAR_VALUE (sys_result->p_sep_by_space);
result.n_cs_precedes = FIX_CHAR_VALUE (sys_result->n_cs_precedes);
result.n_sign_posn = FIX_CHAR_VALUE (sys_result->n_sign_posn);
result.n_sep_by_space = FIX_CHAR_VALUE (sys_result->n_sep_by_space);
result.int_curr_symbol = sys_result->int_curr_symbol;
result.int_frac_digits = FIX_CHAR_VALUE (sys_result->int_frac_digits);
# if HAVE_STRUCT_LCONV_INT_P_CS_PRECEDES
result.int_p_cs_precedes = FIX_CHAR_VALUE (sys_result->int_p_cs_precedes);
result.int_p_sign_posn = FIX_CHAR_VALUE (sys_result->int_p_sign_posn);
result.int_p_sep_by_space = FIX_CHAR_VALUE (sys_result->int_p_sep_by_space);
result.int_n_cs_precedes = FIX_CHAR_VALUE (sys_result->int_n_cs_precedes);
result.int_n_sign_posn = FIX_CHAR_VALUE (sys_result->int_n_sign_posn);
result.int_n_sep_by_space = FIX_CHAR_VALUE (sys_result->int_n_sep_by_space);
# else
result.int_p_cs_precedes = FIX_CHAR_VALUE (sys_result->p_cs_precedes);
result.int_p_sign_posn = FIX_CHAR_VALUE (sys_result->p_sign_posn);
result.int_p_sep_by_space = FIX_CHAR_VALUE (sys_result->p_sep_by_space);
result.int_n_cs_precedes = FIX_CHAR_VALUE (sys_result->n_cs_precedes);
result.int_n_sign_posn = FIX_CHAR_VALUE (sys_result->n_sign_posn);
result.int_n_sep_by_space = FIX_CHAR_VALUE (sys_result->n_sep_by_space);
# endif
return &result;
}
#else
/* Override for platforms where 'struct lconv' is a dummy. */
struct lconv *
localeconv (void)
{
static /*const*/ struct lconv result =
{
/* decimal_point */ ".",
/* thousands_sep */ "",
/* grouping */ "",
/* mon_decimal_point */ "",
/* mon_thousands_sep */ "",
/* mon_grouping */ "",
/* positive_sign */ "",
/* negative_sign */ "",
/* currency_symbol */ "",
/* frac_digits */ CHAR_MAX,
/* p_cs_precedes */ CHAR_MAX,
/* p_sign_posn */ CHAR_MAX,
/* p_sep_by_space */ CHAR_MAX,
/* n_cs_precedes */ CHAR_MAX,
/* n_sign_posn */ CHAR_MAX,
/* n_sep_by_space */ CHAR_MAX,
/* int_curr_symbol */ "",
/* int_frac_digits */ CHAR_MAX,
/* int_p_cs_precedes */ CHAR_MAX,
/* int_p_sign_posn */ CHAR_MAX,
/* int_p_sep_by_space */ CHAR_MAX,
/* int_n_cs_precedes */ CHAR_MAX,
/* int_n_sign_posn */ CHAR_MAX,
/* int_n_sep_by_space */ CHAR_MAX
};
return &result;
}
#endif
|
