+#include <stdio.h>
+#include <string.h>
+
#include "pyconfig.h"
/* comp.sources.misc strtod(), as posted in comp.lang.tcl,
Defines: double strtod (char *str, char**ptr)
*/
-/* This is an implementation of the strtod() function described in the
+/* This is an implementation of the strtod() function described in the
System V manuals, with a different name to avoid linker problems.
All that str2dbl() does itself is check that the argument is well-formed
and is in range. It leaves the work of conversion to atof(), which is
of strtod(), and if we give this one away maybe someone will look for
mistakes in it and fix them for us (:-).
*/
-
+
/* The following constants are machine-specific. MD{MIN,MAX}EXPT are
integers and MD{MIN,MAX}FRAC are strings such that
0.${MDMAXFRAC}e${MDMAXEXPT} is the largest representable double,
sign = 1;
if (*sp == '-') sign -= 2, sp++;
dotseen = 0, scale = 0;
- dp = buffer;
+ dp = buffer;
*dp++ = '0'; *dp++ = '.';
buforg = dp, buflim = buffer+48;
- for (save = sp; c = *sp; sp++)
+ for (save = sp; (c = *sp); sp++)
if (c == '.') {
if (dotseen) break;
dotseen++;
errno = EDOM; /* what should this be? */
return ZERO;
}
-
+
while (dp > buforg && dp[-1] == '0') --dp;
if (dp == buforg) *dp++ = '0';
*dp = '\0';
if ((unsigned)(c-'0') > (unsigned)('9'-'0')) break;
while (c == '0') c = *sp++;
for (; (unsigned)(c-'0') <= (unsigned)('9'-'0'); c = *sp++)
- expt = expt*10 + c-'0';
+ expt = expt*10 + c-'0';
if (esign < 0) expt = -expt;
save = sp-1;
} while (0);