blob: cbe983d844e81697533c2c637f2aabcf429108a1 (
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
|
#include <string.h>
extern char isspace(char c);
#ifdef __GNUC__
static inline char isdigit(char c) { return (c>='0' && c<='9'); }
#endif
double strtod(const char *nptr, char **endptr) {
double d=0;
register const char *c=nptr;
char neg=0;
while (*c && isspace(*c)) ++c;
switch (*c) {
case '-': neg=1;
case '+': c++; break;
default: break;
}
while (isdigit(*c)) {
d=d*10+(*c-'0');
++c;
}
if (*c=='.') {
double factor=.1;
while (isdigit(*++c)) {
d=d+(factor*(*c-'0'));
factor/=10;
}
}
if ((*c|32)=='e') {
int exp=0;
double factor=10;
if (c[1]<'0') {
switch (c[1]) {
case '-': factor=0.1;
case '+': c++; break;
default:
d=0;
c=nptr;
goto done;
}
}
while (isdigit(*++c))
exp=exp*10+(*c-'0');
while (exp) { /* XXX: this introduces rounding errors */
d*=factor; --exp;
}
}
done:
if (endptr) *endptr=(char*)c;
return d;
}
|