Mercurial > hg > octave-kai > gnulib-hg
annotate lib/c-strtod.c @ 7302:8a1a9361108c
* _fpending.c: Include <config.h> unconditionally, since we no
longer worry about uses that don't define HAVE_CONFIG_H.
* acl.c, alloca.c, argmatch.c, atexit.c, backupfile.c:
* basename.c, c-stack.c, c-strtod.c, calloc.c, canon-host.c:
* canonicalize.c, chdir-long.c, chdir-safer.c, chown.c:
* cloexec.c, close-stream.c, closeout.c, creat-safer.c:
* cycle-check.c, diacrit.c, dirchownmod.c, dirfd.c, dirname.c:
* dup-safer.c, dup2.c, error.c, euidaccess.c, exclude.c:
* exitfail.c, fchmodat.c, fchown-stub.c, fd-safer.c:
* file-type.c, fileblocks.c, filemode.c, filenamecat.c:
* fnmatch.c, fopen-safer.c, fprintftime.c, free.c, fsusage.c:
* ftruncate.c, fts-cycle.c, fts.c, full-write.c, gai_strerror.c:
* getcwd.c, getdate.y, getdomainname.c, getgroups.c:
* gethostname.c, gethrxtime.c, getloadavg.c, getlogin_r.c:
* getndelim2.c, getnline.c, getopt.c, getopt1.c, getpass.c:
* gettime.c, gettimeofday.c, getugroups.c, getusershell.c:
* glob.c, group-member.c, hard-locale.c, hash-pjw.c, hash.c:
* human.c, idcache.c, inet_ntop.c, inet_pton.c, inttostr.c:
* isdir.c, lchown.c, linebuffer.c, long-options.c, lstat.c:
* malloc.c, md5.c, memcasecmp.c, memchr.c, memcmp.c, memcoll.c:
* memcpy.c, memmove.c, memrchr.c, mkancesdirs.c, mkdir-p.c:
* mkdir.c, mkdirat.c, mkstemp-safer.c, mkstemp.c, modechange.c:
* mountlist.c, nanosleep.c, obstack.c, open-safer.c:
* openat-die.c, openat.c, pagealign_alloc.c, physmem.c:
* pipe-safer.c, posixtm.c, posixver.c, putenv.c, quote.c:
* quotearg.c, raise.c, readtokens.c, readtokens0.c, readutmp.c:
* realloc.c, regex.c, rename.c, rmdir.c, rpmatch.c, safe-read.c:
* same.c, save-cwd.c, savedir.c, setenv.c, settime.c, sha1.c:
* sig2str.c, snprintf.c, strdup.c, strerror.c, strftime.c:
* stripslash.c, strndup.c, strnlen.c, strpbrk.c, strtod.c:
* strtoimax.c, strtol.c, strverscmp.c, tempname.c, time_r.c:
* timegm.c, tmpfile-safer.c, unlinkdir.c, userspec.c, utime.c:
* utimecmp.c, utimens.c, version-etc-fsf.c, version-etc.c:
* xalloc-die.c, xgetcwd.c, xgethostname.c, xmalloc.c:
* xmemcoll.c, xnanosleep.c, xreadlink.c, xstrtod.c:
* xstrtoimax.c, xstrtol.c, xstrtoumax.c, yesno.c:
Likewise.
| author | Paul Eggert <eggert@cs.ucla.edu> |
|---|---|
| date | Wed, 13 Sep 2006 22:38:14 +0000 |
| parents | a48fb0e98c8c |
| children | bbbbbf4cd1c5 |
| rev | line source |
|---|---|
| 5114 | 1 /* Convert string to double, using the C locale. |
| 2 | |
|
7302
8a1a9361108c
* _fpending.c: Include <config.h> unconditionally, since we no
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
3 Copyright (C) 2003, 2004, 2006 Free Software Foundation, Inc. |
| 5114 | 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 | |
|
7302
8a1a9361108c
* _fpending.c: Include <config.h> unconditionally, since we no
Paul Eggert <eggert@cs.ucla.edu>
parents:
5848
diff
changeset
|
21 #include <config.h> |
| 5114 | 22 |
| 23 #include "c-strtod.h" | |
| 24 | |
| 25 #include <locale.h> | |
| 26 #include <stdlib.h> | |
| 27 | |
| 28 #include "xalloc.h" | |
| 29 | |
| 30 #if LONG | |
| 31 # define C_STRTOD c_strtold | |
| 32 # define DOUBLE long double | |
| 33 # define STRTOD_L strtold_l | |
| 34 #else | |
| 35 # define C_STRTOD c_strtod | |
| 36 # define DOUBLE double | |
| 37 # define STRTOD_L strtod_l | |
| 38 #endif | |
| 39 | |
|
5556
c2d95ab34ea3
(STRTOD): Depend on HAVE_C99_STRTOLD, not HAVE_DECL_STRTOLD.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5223
diff
changeset
|
40 /* 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
|
41 #if LONG && HAVE_C99_STRTOLD |
| 5114 | 42 # define STRTOD strtold |
| 43 #else | |
| 44 # define STRTOD strtod | |
| 45 #endif | |
| 46 | |
| 47 DOUBLE | |
| 48 C_STRTOD (char const *nptr, char **endptr) | |
| 49 { | |
| 50 DOUBLE r; | |
| 51 | |
| 52 #ifdef LC_ALL_MASK | |
| 53 | |
| 54 locale_t c_locale = newlocale (LC_ALL_MASK, "C", 0); | |
| 55 r = STRTOD_L (nptr, endptr, c_locale); | |
| 56 freelocale (c_locale); | |
| 57 | |
| 58 #else | |
| 59 | |
| 5223 | 60 char *saved_locale = setlocale (LC_NUMERIC, NULL); |
| 5114 | 61 |
| 62 if (saved_locale) | |
| 63 { | |
| 64 saved_locale = xstrdup (saved_locale); | |
| 5223 | 65 setlocale (LC_NUMERIC, "C"); |
| 5114 | 66 } |
| 67 | |
| 68 r = STRTOD (nptr, endptr); | |
| 69 | |
| 70 if (saved_locale) | |
| 71 { | |
| 5223 | 72 setlocale (LC_NUMERIC, saved_locale); |
| 5114 | 73 free (saved_locale); |
| 74 } | |
| 75 | |
| 76 #endif | |
| 77 | |
| 78 return r; | |
| 79 } |