aboutsummaryrefslogtreecommitdiff
path: root/gl/c-strtod.c
diff options
context:
space:
mode:
Diffstat (limited to 'gl/c-strtod.c')
-rw-r--r--gl/c-strtod.c112
1 files changed, 0 insertions, 112 deletions
diff --git a/gl/c-strtod.c b/gl/c-strtod.c
deleted file mode 100644
index 38d472bd..00000000
--- a/gl/c-strtod.c
+++ /dev/null
@@ -1,112 +0,0 @@
-/* Convert string to double, using the C locale.
-
- Copyright (C) 2003-2004, 2006, 2009-2010 Free Software Foundation, Inc.
-
- This program is free software: you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>. */
-
-/* Written by Paul Eggert. */
-
-#include <config.h>
-
-#include "c-strtod.h"
-
-#include <errno.h>
-#include <locale.h>
-#include <stdlib.h>
-#include <string.h>
-
-#if LONG
-# define C_STRTOD c_strtold
-# define DOUBLE long double
-# define STRTOD_L strtold_l
-#else
-# define C_STRTOD c_strtod
-# define DOUBLE double
-# define STRTOD_L strtod_l
-#endif
-
-/* c_strtold falls back on strtod if strtold doesn't conform to C99. */
-#if LONG && HAVE_C99_STRTOLD
-# define STRTOD strtold
-#else
-# define STRTOD strtod
-#endif
-
-#ifdef LC_ALL_MASK
-
-/* Cache for the C locale object.
- Marked volatile so that different threads see the same value
- (avoids locking). */
-static volatile locale_t c_locale_cache;
-
-/* Return the C locale object, or (locale_t) 0 with errno set
- if it cannot be created. */
-static inline locale_t
-c_locale (void)
-{
- if (!c_locale_cache)
- c_locale_cache = newlocale (LC_ALL_MASK, "C", (locale_t) 0);
- return c_locale_cache;
-}
-
-#endif
-
-DOUBLE
-C_STRTOD (char const *nptr, char **endptr)
-{
- DOUBLE r;
-
-#ifdef LC_ALL_MASK
-
- locale_t locale = c_locale ();
- if (!locale)
- {
- if (endptr)
- *endptr = (char *) nptr;
- return 0; /* errno is set here */
- }
-
- r = STRTOD_L (nptr, endptr, locale);
-
-#else
-
- char *saved_locale = setlocale (LC_NUMERIC, NULL);
-
- if (saved_locale)
- {
- saved_locale = strdup (saved_locale);
- if (saved_locale == NULL)
- {
- if (endptr)
- *endptr = (char *) nptr;
- return 0; /* errno is set here */
- }
- setlocale (LC_NUMERIC, "C");
- }
-
- r = STRTOD (nptr, endptr);
-
- if (saved_locale)
- {
- int saved_errno = errno;
-
- setlocale (LC_NUMERIC, saved_locale);
- free (saved_locale);
- errno = saved_errno;
- }
-
-#endif
-
- return r;
-}