Mercurial > hg > octave-kai > gnulib-hg
annotate lib/c-strtod.c @ 5848:a48fb0e98c8c
*** empty log message ***
| author | Paul Eggert <eggert@cs.ucla.edu> |
|---|---|
| date | Sat, 14 May 2005 06:03:57 +0000 |
| parents | c2d95ab34ea3 |
| children | 8a1a9361108c |
| rev | line source |
|---|---|
| 5114 | 1 /* Convert string to double, using the C locale. |
| 2 | |
| 3 Copyright (C) 2003, 2004 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 2, or (at your option) | |
| 8 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, write to the Free Software Foundation, | |
|
5848
a48fb0e98c8c
*** empty log message ***
Paul Eggert <eggert@cs.ucla.edu>
parents:
5556
diff
changeset
|
17 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ |
| 5114 | 18 |
| 19 /* Written by Paul Eggert. */ | |
| 20 | |
| 21 #ifdef HAVE_CONFIG_H | |
| 22 # include <config.h> | |
| 23 #endif | |
| 24 | |
| 25 #include "c-strtod.h" | |
| 26 | |
| 27 #include <locale.h> | |
| 28 #include <stdlib.h> | |
| 29 | |
| 30 #include "xalloc.h" | |
| 31 | |
| 32 #if LONG | |
| 33 # define C_STRTOD c_strtold | |
| 34 # define DOUBLE long double | |
| 35 # define STRTOD_L strtold_l | |
| 36 #else | |
| 37 # define C_STRTOD c_strtod | |
| 38 # define DOUBLE double | |
| 39 # define STRTOD_L strtod_l | |
| 40 #endif | |
| 41 | |
|
5556
c2d95ab34ea3
(STRTOD): Depend on HAVE_C99_STRTOLD, not HAVE_DECL_STRTOLD.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5223
diff
changeset
|
42 /* c_strtold falls back on strtod if strtold doesn't conform to C99. */ |
|
c2d95ab34ea3
(STRTOD): Depend on HAVE_C99_STRTOLD, not HAVE_DECL_STRTOLD.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5223
diff
changeset
|
43 #if LONG && HAVE_C99_STRTOLD |
| 5114 | 44 # define STRTOD strtold |
| 45 #else | |
| 46 # define STRTOD strtod | |
| 47 #endif | |
| 48 | |
| 49 DOUBLE | |
| 50 C_STRTOD (char const *nptr, char **endptr) | |
| 51 { | |
| 52 DOUBLE r; | |
| 53 | |
| 54 #ifdef LC_ALL_MASK | |
| 55 | |
| 56 locale_t c_locale = newlocale (LC_ALL_MASK, "C", 0); | |
| 57 r = STRTOD_L (nptr, endptr, c_locale); | |
| 58 freelocale (c_locale); | |
| 59 | |
| 60 #else | |
| 61 | |
| 5223 | 62 char *saved_locale = setlocale (LC_NUMERIC, NULL); |
| 5114 | 63 |
| 64 if (saved_locale) | |
| 65 { | |
| 66 saved_locale = xstrdup (saved_locale); | |
| 5223 | 67 setlocale (LC_NUMERIC, "C"); |
| 5114 | 68 } |
| 69 | |
| 70 r = STRTOD (nptr, endptr); | |
| 71 | |
| 72 if (saved_locale) | |
| 73 { | |
| 5223 | 74 setlocale (LC_NUMERIC, saved_locale); |
| 5114 | 75 free (saved_locale); |
| 76 } | |
| 77 | |
| 78 #endif | |
| 79 | |
| 80 return r; | |
| 81 } |