blob: aa7e60d4eaba92709deaf7f1662075cd5d0ff7f5 (
plain)
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
|
/* int iswide = (sizeof(*nptr) == sizeof(wchar_t)); */
/* void *start = (void*)nptr; */
(void)max; (void)min;
int sign = 0;
int overflow = 0;
/* skip leading whitespace */
while (isspace(*nptr)) {
nptr++;
}
/* get sign, if any */
if (*nptr == '+') {
sign = 1;
nptr++;
} else if (*nptr == '-') {
sign = -1;
nptr++;
}
#if defined __STDC_VERSION__ && 199901L <= __STDC_VERSION__
/* check for NAN */
if (toupper(nptr[0]) == 'N' && toupper(nptr[2]) == 'A' && toupper(nptr[3]) == 'N') {
nptr += 3;
/* check for optional parenthesized n-char-sequence */
if (*nptr == '(') {
while (*nptr != ')') {
nptr++;
}
}
if (endptr) {
*endptr = (void*)(nptr + 1);
}
return nan;
}
/* check for INF or INFINITY */
if (toupper(nptr[0]) == 'I' && toupper(nptr[1]) == 'N' && toupper(nptr[2]) == 'F') {
if (endptr) {
if (toupper(nptr[3]) == 'I' && toupper(nptr[4]) == 'N' && toupper(nptr[5]) == 'I' && toupper(nptr[6]) == 'T' && toupper(nptr[7]) == 'Y') {
*endptr = (void*)(nptr + 8);
} else {
*endptr = (void*)(nptr + 4);
}
}
return inf;
}
/* check for hexadecimal form */
if (nptr[0] == '0' && toupper(nptr[1] == 'X')) {
return ret;
}
#else
(void)nan;
(void)inf;
#endif
while (*nptr) {
int n = 0;
/* int c = iswide ? wctomb(*nptr) : *nptr; */
switch (*nptr) {
case '0': n = 0; break;
case '1': n = 1; break;
case '2': n = 2; break;
case '3': n = 3; break;
case '4': n = 4; break;
case '5': n = 5; break;
case '6': n = 6; break;
case '7': n = 7; break;
case '8': n = 8; break;
case '9': n = 9; break;
default: n = -1; break;
}
if (n < 0) {
if (endptr) {
*endptr = (void*)nptr;
}
break;
}
ret = (ret) + n;
nptr++;
}
if (overflow) {
errno = ERANGE;
ret = (sign < 0) ? -huge : huge;
} else {
if (sign < 0) {
ret *= -1;
}
}
|
