mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-19 17:49:47 +08:00
f6bbde28c4
include: * safe-ctype.h: New file. libiberty: * safe-ctype.c: New file. * Makefile.in (CFILES): Add safe-ctype.c. (REQUIRED_OFILES): Add safe-ctype.o. * argv.c: Define ISBLANK and use it, not isspace. * basename.c, cplus-dem.c, fnmatch.c, pexecute.c, strtod.c, strtol.c, strtoul.c: Include safe-ctype.h, not ctype.h. Use uppercase ctype macros. Don't test ISUPPER(c)/ISLOWER(c) before calling TOLOWER(c)/TOUPPER(c). gcc: * Makefile.in (HOST_RTL): Add safe-ctype.o. (safe-ctype.o): New rule. * system.h: Include safe-ctype.h, not ctype.h. No need to wrap ctype macros. * cpphash.h: Zap IStable and related macros. Define is_* in terms of safe-ctype.h macros. * cppinit.c: Delete the IStable and all related code. * tradcpp.c: Delete is_idchar, is_idstart, is_hor_space, and is_space arrays. Delete initialize_char_syntax. Change all references to the above arrays to use macros instead. * tradcpp.h: Define is_idchar, is_idstart, is_space, and is_nvspace in terms of safe_ctype.h's macros. * tradcif.y: is_idchar, is_idstart are macros not arrays. * config/i370/i370.c, config/winnt/dirent.c, config/winnt/fixinc-nt.c, config/winnt/ld.c: Use uppercase ctype macros. If we included ctype.h, include safe-ctype.h instead. * fixinc/fixfixes.c: Use uppercase ctype macros. Don't test ISLOWER(c) before calling TOUPPER(c). * fixinc/fixincl.c (extract_quoted_files): Simplify out some gunk. * fixinc/gnu-regex.c: Include safe-ctype.h, not ctype.h. No need to wrap ctype macros. Don't test ISUPPER(x) before calling TOLOWER(x). gcc/ch: * lex.c: Don't bother checking whether ISUPPER(c) before calling TOLOWER(c). Don't bother checking whether isascii(c) before testing ISSPACE(c); ISSPACE(c) includes '\n'. gcc/f: * Make-lang.in: Link f/fini with safe-ctype.o. * bad.c: Don't test ISUPPER(c) || ISLOWER(c) before calling TOUPPER(c). * com.c: Use TOUPPER, not ffesrc_toupper. * fini.c: Don't test ISALPHA(c) before calling TOUPPER(c)/TOLOWER(c). * intrin.c: Don't test IN_CTYPE_DOMAIN(c). * src.c: Delete ffesrc_toupper_ and ffesrc_tolower_ and their initializing code; use TOUPPER and TOLOWER instead of ffesrc_toupper and ffesrc_tolower. * src.h: Don't declare ffesrc_toupper_ or ffesrc_tolower_. Don't define ffesrc_toupper or ffesrc_tolower. gcc/java: * jvgenmain.c: Use ISPRINT not isascii. From-SVN: r38124
123 lines
2.9 KiB
C
123 lines
2.9 KiB
C
/* Implementation of strtod for systems with atof.
|
|
Copyright (C) 1991, 1995 Free Software Foundation, Inc.
|
|
|
|
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
|
|
the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
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. */
|
|
|
|
#include "safe-ctype.h"
|
|
|
|
extern double atof ();
|
|
|
|
/* 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
|
|
strtod (str, ptr)
|
|
char *str;
|
|
char **ptr;
|
|
{
|
|
char *p;
|
|
|
|
if (ptr == (char **)0)
|
|
return atof (str);
|
|
|
|
p = str;
|
|
|
|
while (ISSPACE (*p))
|
|
++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'))
|
|
{
|
|
*ptr = p + 7;
|
|
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. */
|
|
if (ISDIGIT (*p) || *p == '.')
|
|
{
|
|
int got_dot = 0;
|
|
while (ISDIGIT (*p) || (!got_dot && *p == '.'))
|
|
{
|
|
if (*p == '.')
|
|
got_dot = 1;
|
|
++p;
|
|
}
|
|
|
|
/* Exponent. */
|
|
if (*p == 'e' || *p == 'E')
|
|
{
|
|
int i;
|
|
i = 1;
|
|
if (p[i] == '+' || p[i] == '-')
|
|
++i;
|
|
if (ISDIGIT (p[i]))
|
|
{
|
|
while (ISDIGIT (p[i]))
|
|
++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;
|
|
}
|