# HG changeset patch # User Jim Meyering # Date 816472738 0 # Node ID 9af85df20faaa56a92fbe88ce5769b72cd022604 # Parent a5a56f3cde83ac10599469ec7b37ac38b3dc1dbe . diff --git a/lib/xstrtod.c b/lib/xstrtod.c new file mode 100644 --- /dev/null +++ b/lib/xstrtod.c @@ -0,0 +1,48 @@ +#ifdef HAVE_CONFIG_H +#include +#endif + +#ifdef STDC_HEADERS +#include +#else +double strtod (); +#endif + +#include +#include +#include +#include +#include "xstrtod.h" + +int +xstrtod (str, ptr, result) + const char *str; + const char **ptr; + double *result; +{ + double val; + char *terminator; + int fail; + + fail = 0; + errno = 0; + val = strtod (str, &terminator); + + /* Having a non-zero terminator is an error only when PTR is NULL. */ + if (terminator == str || (ptr == NULL && *terminator != '\0')) + fail = 1; + else + { + /* Allow underflow (in which case strtod returns zero), + but flag overflow as an error. */ + if (val != 0.0 && errno == ERANGE) + fail = 1; + } + + if (ptr != NULL) + *ptr = terminator; + + *result = val; + return fail; +} + diff --git a/lib/xstrtod.h b/lib/xstrtod.h new file mode 100644 --- /dev/null +++ b/lib/xstrtod.h @@ -0,0 +1,15 @@ +#ifndef XSTRTOD_H +#define XSTRTOD_H 1 + +#ifndef __P +# if defined (__GNUC__) || (defined (__STDC__) && __STDC__) +# define __P(args) args +# else +# define __P(args) () +# endif /* GCC. */ +#endif /* Not __P. */ + +int + xstrtod (const char *str, const char **ptr, double *result); + +#endif /* XSTRTOD_H */