From 386767027dea095d9b5985d55243d46788e1d960 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Wed, 15 Nov 1995 21:58:58 +0000
Subject: [PATCH] .

---
 lib/xstrtod.c | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 lib/xstrtod.h | 15 +++++++++++++++
 2 files changed, 63 insertions(+)
 create mode 100644 lib/xstrtod.c
 create mode 100644 lib/xstrtod.h

diff --git a/lib/xstrtod.c b/lib/xstrtod.c
new file mode 100644
index 000000000..838c5c463
--- /dev/null
+++ b/lib/xstrtod.c
@@ -0,0 +1,48 @@
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#ifdef STDC_HEADERS
+#include <stdlib.h>
+#else
+double strtod ();
+#endif
+
+#include <errno.h>
+#include <stdio.h>
+#include <limits.h>
+#include <ctype.h>
+#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
index 000000000..69c787711
--- /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 */
-- 
2.11.0