From: Jim Meyering <jim@meyering.net>
Date: Wed, 15 Nov 1995 21:58:58 +0000 (+0000)
Subject: .
X-Git-Tag: TEXTUTILS-1_13F~36
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e99f53404625a16651beb66659896311dbc56006;p=thirdparty%2Fcoreutils.git

.
---

diff --git a/lib/xstrtod.c b/lib/xstrtod.c
new file mode 100644
index 0000000000..838c5c4632
--- /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;
+}
+