1 /* Copyright (C) 1996 DJ Delorie, see COPYING.DJ for details */
2 /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
9 #if 0 //FIXME: Compare with wcstod in wcs.c
10 double wcstod(const wchar_t *s
, wchar_t **sret
)
12 long double r
; /* result */
14 long double d
; /* scale */
15 int sign
; /* +- 1.0 */
25 while ((*s
== L
' ') || (*s
== L
'\t'))
36 while ((*s
>= L
'0') && (*s
<= L
'9'))
48 while ((*s
>= L
'0') && (*s
<= L
'9'))
64 if ((*s
== L
'e') || (*s
== L
'E'))
74 if ((*s
< L
'0') || (*s
> L
'9'))
81 while ((*s
>= L
'0') && (*s
<= L
'9'))
90 for (i
= 1; i
<= e
; i
++)
93 for (i
= 1; i
<= e
; i
++)