[thirdparty/gcc.git] / gcc / cppspec.c

/* Specific flags and argument handling of the C preprocessor.
   Copyright (C) 1999 Free Software Foundation, Inc.

This file is part of GNU CC.

GNU CC 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.

GNU CC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU CC; see the file COPYING.  If not, write to
the Free Software Foundation, 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  */

#include "config.h"
#include "system.h"
#include "gcc.h"

/* The `cpp' executable installed in $(bindir) and $(cpp_install_dir)
   is a customized version of the gcc driver.  It forces -E; -S and -c
   are errors.  It defaults to -x c for files with unrecognized
   extensions, unless -x options appear in argv, in which case we
   assume the user knows what they're doing.  If no explicit input is
   mentioned, it will read stdin. */

/* Snarfed from gcc.c: */

/* This defines which switch letters take arguments.  */

#define DEFAULT_SWITCH_TAKES_ARG(CHAR) \
  ((CHAR) == 'D' || (CHAR) == 'U' || (CHAR) == 'o' \
   || (CHAR) == 'e' || (CHAR) == 'T' || (CHAR) == 'u' \
   || (CHAR) == 'I' || (CHAR) == 'm' || (CHAR) == 'x' \
   || (CHAR) == 'L' || (CHAR) == 'A' || (CHAR) == 'V' \
   || (CHAR) == 'B' || (CHAR) == 'b')

#ifndef SWITCH_TAKES_ARG
#define SWITCH_TAKES_ARG(CHAR) DEFAULT_SWITCH_TAKES_ARG(CHAR)
#endif

/* This defines which multi-letter switches take arguments.  */

#define DEFAULT_WORD_SWITCH_TAKES_ARG(STR)		\
 (!strcmp (STR, "Tdata") || !strcmp (STR, "Ttext")	\
  || !strcmp (STR, "Tbss") || !strcmp (STR, "include")	\
  || !strcmp (STR, "imacros") || !strcmp (STR, "aux-info") \
  || !strcmp (STR, "idirafter") || !strcmp (STR, "iprefix") \
  || !strcmp (STR, "iwithprefix") || !strcmp (STR, "iwithprefixbefore") \
  || !strcmp (STR, "isystem") || !strcmp (STR, "specs"))

#ifndef WORD_SWITCH_TAKES_ARG
#define WORD_SWITCH_TAKES_ARG(STR) DEFAULT_WORD_SWITCH_TAKES_ARG (STR)
#endif

/* Suffixes for known sorts of input files.  Note that we do not list
   files which are normally considered to have been preprocessed already,
   since the user's expectation is that `cpp' always preprocesses.  */
static const char *const known_suffixes[] =
{
  ".c",  ".C",   ".S",   ".m",
  ".cc", ".cxx", ".cpp", ".cp",  ".c++",
  NULL
};

/* Filter argc and argv before processing by the gcc driver proper. */
void
lang_specific_driver (in_argc, in_argv, in_added_libraries)
     int *in_argc;
     char ***in_argv;
     int *in_added_libraries ATTRIBUTE_UNUSED;
{
  int argc = *in_argc;
  char **argv = *in_argv;
  
  /* Do we need to read stdin? */
  int read_stdin = 1;

  /* Do we need to insert -E? */
  int need_E = 1;

  /* Do we need to insert -no-gcc? */
  int need_no_gcc = 1;

  /* Have we seen an input file? */
  int seen_input = 0;
  
  /* Positions to insert -xc, -xassembler-with-cpp, and -o, if necessary.
     0 means unnecessary. */
  int lang_c_here = 0;
  int lang_S_here = 0;
  int o_here = 0;

  /* Do we need to fix up an input file with an unrecognized suffix? */
  int need_fixups = 1;
  
  int i, j, quote = 0;
  char **real_new_argv;
  const char **new_argv;
  int new_argc;

  /* First pass.  If we see an -S or -c, barf.  If we see an input file,
     turn off read_stdin.  If we see a second input file, it is actually
     the output file.  If we see a third input file, barf.  */
  for (i = 1; i < argc; i++)
    {
      if (quote == 1)
	{
	  quote = 0;
	  continue;
	}
      
      if (argv[i][0] == '-')
	{
	  if (argv[i][1] == '\0')
	    read_stdin = 0;
	  else if (argv[i][2] == '\0')
	    {
	      if (argv[i][1] == 'E')
		need_E = 0;
	      else if (argv[i][1] == 'S' || argv[i][1] == 'c')
		{
		  fatal ("`%s' is not a legal option to the preprocessor",
			 argv[i]);
		  return;
		}
	      else if (argv[i][1] == 'x')
		{
		  need_fixups = 0;
		  quote = 1;
		}
	      else if (SWITCH_TAKES_ARG (argv[i][1]))
		quote = 1;
	    }
	  else if (argv[i][1] == 'x')
	    need_fixups = 0;
	  else if (argv[i][1] == 'g' && !strcmp(&argv[i][2], "cc"))
	    need_no_gcc = 0;
	  else if (WORD_SWITCH_TAKES_ARG (&argv[i][1]))
	    quote = 1;
	}
      else /* not an option */
	{
	  seen_input++;
	  if (seen_input == 3)
	    {
	      fatal ("too many input files");
	      return;
	    }
	  else if (seen_input == 2)
	    {
	      o_here = i;
	    }
	  else
	    {
	      read_stdin = 0;
	      if (need_fixups)
		{
		  int l = strlen (argv[i]);
		  int known = 0;
		  const char *const *suff;

		  for (suff = known_suffixes; *suff; suff++)
		    if (!strcmp (*suff, &argv[i][l - strlen(*suff)]))
		      {
			known = 1;
			break;
		      }

		  if (! known)
		    {
		      /* .s files are a special case; we have to treat
			 them like .S files so -D__ASSEMBLER__ will be
			 in effect.  */
		      if (!strcmp (".s", &argv[i][l - 2]))
			lang_S_here = i;
		      else
			lang_c_here = i;
		    }
		}
	    }
	}
    }

  /* If we don't need to edit the command line, we can bail early.  */

  new_argc = argc + need_E + need_no_gcc + read_stdin
    + !!o_here + !!lang_c_here + !!lang_S_here;

  if (new_argc == argc)
    return;

  /* One more slot for a terminating null.  */
  real_new_argv = (char **) xmalloc ((new_argc + 1) * sizeof(char *));
  new_argv = (const char **) real_new_argv;

  new_argv[0] = argv[0];
  j = 1;

  if (need_E)
    new_argv[j++] = "-E";

  if (need_no_gcc)
    new_argv[j++] = "-no-gcc";

  for (i = 1; i < argc; i++, j++)
    {
      if (i == lang_c_here)
	new_argv[j++] = "-xc";
      else if (i == lang_S_here)
	new_argv[j++] = "-xassembler-with-cpp";
      else if (i == o_here)
	new_argv[j++] = "-o";

      new_argv[j] = argv[i];
    }

  if (read_stdin)
    new_argv[j++] = "-";

  new_argv[j] = NULL;
  *in_argc = new_argc;
  *in_argv = real_new_argv;
} 

/* Called before linking.  Returns 0 on success and -1 on failure. */
int lang_specific_pre_link ()
{
  return 0;  /* Not used for cpp. */
}

/* Number of extra output files that lang_specific_pre_link may generate. */
int lang_specific_extra_outfiles = 0;  /* Not used for cpp. */
Commit	Line	Data
922cf99e ZW	1	/* Specific flags and argument handling of the C preprocessor.
	2	Copyright (C) 1999 Free Software Foundation, Inc.
	3
	4	This file is part of GNU CC.
	5
	6	GNU CC is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
	8	the Free Software Foundation; either version 2, or (at your option)
	9	any later version.
	10
	11	GNU CC is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
	15
	16	You should have received a copy of the GNU General Public License
	17	along with GNU CC; see the file COPYING. If not, write to
	18	the Free Software Foundation, 59 Temple Place - Suite 330,
	19	Boston, MA 02111-1307, USA. */
	20
	21	#include "config.h"
	22	#include "system.h"
9257393c	23	#include "gcc.h"
922cf99e ZW	24
	25	/* The `cpp' executable installed in $(bindir) and $(cpp_install_dir)
	26	is a customized version of the gcc driver. It forces -E; -S and -c
	27	are errors. It defaults to -x c for files with unrecognized
	28	extensions, unless -x options appear in argv, in which case we
	29	assume the user knows what they're doing. If no explicit input is
	30	mentioned, it will read stdin. */
	31
	32	/* Snarfed from gcc.c: */
	33
	34	/* This defines which switch letters take arguments. */
	35
	36	#define DEFAULT_SWITCH_TAKES_ARG(CHAR) \
	37	((CHAR) == 'D' \|\| (CHAR) == 'U' \|\| (CHAR) == 'o' \
	38	\|\| (CHAR) == 'e' \|\| (CHAR) == 'T' \|\| (CHAR) == 'u' \
	39	\|\| (CHAR) == 'I' \|\| (CHAR) == 'm' \|\| (CHAR) == 'x' \
	40	\|\| (CHAR) == 'L' \|\| (CHAR) == 'A' \|\| (CHAR) == 'V' \
	41	\|\| (CHAR) == 'B' \|\| (CHAR) == 'b')
	42
	43	#ifndef SWITCH_TAKES_ARG
	44	#define SWITCH_TAKES_ARG(CHAR) DEFAULT_SWITCH_TAKES_ARG(CHAR)
	45	#endif
	46
	47	/* This defines which multi-letter switches take arguments. */
	48
	49	#define DEFAULT_WORD_SWITCH_TAKES_ARG(STR) \
	50	(!strcmp (STR, "Tdata") \|\| !strcmp (STR, "Ttext") \
	51	\|\| !strcmp (STR, "Tbss") \|\| !strcmp (STR, "include") \
	52	\|\| !strcmp (STR, "imacros") \|\| !strcmp (STR, "aux-info") \
	53	\|\| !strcmp (STR, "idirafter") \|\| !strcmp (STR, "iprefix") \
	54	\|\| !strcmp (STR, "iwithprefix") \|\| !strcmp (STR, "iwithprefixbefore") \
	55	\|\| !strcmp (STR, "isystem") \|\| !strcmp (STR, "specs"))
	56
	57	#ifndef WORD_SWITCH_TAKES_ARG
	58	#define WORD_SWITCH_TAKES_ARG(STR) DEFAULT_WORD_SWITCH_TAKES_ARG (STR)
	59	#endif
	60
54ff00f6 DB	61	/* Suffixes for known sorts of input files. Note that we do not list
	62	files which are normally considered to have been preprocessed already,
	63	since the user's expectation is that `cpp' always preprocesses. */
922cf99e ZW	64	static const char *const known_suffixes[] =
922cf99e ZW	65	{
54ff00f6	66	".c", ".C", ".S", ".m",
922cf99e	67	".cc", ".cxx", ".cpp", ".cp", ".c++",
922cf99e ZW	68	NULL
	69	};
	70
	71	/* Filter argc and argv before processing by the gcc driver proper. */
	72	void
9257393c	73	lang_specific_driver (in_argc, in_argv, in_added_libraries)
922cf99e ZW	74	int *in_argc;
	75	char ***in_argv;
	76	int *in_added_libraries ATTRIBUTE_UNUSED;
	77	{
	78	int argc = *in_argc;
	79	char *argv = in_argv;
	80
	81	/* Do we need to read stdin? */
54ff00f6	82	int read_stdin = 1;
922cf99e ZW	83
922cf99e ZW	84	/* Do we need to insert -E? */
54ff00f6	85	int need_E = 1;
922cf99e	86
eeb183e9 ZW	87	/* Do we need to insert -no-gcc? */
	88	int need_no_gcc = 1;
	89
54ff00f6 DB	90	/* Have we seen an input file? */
	91	int seen_input = 0;
	92
	93	/* Positions to insert -xc, -xassembler-with-cpp, and -o, if necessary.
	94	0 means unnecessary. */
	95	int lang_c_here = 0;
	96	int lang_S_here = 0;
	97	int o_here = 0;
	98
	99	/* Do we need to fix up an input file with an unrecognized suffix? */
	100	int need_fixups = 1;
	101
9257393c KG	102	int i, j, quote = 0;
	103	char **real_new_argv;
	104	const char **new_argv;
922cf99e ZW	105	int new_argc;
	106
	107	/* First pass. If we see an -S or -c, barf. If we see an input file,
54ff00f6 DB	108	turn off read_stdin. If we see a second input file, it is actually
54ff00f6 DB	109	the output file. If we see a third input file, barf. */
922cf99e ZW	110	for (i = 1; i < argc; i++)
	111	{
	112	if (quote == 1)
	113	{
	114	quote = 0;
	115	continue;
	116	}
	117
	118	if (argv[i][0] == '-')
	119	{
	120	if (argv[i][1] == '\0')
	121	read_stdin = 0;
	122	else if (argv[i][2] == '\0')
	123	{
	124	if (argv[i][1] == 'E')
	125	need_E = 0;
	126	else if (argv[i][1] == 'S' \|\| argv[i][1] == 'c')
	127	{
9257393c KG	128	fatal ("`%s' is not a legal option to the preprocessor",
9257393c KG	129	argv[i]);
54ff00f6	130	return;
922cf99e ZW	131	}
	132	else if (argv[i][1] == 'x')
	133	{
	134	need_fixups = 0;
	135	quote = 1;
	136	}
	137	else if (SWITCH_TAKES_ARG (argv[i][1]))
	138	quote = 1;
	139	}
	140	else if (argv[i][1] == 'x')
	141	need_fixups = 0;
eeb183e9 ZW	142	else if (argv[i][1] == 'g' && !strcmp(&argv[i][2], "cc"))
eeb183e9 ZW	143	need_no_gcc = 0;
922cf99e ZW	144	else if (WORD_SWITCH_TAKES_ARG (&argv[i][1]))
	145	quote = 1;
	146	}
	147	else /* not an option */
	148	{
54ff00f6 DB	149	seen_input++;
54ff00f6 DB	150	if (seen_input == 3)
922cf99e	151	{
9257393c	152	fatal ("too many input files");
54ff00f6 DB	153	return;
	154	}
	155	else if (seen_input == 2)
	156	{
	157	o_here = i;
922cf99e ZW	158	}
	159	else
	160	{
54ff00f6 DB	161	read_stdin = 0;
54ff00f6 DB	162	if (need_fixups)
922cf99e	163	{
54ff00f6 DB	164	int l = strlen (argv[i]);
	165	int known = 0;
	166	const char const suff;
	167
	168	for (suff = known_suffixes; *suff; suff++)
	169	if (!strcmp (suff, &argv[i][l - strlen(suff)]))
	170	{
	171	known = 1;
	172	break;
	173	}
	174
	175	if (! known)
	176	{
	177	/* .s files are a special case; we have to treat
	178	them like .S files so -D__ASSEMBLER__ will be
	179	in effect. */
	180	if (!strcmp (".s", &argv[i][l - 2]))
	181	lang_S_here = i;
	182	else
	183	lang_c_here = i;
	184	}
922cf99e ZW	185	}
	186	}
	187	}
	188	}
	189
54ff00f6 DB	190	/* If we don't need to edit the command line, we can bail early. */
54ff00f6 DB	191
eeb183e9	192	new_argc = argc + need_E + need_no_gcc + read_stdin
54ff00f6 DB	193	+ !!o_here + !!lang_c_here + !!lang_S_here;
	194
	195	if (new_argc == argc)
	196	return;
922cf99e	197
3ed4f5ed	198	/* One more slot for a terminating null. */
9257393c	199	real_new_argv = (char *) xmalloc ((new_argc + 1) sizeof(char *));
4c3d3ad8	200	new_argv = (const char **) real_new_argv;
922cf99e ZW	201
922cf99e ZW	202	new_argv[0] = argv[0];
54ff00f6 DB	203	j = 1;
54ff00f6 DB	204
922cf99e	205	if (need_E)
54ff00f6 DB	206	new_argv[j++] = "-E";
54ff00f6 DB	207
eeb183e9 ZW	208	if (need_no_gcc)
	209	new_argv[j++] = "-no-gcc";
	210
54ff00f6	211	for (i = 1; i < argc; i++, j++)
922cf99e	212	{
54ff00f6 DB	213	if (i == lang_c_here)
	214	new_argv[j++] = "-xc";
	215	else if (i == lang_S_here)
	216	new_argv[j++] = "-xassembler-with-cpp";
	217	else if (i == o_here)
	218	new_argv[j++] = "-o";
	219
	220	new_argv[j] = argv[i];
922cf99e	221	}
922cf99e ZW	222
922cf99e ZW	223	if (read_stdin)
3ed4f5ed	224	new_argv[j++] = "-";
922cf99e	225
3ed4f5ed	226	new_argv[j] = NULL;
922cf99e	227	*in_argc = new_argc;
9257393c	228	*in_argv = real_new_argv;
54ff00f6	229	}
922cf99e ZW	230
	231	/* Called before linking. Returns 0 on success and -1 on failure. */
	232	int lang_specific_pre_link ()
	233	{
	234	return 0; /* Not used for cpp. */
	235	}
	236
	237	/* Number of extra output files that lang_specific_pre_link may generate. */
	238	int lang_specific_extra_outfiles = 0; /* Not used for cpp. */