OLD | NEW |
(Empty) | |
| 1 #include <stdlib.h> |
| 2 #include "shgetc.h" |
| 3 #include "floatscan.h" |
| 4 #include "stdio_impl.h" |
| 5 #include "libc.h" |
| 6 |
| 7 static long double strtox(const char *s, char **p, int prec) |
| 8 { |
| 9 FILE f = { |
| 10 .buf = (void *)s, .rpos = (void *)s, |
| 11 .rend = (void *)-1, .lock = -1 |
| 12 }; |
| 13 shlim(&f, 0); |
| 14 long double y = __floatscan(&f, prec, 1); |
| 15 off_t cnt = shcnt(&f); |
| 16 if (p) *p = cnt ? (char *)s + cnt : (char *)s; |
| 17 return y; |
| 18 } |
| 19 |
| 20 float strtof(const char *restrict s, char **restrict p) |
| 21 { |
| 22 return strtox(s, p, 0); |
| 23 } |
| 24 |
| 25 double strtod(const char *restrict s, char **restrict p) |
| 26 { |
| 27 return strtox(s, p, 1); |
| 28 } |
| 29 |
| 30 long double strtold(const char *restrict s, char **restrict p) |
| 31 { |
| 32 return strtox(s, p, 2); |
| 33 } |
| 34 |
| 35 weak_alias(strtof, strtof_l); |
| 36 weak_alias(strtod, strtod_l); |
| 37 weak_alias(strtold, strtold_l); |
| 38 weak_alias(strtof, __strtof_l); |
| 39 weak_alias(strtod, __strtod_l); |
| 40 weak_alias(strtold, __strtold_l); |
OLD | NEW |