1999-05-03 15:29:11 +08:00
|
|
|
/* Implementation of strtod for systems with atof.
|
libiberty: documentation markup and order fixes.
libiberty/:
* splay-tree.c: Escape wrapping newlines in texinfo markup
with '@', to fix function declaration output rendering.
* gather-docs: Relax and improve macro name matching to actually
match all current names and to allow input line wrapping.
* bsearch.c, concat.c, crc32.c, fnmatch.txh, fopen_unlocked.c,
hashtab.c, insque.c, make-relative-prefix.c, memchr.c, memcmp.c,
memcpy.c, memmem.c, memmove.c, mempcpy.c, memset.c,
pexecute.txh, random.c, setenv.c, setproctitle.c,
simple-object.txh, snprintf.c, stpncpy.c, strncmp.c, strtod.c,
strtol.c, vasprintf.c, vprintf.c, vsnprintf.c, xmemdup.c:
Wrap long texinfo input lines.
* functions.texi: Regenerate.
2011-02-03 15:23:59 +08:00
|
|
|
Copyright (C) 1991, 1995, 2002, 2011 Free Software Foundation, Inc.
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
This file is part of the libiberty library. This library 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 2, or (at your option)
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
This library 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 GNU CC; see the file COPYING. If not, write to
|
2005-05-10 23:33:34 +08:00
|
|
|
the Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
As a special exception, if you link this library with files
|
|
|
|
compiled with a GNU compiler to produce an executable, this does not cause
|
|
|
|
the resulting executable to be covered by the GNU General Public License.
|
|
|
|
This exception does not however invalidate any other reasons why
|
|
|
|
the executable file might be covered by the GNU General Public License. */
|
|
|
|
|
2001-09-27 02:45:50 +08:00
|
|
|
/*
|
|
|
|
|
libiberty: documentation markup and order fixes.
libiberty/:
* splay-tree.c: Escape wrapping newlines in texinfo markup
with '@', to fix function declaration output rendering.
* gather-docs: Relax and improve macro name matching to actually
match all current names and to allow input line wrapping.
* bsearch.c, concat.c, crc32.c, fnmatch.txh, fopen_unlocked.c,
hashtab.c, insque.c, make-relative-prefix.c, memchr.c, memcmp.c,
memcpy.c, memmem.c, memmove.c, mempcpy.c, memset.c,
pexecute.txh, random.c, setenv.c, setproctitle.c,
simple-object.txh, snprintf.c, stpncpy.c, strncmp.c, strtod.c,
strtol.c, vasprintf.c, vprintf.c, vsnprintf.c, xmemdup.c:
Wrap long texinfo input lines.
* functions.texi: Regenerate.
2011-02-03 15:23:59 +08:00
|
|
|
@deftypefn Supplemental double strtod (const char *@var{string}, @
|
|
|
|
char **@var{endptr})
|
2001-09-27 02:45:50 +08:00
|
|
|
|
2001-10-10 08:05:13 +08:00
|
|
|
This ISO C function converts the initial portion of @var{string} to a
|
2001-10-08 06:42:23 +08:00
|
|
|
@code{double}. If @var{endptr} is not @code{NULL}, a pointer to the
|
2001-09-27 02:45:50 +08:00
|
|
|
character after the last character used in the conversion is stored in
|
|
|
|
the location referenced by @var{endptr}. If no conversion is
|
|
|
|
performed, zero is returned and the value of @var{string} is stored in
|
|
|
|
the location referenced by @var{endptr}.
|
|
|
|
|
|
|
|
@end deftypefn
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
2000-12-17 11:07:49 +08:00
|
|
|
#include "ansidecl.h"
|
2000-12-09 00:37:01 +08:00
|
|
|
#include "safe-ctype.h"
|
1999-05-03 15:29:11 +08:00
|
|
|
|
2005-03-28 10:09:01 +08:00
|
|
|
extern double atof (const char *);
|
1999-05-03 15:29:11 +08:00
|
|
|
|
|
|
|
/* Disclaimer: this is currently just used by CHILL in GDB and therefore
|
|
|
|
has not been tested well. It may have been tested for nothing except
|
|
|
|
that it compiles. */
|
|
|
|
|
|
|
|
double
|
2005-03-28 10:09:01 +08:00
|
|
|
strtod (char *str, char **ptr)
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
if (ptr == (char **)0)
|
|
|
|
return atof (str);
|
|
|
|
|
|
|
|
p = str;
|
|
|
|
|
2000-12-09 00:37:01 +08:00
|
|
|
while (ISSPACE (*p))
|
1999-05-03 15:29:11 +08:00
|
|
|
++p;
|
|
|
|
|
|
|
|
if (*p == '+' || *p == '-')
|
|
|
|
++p;
|
|
|
|
|
|
|
|
/* INF or INFINITY. */
|
|
|
|
if ((p[0] == 'i' || p[0] == 'I')
|
|
|
|
&& (p[1] == 'n' || p[1] == 'N')
|
|
|
|
&& (p[2] == 'f' || p[2] == 'F'))
|
|
|
|
{
|
|
|
|
if ((p[3] == 'i' || p[3] == 'I')
|
|
|
|
&& (p[4] == 'n' || p[4] == 'N')
|
|
|
|
&& (p[5] == 'i' || p[5] == 'I')
|
|
|
|
&& (p[6] == 't' || p[6] == 'T')
|
|
|
|
&& (p[7] == 'y' || p[7] == 'Y'))
|
|
|
|
{
|
2002-03-19 04:01:35 +08:00
|
|
|
*ptr = p + 8;
|
1999-05-03 15:29:11 +08:00
|
|
|
return atof (str);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
*ptr = p + 3;
|
|
|
|
return atof (str);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* NAN or NAN(foo). */
|
|
|
|
if ((p[0] == 'n' || p[0] == 'N')
|
|
|
|
&& (p[1] == 'a' || p[1] == 'A')
|
|
|
|
&& (p[2] == 'n' || p[2] == 'N'))
|
|
|
|
{
|
|
|
|
p += 3;
|
|
|
|
if (*p == '(')
|
|
|
|
{
|
|
|
|
++p;
|
|
|
|
while (*p != '\0' && *p != ')')
|
|
|
|
++p;
|
|
|
|
if (*p == ')')
|
|
|
|
++p;
|
|
|
|
}
|
|
|
|
*ptr = p;
|
|
|
|
return atof (str);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* digits, with 0 or 1 periods in it. */
|
2000-12-09 00:37:01 +08:00
|
|
|
if (ISDIGIT (*p) || *p == '.')
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
int got_dot = 0;
|
2000-12-09 00:37:01 +08:00
|
|
|
while (ISDIGIT (*p) || (!got_dot && *p == '.'))
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
|
|
|
if (*p == '.')
|
|
|
|
got_dot = 1;
|
|
|
|
++p;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Exponent. */
|
|
|
|
if (*p == 'e' || *p == 'E')
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
i = 1;
|
|
|
|
if (p[i] == '+' || p[i] == '-')
|
|
|
|
++i;
|
2000-12-09 00:37:01 +08:00
|
|
|
if (ISDIGIT (p[i]))
|
1999-05-03 15:29:11 +08:00
|
|
|
{
|
2000-12-09 00:37:01 +08:00
|
|
|
while (ISDIGIT (p[i]))
|
1999-05-03 15:29:11 +08:00
|
|
|
++i;
|
|
|
|
*ptr = p + i;
|
|
|
|
return atof (str);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
*ptr = p;
|
|
|
|
return atof (str);
|
|
|
|
}
|
|
|
|
/* Didn't find any digits. Doesn't look like a number. */
|
|
|
|
*ptr = str;
|
|
|
|
return 0.0;
|
|
|
|
}
|