diff options
Diffstat (limited to 'gl/c-strtod.c')
| -rw-r--r-- | gl/c-strtod.c | 112 |
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 @@ | |||
| 1 | /* Convert string to double, using the C locale. | ||
| 2 | |||
| 3 | Copyright (C) 2003-2004, 2006, 2009-2010 Free Software Foundation, Inc. | ||
| 4 | |||
| 5 | This program is free software: you can redistribute it and/or modify | ||
| 6 | it under the terms of the GNU General Public License as published by | ||
| 7 | the Free Software Foundation; either version 3 of the License, or | ||
| 8 | (at your option) any later version. | ||
| 9 | |||
| 10 | This program is distributed in the hope that it will be useful, | ||
| 11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 13 | GNU General Public License for more details. | ||
| 14 | |||
| 15 | You should have received a copy of the GNU General Public License | ||
| 16 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ | ||
| 17 | |||
| 18 | /* Written by Paul Eggert. */ | ||
| 19 | |||
| 20 | #include <config.h> | ||
| 21 | |||
| 22 | #include "c-strtod.h" | ||
| 23 | |||
| 24 | #include <errno.h> | ||
| 25 | #include <locale.h> | ||
| 26 | #include <stdlib.h> | ||
| 27 | #include <string.h> | ||
| 28 | |||
| 29 | #if LONG | ||
| 30 | # define C_STRTOD c_strtold | ||
| 31 | # define DOUBLE long double | ||
| 32 | # define STRTOD_L strtold_l | ||
| 33 | #else | ||
| 34 | # define C_STRTOD c_strtod | ||
| 35 | # define DOUBLE double | ||
| 36 | # define STRTOD_L strtod_l | ||
| 37 | #endif | ||
| 38 | |||
| 39 | /* c_strtold falls back on strtod if strtold doesn't conform to C99. */ | ||
| 40 | #if LONG && HAVE_C99_STRTOLD | ||
| 41 | # define STRTOD strtold | ||
| 42 | #else | ||
| 43 | # define STRTOD strtod | ||
| 44 | #endif | ||
| 45 | |||
| 46 | #ifdef LC_ALL_MASK | ||
| 47 | |||
| 48 | /* Cache for the C locale object. | ||
| 49 | Marked volatile so that different threads see the same value | ||
| 50 | (avoids locking). */ | ||
| 51 | static volatile locale_t c_locale_cache; | ||
| 52 | |||
| 53 | /* Return the C locale object, or (locale_t) 0 with errno set | ||
| 54 | if it cannot be created. */ | ||
| 55 | static inline locale_t | ||
| 56 | c_locale (void) | ||
| 57 | { | ||
| 58 | if (!c_locale_cache) | ||
| 59 | c_locale_cache = newlocale (LC_ALL_MASK, "C", (locale_t) 0); | ||
| 60 | return c_locale_cache; | ||
| 61 | } | ||
| 62 | |||
| 63 | #endif | ||
| 64 | |||
| 65 | DOUBLE | ||
| 66 | C_STRTOD (char const *nptr, char **endptr) | ||
| 67 | { | ||
| 68 | DOUBLE r; | ||
| 69 | |||
| 70 | #ifdef LC_ALL_MASK | ||
| 71 | |||
| 72 | locale_t locale = c_locale (); | ||
| 73 | if (!locale) | ||
| 74 | { | ||
| 75 | if (endptr) | ||
| 76 | *endptr = (char *) nptr; | ||
| 77 | return 0; /* errno is set here */ | ||
| 78 | } | ||
| 79 | |||
| 80 | r = STRTOD_L (nptr, endptr, locale); | ||
| 81 | |||
| 82 | #else | ||
| 83 | |||
| 84 | char *saved_locale = setlocale (LC_NUMERIC, NULL); | ||
| 85 | |||
| 86 | if (saved_locale) | ||
| 87 | { | ||
| 88 | saved_locale = strdup (saved_locale); | ||
| 89 | if (saved_locale == NULL) | ||
| 90 | { | ||
| 91 | if (endptr) | ||
| 92 | *endptr = (char *) nptr; | ||
| 93 | return 0; /* errno is set here */ | ||
| 94 | } | ||
| 95 | setlocale (LC_NUMERIC, "C"); | ||
| 96 | } | ||
| 97 | |||
| 98 | r = STRTOD (nptr, endptr); | ||
| 99 | |||
| 100 | if (saved_locale) | ||
| 101 | { | ||
| 102 | int saved_errno = errno; | ||
| 103 | |||
| 104 | setlocale (LC_NUMERIC, saved_locale); | ||
| 105 | free (saved_locale); | ||
| 106 | errno = saved_errno; | ||
| 107 | } | ||
| 108 | |||
| 109 | #endif | ||
| 110 | |||
| 111 | return r; | ||
| 112 | } | ||
