1996-09-18 05:35:50 +00:00
|
|
|
|
/* CPP Library.
|
1999-10-16 06:09:09 +00:00
|
|
|
|
Copyright (C) 1986, 87, 89, 92-98, 1999 Free Software Foundation, Inc.
|
1999-08-26 09:30:50 +00:00
|
|
|
|
Contributed by Per Bothner, 1994-95.
|
|
|
|
|
Based on CCCP program by Paul Rubin, June 1986
|
1996-09-18 05:35:50 +00:00
|
|
|
|
Adapted to ANSI C, Richard Stallman, Jan 1987
|
|
|
|
|
|
|
|
|
|
This program 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 program 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 this program; if not, write to the Free Software
|
1999-08-26 09:30:50 +00:00
|
|
|
|
Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#include "config.h"
|
|
|
|
|
#include "system.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#include "cpplib.h"
|
|
|
|
|
#include "cpphash.h"
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#include "intl.h"
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
#define SKIP_WHITE_SPACE(p) do { while (is_hor_space[*p]) p++; } while (0)
|
|
|
|
|
#define SKIP_ALL_WHITE_SPACE(p) do { while (is_space[*p]) p++; } while (0)
|
|
|
|
|
|
|
|
|
|
#define PEEKN(N) (CPP_BUFFER (pfile)->rlimit - CPP_BUFFER (pfile)->cur >= (N) ? CPP_BUFFER (pfile)->cur[N] : EOF)
|
|
|
|
|
#define FORWARD(N) CPP_FORWARD (CPP_BUFFER (pfile), (N))
|
|
|
|
|
#define GETC() CPP_BUF_GET (CPP_BUFFER (pfile))
|
|
|
|
|
#define PEEKC() CPP_BUF_PEEK (CPP_BUFFER (pfile))
|
|
|
|
|
/* CPP_IS_MACRO_BUFFER is true if the buffer contains macro expansion.
|
1999-10-16 06:09:09 +00:00
|
|
|
|
(Note that it is false while we're expanding macro *arguments*.) */
|
|
|
|
|
#define CPP_IS_MACRO_BUFFER(PBUF) ((PBUF)->data != NULL)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Forward declarations. */
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static char *my_strerror PROTO ((int));
|
|
|
|
|
static void validate_else PROTO ((cpp_reader *, char *));
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static HOST_WIDEST_INT eval_if_expression PROTO ((cpp_reader *));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static void conditional_skip PROTO ((cpp_reader *, int,
|
1999-10-16 06:09:09 +00:00
|
|
|
|
enum node_type, U_CHAR *));
|
|
|
|
|
static void skip_if_group PROTO ((cpp_reader *));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static void parse_name PARAMS ((cpp_reader *, int));
|
|
|
|
|
static void parse_string PARAMS ((cpp_reader *, int));
|
|
|
|
|
static int parse_assertion PARAMS ((cpp_reader *));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* External declarations. */
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
extern HOST_WIDEST_INT cpp_parse_expr PARAMS ((cpp_reader *));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* `struct directive' defines one #-directive, including how to handle it. */
|
|
|
|
|
|
|
|
|
|
struct directive {
|
|
|
|
|
int length; /* Length of name */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
int (*func) /* Function to handle directive */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
PARAMS ((cpp_reader *, struct directive *));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
char *name; /* Name of directive */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
enum node_type type; /* Code which describes which directive. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
};
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* These functions are declared to return int instead of void since they
|
|
|
|
|
are going to be placed in a table and some old compilers have trouble with
|
|
|
|
|
pointers to functions returning void. */
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int do_define PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_line PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_include PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_undef PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_error PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_pragma PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_ident PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_if PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_xifdef PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_else PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_elif PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_endif PARAMS ((cpp_reader *, struct directive *));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#ifdef SCCS_DIRECTIVE
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int do_sccs PARAMS ((cpp_reader *, struct directive *));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int do_assert PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_unassert PARAMS ((cpp_reader *, struct directive *));
|
|
|
|
|
static int do_warning PARAMS ((cpp_reader *, struct directive *));
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
|
|
|
|
#define IS_INCLUDE_DIRECTIVE_TYPE(t) \
|
|
|
|
|
((int) T_INCLUDE <= (int) (t) && (int) (t) <= (int) T_IMPORT)
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Here is the actual list of #-directives, most-often-used first.
|
|
|
|
|
The initialize_builtins function assumes #define is the very first. */
|
|
|
|
|
|
|
|
|
|
static struct directive directive_table[] = {
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{ 6, do_define, "define", T_DEFINE },
|
|
|
|
|
{ 5, do_xifdef, "ifdef", T_IFDEF },
|
|
|
|
|
{ 6, do_xifdef, "ifndef", T_IFNDEF },
|
|
|
|
|
{ 7, do_include, "include", T_INCLUDE },
|
|
|
|
|
{ 12, do_include, "include_next", T_INCLUDE_NEXT },
|
|
|
|
|
{ 6, do_include, "import", T_IMPORT },
|
|
|
|
|
{ 5, do_endif, "endif", T_ENDIF },
|
|
|
|
|
{ 4, do_else, "else", T_ELSE },
|
|
|
|
|
{ 2, do_if, "if", T_IF },
|
|
|
|
|
{ 4, do_elif, "elif", T_ELIF },
|
|
|
|
|
{ 5, do_undef, "undef", T_UNDEF },
|
|
|
|
|
{ 5, do_error, "error", T_ERROR },
|
|
|
|
|
{ 7, do_warning, "warning", T_WARNING },
|
|
|
|
|
{ 6, do_pragma, "pragma", T_PRAGMA },
|
|
|
|
|
{ 4, do_line, "line", T_LINE },
|
|
|
|
|
{ 5, do_ident, "ident", T_IDENT },
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#ifdef SCCS_DIRECTIVE
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{ 4, do_sccs, "sccs", T_SCCS },
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{ 6, do_assert, "assert", T_ASSERT },
|
|
|
|
|
{ 8, do_unassert, "unassert", T_UNASSERT },
|
|
|
|
|
{ -1, 0, "", T_UNUSED }
|
1996-09-18 05:35:50 +00:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* Place into PFILE a quoted string representing the string SRC.
|
1999-08-26 09:30:50 +00:00
|
|
|
|
Caller must reserve enough space in pfile->token_buffer. */
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
void
|
1996-09-18 05:35:50 +00:00
|
|
|
|
quote_string (pfile, src)
|
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *src;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
U_CHAR c;
|
|
|
|
|
|
|
|
|
|
CPP_PUTC_Q (pfile, '\"');
|
|
|
|
|
for (;;)
|
|
|
|
|
switch ((c = *src++))
|
|
|
|
|
{
|
|
|
|
|
default:
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (ISPRINT (c))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_PUTC_Q (pfile, c);
|
|
|
|
|
else
|
|
|
|
|
{
|
1999-08-26 09:30:50 +00:00
|
|
|
|
sprintf ((char *)CPP_PWRITTEN (pfile), "\\%03o", c);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_ADJUST_WRITTEN (pfile, 4);
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '\"':
|
|
|
|
|
case '\\':
|
|
|
|
|
CPP_PUTC_Q (pfile, '\\');
|
|
|
|
|
CPP_PUTC_Q (pfile, c);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '\0':
|
|
|
|
|
CPP_PUTC_Q (pfile, '\"');
|
|
|
|
|
CPP_NUL_TERMINATE_Q (pfile);
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Re-allocates PFILE->token_buffer so it will hold at least N more chars. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cpp_grow_buffer (pfile, n)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
long n;
|
|
|
|
|
{
|
|
|
|
|
long old_written = CPP_WRITTEN (pfile);
|
|
|
|
|
pfile->token_buffer_size = n + 2 * pfile->token_buffer_size;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
pfile->token_buffer = (U_CHAR *)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
xrealloc(pfile->token_buffer, pfile->token_buffer_size);
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Process the string STR as if it appeared as the body of a #define
|
|
|
|
|
If STR is just an identifier, define it with value 1.
|
|
|
|
|
If STR has anything after the identifier, then it should
|
|
|
|
|
be identifier=definition. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cpp_define (pfile, str)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
U_CHAR *str;
|
|
|
|
|
{
|
|
|
|
|
U_CHAR *buf, *p;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
size_t count;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Copy the entire option so we can modify it. */
|
|
|
|
|
count = strlen (str) + 3;
|
|
|
|
|
buf = (U_CHAR *) alloca (count);
|
|
|
|
|
memcpy (buf, str, count - 2);
|
|
|
|
|
/* Change the first "=" in the string to a space. If there is none,
|
|
|
|
|
tack " 1" on the end. */
|
|
|
|
|
p = (U_CHAR *) strchr (buf, '=');
|
|
|
|
|
if (p)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
*p = ' ';
|
|
|
|
|
count -= 2;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
1999-10-16 06:09:09 +00:00
|
|
|
|
strcpy (&buf[count-3], " 1");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (cpp_push_buffer (pfile, buf, count - 1) != NULL)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_define (pfile, NULL);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_pop_buffer (pfile);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Process the string STR as if it appeared as the body of a #assert. */
|
|
|
|
|
void
|
|
|
|
|
cpp_assert (pfile, str)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
U_CHAR *str;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (cpp_push_buffer (pfile, str, strlen (str)) != NULL)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_assert (pfile, NULL);
|
|
|
|
|
cpp_pop_buffer (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static enum cpp_token
|
1996-09-18 05:35:50 +00:00
|
|
|
|
null_underflow (pfile)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
return CPP_EOF;
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
1996-09-18 05:35:50 +00:00
|
|
|
|
null_cleanup (pbuf, pfile)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_buffer *pbuf ATTRIBUTE_UNUSED;
|
|
|
|
|
cpp_reader *pfile ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Skip a comment - C, C++, or Chill style. M is the first character
|
|
|
|
|
of the comment marker. If this really is a comment, skip to its
|
|
|
|
|
end and return ' '. If we hit end-of-file before end-of-comment,
|
|
|
|
|
return EOF. If this is not a comment, return M (which will be
|
|
|
|
|
'/' or '-'). */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
|
|
|
|
skip_comment (pfile, m)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
int m;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (m == '/' && PEEKC() == '*')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int c, prev_c = -1;
|
|
|
|
|
long line, col;
|
|
|
|
|
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
cpp_buf_line_and_col (CPP_BUFFER (pfile), &line, &col);
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
c = GETC ();
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
{
|
|
|
|
|
cpp_error_with_line (pfile, line, col, "unterminated comment");
|
|
|
|
|
return EOF;
|
|
|
|
|
}
|
|
|
|
|
else if (c == '\n' || c == '\r')
|
|
|
|
|
/* \r cannot be a macro escape marker here. */
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
else if (c == '/' && prev_c == '*')
|
|
|
|
|
return ' ';
|
|
|
|
|
else if (c == '*' && prev_c == '/'
|
|
|
|
|
&& CPP_OPTIONS (pfile)->warn_comments)
|
|
|
|
|
cpp_warning (pfile, "`/*' within comment");
|
|
|
|
|
|
|
|
|
|
prev_c = c;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if ((m == '/' && PEEKC() == '/'
|
|
|
|
|
&& CPP_OPTIONS (pfile)->cplusplus_comments)
|
|
|
|
|
|| (m == '-' && PEEKC() == '-'
|
|
|
|
|
&& CPP_OPTIONS (pfile)->chill))
|
|
|
|
|
{
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
int c = GETC ();
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
return ' '; /* Allow // to be terminated by EOF. */
|
|
|
|
|
if (c == '\n')
|
|
|
|
|
{
|
|
|
|
|
/* Don't consider final '\n' to be part of comment. */
|
|
|
|
|
FORWARD(-1);
|
|
|
|
|
return ' ';
|
|
|
|
|
}
|
|
|
|
|
else if (c == '\r')
|
|
|
|
|
/* \r cannot be a macro escape marker here. */
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return m;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Identical to skip_comment except that it copies the comment into the
|
|
|
|
|
token_buffer. This is used if put_out_comments. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
copy_comment (pfile, m)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int m;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (m == '/' && PEEKC() == '*')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int c, prev_c = -1;
|
|
|
|
|
long line, col;
|
|
|
|
|
|
|
|
|
|
CPP_PUTC (pfile, '/');
|
|
|
|
|
CPP_PUTC (pfile, '*');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
FORWARD(1);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buf_line_and_col (CPP_BUFFER (pfile), &line, &col);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
c = GETC ();
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error_with_line (pfile, line, col, "unterminated comment");
|
|
|
|
|
/* We must pretend this was a legitimate comment, so that the
|
|
|
|
|
output in token_buffer is not passed back tagged CPP_POP. */
|
|
|
|
|
return ' ';
|
|
|
|
|
}
|
|
|
|
|
else if (c == '\r')
|
|
|
|
|
{
|
|
|
|
|
/* \r cannot be a macro escape marker here. */
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
if (c == '\n')
|
|
|
|
|
{
|
|
|
|
|
pfile->lineno++;
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (c == '/' && prev_c == '*')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return ' ';
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (c == '*' && prev_c == '/'
|
|
|
|
|
&& CPP_OPTIONS (pfile)->warn_comments)
|
|
|
|
|
cpp_warning (pfile, "`/*' within comment");
|
|
|
|
|
|
|
|
|
|
prev_c = c;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if ((m == '/' && PEEKC() == '/'
|
|
|
|
|
&& CPP_OPTIONS (pfile)->cplusplus_comments)
|
|
|
|
|
|| (m == '-' && PEEKC() == '-'
|
|
|
|
|
&& CPP_OPTIONS (pfile)->chill))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTC (pfile, m);
|
|
|
|
|
CPP_PUTC (pfile, m);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
FORWARD(1);
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int c = GETC ();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (c == EOF)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return ' '; /* Allow line comments to be terminated by EOF. */
|
|
|
|
|
else if (c == '\n')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Don't consider final '\n' to be part of comment. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
FORWARD(-1);
|
|
|
|
|
return ' ';
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (c == '\r')
|
|
|
|
|
/* \r cannot be a macro escape marker here. */
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
|
|
|
|
|
CPP_PUTC (pfile, c);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return m;
|
|
|
|
|
}
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Skip whitespace \-newline and comments. Does not macro-expand. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
void
|
|
|
|
|
cpp_skip_hspace (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int c;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
while (1)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
c = GETC();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (c == EOF)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return;
|
|
|
|
|
else if (is_hor_space[c])
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if ((c == '\f' || c == '\v') && CPP_PEDANTIC (pfile))
|
|
|
|
|
cpp_pedwarn (pfile, "%s in preprocessing directive",
|
|
|
|
|
c == '\f' ? "formfeed" : "vertical tab");
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (c == '\r')
|
|
|
|
|
{
|
|
|
|
|
/* \r is a backslash-newline marker if !has_escapes, and
|
|
|
|
|
a deletable-whitespace or no-reexpansion marker otherwise. */
|
|
|
|
|
if (CPP_BUFFER (pfile)->has_escapes)
|
|
|
|
|
{
|
|
|
|
|
if (PEEKC() == ' ')
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
CPP_BUFFER (pfile)->lineno++;
|
|
|
|
|
}
|
|
|
|
|
else if (c == '/' || c == '-')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
c = skip_comment (pfile, c);
|
|
|
|
|
if (c == EOF)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (c != ' ')
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
FORWARD(-1);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Read the rest of the current line.
|
1999-08-26 09:30:50 +00:00
|
|
|
|
The line is appended to PFILE's output buffer. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static void
|
1996-09-18 05:35:50 +00:00
|
|
|
|
copy_rest_of_line (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
int c = GETC();
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case '\n':
|
|
|
|
|
FORWARD(-1);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case EOF:
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_NUL_TERMINATE (pfile);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
case '\r':
|
|
|
|
|
if (CPP_BUFFER (pfile)->has_escapes)
|
|
|
|
|
break;
|
|
|
|
|
else
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_BUFFER (pfile)->lineno++;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
case '\'':
|
|
|
|
|
case '\"':
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_string (pfile, c);
|
|
|
|
|
continue;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case '/':
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (PEEKC() == '*' && CPP_TRADITIONAL (pfile))
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTS (pfile, "/**/", 4);
|
|
|
|
|
skip_comment (pfile, c);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
/* else fall through */
|
|
|
|
|
case '-':
|
|
|
|
|
c = skip_comment (pfile, c);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
case '\f':
|
|
|
|
|
case '\v':
|
|
|
|
|
if (CPP_PEDANTIC (pfile))
|
|
|
|
|
cpp_pedwarn (pfile, "%s in preprocessing directive",
|
|
|
|
|
c == '\f' ? "formfeed" : "vertical tab");
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* FIXME: It is almost definitely a performance win to make this do
|
|
|
|
|
the scan itself. >75% of calls to copy_r_o_l are from here or
|
|
|
|
|
skip_if_group, which means the common case is to copy stuff into the
|
|
|
|
|
token_buffer only to discard it. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
void
|
|
|
|
|
skip_rest_of_line (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
long old = CPP_WRITTEN (pfile);
|
|
|
|
|
copy_rest_of_line (pfile);
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Handle a possible # directive.
|
|
|
|
|
'#' has already been read. */
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
1996-09-18 05:35:50 +00:00
|
|
|
|
handle_directive (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
int c;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
register struct directive *kt;
|
|
|
|
|
int ident_length;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
U_CHAR *ident;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
long old_written = CPP_WRITTEN (pfile);
|
|
|
|
|
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
|
|
|
|
|
c = PEEKC ();
|
|
|
|
|
if (c >= '0' && c <= '9')
|
|
|
|
|
{
|
|
|
|
|
/* Handle # followed by a line number. */
|
|
|
|
|
if (CPP_PEDANTIC (pfile))
|
|
|
|
|
cpp_pedwarn (pfile, "`#' followed by integer");
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_line (pfile, NULL);
|
|
|
|
|
return 1;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Now find the directive name. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_PUTC (pfile, '#');
|
|
|
|
|
parse_name (pfile, GETC());
|
|
|
|
|
ident = pfile->token_buffer + old_written + 1;
|
|
|
|
|
ident_length = CPP_PWRITTEN (pfile) - ident;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (ident_length == 0)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
/* A line of just `#' becomes blank. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (PEEKC() == '\n')
|
|
|
|
|
return 1;
|
|
|
|
|
else
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Decode the keyword and call the appropriate expansion
|
|
|
|
|
* routine, after moving the input pointer up to the next line.
|
|
|
|
|
*/
|
1999-10-16 06:09:09 +00:00
|
|
|
|
for (kt = directive_table; ; kt++)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (kt->length <= 0)
|
|
|
|
|
return 0;
|
|
|
|
|
if (kt->length == ident_length
|
|
|
|
|
&& !strncmp (kt->name, ident, ident_length))
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
|
|
|
|
(*kt->func) (pfile, kt);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Pass a directive through to the output file.
|
|
|
|
|
BUF points to the contents of the directive, as a contiguous string.
|
1999-10-16 06:09:09 +00:00
|
|
|
|
LEN is the length of the string pointed to by BUF.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
KEYWORD is the keyword-table entry for the directive. */
|
|
|
|
|
|
|
|
|
|
static void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pass_thru_directive (buf, len, pfile, keyword)
|
|
|
|
|
U_CHAR *buf;
|
|
|
|
|
size_t len;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
struct directive *keyword;
|
|
|
|
|
{
|
|
|
|
|
register unsigned keyword_length = keyword->length;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_RESERVE (pfile, 1 + keyword_length + len);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_PUTC_Q (pfile, '#');
|
|
|
|
|
CPP_PUTS_Q (pfile, keyword->name, keyword_length);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (len != 0 && buf[0] != ' ')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_PUTC_Q (pfile, ' ');
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTS_Q (pfile, buf, len);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Check a purported macro name SYMNAME, and yield its length.
|
1999-10-16 06:09:09 +00:00
|
|
|
|
ASSERTION is nonzero if this is really for an assertion name. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int
|
|
|
|
|
check_macro_name (pfile, symname, assertion)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
U_CHAR *symname;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int assertion;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
U_CHAR *p;
|
|
|
|
|
int sym_length;
|
|
|
|
|
|
|
|
|
|
for (p = symname; is_idchar[*p]; p++)
|
|
|
|
|
;
|
|
|
|
|
sym_length = p - symname;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (sym_length == 0
|
|
|
|
|
|| (sym_length == 1 && *symname == 'L' && (*p == '\'' || *p == '"')))
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error (pfile,
|
|
|
|
|
assertion ? "invalid assertion name" : "invalid macro name");
|
|
|
|
|
else if (!is_idstart[*symname]
|
|
|
|
|
|| (! strncmp (symname, "defined", 7) && sym_length == 7)) {
|
1999-08-26 09:30:50 +00:00
|
|
|
|
U_CHAR *msg; /* what pain... */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
msg = (U_CHAR *) alloca (sym_length + 1);
|
|
|
|
|
bcopy (symname, msg, sym_length);
|
|
|
|
|
msg[sym_length] = 0;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error (pfile,
|
|
|
|
|
(assertion
|
|
|
|
|
? "invalid assertion name `%s'"
|
|
|
|
|
: "invalid macro name `%s'"),
|
|
|
|
|
msg);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
return sym_length;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Process a #define command.
|
|
|
|
|
KEYWORD is the keyword-table entry for #define,
|
|
|
|
|
or NULL for a "predefined" macro. */
|
|
|
|
|
|
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_define (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
struct directive *keyword;
|
|
|
|
|
{
|
|
|
|
|
int hashcode;
|
|
|
|
|
MACRODEF mdef;
|
|
|
|
|
HASHNODE *hp;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
long here;
|
|
|
|
|
U_CHAR *macro, *buf, *end;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
here = CPP_WRITTEN (pfile);
|
|
|
|
|
copy_rest_of_line (pfile);
|
|
|
|
|
|
|
|
|
|
/* Copy out the line so we can pop the token buffer. */
|
|
|
|
|
buf = pfile->token_buffer + here;
|
|
|
|
|
end = CPP_PWRITTEN (pfile);
|
|
|
|
|
macro = alloca (end - buf + 1);
|
|
|
|
|
bcopy (buf, macro, end - buf + 1);
|
|
|
|
|
end = macro + (end - buf);
|
|
|
|
|
|
|
|
|
|
CPP_SET_WRITTEN (pfile, here);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
mdef = create_definition (macro, end, pfile, keyword == NULL);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (mdef.defn == 0)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
hashcode = hashf (mdef.symnam, mdef.symlen, HASHSIZE);
|
|
|
|
|
|
|
|
|
|
if ((hp = cpp_lookup (pfile, mdef.symnam, mdef.symlen, hashcode)) != NULL)
|
|
|
|
|
{
|
|
|
|
|
int ok = 0;
|
|
|
|
|
/* Redefining a precompiled key is ok. */
|
|
|
|
|
if (hp->type == T_PCSTRING)
|
|
|
|
|
ok = 1;
|
|
|
|
|
/* Redefining a macro is ok if the definitions are the same. */
|
|
|
|
|
else if (hp->type == T_MACRO)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
ok = ! compare_defs (pfile, mdef.defn, hp->value.defn);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Redefining a constant is ok with -D. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (hp->type == T_CONST || hp->type == T_STDC)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
ok = ! CPP_OPTIONS (pfile)->done_initializing;
|
|
|
|
|
/* Print the warning if it's not ok. */
|
|
|
|
|
if (!ok)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_pedwarn (pfile, "`%.*s' redefined", mdef.symlen, mdef.symnam);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (hp->type == T_MACRO)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_pedwarn_with_file_and_line (pfile, hp->value.defn->file,
|
|
|
|
|
hp->value.defn->line,
|
|
|
|
|
"this is the location of the previous definition");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
/* Replace the old definition. */
|
|
|
|
|
hp->type = T_MACRO;
|
|
|
|
|
hp->value.defn = mdef.defn;
|
|
|
|
|
}
|
|
|
|
|
else
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_install (pfile, mdef.symnam, mdef.symlen, T_MACRO,
|
|
|
|
|
(char *) mdef.defn, hashcode);
|
|
|
|
|
|
|
|
|
|
if (keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_OPTIONS (pfile)->debug_output
|
|
|
|
|
|| CPP_OPTIONS (pfile)->dump_macros == dump_definitions)
|
|
|
|
|
dump_definition (pfile, mdef);
|
|
|
|
|
else if (CPP_OPTIONS (pfile)->dump_macros == dump_names)
|
|
|
|
|
pass_thru_directive (mdef.symnam, mdef.symlen, pfile, keyword);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Allocate a new cpp_buffer for PFILE, and push it on the input buffer stack.
|
|
|
|
|
If BUFFER != NULL, then use the LENGTH characters in BUFFER
|
|
|
|
|
as the new input buffer.
|
|
|
|
|
Return the new buffer, or NULL on failure. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_buffer *
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_push_buffer (pfile, buffer, length)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
U_CHAR *buffer;
|
|
|
|
|
long length;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buffer *buf = CPP_BUFFER (pfile);
|
|
|
|
|
cpp_buffer *new;
|
|
|
|
|
if (++pfile->buffer_stack_depth == CPP_STACK_MAX)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_fatal (pfile, "macro or `#include' recursion too deep");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
return NULL;
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
new = (cpp_buffer *) xcalloc (sizeof (cpp_buffer), 1);
|
|
|
|
|
|
|
|
|
|
new->if_stack = pfile->if_stack;
|
|
|
|
|
new->cleanup = null_cleanup;
|
|
|
|
|
new->underflow = null_underflow;
|
|
|
|
|
new->buf = new->cur = buffer;
|
|
|
|
|
new->alimit = new->rlimit = buffer + length;
|
|
|
|
|
new->prev = buf;
|
|
|
|
|
new->mark = -1;
|
|
|
|
|
|
|
|
|
|
CPP_BUFFER (pfile) = new;
|
|
|
|
|
return new;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_buffer *
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_pop_buffer (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
cpp_buffer *buf = CPP_BUFFER (pfile);
|
|
|
|
|
(*buf->cleanup) (buf, pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_BUFFER (pfile) = CPP_PREV_BUFFER (buf);
|
|
|
|
|
free (buf);
|
|
|
|
|
pfile->buffer_stack_depth--;
|
|
|
|
|
return CPP_BUFFER (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Scan until CPP_BUFFER (PFILE) is exhausted into PFILE->token_buffer.
|
1999-08-26 09:30:50 +00:00
|
|
|
|
Pop the buffer when done. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cpp_scan_buffer (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
cpp_buffer *buffer = CPP_BUFFER (pfile);
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
enum cpp_token token = cpp_get_token (pfile);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (token == CPP_EOF) /* Should not happen ... */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
if (token == CPP_POP && CPP_BUFFER (pfile) == buffer)
|
|
|
|
|
{
|
|
|
|
|
cpp_pop_buffer (pfile);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Rescan a string (which may have escape marks) into pfile's buffer.
|
|
|
|
|
* Place the result in pfile->token_buffer.
|
|
|
|
|
*
|
|
|
|
|
* The input is copied before it is scanned, so it is safe to pass
|
|
|
|
|
* it something from the token_buffer that will get overwritten
|
|
|
|
|
* (because it follows CPP_WRITTEN). This is used by do_include.
|
|
|
|
|
*/
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
void
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_expand_to_buffer (pfile, buf, length)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
U_CHAR *buf;
|
|
|
|
|
int length;
|
|
|
|
|
{
|
|
|
|
|
register cpp_buffer *ip;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#if 0
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_buffer obuf;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
1996-09-18 05:35:50 +00:00
|
|
|
|
U_CHAR *buf1;
|
|
|
|
|
#if 0
|
|
|
|
|
int odepth = indepth;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (length < 0)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
cpp_fatal (pfile, "internal error: length < 0 in cpp_expand_to_buffer");
|
|
|
|
|
return;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
/* Set up the input on the input stack. */
|
|
|
|
|
|
|
|
|
|
buf1 = (U_CHAR *) alloca (length + 1);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
memcpy (buf1, buf, length);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
buf1[length] = 0;
|
|
|
|
|
|
|
|
|
|
ip = cpp_push_buffer (pfile, buf1, length);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (ip == NULL)
|
|
|
|
|
return;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
ip->has_escapes = 1;
|
|
|
|
|
#if 0
|
|
|
|
|
ip->lineno = obuf.lineno = 1;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Scan the input, create the output. */
|
|
|
|
|
cpp_scan_buffer (pfile);
|
|
|
|
|
|
|
|
|
|
CPP_NUL_TERMINATE (pfile);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cpp_buf_line_and_col (pbuf, linep, colp)
|
|
|
|
|
register cpp_buffer *pbuf;
|
|
|
|
|
long *linep, *colp;
|
|
|
|
|
{
|
|
|
|
|
if (pbuf)
|
|
|
|
|
{
|
|
|
|
|
*linep = pbuf->lineno;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (colp)
|
|
|
|
|
*colp = pbuf->cur - pbuf->line_base;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*linep = 0;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (colp)
|
|
|
|
|
*colp = 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Return the cpp_buffer that corresponds to a file (not a macro). */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_buffer *
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_file_buffer (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
cpp_buffer *ip = CPP_BUFFER (pfile);
|
|
|
|
|
|
|
|
|
|
for ( ; ip != CPP_NULL_BUFFER (pfile); ip = CPP_PREV_BUFFER (ip))
|
|
|
|
|
if (ip->fname != NULL)
|
|
|
|
|
return ip;
|
|
|
|
|
return NULL;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* write out a #line command, for instance, after an #include file.
|
|
|
|
|
* FILE_CHANGE says whether we are entering a file, leaving, or neither.
|
|
|
|
|
*/
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
void
|
|
|
|
|
output_line_command (pfile, file_change)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
enum file_change_code file_change;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
long line;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_buffer *ip = CPP_BUFFER (pfile);
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (ip->fname == NULL)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return;
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (CPP_OPTIONS (pfile)->no_line_commands
|
|
|
|
|
|| CPP_OPTIONS (pfile)->no_output)
|
|
|
|
|
return;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buf_line_and_col (CPP_BUFFER (pfile), &line, NULL);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* If the current file has not changed, we omit the #line if it would
|
|
|
|
|
appear to be a no-op, and we output a few newlines instead
|
|
|
|
|
if we want to increase the line number by a small amount.
|
|
|
|
|
We cannot do this if pfile->lineno is zero, because that means we
|
|
|
|
|
haven't output any line commands yet. (The very first line command
|
|
|
|
|
output is a `same_file' command.) */
|
|
|
|
|
if (file_change == same_file && pfile->lineno != 0)
|
|
|
|
|
{
|
|
|
|
|
if (line == pfile->lineno)
|
|
|
|
|
return;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* If the inherited line number is a little too small,
|
|
|
|
|
output some newlines instead of a #line command. */
|
|
|
|
|
if (line > pfile->lineno && line < pfile->lineno + 8)
|
|
|
|
|
{
|
|
|
|
|
CPP_RESERVE (pfile, 20);
|
|
|
|
|
while (line > pfile->lineno)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC_Q (pfile, '\n');
|
|
|
|
|
pfile->lineno++;
|
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
CPP_RESERVE (pfile, 4 * strlen (ip->nominal_fname) + 50);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTS_Q (pfile, "# ", 2);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
sprintf ((char *) CPP_PWRITTEN (pfile), "%ld ", line);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_ADJUST_WRITTEN (pfile, strlen (CPP_PWRITTEN (pfile)));
|
|
|
|
|
|
|
|
|
|
quote_string (pfile, ip->nominal_fname);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (file_change != same_file)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC_Q (pfile, ' ');
|
|
|
|
|
CPP_PUTC_Q (pfile, file_change == enter_file ? '1' : '2');
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Tell cc1 if following text comes from a system header file. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (ip->system_header_p)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC_Q (pfile, ' ');
|
|
|
|
|
CPP_PUTC_Q (pfile, '3');
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#ifndef NO_IMPLICIT_EXTERN_C
|
|
|
|
|
/* Tell cc1plus if following text should be treated as C. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (ip->system_header_p == 2 && CPP_OPTIONS (pfile)->cplusplus)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC_Q (pfile, ' ');
|
|
|
|
|
CPP_PUTC_Q (pfile, '4');
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
CPP_PUTC_Q (pfile, '\n');
|
|
|
|
|
pfile->lineno = line;
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Like cpp_get_token, except that it does not read past end-of-line.
|
|
|
|
|
Also, horizontal space is skipped, and macros are popped. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
static enum cpp_token
|
1999-10-16 06:09:09 +00:00
|
|
|
|
get_directive_token (pfile)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
long old_written = CPP_WRITTEN (pfile);
|
|
|
|
|
enum cpp_token token;
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
if (PEEKC () == '\n')
|
|
|
|
|
return CPP_VSPACE;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
token = cpp_get_token (pfile);
|
|
|
|
|
switch (token)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
case CPP_POP:
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (! CPP_IS_MACRO_BUFFER (CPP_BUFFER (pfile)))
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return token;
|
|
|
|
|
/* ... else fall though ... */
|
|
|
|
|
case CPP_HSPACE: case CPP_COMMENT:
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
default:
|
|
|
|
|
return token;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Handle #include and #import.
|
|
|
|
|
This function expects to see "fname" or <fname> on the input.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
The input is normally in part of the output_buffer following
|
|
|
|
|
CPP_WRITTEN, and will get overwritten by output_line_command.
|
|
|
|
|
I.e. in input file specification has been popped by handle_directive.
|
|
|
|
|
This is safe. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
|
|
|
|
do_include (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
struct directive *keyword;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int importing = (keyword->type == T_IMPORT);
|
|
|
|
|
int skip_dirs = (keyword->type == T_INCLUDE_NEXT);
|
|
|
|
|
int angle_brackets = 0; /* 0 for "...", 1 for <...> */
|
|
|
|
|
int before; /* included before? */
|
|
|
|
|
long flen;
|
|
|
|
|
unsigned char *ftok;
|
|
|
|
|
cpp_buffer *fp;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
enum cpp_token token;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Chain of dirs to search */
|
|
|
|
|
struct include_hash *ihash;
|
|
|
|
|
struct file_name_list *search_start;
|
|
|
|
|
|
|
|
|
|
long old_written = CPP_WRITTEN (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int fd;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_PEDANTIC (pfile) && !CPP_BUFFER (pfile)->system_header_p)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (importing)
|
|
|
|
|
cpp_pedwarn (pfile, "ANSI C does not allow `#import'");
|
|
|
|
|
if (skip_dirs)
|
|
|
|
|
cpp_pedwarn (pfile, "ANSI C does not allow `#include_next'");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (importing && CPP_OPTIONS (pfile)->warn_import
|
|
|
|
|
&& !CPP_OPTIONS (pfile)->inhibit_warnings
|
|
|
|
|
&& !CPP_BUFFER (pfile)->system_header_p && !pfile->import_warning)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->import_warning = 1;
|
|
|
|
|
cpp_warning (pfile,
|
|
|
|
|
"#import is obsolete, use an #ifndef wrapper in the header file");
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->parsing_include_directive++;
|
|
|
|
|
token = get_directive_token (pfile);
|
|
|
|
|
pfile->parsing_include_directive--;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (token == CPP_STRING)
|
|
|
|
|
{
|
|
|
|
|
if (pfile->token_buffer[old_written] == '<')
|
|
|
|
|
angle_brackets = 1;
|
|
|
|
|
}
|
|
|
|
|
#ifdef VMS
|
|
|
|
|
else if (token == CPP_NAME)
|
|
|
|
|
{
|
|
|
|
|
/* Support '#include xyz' like VAX-C. It is taken as
|
|
|
|
|
'#include <xyz.h>' and generates a warning. */
|
|
|
|
|
cpp_warning (pfile,
|
|
|
|
|
"`#include filename' is obsolete, use `#include <filename.h>'");
|
|
|
|
|
angle_brackets = 1;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Append the missing `.h' to the name. */
|
|
|
|
|
CPP_PUTS (pfile, ".h", 2);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile,
|
|
|
|
|
"`#%s' expects \"FILENAME\" or <FILENAME>", keyword->name);
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
|
|
|
|
skip_rest_of_line (pfile);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
flen = CPP_WRITTEN (pfile) - old_written;
|
|
|
|
|
ftok = alloca (flen + 1);
|
|
|
|
|
memcpy (ftok, pfile->token_buffer + old_written, flen);
|
|
|
|
|
ftok[flen] = '\0';
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (get_directive_token (pfile) != CPP_VSPACE)
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "junk at end of `#include'");
|
|
|
|
|
skip_rest_of_line (pfile);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (flen == 0)
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "empty file name in `#%s'", keyword->name);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_OPTIONS (pfile)->dump_includes)
|
|
|
|
|
pass_thru_directive (ftok,
|
|
|
|
|
flen
|
|
|
|
|
#ifdef VMS
|
|
|
|
|
- ((token == CPP_NAME) ? 2 : 0)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
1999-10-16 06:09:09 +00:00
|
|
|
|
, pfile, keyword);
|
|
|
|
|
|
|
|
|
|
#ifdef VMS
|
|
|
|
|
if (token == CPP_STRING)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
ftok++;
|
|
|
|
|
flen -= 2;
|
|
|
|
|
ftok[flen] = '\0';
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
search_start = 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
for (fp = CPP_BUFFER (pfile);
|
|
|
|
|
fp != CPP_NULL_BUFFER (pfile);
|
|
|
|
|
fp = CPP_PREV_BUFFER (fp))
|
|
|
|
|
if (fp->fname != NULL)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (fp == CPP_NULL_BUFFER (pfile))
|
|
|
|
|
{
|
|
|
|
|
cpp_fatal (pfile, "cpp internal error: fp == NULL_BUFFER in do_include");
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* For #include_next, skip in the search path past the dir in which the
|
|
|
|
|
containing file was found. Treat files specified using an absolute path
|
|
|
|
|
as if there are no more directories to search. Treat the primary source
|
|
|
|
|
file like any other included source, but generate a warning. */
|
|
|
|
|
if (skip_dirs && CPP_PREV_BUFFER(fp) != CPP_NULL_BUFFER (pfile))
|
|
|
|
|
{
|
|
|
|
|
if (fp->ihash->foundhere != ABSOLUTE_PATH)
|
|
|
|
|
search_start = fp->ihash->foundhere->next;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (skip_dirs)
|
|
|
|
|
cpp_warning (pfile, "#include_next in primary source file");
|
|
|
|
|
|
|
|
|
|
if (angle_brackets)
|
|
|
|
|
search_start = CPP_OPTIONS (pfile)->bracket_include;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
if (!CPP_OPTIONS (pfile)->ignore_srcdir)
|
|
|
|
|
{
|
|
|
|
|
if (fp)
|
|
|
|
|
search_start = fp->actual_dir;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
search_start = CPP_OPTIONS (pfile)->quote_include;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (!search_start)
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "No include path in which to find %s", ftok);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
fd = find_include_file (pfile, ftok, search_start, &ihash, &before);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (fd == -2)
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
if (fd == -1)
|
|
|
|
|
{
|
|
|
|
|
if (CPP_OPTIONS (pfile)->print_deps_missing_files
|
|
|
|
|
&& CPP_PRINT_DEPS (pfile) > (angle_brackets ||
|
|
|
|
|
(pfile->system_include_depth > 0)))
|
|
|
|
|
{
|
|
|
|
|
if (!angle_brackets)
|
|
|
|
|
deps_output (pfile, ftok, ' ');
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char *p;
|
|
|
|
|
struct file_name_list *ptr;
|
|
|
|
|
/* If requested as a system header, assume it belongs in
|
|
|
|
|
the first system header directory. */
|
|
|
|
|
if (CPP_OPTIONS (pfile)->bracket_include)
|
|
|
|
|
ptr = CPP_OPTIONS (pfile)->bracket_include;
|
|
|
|
|
else
|
|
|
|
|
ptr = CPP_OPTIONS (pfile)->quote_include;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
p = (char *) alloca (strlen (ptr->name)
|
|
|
|
|
+ strlen (ftok) + 2);
|
|
|
|
|
if (*ptr->name != '\0')
|
|
|
|
|
{
|
|
|
|
|
strcpy (p, ptr->name);
|
|
|
|
|
strcat (p, "/");
|
|
|
|
|
}
|
|
|
|
|
strcat (p, ftok);
|
|
|
|
|
deps_output (pfile, p, ' ');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/* If -M was specified, and this header file won't be added to
|
|
|
|
|
the dependency list, then don't count this as an error,
|
|
|
|
|
because we can still produce correct output. Otherwise, we
|
|
|
|
|
can't produce correct output, because there may be
|
|
|
|
|
dependencies we need inside the missing file, and we don't
|
|
|
|
|
know what directory this missing file exists in. */
|
|
|
|
|
else if (CPP_PRINT_DEPS (pfile)
|
|
|
|
|
&& (CPP_PRINT_DEPS (pfile)
|
|
|
|
|
<= (angle_brackets || (pfile->system_include_depth > 0))))
|
|
|
|
|
cpp_warning (pfile, "No include path in which to find %s", ftok);
|
|
|
|
|
else
|
|
|
|
|
cpp_error_from_errno (pfile, ftok);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* For -M, add the file to the dependencies on its first inclusion. */
|
|
|
|
|
if (!before && (CPP_PRINT_DEPS (pfile)
|
|
|
|
|
> (angle_brackets || (pfile->system_include_depth > 0))))
|
|
|
|
|
deps_output (pfile, ihash->name, ' ');
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Handle -H option. */
|
|
|
|
|
if (CPP_OPTIONS(pfile)->print_include_names)
|
|
|
|
|
{
|
|
|
|
|
fp = CPP_BUFFER (pfile);
|
|
|
|
|
while ((fp = CPP_PREV_BUFFER (fp)) != CPP_NULL_BUFFER (pfile))
|
|
|
|
|
putc ('.', stderr);
|
|
|
|
|
fprintf (stderr, " %s\n", ihash->name);
|
|
|
|
|
}
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Actually process the file */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (importing)
|
|
|
|
|
ihash->control_macro = "";
|
|
|
|
|
|
|
|
|
|
if (cpp_push_buffer (pfile, NULL, 0) == NULL)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
close (fd);
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
if (angle_brackets)
|
|
|
|
|
pfile->system_include_depth++; /* Decremented in file_cleanup. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (finclude (pfile, fd, ihash))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
output_line_command (pfile, enter_file);
|
|
|
|
|
pfile->only_seen_white = 2;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Interpret #line command.
|
|
|
|
|
Note that the filename string (if any) is treated as if it were an
|
|
|
|
|
include filename. That means no escape handling. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
|
|
|
|
do_line (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buffer *ip = CPP_BUFFER (pfile);
|
|
|
|
|
int new_lineno;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
long old_written = CPP_WRITTEN (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
enum file_change_code file_change = same_file;
|
|
|
|
|
enum cpp_token token;
|
|
|
|
|
char *x;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
token = get_directive_token (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (token != CPP_NUMBER)
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "token after `#line' is not an integer");
|
|
|
|
|
goto bad_line_directive;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
new_lineno = strtol (pfile->token_buffer + old_written, &x, 10);
|
|
|
|
|
if (x[0] != '\0')
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "token after `#line' is not an integer");
|
|
|
|
|
goto bad_line_directive;
|
|
|
|
|
}
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
|
|
|
|
|
|
|
|
|
if (CPP_PEDANTIC (pfile) && new_lineno <= 0)
|
|
|
|
|
cpp_pedwarn (pfile, "line number out of range in `#line' command");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
token = get_directive_token (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (token == CPP_STRING)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
U_CHAR *fname = pfile->token_buffer + old_written + 1;
|
|
|
|
|
U_CHAR *end_name = CPP_PWRITTEN (pfile) - 1;
|
|
|
|
|
long num_start = CPP_WRITTEN (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
token = get_directive_token (pfile);
|
|
|
|
|
if (token != CPP_VSPACE && token != CPP_EOF && token != CPP_POP)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
U_CHAR *p = pfile->token_buffer + num_start;
|
|
|
|
|
if (CPP_PEDANTIC (pfile))
|
|
|
|
|
cpp_pedwarn (pfile, "garbage at end of `#line' command");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (token != CPP_NUMBER || *p < '0' || *p > '4' || p[1] != '\0')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error (pfile, "invalid format `#line' command");
|
|
|
|
|
goto bad_line_directive;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (*p == '1')
|
|
|
|
|
file_change = enter_file;
|
|
|
|
|
else if (*p == '2')
|
|
|
|
|
file_change = leave_file;
|
|
|
|
|
else if (*p == '3')
|
|
|
|
|
ip->system_header_p = 1;
|
|
|
|
|
else /* if (*p == '4') */
|
|
|
|
|
ip->system_header_p = 2;
|
|
|
|
|
|
|
|
|
|
CPP_SET_WRITTEN (pfile, num_start);
|
|
|
|
|
token = get_directive_token (pfile);
|
|
|
|
|
p = pfile->token_buffer + num_start;
|
|
|
|
|
if (token == CPP_NUMBER && p[1] == '\0' && (*p == '3' || *p== '4'))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
ip->system_header_p = *p == '3' ? 1 : 2;
|
|
|
|
|
token = get_directive_token (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (token != CPP_VSPACE)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error (pfile, "invalid format `#line' command");
|
|
|
|
|
goto bad_line_directive;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
*end_name = '\0';
|
|
|
|
|
|
|
|
|
|
if (strcmp (fname, ip->nominal_fname))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
char *newname, *oldname;
|
|
|
|
|
if (!strcmp (fname, ip->fname))
|
|
|
|
|
newname = ip->fname;
|
|
|
|
|
else if (ip->last_nominal_fname
|
|
|
|
|
&& !strcmp (fname, ip->last_nominal_fname))
|
|
|
|
|
newname = ip->last_nominal_fname;
|
|
|
|
|
else
|
|
|
|
|
newname = xstrdup (fname);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
oldname = ip->nominal_fname;
|
|
|
|
|
ip->nominal_fname = newname;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (ip->last_nominal_fname
|
|
|
|
|
&& ip->last_nominal_fname != oldname
|
|
|
|
|
&& ip->last_nominal_fname != newname
|
|
|
|
|
&& ip->last_nominal_fname != ip->fname)
|
|
|
|
|
free (ip->last_nominal_fname);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (newname == ip->fname)
|
|
|
|
|
ip->last_nominal_fname = NULL;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
1999-10-16 06:09:09 +00:00
|
|
|
|
ip->last_nominal_fname = oldname;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (token != CPP_VSPACE && token != CPP_EOF)
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "token after `#line %d' is not a string", new_lineno);
|
|
|
|
|
goto bad_line_directive;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* The Newline at the end of this line remains to be processed.
|
|
|
|
|
To put the next line at the specified line number,
|
|
|
|
|
we must store a line number now that is one less. */
|
|
|
|
|
ip->lineno = new_lineno - 1;
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
|
|
|
|
output_line_command (pfile, file_change);
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
bad_line_directive:
|
|
|
|
|
skip_rest_of_line (pfile);
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Remove the definition of a symbol from the symbol table.
|
|
|
|
|
According to the C standard, it is not an error to undef
|
|
|
|
|
something that has no definitions. */
|
|
|
|
|
static int
|
|
|
|
|
do_undef (pfile, keyword)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
struct directive *keyword;
|
|
|
|
|
{
|
|
|
|
|
int sym_length;
|
|
|
|
|
HASHNODE *hp;
|
|
|
|
|
U_CHAR *buf, *name, *limit;
|
|
|
|
|
int c;
|
|
|
|
|
long here = CPP_WRITTEN (pfile);
|
|
|
|
|
enum cpp_token token;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = GETC();
|
|
|
|
|
if (! is_idstart[c])
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "token after #undef is not an identifier");
|
|
|
|
|
skip_rest_of_line (pfile);
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_name (pfile, c);
|
|
|
|
|
buf = pfile->token_buffer + here;
|
|
|
|
|
limit = CPP_PWRITTEN(pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Copy out the token so we can pop the token buffer. */
|
|
|
|
|
name = alloca (limit - buf + 1);
|
|
|
|
|
bcopy(buf, name, limit - buf);
|
|
|
|
|
name[limit - buf] = '\0';
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
token = get_directive_token (pfile);
|
|
|
|
|
if (token != CPP_VSPACE && token != CPP_POP)
|
|
|
|
|
{
|
|
|
|
|
cpp_pedwarn (pfile, "junk on line after #undef");
|
|
|
|
|
skip_rest_of_line (pfile);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_SET_WRITTEN (pfile, here);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
sym_length = check_macro_name (pfile, buf, 0);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
while ((hp = cpp_lookup (pfile, name, sym_length, -1)) != NULL)
|
|
|
|
|
{
|
|
|
|
|
/* If we are generating additional info for debugging (with -g) we
|
|
|
|
|
need to pass through all effective #undef commands. */
|
|
|
|
|
if (CPP_OPTIONS (pfile)->debug_output && keyword)
|
|
|
|
|
pass_thru_directive (name, sym_length, pfile, keyword);
|
|
|
|
|
if (hp->type != T_MACRO)
|
|
|
|
|
cpp_warning (pfile, "undefining `%s'", hp->name);
|
|
|
|
|
delete_macro (hp);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Wrap do_undef for -U processing. */
|
|
|
|
|
void
|
|
|
|
|
cpp_undef (pfile, macro)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
U_CHAR *macro;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (cpp_push_buffer (pfile, macro, strlen (macro)))
|
|
|
|
|
{
|
|
|
|
|
do_undef (pfile, NULL);
|
|
|
|
|
cpp_pop_buffer (pfile);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/*
|
|
|
|
|
* Report an error detected by the program we are processing.
|
|
|
|
|
* Use the text of the line in the error message.
|
|
|
|
|
* (We use error because it prints the filename & line#.)
|
|
|
|
|
*/
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
|
|
|
|
do_error (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
long here = CPP_WRITTEN (pfile);
|
|
|
|
|
U_CHAR *text;
|
|
|
|
|
copy_rest_of_line (pfile);
|
|
|
|
|
text = pfile->token_buffer + here;
|
|
|
|
|
SKIP_WHITE_SPACE(text);
|
|
|
|
|
|
|
|
|
|
cpp_error (pfile, "#error %s", text);
|
|
|
|
|
CPP_SET_WRITTEN (pfile, here);
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/*
|
|
|
|
|
* Report a warning detected by the program we are processing.
|
|
|
|
|
* Use the text of the line in the warning message, then continue.
|
|
|
|
|
*/
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_warning (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
U_CHAR *text;
|
|
|
|
|
long here = CPP_WRITTEN(pfile);
|
|
|
|
|
copy_rest_of_line (pfile);
|
|
|
|
|
text = pfile->token_buffer + here;
|
|
|
|
|
SKIP_WHITE_SPACE(text);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_PEDANTIC (pfile) && !CPP_BUFFER (pfile)->system_header_p)
|
|
|
|
|
cpp_pedwarn (pfile, "ANSI C does not allow `#warning'");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Use `pedwarn' not `warning', because #warning isn't in the C Standard;
|
|
|
|
|
if -pedantic-errors is given, #warning should cause an error. */
|
|
|
|
|
cpp_pedwarn (pfile, "#warning %s", text);
|
|
|
|
|
CPP_SET_WRITTEN (pfile, here);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Report program identification.
|
|
|
|
|
This is not precisely what cccp does with #ident, however I believe
|
|
|
|
|
it matches `closely enough' (behavior is identical as long as there
|
|
|
|
|
are no macros on the #ident line, which is pathological in my opinion). */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
|
|
|
|
do_ident (pfile, keyword)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
|
|
|
|
{
|
|
|
|
|
/* Allow #ident in system headers, since that's not user's fault. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (CPP_PEDANTIC (pfile) && !CPP_BUFFER (pfile)->system_header_p)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_pedwarn (pfile, "ANSI C does not allow `#ident'");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTS (pfile, "#ident ", 7);
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
copy_rest_of_line (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Just check for some recognized pragmas that need validation here,
|
|
|
|
|
and leave the text in the token buffer to be output. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
|
|
|
|
do_pragma (pfile, keyword)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
|
|
|
|
{
|
|
|
|
|
long here;
|
|
|
|
|
U_CHAR *buf;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTS (pfile, "#pragma ", 8);
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
|
|
|
|
|
here = CPP_WRITTEN (pfile);
|
|
|
|
|
copy_rest_of_line (pfile);
|
|
|
|
|
buf = pfile->token_buffer + here;
|
|
|
|
|
|
|
|
|
|
if (!strncmp (buf, "once", 4))
|
|
|
|
|
{
|
|
|
|
|
cpp_buffer *ip = NULL;
|
|
|
|
|
|
|
|
|
|
/* Allow #pragma once in system headers, since that's not the user's
|
|
|
|
|
fault. */
|
|
|
|
|
if (!CPP_BUFFER (pfile)->system_header_p)
|
|
|
|
|
cpp_warning (pfile, "`#pragma once' is obsolete");
|
|
|
|
|
|
|
|
|
|
for (ip = CPP_BUFFER (pfile); ; ip = CPP_PREV_BUFFER (ip))
|
|
|
|
|
{
|
|
|
|
|
if (ip == CPP_NULL_BUFFER (pfile))
|
|
|
|
|
return 0;
|
|
|
|
|
if (ip->fname != NULL)
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
if (CPP_PREV_BUFFER (ip) == CPP_NULL_BUFFER (pfile))
|
|
|
|
|
cpp_warning (pfile, "`#pragma once' outside include file");
|
|
|
|
|
else
|
|
|
|
|
ip->ihash->control_macro = ""; /* never repeat */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (!strncmp (buf, "implementation", 14))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Be quiet about `#pragma implementation' for a file only if it hasn't
|
|
|
|
|
been included yet. */
|
|
|
|
|
struct include_hash *ptr;
|
|
|
|
|
U_CHAR *p = buf + 14, *fname, *fcopy;
|
|
|
|
|
SKIP_WHITE_SPACE (p);
|
|
|
|
|
if (*p == '\n' || *p != '\"')
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
fname = p + 1;
|
|
|
|
|
p = (U_CHAR *) index (fname, '\"');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
fcopy = alloca (p - fname + 1);
|
|
|
|
|
bcopy (fname, fcopy, p - fname);
|
|
|
|
|
fcopy[p-fname] = '\0';
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
ptr = include_hash (pfile, fcopy, 0);
|
|
|
|
|
if (ptr)
|
|
|
|
|
cpp_warning (pfile,
|
|
|
|
|
"`#pragma implementation' for `%s' appears after file is included",
|
|
|
|
|
fcopy);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifdef SCCS_DIRECTIVE
|
|
|
|
|
/* Just ignore #sccs, on systems where we define it at all. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_sccs (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_PEDANTIC (pfile))
|
|
|
|
|
cpp_pedwarn (pfile, "ANSI C does not allow `#sccs'");
|
|
|
|
|
skip_rest_of_line (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* handle #if command by
|
|
|
|
|
* 1) inserting special `defined' keyword into the hash table
|
|
|
|
|
* that gets turned into 0 or 1 by special_symbol (thus,
|
|
|
|
|
* if the luser has a symbol called `defined' already, it won't
|
|
|
|
|
* work inside the #if command)
|
|
|
|
|
* 2) rescan the input into a temporary output buffer
|
|
|
|
|
* 3) pass the output buffer to the yacc parser and collect a value
|
|
|
|
|
* 4) clean up the mess left from steps 1 and 2.
|
|
|
|
|
* 5) call conditional_skip to skip til the next #endif (etc.),
|
|
|
|
|
* or not, depending on the value from step 3.
|
|
|
|
|
*/
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_if (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
HOST_WIDEST_INT value = eval_if_expression (pfile);
|
|
|
|
|
conditional_skip (pfile, value == 0, T_IF, NULL_PTR);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
1999-10-16 06:09:09 +00:00
|
|
|
|
* handle a #elif directive by not changing if_stack either.
|
|
|
|
|
* see the comment above do_else.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
*/
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static int
|
|
|
|
|
do_elif (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (pfile->if_stack == CPP_BUFFER (pfile)->if_stack) {
|
|
|
|
|
cpp_error (pfile, "`#elif' not within a conditional");
|
|
|
|
|
return 0;
|
|
|
|
|
} else {
|
|
|
|
|
if (pfile->if_stack->type != T_IF && pfile->if_stack->type != T_ELIF) {
|
|
|
|
|
cpp_error (pfile, "`#elif' after `#else'");
|
|
|
|
|
#if 0
|
|
|
|
|
fprintf (stderr, " (matches line %d", pfile->if_stack->lineno);
|
|
|
|
|
#endif
|
|
|
|
|
if (pfile->if_stack->fname != NULL && CPP_BUFFER (pfile)->fname != NULL
|
|
|
|
|
&& strcmp (pfile->if_stack->fname,
|
|
|
|
|
CPP_BUFFER (pfile)->nominal_fname) != 0)
|
|
|
|
|
fprintf (stderr, ", file %s", pfile->if_stack->fname);
|
|
|
|
|
fprintf (stderr, ")\n");
|
|
|
|
|
}
|
|
|
|
|
pfile->if_stack->type = T_ELIF;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (pfile->if_stack->if_succeeded)
|
|
|
|
|
skip_if_group (pfile);
|
|
|
|
|
else {
|
|
|
|
|
HOST_WIDEST_INT value = eval_if_expression (pfile);
|
|
|
|
|
if (value == 0)
|
|
|
|
|
skip_if_group (pfile);
|
|
|
|
|
else {
|
|
|
|
|
++pfile->if_stack->if_succeeded; /* continue processing input */
|
|
|
|
|
output_line_command (pfile, same_file);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/*
|
1999-10-16 06:09:09 +00:00
|
|
|
|
* evaluate a #if expression in BUF, of length LENGTH,
|
|
|
|
|
* then parse the result as a C expression and return the value as an int.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
*/
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static HOST_WIDEST_INT
|
|
|
|
|
eval_if_expression (pfile)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
HOST_WIDEST_INT value;
|
|
|
|
|
long old_written = CPP_WRITTEN (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->pcp_inside_if = 1;
|
|
|
|
|
value = cpp_parse_expr (pfile);
|
|
|
|
|
pfile->pcp_inside_if = 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written); /* Pop */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return value;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
1999-10-16 06:09:09 +00:00
|
|
|
|
* routine to handle ifdef/ifndef. Try to look up the symbol,
|
|
|
|
|
* then do or don't skip to the #endif/#else/#elif depending
|
|
|
|
|
* on what directive is actually being processed.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_xifdef (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
struct directive *keyword;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int skip;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_buffer *ip = CPP_BUFFER (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
U_CHAR *ident;
|
|
|
|
|
int ident_length;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
enum cpp_token token;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int start_of_file = 0;
|
|
|
|
|
U_CHAR *control_macro = 0;
|
|
|
|
|
int old_written = CPP_WRITTEN (pfile);
|
|
|
|
|
|
|
|
|
|
/* Detect a #ifndef at start of file (not counting comments). */
|
|
|
|
|
if (ip->fname != 0 && keyword->type == T_IFNDEF)
|
|
|
|
|
start_of_file = pfile->only_seen_white == 2;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->no_macro_expand++;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
token = get_directive_token (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->no_macro_expand--;
|
|
|
|
|
|
|
|
|
|
ident = pfile->token_buffer + old_written;
|
|
|
|
|
ident_length = CPP_WRITTEN (pfile) - old_written;
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written); /* Pop */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (token == CPP_VSPACE || token == CPP_POP || token == CPP_EOF)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
skip = (keyword->type == T_IFDEF);
|
|
|
|
|
if (! CPP_TRADITIONAL (pfile))
|
|
|
|
|
cpp_pedwarn (pfile, "`#%s' with no argument", keyword->name);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (token == CPP_NAME)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
HASHNODE *hp = cpp_lookup (pfile, ident, ident_length, -1);
|
|
|
|
|
skip = (hp == NULL) ^ (keyword->type == T_IFNDEF);
|
|
|
|
|
if (start_of_file && !skip)
|
|
|
|
|
{
|
|
|
|
|
control_macro = (U_CHAR *) xmalloc (ident_length + 1);
|
|
|
|
|
bcopy (ident, control_macro, ident_length + 1);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
skip = (keyword->type == T_IFDEF);
|
|
|
|
|
if (! CPP_TRADITIONAL (pfile))
|
|
|
|
|
cpp_error (pfile, "`#%s' with invalid argument", keyword->name);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (!CPP_TRADITIONAL (pfile))
|
|
|
|
|
{ int c;
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = PEEKC ();
|
|
|
|
|
if (c != EOF && c != '\n')
|
|
|
|
|
cpp_pedwarn (pfile, "garbage at end of `#%s' argument", keyword->name);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
skip_rest_of_line (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#if 0
|
|
|
|
|
if (pcp_outfile) {
|
|
|
|
|
/* Output a precondition for this macro. */
|
|
|
|
|
if (hp && hp->value.defn->predefined)
|
|
|
|
|
fprintf (pcp_outfile, "#define %s\n", hp->name);
|
|
|
|
|
else {
|
|
|
|
|
U_CHAR *cp = buf;
|
|
|
|
|
fprintf (pcp_outfile, "#undef ");
|
|
|
|
|
while (is_idchar[*cp]) /* Ick! */
|
|
|
|
|
fputc (*cp++, pcp_outfile);
|
|
|
|
|
putc ('\n', pcp_outfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#endif
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
conditional_skip (pfile, skip, T_IF, control_macro);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Push TYPE on stack; then, if SKIP is nonzero, skip ahead.
|
|
|
|
|
If this is a #ifndef starting at the beginning of a file,
|
|
|
|
|
CONTROL_MACRO is the macro name tested by the #ifndef.
|
|
|
|
|
Otherwise, CONTROL_MACRO is 0. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static void
|
|
|
|
|
conditional_skip (pfile, skip, type, control_macro)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int skip;
|
|
|
|
|
enum node_type type;
|
|
|
|
|
U_CHAR *control_macro;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
IF_STACK_FRAME *temp;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
temp = (IF_STACK_FRAME *) xcalloc (1, sizeof (IF_STACK_FRAME));
|
|
|
|
|
temp->fname = CPP_BUFFER (pfile)->nominal_fname;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#if 0
|
1999-10-16 06:09:09 +00:00
|
|
|
|
temp->lineno = CPP_BUFFER (pfile)->lineno;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
#endif
|
1999-10-16 06:09:09 +00:00
|
|
|
|
temp->next = pfile->if_stack;
|
|
|
|
|
temp->control_macro = control_macro;
|
|
|
|
|
pfile->if_stack = temp;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->if_stack->type = type;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (skip != 0) {
|
|
|
|
|
skip_if_group (pfile);
|
|
|
|
|
return;
|
|
|
|
|
} else {
|
|
|
|
|
++pfile->if_stack->if_succeeded;
|
|
|
|
|
output_line_command (pfile, same_file);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Subroutine of skip_if_group. Examine one preprocessing directive and
|
|
|
|
|
return 0 if skipping should continue, 1 if it should halt. Also
|
|
|
|
|
adjusts the if_stack as appropriate.
|
|
|
|
|
The `#' has been read, but not the identifier. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
consider_directive_while_skipping (pfile, stack)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
IF_STACK_FRAME *stack;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
long ident_len, ident;
|
|
|
|
|
struct directive *kt;
|
|
|
|
|
IF_STACK_FRAME *temp;
|
|
|
|
|
|
|
|
|
|
cpp_skip_hspace (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
ident = CPP_WRITTEN (pfile);
|
|
|
|
|
parse_name (pfile, GETC());
|
|
|
|
|
ident_len = CPP_WRITTEN (pfile) - ident;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_SET_WRITTEN (pfile, ident);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
for (kt = directive_table; kt->length >= 0; kt++)
|
|
|
|
|
if (kt->length == ident_len
|
|
|
|
|
&& strncmp (pfile->token_buffer + ident, kt->name, kt->length) == 0)
|
|
|
|
|
switch (kt->type)
|
|
|
|
|
{
|
|
|
|
|
case T_IF:
|
|
|
|
|
case T_IFDEF:
|
|
|
|
|
case T_IFNDEF:
|
|
|
|
|
temp = (IF_STACK_FRAME *) xmalloc (sizeof (IF_STACK_FRAME));
|
|
|
|
|
temp->next = pfile->if_stack;
|
|
|
|
|
pfile->if_stack = temp;
|
|
|
|
|
temp->fname = CPP_BUFFER(pfile)->nominal_fname;
|
|
|
|
|
temp->type = kt->type;
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case T_ELSE:
|
|
|
|
|
if (CPP_PEDANTIC (pfile) && pfile->if_stack != stack)
|
|
|
|
|
validate_else (pfile, "#else");
|
|
|
|
|
/* fall through */
|
|
|
|
|
case T_ELIF:
|
|
|
|
|
if (pfile->if_stack->type == T_ELSE)
|
|
|
|
|
cpp_error (pfile, "`%s' after `#else'", kt->name);
|
|
|
|
|
|
|
|
|
|
if (pfile->if_stack == stack)
|
|
|
|
|
return 1;
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
pfile->if_stack->type = kt->type;
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case T_ENDIF:
|
|
|
|
|
if (CPP_PEDANTIC (pfile) && pfile->if_stack != stack)
|
|
|
|
|
validate_else (pfile, "#endif");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (pfile->if_stack == stack)
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
|
|
temp = pfile->if_stack;
|
|
|
|
|
pfile->if_stack = temp->next;
|
|
|
|
|
free (temp);
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
default:
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Don't let erroneous code go by. */
|
|
|
|
|
if (!CPP_OPTIONS (pfile)->lang_asm && CPP_PEDANTIC (pfile))
|
|
|
|
|
cpp_pedwarn (pfile, "invalid preprocessor directive name");
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* skip to #endif, #else, or #elif. adjust line numbers, etc.
|
|
|
|
|
* leaves input ptr at the sharp sign found.
|
|
|
|
|
*/
|
|
|
|
|
static void
|
|
|
|
|
skip_if_group (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int c;
|
|
|
|
|
IF_STACK_FRAME *save_if_stack = pfile->if_stack; /* don't pop past here */
|
|
|
|
|
U_CHAR *beg_of_line;
|
|
|
|
|
long old_written;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_OPTIONS (pfile)->output_conditionals)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTS (pfile, "#failed\n", 8);
|
|
|
|
|
pfile->lineno++;
|
|
|
|
|
output_line_command (pfile, same_file);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
old_written = CPP_WRITTEN (pfile);
|
|
|
|
|
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
beg_of_line = CPP_BUFFER (pfile)->cur;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (! CPP_TRADITIONAL (pfile))
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = GETC();
|
|
|
|
|
if (c == '\n')
|
|
|
|
|
{
|
|
|
|
|
if (CPP_OPTIONS (pfile)->output_conditionals)
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
continue;
|
|
|
|
|
}
|
|
|
|
|
else if (c == '#')
|
|
|
|
|
{
|
|
|
|
|
if (consider_directive_while_skipping (pfile, save_if_stack))
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
else if (c == EOF)
|
|
|
|
|
return; /* Caller will issue error. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
FORWARD(-1);
|
|
|
|
|
if (CPP_OPTIONS (pfile)->output_conditionals)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTS (pfile, beg_of_line, CPP_BUFFER (pfile)->cur - beg_of_line);
|
|
|
|
|
copy_rest_of_line (pfile);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
copy_rest_of_line (pfile);
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written); /* discard it */
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
c = GETC();
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
return; /* Caller will issue error. */
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* \n */
|
|
|
|
|
if (CPP_OPTIONS (pfile)->output_conditionals)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
pfile->lineno++;
|
|
|
|
|
}
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
}
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Back up to the beginning of this line. Caller will process the
|
|
|
|
|
directive. */
|
|
|
|
|
CPP_BUFFER (pfile)->cur = beg_of_line;
|
|
|
|
|
pfile->only_seen_white = 1;
|
|
|
|
|
if (CPP_OPTIONS (pfile)->output_conditionals)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTS (pfile, "#endfailed\n", 11);
|
|
|
|
|
pfile->lineno++;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/*
|
1999-10-16 06:09:09 +00:00
|
|
|
|
* handle a #else directive. Do this by just continuing processing
|
|
|
|
|
* without changing if_stack ; this is so that the error message
|
|
|
|
|
* for missing #endif's etc. will point to the original #if. It
|
|
|
|
|
* is possible that something different would be better.
|
1996-09-18 05:35:50 +00:00
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_else (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buffer *ip = CPP_BUFFER (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_PEDANTIC (pfile))
|
|
|
|
|
validate_else (pfile, "#else");
|
|
|
|
|
skip_rest_of_line (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (pfile->if_stack == CPP_BUFFER (pfile)->if_stack) {
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error (pfile, "`#else' not within a conditional");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
|
|
|
|
} else {
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* #ifndef can't have its special treatment for containing the whole file
|
|
|
|
|
if it has a #else clause. */
|
|
|
|
|
pfile->if_stack->control_macro = 0;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (pfile->if_stack->type != T_IF && pfile->if_stack->type != T_ELIF) {
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error (pfile, "`#else' after `#else'");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
fprintf (stderr, " (matches line %d", pfile->if_stack->lineno);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (strcmp (pfile->if_stack->fname, ip->nominal_fname) != 0)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
fprintf (stderr, ", file %s", pfile->if_stack->fname);
|
|
|
|
|
fprintf (stderr, ")\n");
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->if_stack->type = T_ELSE;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (pfile->if_stack->if_succeeded)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
skip_if_group (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else {
|
1999-10-16 06:09:09 +00:00
|
|
|
|
++pfile->if_stack->if_succeeded; /* continue processing input */
|
|
|
|
|
output_line_command (pfile, same_file);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* unstack after #endif command
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_endif (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (CPP_PEDANTIC (pfile))
|
|
|
|
|
validate_else (pfile, "#endif");
|
|
|
|
|
skip_rest_of_line (pfile);
|
|
|
|
|
|
|
|
|
|
if (pfile->if_stack == CPP_BUFFER (pfile)->if_stack)
|
|
|
|
|
cpp_error (pfile, "unbalanced `#endif'");
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
IF_STACK_FRAME *temp = pfile->if_stack;
|
|
|
|
|
pfile->if_stack = temp->next;
|
|
|
|
|
if (temp->control_macro != 0)
|
|
|
|
|
{
|
|
|
|
|
/* This #endif matched a #ifndef at the start of the file.
|
|
|
|
|
See if it is at the end of the file. */
|
|
|
|
|
int c;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_set_mark (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = GETC ();
|
|
|
|
|
if (c != '\n')
|
|
|
|
|
break;
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_goto_mark (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* This #endif ends a #ifndef
|
1996-09-18 05:35:50 +00:00
|
|
|
|
that contains all of the file (aside from whitespace).
|
|
|
|
|
Arrange not to include the file again
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if the macro that was tested is defined. */
|
|
|
|
|
struct cpp_buffer *ip;
|
|
|
|
|
for (ip = CPP_BUFFER (pfile); ; ip = CPP_PREV_BUFFER (ip))
|
|
|
|
|
if (ip->fname != NULL)
|
|
|
|
|
break;
|
|
|
|
|
ip->ihash->control_macro = (char *) temp->control_macro;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
free (temp);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
output_line_command (pfile, same_file);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* When an #else or #endif is found while skipping failed conditional,
|
|
|
|
|
if -pedantic was specified, this is called to warn about text after
|
|
|
|
|
the command name. P points to the first char after the command name. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
validate_else (pfile, directive)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
char *directive;
|
|
|
|
|
{
|
|
|
|
|
int c;
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = PEEKC ();
|
|
|
|
|
if (c != EOF && c != '\n')
|
|
|
|
|
cpp_pedwarn (pfile,
|
|
|
|
|
"text following `%s' violates ANSI standard", directive);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Get the next token, and add it to the text in pfile->token_buffer.
|
1999-08-26 09:30:50 +00:00
|
|
|
|
Return the kind of token we got. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
enum cpp_token
|
|
|
|
|
cpp_get_token (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
register int c, c2, c3;
|
|
|
|
|
enum cpp_token token;
|
|
|
|
|
struct cpp_options *opts = CPP_OPTIONS (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
get_next:
|
|
|
|
|
c = GETC();
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
{
|
|
|
|
|
handle_eof:
|
|
|
|
|
if (CPP_BUFFER (pfile)->seen_eof)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_PREV_BUFFER (CPP_BUFFER (pfile)) == CPP_NULL_BUFFER (pfile))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return CPP_EOF;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
cpp_pop_buffer (pfile);
|
|
|
|
|
goto get_next;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
cpp_buffer *next_buf
|
|
|
|
|
= CPP_PREV_BUFFER (CPP_BUFFER (pfile));
|
|
|
|
|
CPP_BUFFER (pfile)->seen_eof = 1;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (CPP_BUFFER (pfile)->nominal_fname
|
|
|
|
|
&& next_buf != CPP_NULL_BUFFER (pfile))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
/* We're about to return from an #include file.
|
|
|
|
|
Emit #line information now (as part of the CPP_POP) result.
|
1999-08-26 09:30:50 +00:00
|
|
|
|
But the #line refers to the file we will pop to. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_buffer *cur_buffer = CPP_BUFFER (pfile);
|
|
|
|
|
CPP_BUFFER (pfile) = next_buf;
|
|
|
|
|
pfile->input_stack_listing_current = 0;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
output_line_command (pfile, leave_file);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_BUFFER (pfile) = cur_buffer;
|
|
|
|
|
}
|
|
|
|
|
return CPP_POP;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
switch (c)
|
|
|
|
|
{
|
|
|
|
|
case '/':
|
|
|
|
|
if (PEEKC () == '=')
|
|
|
|
|
goto op2;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
comment:
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (opts->put_out_comments)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
c = copy_comment (pfile, c);
|
|
|
|
|
else
|
|
|
|
|
c = skip_comment (pfile, c);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (c == EOF)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
goto handle_eof;
|
|
|
|
|
else if (c != ' ')
|
|
|
|
|
goto randomchar;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
/* Comments are equivalent to spaces.
|
|
|
|
|
For -traditional, a comment is equivalent to nothing. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (opts->traditional || opts->put_out_comments)
|
|
|
|
|
return CPP_COMMENT;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTC (pfile, c);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return CPP_HSPACE;
|
|
|
|
|
}
|
|
|
|
|
#if 0
|
|
|
|
|
if (opts->for_lint) {
|
|
|
|
|
U_CHAR *argbp;
|
|
|
|
|
int cmdlen, arglen;
|
|
|
|
|
char *lintcmd = get_lintcmd (ibp, limit, &argbp, &arglen, &cmdlen);
|
|
|
|
|
|
|
|
|
|
if (lintcmd != NULL) {
|
|
|
|
|
/* I believe it is always safe to emit this newline: */
|
|
|
|
|
obp[-1] = '\n';
|
|
|
|
|
bcopy ("#pragma lint ", (char *) obp, 13);
|
|
|
|
|
obp += 13;
|
|
|
|
|
bcopy (lintcmd, (char *) obp, cmdlen);
|
|
|
|
|
obp += cmdlen;
|
|
|
|
|
|
|
|
|
|
if (arglen != 0) {
|
|
|
|
|
*(obp++) = ' ';
|
|
|
|
|
bcopy (argbp, (char *) obp, arglen);
|
|
|
|
|
obp += arglen;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* OK, now bring us back to the state we were in before we entered
|
1999-08-26 09:30:50 +00:00
|
|
|
|
this branch. We need #line because the newline for the pragma
|
|
|
|
|
could mess things up. */
|
1999-10-16 06:09:09 +00:00
|
|
|
|
output_line_command (pfile, same_file);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
*(obp++) = ' '; /* just in case, if comments are copied thru */
|
|
|
|
|
*(obp++) = '/';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
case '#':
|
|
|
|
|
#if 0
|
|
|
|
|
/* If this is expanding a macro definition, don't recognize
|
|
|
|
|
preprocessor directives. */
|
|
|
|
|
if (ip->macro != 0)
|
|
|
|
|
goto randomchar;
|
|
|
|
|
/* If this is expand_into_temp_buffer, recognize them
|
|
|
|
|
only after an actual newline at this level,
|
|
|
|
|
not at the beginning of the input level. */
|
|
|
|
|
if (ip->fname == 0 && beg_of_line == ip->buf)
|
|
|
|
|
goto randomchar;
|
|
|
|
|
if (ident_length)
|
|
|
|
|
goto specialchar;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (!pfile->only_seen_white)
|
|
|
|
|
goto randomchar;
|
|
|
|
|
if (handle_directive (pfile))
|
|
|
|
|
return CPP_DIRECTIVE;
|
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
return CPP_OTHER;
|
|
|
|
|
|
|
|
|
|
case '\"':
|
|
|
|
|
case '\'':
|
|
|
|
|
string:
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_string (pfile, c);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
return c == '\'' ? CPP_CHAR : CPP_STRING;
|
|
|
|
|
|
|
|
|
|
case '$':
|
|
|
|
|
if (!opts->dollars_in_ident)
|
|
|
|
|
goto randomchar;
|
|
|
|
|
goto letter;
|
|
|
|
|
|
|
|
|
|
case ':':
|
|
|
|
|
if (opts->cplusplus && PEEKC () == ':')
|
|
|
|
|
goto op2;
|
|
|
|
|
goto randomchar;
|
|
|
|
|
|
|
|
|
|
case '&':
|
|
|
|
|
case '+':
|
|
|
|
|
case '|':
|
|
|
|
|
c2 = PEEKC ();
|
|
|
|
|
if (c2 == c || c2 == '=')
|
|
|
|
|
goto op2;
|
|
|
|
|
goto randomchar;
|
|
|
|
|
|
|
|
|
|
case '*':
|
|
|
|
|
case '!':
|
|
|
|
|
case '%':
|
|
|
|
|
case '=':
|
|
|
|
|
case '^':
|
|
|
|
|
if (PEEKC () == '=')
|
|
|
|
|
goto op2;
|
|
|
|
|
goto randomchar;
|
|
|
|
|
|
|
|
|
|
case '-':
|
|
|
|
|
c2 = PEEKC ();
|
|
|
|
|
if (c2 == '-' && opts->chill)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
goto comment; /* Chill style comment */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (c2 == '-' || c2 == '=' || c2 == '>')
|
|
|
|
|
goto op2;
|
|
|
|
|
goto randomchar;
|
|
|
|
|
|
|
|
|
|
case '<':
|
|
|
|
|
if (pfile->parsing_include_directive)
|
|
|
|
|
{
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
if (c == '>')
|
|
|
|
|
break;
|
|
|
|
|
c = GETC ();
|
|
|
|
|
if (c == '\n' || c == EOF)
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile,
|
|
|
|
|
"missing '>' in `#include <FILENAME>'");
|
|
|
|
|
break;
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (c == '\r')
|
|
|
|
|
{
|
|
|
|
|
if (!CPP_BUFFER (pfile)->has_escapes)
|
|
|
|
|
{
|
|
|
|
|
/* Backslash newline is replaced by nothing. */
|
|
|
|
|
CPP_ADJUST_WRITTEN (pfile, -1);
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* We might conceivably get \r- or \r<space> in
|
|
|
|
|
here. Just delete 'em. */
|
|
|
|
|
int d = GETC();
|
|
|
|
|
if (d != '-' && d != ' ')
|
|
|
|
|
cpp_fatal (pfile,
|
|
|
|
|
"internal error: unrecognized escape \\r%c",
|
|
|
|
|
d);
|
|
|
|
|
CPP_ADJUST_WRITTEN (pfile, -1);
|
|
|
|
|
}
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
return CPP_STRING;
|
|
|
|
|
}
|
|
|
|
|
/* else fall through */
|
|
|
|
|
case '>':
|
|
|
|
|
c2 = PEEKC ();
|
|
|
|
|
if (c2 == '=')
|
|
|
|
|
goto op2;
|
|
|
|
|
if (c2 != c)
|
|
|
|
|
goto randomchar;
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
CPP_RESERVE (pfile, 4);
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
CPP_PUTC (pfile, c2);
|
|
|
|
|
c3 = PEEKC ();
|
|
|
|
|
if (c3 == '=')
|
|
|
|
|
CPP_PUTC_Q (pfile, GETC ());
|
|
|
|
|
CPP_NUL_TERMINATE_Q (pfile);
|
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
return CPP_OTHER;
|
|
|
|
|
|
|
|
|
|
case '.':
|
|
|
|
|
c2 = PEEKC ();
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (ISDIGIT(c2))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
CPP_RESERVE(pfile, 2);
|
|
|
|
|
CPP_PUTC_Q (pfile, '.');
|
|
|
|
|
c = GETC ();
|
|
|
|
|
goto number;
|
|
|
|
|
}
|
|
|
|
|
if (c2 == '.' && PEEKN(1) == '.')
|
|
|
|
|
{
|
|
|
|
|
CPP_RESERVE(pfile, 4);
|
|
|
|
|
CPP_PUTC_Q (pfile, '.');
|
|
|
|
|
CPP_PUTC_Q (pfile, '.');
|
|
|
|
|
CPP_PUTC_Q (pfile, '.');
|
|
|
|
|
FORWARD (2);
|
|
|
|
|
CPP_NUL_TERMINATE_Q (pfile);
|
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
return CPP_3DOTS;
|
|
|
|
|
}
|
|
|
|
|
goto randomchar;
|
|
|
|
|
|
|
|
|
|
op2:
|
|
|
|
|
token = CPP_OTHER;
|
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
CPP_RESERVE(pfile, 3);
|
|
|
|
|
CPP_PUTC_Q (pfile, c);
|
|
|
|
|
CPP_PUTC_Q (pfile, GETC ());
|
|
|
|
|
CPP_NUL_TERMINATE_Q (pfile);
|
|
|
|
|
return token;
|
|
|
|
|
|
|
|
|
|
case 'L':
|
|
|
|
|
c2 = PEEKC ();
|
|
|
|
|
if ((c2 == '\'' || c2 == '\"') && !CPP_TRADITIONAL (pfile))
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
c = GETC ();
|
|
|
|
|
goto string;
|
|
|
|
|
}
|
|
|
|
|
goto letter;
|
|
|
|
|
|
|
|
|
|
case '0': case '1': case '2': case '3': case '4':
|
|
|
|
|
case '5': case '6': case '7': case '8': case '9':
|
|
|
|
|
number:
|
|
|
|
|
c2 = '.';
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
CPP_RESERVE (pfile, 2);
|
|
|
|
|
CPP_PUTC_Q (pfile, c);
|
|
|
|
|
c = PEEKC ();
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
break;
|
|
|
|
|
if (!is_idchar[c] && c != '.'
|
1999-08-26 09:30:50 +00:00
|
|
|
|
&& ((c2 != 'e' && c2 != 'E'
|
|
|
|
|
&& ((c2 != 'p' && c2 != 'P') || CPP_C89 (pfile)))
|
|
|
|
|
|| (c != '+' && c != '-')))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
break;
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
c2= c;
|
|
|
|
|
}
|
|
|
|
|
CPP_NUL_TERMINATE_Q (pfile);
|
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
return CPP_NUMBER;
|
|
|
|
|
case 'b': case 'c': case 'd': case 'h': case 'o':
|
|
|
|
|
case 'B': case 'C': case 'D': case 'H': case 'O':
|
|
|
|
|
if (opts->chill && PEEKC () == '\'')
|
|
|
|
|
{
|
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
CPP_RESERVE (pfile, 2);
|
|
|
|
|
CPP_PUTC_Q (pfile, c);
|
|
|
|
|
CPP_PUTC_Q (pfile, '\'');
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
c = GETC();
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
goto chill_number_eof;
|
|
|
|
|
if (!is_idchar[c])
|
1999-10-16 06:09:09 +00:00
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
}
|
|
|
|
|
if (c == '\'')
|
|
|
|
|
{
|
|
|
|
|
CPP_RESERVE (pfile, 2);
|
|
|
|
|
CPP_PUTC_Q (pfile, c);
|
|
|
|
|
CPP_NUL_TERMINATE_Q (pfile);
|
|
|
|
|
return CPP_STRING;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
FORWARD(-1);
|
|
|
|
|
chill_number_eof:
|
|
|
|
|
CPP_NUL_TERMINATE (pfile);
|
|
|
|
|
return CPP_NUMBER;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
goto letter;
|
|
|
|
|
case '_':
|
|
|
|
|
case 'a': case 'e': case 'f': case 'g': case 'i': case 'j':
|
|
|
|
|
case 'k': case 'l': case 'm': case 'n': case 'p': case 'q':
|
|
|
|
|
case 'r': case 's': case 't': case 'u': case 'v': case 'w':
|
|
|
|
|
case 'x': case 'y': case 'z':
|
|
|
|
|
case 'A': case 'E': case 'F': case 'G': case 'I': case 'J':
|
|
|
|
|
case 'K': case 'M': case 'N': case 'P': case 'Q': case 'R':
|
|
|
|
|
case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
|
|
|
|
|
case 'Y': case 'Z':
|
|
|
|
|
letter:
|
|
|
|
|
{
|
|
|
|
|
HASHNODE *hp;
|
|
|
|
|
unsigned char *ident;
|
|
|
|
|
int before_name_written = CPP_WRITTEN (pfile);
|
|
|
|
|
int ident_len;
|
|
|
|
|
parse_name (pfile, c);
|
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
if (pfile->no_macro_expand)
|
|
|
|
|
return CPP_NAME;
|
|
|
|
|
ident = pfile->token_buffer + before_name_written;
|
|
|
|
|
ident_len = CPP_PWRITTEN (pfile) - ident;
|
|
|
|
|
hp = cpp_lookup (pfile, ident, ident_len, -1);
|
|
|
|
|
if (!hp)
|
|
|
|
|
return CPP_NAME;
|
|
|
|
|
if (hp->type == T_DISABLED)
|
|
|
|
|
{
|
|
|
|
|
if (pfile->output_escapes)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{ /* Return "\r-IDENT", followed by '\0'. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
int i;
|
|
|
|
|
CPP_RESERVE (pfile, 3);
|
|
|
|
|
ident = pfile->token_buffer + before_name_written;
|
|
|
|
|
CPP_ADJUST_WRITTEN (pfile, 2);
|
|
|
|
|
for (i = ident_len; i >= 0; i--) ident[i+2] = ident[i];
|
1999-10-16 06:09:09 +00:00
|
|
|
|
ident[0] = '\r';
|
1996-09-18 05:35:50 +00:00
|
|
|
|
ident[1] = '-';
|
|
|
|
|
}
|
|
|
|
|
return CPP_NAME;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* If macro wants an arglist, verify that a '(' follows.
|
|
|
|
|
first skip all whitespace, copying it to the output
|
|
|
|
|
after the macro name. Then, if there is no '(',
|
|
|
|
|
decide this is not a macro call and leave things that way. */
|
|
|
|
|
if (hp->type == T_MACRO && hp->value.defn->nargs >= 0)
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int is_macro_call, macbuf_whitespace = 0;
|
|
|
|
|
|
|
|
|
|
parse_set_mark (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = PEEKC ();
|
|
|
|
|
is_macro_call = c == '(';
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (c != EOF)
|
|
|
|
|
{
|
|
|
|
|
if (c != '\n')
|
|
|
|
|
break;
|
|
|
|
|
FORWARD (1);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
if (CPP_IS_MACRO_BUFFER (CPP_BUFFER (pfile)))
|
|
|
|
|
{
|
|
|
|
|
if (CPP_BUFFER (pfile)->mark !=
|
|
|
|
|
(CPP_BUFFER (pfile)->cur
|
|
|
|
|
- CPP_BUFFER (pfile)->buf))
|
|
|
|
|
macbuf_whitespace = 1;
|
|
|
|
|
|
|
|
|
|
/* The mark goes away automatically when
|
|
|
|
|
the buffer is popped. */
|
|
|
|
|
cpp_pop_buffer (pfile);
|
|
|
|
|
parse_set_mark (pfile);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
break;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
if (!is_macro_call)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
parse_goto_mark (pfile);
|
|
|
|
|
if (macbuf_whitespace)
|
|
|
|
|
CPP_PUTC (pfile, ' ');
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
parse_clear_mark (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (!is_macro_call)
|
|
|
|
|
return CPP_NAME;
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* This is now known to be a macro call.
|
|
|
|
|
Expand the macro, reading arguments as needed,
|
|
|
|
|
and push the expansion on the input stack. */
|
|
|
|
|
macroexpand (pfile, hp);
|
|
|
|
|
CPP_SET_WRITTEN (pfile, before_name_written);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
goto get_next;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case ' ': case '\t': case '\v':
|
1996-09-18 05:35:50 +00:00
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
c = PEEKC ();
|
|
|
|
|
if (c == EOF || !is_hor_space[c])
|
|
|
|
|
break;
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
}
|
|
|
|
|
return CPP_HSPACE;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case '\r':
|
|
|
|
|
if (CPP_BUFFER (pfile)->has_escapes)
|
|
|
|
|
{
|
|
|
|
|
c = GETC ();
|
|
|
|
|
if (c == '-')
|
|
|
|
|
{
|
|
|
|
|
if (pfile->output_escapes)
|
|
|
|
|
CPP_PUTS (pfile, "\r-", 2);
|
|
|
|
|
parse_name (pfile, GETC ());
|
|
|
|
|
return CPP_NAME;
|
|
|
|
|
}
|
|
|
|
|
else if (c == ' ')
|
|
|
|
|
{
|
|
|
|
|
CPP_RESERVE (pfile, 2);
|
|
|
|
|
if (pfile->output_escapes)
|
|
|
|
|
CPP_PUTC_Q (pfile, '\r');
|
|
|
|
|
CPP_PUTC_Q (pfile, c);
|
|
|
|
|
return CPP_HSPACE;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
cpp_fatal (pfile,
|
|
|
|
|
"internal error: unrecognized escape \\r%c", c);
|
|
|
|
|
goto get_next;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
/* Backslash newline is ignored. */
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
goto get_next;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
case '\n':
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
if (pfile->only_seen_white == 0)
|
|
|
|
|
pfile->only_seen_white = 1;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
if (! CPP_OPTIONS (pfile)->no_line_commands)
|
|
|
|
|
{
|
|
|
|
|
pfile->lineno++;
|
|
|
|
|
if (CPP_BUFFER (pfile)->lineno != pfile->lineno)
|
|
|
|
|
output_line_command (pfile, same_file);
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return CPP_VSPACE;
|
|
|
|
|
|
|
|
|
|
case '(': token = CPP_LPAREN; goto char1;
|
|
|
|
|
case ')': token = CPP_RPAREN; goto char1;
|
|
|
|
|
case '{': token = CPP_LBRACE; goto char1;
|
|
|
|
|
case '}': token = CPP_RBRACE; goto char1;
|
|
|
|
|
case ',': token = CPP_COMMA; goto char1;
|
|
|
|
|
case ';': token = CPP_SEMICOLON; goto char1;
|
|
|
|
|
|
|
|
|
|
randomchar:
|
|
|
|
|
default:
|
|
|
|
|
token = CPP_OTHER;
|
|
|
|
|
char1:
|
|
|
|
|
pfile->only_seen_white = 0;
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
return token;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Like cpp_get_token, but skip spaces and comments. */
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
enum cpp_token
|
|
|
|
|
cpp_get_non_space_token (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
int old_written = CPP_WRITTEN (pfile);
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
enum cpp_token token = cpp_get_token (pfile);
|
|
|
|
|
if (token != CPP_COMMENT && token != CPP_POP
|
|
|
|
|
&& token != CPP_HSPACE && token != CPP_VSPACE)
|
|
|
|
|
return token;
|
|
|
|
|
CPP_SET_WRITTEN (pfile, old_written);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* Parse an identifier starting with C. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
static void
|
1996-09-18 05:35:50 +00:00
|
|
|
|
parse_name (pfile, c)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
int c;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
for (;;)
|
|
|
|
|
{
|
|
|
|
|
if (! is_idchar[c])
|
|
|
|
|
{
|
|
|
|
|
FORWARD (-1);
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
if (c == '$' && CPP_PEDANTIC (pfile))
|
|
|
|
|
cpp_pedwarn (pfile, "`$' in identifier");
|
|
|
|
|
|
|
|
|
|
CPP_RESERVE(pfile, 2); /* One more for final NUL. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
CPP_PUTC_Q (pfile, c);
|
|
|
|
|
c = GETC();
|
|
|
|
|
if (c == EOF)
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
CPP_NUL_TERMINATE_Q (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
return;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Parse a string starting with C. A single quoted string is treated
|
|
|
|
|
like a double -- some programs (e.g., troff) are perverse this way.
|
|
|
|
|
(However, a single quoted string is not allowed to extend over
|
|
|
|
|
multiple lines. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_string (pfile, c)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int c;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
long start_line, start_column;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buf_line_and_col (cpp_file_buffer (pfile), &start_line, &start_column);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
while (1)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int cc = GETC();
|
|
|
|
|
if (cc == EOF)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (CPP_IS_MACRO_BUFFER (CPP_BUFFER (pfile)))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* try harder: this string crosses a macro expansion
|
|
|
|
|
boundary. This can happen naturally if -traditional.
|
|
|
|
|
Otherwise, only -D can make a macro with an unmatched
|
|
|
|
|
quote. */
|
|
|
|
|
cpp_pop_buffer (pfile);
|
|
|
|
|
continue;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (!CPP_TRADITIONAL (pfile))
|
|
|
|
|
{
|
|
|
|
|
cpp_error_with_line (pfile, start_line, start_column,
|
|
|
|
|
"unterminated string or character constant");
|
|
|
|
|
if (pfile->multiline_string_line != start_line
|
|
|
|
|
&& pfile->multiline_string_line != 0)
|
|
|
|
|
cpp_error_with_line (pfile,
|
|
|
|
|
pfile->multiline_string_line, -1,
|
|
|
|
|
"possible real start of unterminated constant");
|
|
|
|
|
pfile->multiline_string_line = 0;
|
|
|
|
|
}
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
CPP_PUTC (pfile, cc);
|
|
|
|
|
switch (cc)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
case '\n':
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
pfile->lineno++;
|
|
|
|
|
/* Traditionally, end of line ends a string constant with
|
|
|
|
|
no error. */
|
|
|
|
|
if (CPP_TRADITIONAL (pfile))
|
|
|
|
|
return;
|
|
|
|
|
/* Character constants may not extend over multiple lines. */
|
|
|
|
|
if (c == '\'')
|
|
|
|
|
{
|
|
|
|
|
cpp_error_with_line (pfile, start_line, start_column,
|
|
|
|
|
"unterminated character constant");
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
if (CPP_PEDANTIC (pfile) && pfile->multiline_string_line == 0)
|
|
|
|
|
{
|
|
|
|
|
cpp_pedwarn_with_line (pfile, start_line, start_column,
|
|
|
|
|
"string constant runs past end of line");
|
|
|
|
|
}
|
|
|
|
|
if (pfile->multiline_string_line == 0)
|
|
|
|
|
pfile->multiline_string_line = start_line;
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '\r':
|
|
|
|
|
CPP_ADJUST_WRITTEN (pfile, -1);
|
|
|
|
|
if (CPP_BUFFER (pfile)->has_escapes)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_fatal (pfile,
|
|
|
|
|
"internal error: \\r escape inside string constant");
|
|
|
|
|
FORWARD(1);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else
|
|
|
|
|
/* Backslash newline is replaced by nothing at all. */
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '\\':
|
|
|
|
|
cc = GETC();
|
|
|
|
|
if (cc != EOF)
|
|
|
|
|
CPP_PUTC (pfile, cc);
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case '\"':
|
|
|
|
|
case '\'':
|
|
|
|
|
if (cc == c)
|
|
|
|
|
return;
|
|
|
|
|
break;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Read an assertion into the token buffer, converting to
|
|
|
|
|
canonical form: `#predicate(a n swe r)' The next non-whitespace
|
|
|
|
|
character to read should be the first letter of the predicate.
|
|
|
|
|
Returns 0 for syntax error, 1 for bare predicate, 2 for predicate
|
|
|
|
|
with answer (see callers for why). In case of 0, an error has been
|
|
|
|
|
printed. */
|
|
|
|
|
static int
|
|
|
|
|
parse_assertion (pfile)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int c, dropwhite;
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = PEEKC();
|
|
|
|
|
if (! is_idstart[c])
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error (pfile, "assertion predicate is not an identifier");
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTC(pfile, '#');
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
parse_name(pfile, c);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
c = PEEKC();
|
|
|
|
|
if (c != '(')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (is_hor_space[c] || c == '\r')
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = PEEKC();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (c != '(')
|
|
|
|
|
return 1;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_PUTC(pfile, '(');
|
|
|
|
|
FORWARD(1);
|
|
|
|
|
dropwhite = 1;
|
|
|
|
|
while ((c = GETC()) != ')')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (is_hor_space[c])
|
|
|
|
|
{
|
|
|
|
|
if (! dropwhite)
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC(pfile, ' ');
|
|
|
|
|
dropwhite = 1;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if (c == '\n' || c == EOF)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (c == '\n') FORWARD(-1);
|
|
|
|
|
cpp_error (pfile, "un-terminated assertion answer");
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
|
|
|
|
else if (c == '\r')
|
|
|
|
|
/* \r cannot be a macro escape here. */
|
|
|
|
|
CPP_BUMP_LINE (pfile);
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
CPP_PUTC (pfile, c);
|
|
|
|
|
dropwhite = 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (pfile->limit[-1] == ' ')
|
|
|
|
|
pfile->limit[-1] = ')';
|
|
|
|
|
else if (pfile->limit[-1] == '(')
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error (pfile, "empty token sequence in assertion");
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else
|
|
|
|
|
CPP_PUTC (pfile, ')');
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
CPP_NUL_TERMINATE (pfile);
|
|
|
|
|
return 2;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_assert (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
char *sym;
|
|
|
|
|
int ret, c;
|
|
|
|
|
HASHNODE *base, *this;
|
|
|
|
|
int baselen, thislen;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
if (CPP_PEDANTIC (pfile) && CPP_OPTIONS (pfile)->done_initializing
|
|
|
|
|
&& !CPP_BUFFER (pfile)->system_header_p)
|
|
|
|
|
cpp_pedwarn (pfile, "ANSI C does not allow `#assert'");
|
|
|
|
|
|
|
|
|
|
cpp_skip_hspace (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
sym = (char *) CPP_PWRITTEN (pfile); /* remember where it starts */
|
|
|
|
|
ret = parse_assertion (pfile);
|
|
|
|
|
if (ret == 0)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
goto error;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else if (ret == 1)
|
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "missing token-sequence in `#assert'");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_skip_hspace (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
c = PEEKC();
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (c != EOF && c != '\n')
|
1999-10-16 06:09:09 +00:00
|
|
|
|
{
|
|
|
|
|
cpp_error (pfile, "junk at end of `#assert'");
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
thislen = strlen (sym);
|
|
|
|
|
baselen = index (sym, '(') - sym;
|
|
|
|
|
this = cpp_lookup (pfile, sym, thislen, -1);
|
|
|
|
|
if (this)
|
|
|
|
|
{
|
|
|
|
|
cpp_warning (pfile, "`%s' re-asserted", sym);
|
|
|
|
|
goto error;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
base = cpp_lookup (pfile, sym, baselen, -1);
|
|
|
|
|
if (! base)
|
|
|
|
|
base = cpp_install (pfile, sym, baselen, T_ASSERT, 0, -1);
|
|
|
|
|
else if (base->type != T_ASSERT)
|
|
|
|
|
{
|
|
|
|
|
/* Token clash - but with what?! */
|
|
|
|
|
cpp_fatal (pfile,
|
|
|
|
|
"cpp internal error: base->type != T_ASSERT in do_assert");
|
|
|
|
|
goto error;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
|
|
|
|
this = cpp_install (pfile, sym, thislen, T_ASSERT,
|
|
|
|
|
(char *)base->value.aschain, -1);
|
|
|
|
|
base->value.aschain = this;
|
|
|
|
|
|
|
|
|
|
pfile->limit = (unsigned char *) sym; /* Pop */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
error:
|
|
|
|
|
skip_rest_of_line (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->limit = (unsigned char *) sym; /* Pop */
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
static int
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_unassert (pfile, keyword)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
struct directive *keyword ATTRIBUTE_UNUSED;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int c, ret;
|
|
|
|
|
char *sym;
|
|
|
|
|
long baselen, thislen;
|
|
|
|
|
HASHNODE *base, *this, *next;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (CPP_PEDANTIC (pfile) && CPP_OPTIONS (pfile)->done_initializing
|
|
|
|
|
&& !CPP_BUFFER (pfile)->system_header_p)
|
|
|
|
|
cpp_pedwarn (pfile, "ANSI C does not allow `#unassert'");
|
|
|
|
|
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
sym = (char *) CPP_PWRITTEN (pfile); /* remember where it starts */
|
|
|
|
|
ret = parse_assertion (pfile);
|
|
|
|
|
if (ret == 0)
|
|
|
|
|
goto error;
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
c = PEEKC ();
|
|
|
|
|
if (c != EOF && c != '\n')
|
|
|
|
|
cpp_error (pfile, "junk at end of `#unassert'");
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
thislen = strlen (sym);
|
|
|
|
|
if (ret == 1)
|
|
|
|
|
{
|
|
|
|
|
base = cpp_lookup (pfile, sym, thislen, -1);
|
|
|
|
|
if (! base)
|
|
|
|
|
goto error; /* It isn't an error to #undef what isn't #defined,
|
|
|
|
|
so it isn't an error to #unassert what isn't
|
|
|
|
|
#asserted either. */
|
|
|
|
|
|
|
|
|
|
for (this = base->value.aschain; this; this = next)
|
|
|
|
|
{
|
|
|
|
|
next = this->value.aschain;
|
|
|
|
|
delete_macro (this);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
delete_macro (base);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
baselen = index (sym, '(') - sym;
|
|
|
|
|
base = cpp_lookup (pfile, sym, baselen, -1);
|
|
|
|
|
if (! base) goto error;
|
|
|
|
|
this = cpp_lookup (pfile, sym, thislen, -1);
|
|
|
|
|
if (! this) goto error;
|
|
|
|
|
|
|
|
|
|
next = base;
|
|
|
|
|
while (next->value.aschain != this)
|
|
|
|
|
next = next->value.aschain;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
next->value.aschain = this->value.aschain;
|
|
|
|
|
delete_macro (this);
|
|
|
|
|
|
|
|
|
|
if (base->value.aschain == NULL)
|
|
|
|
|
delete_macro (base); /* Last answer for this predicate deleted. */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
pfile->limit = (unsigned char *) sym; /* Pop */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
return 0;
|
|
|
|
|
error:
|
|
|
|
|
skip_rest_of_line (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->limit = (unsigned char *) sym; /* Pop */
|
|
|
|
|
return 0;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Process STR as if it appeared as the body of an #unassert. */
|
|
|
|
|
void
|
|
|
|
|
cpp_unassert (pfile, str)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
unsigned char *str;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
if (cpp_push_buffer (pfile, str, strlen (str)) != NULL)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
do_assert (pfile, NULL);
|
|
|
|
|
cpp_pop_buffer (pfile);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
}
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
int
|
|
|
|
|
cpp_read_check_assertion (pfile)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
U_CHAR *name = CPP_PWRITTEN (pfile);
|
|
|
|
|
int result;
|
|
|
|
|
HASHNODE *hp;
|
|
|
|
|
|
|
|
|
|
FORWARD (1); /* Skip '#' */
|
|
|
|
|
cpp_skip_hspace (pfile);
|
|
|
|
|
if (! parse_assertion (pfile))
|
|
|
|
|
result = 0;
|
|
|
|
|
else
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
hp = cpp_lookup (pfile, name, CPP_PWRITTEN (pfile) - name, -1);
|
|
|
|
|
result = (hp != 0);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
pfile->limit = name;
|
|
|
|
|
return result;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Remember the current position of PFILE. */
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_set_mark (pfile)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buffer *ip = CPP_BUFFER (pfile);
|
|
|
|
|
if (ip->mark != -1)
|
|
|
|
|
cpp_fatal (pfile,
|
|
|
|
|
"cpp internal error: ip->mark != -1 in parse_set_mark");
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
ip->mark = ip->cur - ip->buf;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Clear the current mark - we no longer need it. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_clear_mark (pfile)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buffer *ip = CPP_BUFFER (pfile);
|
|
|
|
|
if (ip->mark == -1)
|
|
|
|
|
cpp_fatal (pfile,
|
|
|
|
|
"cpp internal error: ip->mark == -1 in parse_clear_mark");
|
|
|
|
|
|
|
|
|
|
ip->mark = -1;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
/* Backup the current position of PFILE to that saved in its mark,
|
|
|
|
|
and clear the mark. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
parse_goto_mark (pfile)
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_buffer *ip = CPP_BUFFER (pfile);
|
|
|
|
|
if (ip->mark == -1)
|
|
|
|
|
cpp_fatal (pfile,
|
|
|
|
|
"cpp internal error: ip->mark == -1 in parse_goto_mark");
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
ip->cur = ip->buf + ip->mark;
|
|
|
|
|
ip->mark = -1;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
1999-10-16 06:09:09 +00:00
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
void
|
|
|
|
|
cpp_print_file_and_line (pfile)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
{
|
|
|
|
|
cpp_buffer *ip = cpp_file_buffer (pfile);
|
|
|
|
|
|
|
|
|
|
if (ip != NULL)
|
|
|
|
|
{
|
|
|
|
|
long line, col;
|
|
|
|
|
cpp_buf_line_and_col (ip, &line, &col);
|
|
|
|
|
cpp_file_line_for_message (pfile, ip->nominal_fname,
|
|
|
|
|
line, pfile->show_column ? col : -1);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_error (pfile, msgid, ap)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_list ap;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
cpp_print_containing_files (pfile);
|
|
|
|
|
cpp_print_file_and_line (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_message (pfile, 1, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error VPROTO ((cpp_reader * pfile, const char *msgid, ...))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
va_list ap;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
VA_START(ap, msgid);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
pfile = va_arg (ap, cpp_reader *);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
msgid = va_arg (ap, const char *);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_error (pfile, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_end(ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print error message but don't count it. */
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_warning (pfile, msgid, ap)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_list ap;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
if (CPP_OPTIONS (pfile)->inhibit_warnings)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (CPP_OPTIONS (pfile)->warnings_are_errors)
|
|
|
|
|
pfile->errors++;
|
|
|
|
|
|
|
|
|
|
cpp_print_containing_files (pfile);
|
|
|
|
|
cpp_print_file_and_line (pfile);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_message (pfile, 0, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_warning VPROTO ((cpp_reader * pfile, const char *msgid, ...))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
va_list ap;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
VA_START (ap, msgid);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
pfile = va_arg (ap, cpp_reader *);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
msgid = va_arg (ap, const char *);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_warning (pfile, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_end(ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Print an error message and maybe count it. */
|
|
|
|
|
|
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_pedwarn VPROTO ((cpp_reader * pfile, const char *msgid, ...))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
va_list ap;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
VA_START (ap, msgid);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
pfile = va_arg (ap, cpp_reader *);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
msgid = va_arg (ap, const char *);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (CPP_OPTIONS (pfile)->pedantic_errors)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_error (pfile, msgid, ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_warning (pfile, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_end(ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_error_with_line (pfile, line, column, msgid, ap)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader * pfile;
|
|
|
|
|
int line;
|
|
|
|
|
int column;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char * msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_list ap;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
cpp_buffer *ip = cpp_file_buffer (pfile);
|
|
|
|
|
|
|
|
|
|
cpp_print_containing_files (pfile);
|
|
|
|
|
|
|
|
|
|
if (ip != NULL)
|
|
|
|
|
cpp_file_line_for_message (pfile, ip->nominal_fname, line, column);
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_message (pfile, 1, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_error_with_line VPROTO ((cpp_reader * pfile, int line, int column,
|
|
|
|
|
const char *msgid, ...))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
int line;
|
|
|
|
|
int column;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
va_list ap;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
VA_START (ap, msgid);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
pfile = va_arg (ap, cpp_reader *);
|
|
|
|
|
line = va_arg (ap, int);
|
|
|
|
|
column = va_arg (ap, int);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
msgid = va_arg (ap, const char *);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_error_with_line(pfile, line, column, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_end(ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
static void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_warning_with_line (pfile, line, column, msgid, ap)
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader * pfile;
|
|
|
|
|
int line;
|
|
|
|
|
int column;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_list ap;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
cpp_buffer *ip;
|
|
|
|
|
|
|
|
|
|
if (CPP_OPTIONS (pfile)->inhibit_warnings)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (CPP_OPTIONS (pfile)->warnings_are_errors)
|
|
|
|
|
pfile->errors++;
|
|
|
|
|
|
|
|
|
|
cpp_print_containing_files (pfile);
|
|
|
|
|
|
|
|
|
|
ip = cpp_file_buffer (pfile);
|
|
|
|
|
|
|
|
|
|
if (ip != NULL)
|
|
|
|
|
cpp_file_line_for_message (pfile, ip->nominal_fname, line, column);
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_message (pfile, 0, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
void
|
|
|
|
|
cpp_warning_with_line VPROTO ((cpp_reader * pfile, int line, int column,
|
|
|
|
|
const char *msgid, ...))
|
1999-08-26 09:30:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
int line;
|
|
|
|
|
int column;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
va_list ap;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
VA_START (ap, msgid);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
pfile = va_arg (ap, cpp_reader *);
|
|
|
|
|
line = va_arg (ap, int);
|
|
|
|
|
column = va_arg (ap, int);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
msgid = va_arg (ap, const char *);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_warning_with_line (pfile, line, column, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_end(ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_pedwarn_with_line VPROTO ((cpp_reader * pfile, int line, int column,
|
|
|
|
|
const char *msgid, ...))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
int line;
|
|
|
|
|
int column;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
va_list ap;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
VA_START (ap, msgid);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
pfile = va_arg (ap, cpp_reader *);
|
|
|
|
|
line = va_arg (ap, int);
|
|
|
|
|
column = va_arg (ap, int);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
msgid = va_arg (ap, const char *);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (CPP_OPTIONS (pfile)->pedantic_errors)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_error_with_line (pfile, column, line, msgid, ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
else
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_warning_with_line (pfile, line, column, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_end(ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Report a warning (or an error if pedantic_errors)
|
|
|
|
|
giving specified file name and line number, not current. */
|
|
|
|
|
|
|
|
|
|
void
|
1999-10-16 06:09:09 +00:00
|
|
|
|
cpp_pedwarn_with_file_and_line VPROTO ((cpp_reader *pfile, char *file, int line,
|
|
|
|
|
const char *msgid, ...))
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
char *file;
|
|
|
|
|
int line;
|
1999-10-16 06:09:09 +00:00
|
|
|
|
const char *msgid;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
va_list ap;
|
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
VA_START (ap, msgid);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
|
1999-10-16 06:09:09 +00:00
|
|
|
|
#ifndef ANSI_PROTOTYPES
|
1999-08-26 09:30:50 +00:00
|
|
|
|
pfile = va_arg (ap, cpp_reader *);
|
|
|
|
|
file = va_arg (ap, char *);
|
|
|
|
|
line = va_arg (ap, int);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
msgid = va_arg (ap, const char *);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
#endif
|
|
|
|
|
|
1996-09-18 05:35:50 +00:00
|
|
|
|
if (!CPP_OPTIONS (pfile)->pedantic_errors
|
|
|
|
|
&& CPP_OPTIONS (pfile)->inhibit_warnings)
|
|
|
|
|
return;
|
|
|
|
|
if (file != NULL)
|
|
|
|
|
cpp_file_line_for_message (pfile, file, line, -1);
|
1999-10-16 06:09:09 +00:00
|
|
|
|
v_cpp_message (pfile, CPP_OPTIONS (pfile)->pedantic_errors, msgid, ap);
|
1999-08-26 09:30:50 +00:00
|
|
|
|
va_end(ap);
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
/* my_strerror - return the descriptive text associated with an
|
|
|
|
|
`errno' code. */
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
static char *
|
1996-09-18 05:35:50 +00:00
|
|
|
|
my_strerror (errnum)
|
|
|
|
|
int errnum;
|
|
|
|
|
{
|
|
|
|
|
char *result;
|
|
|
|
|
|
|
|
|
|
#ifndef VMS
|
|
|
|
|
#ifndef HAVE_STRERROR
|
|
|
|
|
result = (char *) ((errnum < sys_nerr) ? sys_errlist[errnum] : 0);
|
|
|
|
|
#else
|
|
|
|
|
result = strerror (errnum);
|
|
|
|
|
#endif
|
|
|
|
|
#else /* VMS */
|
|
|
|
|
/* VAXCRTL's strerror() takes an optional second argument, which only
|
|
|
|
|
matters when the first argument is EVMSERR. However, it's simplest
|
|
|
|
|
just to pass it unconditionally. `vaxc$errno' is declared in
|
|
|
|
|
<errno.h>, and maintained by the library in parallel with `errno'.
|
|
|
|
|
We assume that caller's `errnum' either matches the last setting of
|
|
|
|
|
`errno' by the library or else does not have the value `EVMSERR'. */
|
|
|
|
|
|
|
|
|
|
result = strerror (errnum, vaxc$errno);
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
if (!result)
|
1999-10-16 06:09:09 +00:00
|
|
|
|
result = "errno = ?";
|
1996-09-18 05:35:50 +00:00
|
|
|
|
|
|
|
|
|
return result;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Error including a message from `errno'. */
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cpp_error_from_errno (pfile, name)
|
|
|
|
|
cpp_reader *pfile;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
const char *name;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_message_from_errno (pfile, 1, name);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cpp_message_from_errno (pfile, is_error, name)
|
|
|
|
|
cpp_reader *pfile;
|
|
|
|
|
int is_error;
|
|
|
|
|
const char *name;
|
|
|
|
|
{
|
|
|
|
|
int e = errno;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
cpp_buffer *ip = cpp_file_buffer (pfile);
|
|
|
|
|
|
|
|
|
|
cpp_print_containing_files (pfile);
|
|
|
|
|
|
|
|
|
|
if (ip != NULL)
|
|
|
|
|
cpp_file_line_for_message (pfile, ip->nominal_fname, ip->lineno, -1);
|
|
|
|
|
|
1999-08-26 09:30:50 +00:00
|
|
|
|
cpp_message (pfile, is_error, "%s: %s", name, my_strerror (e));
|
1996-09-18 05:35:50 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
cpp_perror_with_name (pfile, name)
|
|
|
|
|
cpp_reader *pfile;
|
1999-08-26 09:30:50 +00:00
|
|
|
|
const char *name;
|
1996-09-18 05:35:50 +00:00
|
|
|
|
{
|
|
|
|
|
cpp_message (pfile, 1, "%s: %s: %s", progname, name, my_strerror (errno));
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* TODO:
|
|
|
|
|
* No pre-compiled header file support.
|
|
|
|
|
*
|
|
|
|
|
* Possibly different enum token codes for each C/C++ token.
|
|
|
|
|
*
|
|
|
|
|
* Find and cleanup remaining uses of static variables,
|
|
|
|
|
*
|
|
|
|
|
* Support -dM flag (dump_all_macros).
|
|
|
|
|
*
|
|
|
|
|
* Support for_lint flag.
|
|
|
|
|
*/
|