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
|
/*
* Locale-independent strtod().
*
* This file may be redistributed under the terms of the
* GNU Lesser General Public License.
*
* Copyright (C) 2021 Karel Zak <kzak@redhat.com>
*/
#include "c.h"
#include <locale.h>
#include <stdlib.h>
#include <string.h>
#include "c_strtod.h"
#ifdef __APPLE__
# include <xlocale.h>
#endif
#if defined(HAVE_NEWLOCALE) && (defined(HAVE_STRTOD_L) || defined(HAVE_USELOCALE))
# define USE_CLOCALE
#endif
#if defined(USE_CLOCALE)
static volatile locale_t c_locale;
static locale_t get_c_locale(void)
{
if (!c_locale)
c_locale = newlocale(LC_ALL_MASK, "C", (locale_t) 0);
return c_locale;
}
#endif
double c_strtod(char const *str, char **end)
{
double res;
int errsv;
#if defined(USE_CLOCALE)
locale_t cl = get_c_locale();
#if defined(HAVE_STRTOD_L)
/*
* A) try strtod_l() for "C" locale
*/
if (cl)
return strtod_l(str, end, cl);
#elif defined(HAVE_USELOCALE)
/*
* B) classic strtod(), but switch to "C" locale by uselocal()
*/
if (cl) {
locale_t org_cl = uselocale(locale);
if (!org_cl)
return 0;
res = strtod(str, end);
errsv = errno;
uselocale(org_cl);
errno = errsv;
return res;
}
#endif /* HAVE_USELOCALE */
#endif /* USE_CLOCALE */
/*
* C) classic strtod(), but switch to "C" locale by setlocale()
*/
char *org_locale = setlocale(LC_NUMERIC, NULL);
if (org_locale) {
org_locale = strdup(org_locale);
if (!org_locale)
return 0;
setlocale(LC_NUMERIC, "C");
}
res = strtod(str, end);
errsv = errno;
if (org_locale) {
setlocale(LC_NUMERIC, org_locale);
free(org_locale);
}
errno = errsv;
return res;
}
#ifdef TEST_PROGRAM
int main(int argc, char *argv[])
{
double res;
char *end;
if (argc < 2) {
fprintf(stderr, "usage: %s decimal.number\n",
program_invocation_short_name);
return EXIT_FAILURE;
}
res = c_strtod(argv[1], &end);
printf("Result: %g, errno: %d, endptr: '%s'\n", res, errno, end);
return errno ? EXIT_FAILURE : EXIT_SUCCESS;
}
#endif
|
