ffef827e260091225012e7f0d2d6d53adb8cdac3
1 /* Copyright (C) 1996 DJ Delorie, see COPYING.DJ for details */
2 /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
3 #include <crtdll/stdlib.h>
6 double wcstod(const wchar_t *s
, wchar_t **sret
)
8 long double r
; /* result */
10 long double d
; /* scale */
11 int sign
; /* +- 1.0 */
21 while ((*s
== L
' ') || (*s
== L
'\t'))
32 while ((*s
>= L
'0') && (*s
<= L
'9'))
44 while ((*s
>= L
'0') && (*s
<= L
'9'))
60 if ((*s
== L
'e') || (*s
== L
'E'))
70 if ((*s
< L
'0') || (*s
> L
'9'))
77 while ((*s
>= L
'0') && (*s
<= L
'9'))
86 for (i
= 1; i
<= e
; i
++)
89 for (i
= 1; i
<= e
; i
++)