Open Menu / gdtoa / FreeBSD / gdtoa-gethex.c.patch
Loading...
 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
--- gdtoa-gethex.c.orig	2005-01-20 20:12:36.000000000 -0800
+++ gdtoa-gethex.c	2005-03-23 15:45:22.000000000 -0800
@@ -29,6 +29,8 @@
 /* Please send bug reports to David M. Gay (dmg at acm dot org,
  * with " at " changed at "@" and " dot " changed to ".").	*/
 
+#include "xlocale_private.h"
+
 #include "gdtoaimp.h"
 
 #ifdef USE_LOCALE
@@ -37,10 +39,10 @@
 
  int
 #ifdef KR_headers
-gethex(sp, fpi, exp, bp, sign)
-	CONST char **sp; FPI *fpi; Long *exp; Bigint **bp; int sign;
+gethex(sp, fpi, exp, bp, sign, loc)
+	CONST char **sp; FPI *fpi; Long *exp; Bigint **bp; int sign; locale_t loc;
 #else
-gethex( CONST char **sp, FPI *fpi, Long *exp, Bigint **bp, int sign)
+gethex( CONST char **sp, FPI *fpi, Long *exp, Bigint **bp, int sign, locale_t loc)
 #endif
 {
 	Bigint *b;
@@ -49,7 +51,13 @@
 	ULong L, lostbits, *x;
 	Long e, e1;
 #ifdef USE_LOCALE
-	unsigned char decimalpoint = *localeconv()->decimal_point;
+	char *decimalpoint;
+	unsigned char *decimalpointend = NULL;
+	int decimalpointlen;
+
+	NORMALIZE_LOCALE(loc);
+	decimalpoint = localeconv_l(loc)->decimal_point;
+	decimalpointlen = strlen(decimalpoint);
 #else
 #define decimalpoint '.'
 #endif
@@ -67,9 +75,18 @@
 	e = 0;
 	if (!hexdig[*s]) {
 		zret = 1;
+#ifdef USE_LOCALE
+		if (strncmp((char *)s, decimalpoint, decimalpointlen) != 0)
+#else /* USE_LOCALE */
 		if (*s != decimalpoint)
+#endif /* USE_LOCALE */
 			goto pcheck;
+#ifdef USE_LOCALE
+		decpt = (s += decimalpointlen);
+		decimalpointend = s - 1;
+#else /* USE_LOCALE */
 		decpt = ++s;
+#endif /* USE_LOCALE */
 		if (!hexdig[*s])
 			goto pcheck;
 		while(*s == '0')
@@ -81,8 +98,18 @@
 		}
 	while(hexdig[*s])
 		s++;
-	if (*s == decimalpoint && !decpt) {
+#ifdef USE_LOCALE
+	if (strncmp((char *)s, decimalpoint, decimalpointlen) == 0 && !decpt)
+#else /* USE_LOCALE */
+	if (*s == decimalpoint && !decpt)
+#endif /* USE_LOCALE */
+	{
+#ifdef USE_LOCALE
+		decpt = (s += decimalpointlen);
+		decimalpointend = s - 1;
+#else /* USE_LOCALE */
 		decpt = ++s;
+#endif /* USE_LOCALE */
 		while(hexdig[*s])
 			s++;
 		}
@@ -123,8 +150,15 @@
 	n = 0;
 	L = 0;
 	while(s1 > s0) {
+#ifdef USE_LOCALE
+		if (--s1 == decimalpointend) {
+			s1 -= decimalpointlen - 1;
+			continue;
+		}
+#else /* USE_LOCALE */
 		if (*--s1 == decimalpoint)
 			continue;
+#endif /* USE_LOCALE */
 		if (n == 32) {
 			*x++ = L;
 			L = 0;