gcc/cppinit.c

   1 /* CPP Library.
   2    Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
   3    1999, 2000, 2001, 2002 Free Software Foundation, Inc.
   4    Contributed by Per Bothner, 1994-95.
   5    Based on CCCP program by Paul Rubin, June 1986
   6    Adapted to ANSI C, Richard Stallman, Jan 1987
   7
   8 This program is free software; you can redistribute it and/or modify it
   9 under the terms of the GNU General Public License as published by the
  10 Free Software Foundation; either version 2, or (at your option) any
  11 later version.
  12
  13 This program is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with this program; if not, write to the Free Software
  20 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  21
  22 #include "config.h"
  23 #include "system.h"
  24 #include "cpplib.h"
  25 #include "cpphash.h"
  26 #include "prefix.h"
  27 #include "intl.h"
  28 #include "version.h"
  29 #include "mkdeps.h"
  30 #include "cppdefault.h"
  31
  32 /* Predefined symbols, built-in macros, and the default include path.  */
  33
  34 #ifndef GET_ENV_PATH_LIST
  35 #define GET_ENV_PATH_LIST(VAR,NAME)     do { (VAR) = getenv (NAME); } while (0)
  36 #endif
  37
  38 /* Windows does not natively support inodes, and neither does MSDOS.
  39    Cygwin's emulation can generate non-unique inodes, so don't use it.
  40    VMS has non-numeric inodes.  */
  41 #ifdef VMS
  42 # define INO_T_EQ(A, B) (!memcmp (&(A), &(B), sizeof (A)))
  43 # define INO_T_COPY(DEST, SRC) memcpy(&(DEST), &(SRC), sizeof (SRC))
  44 #else
  45 # if (defined _WIN32 && ! defined (_UWIN)) || defined __MSDOS__
  46 #  define INO_T_EQ(A, B) 0
  47 # else
  48 #  define INO_T_EQ(A, B) ((A) == (B))
  49 # endif
  50 # define INO_T_COPY(DEST, SRC) (DEST) = (SRC)
  51 #endif
  52
  53 /* Internal structures and prototypes.  */
  54
  55 /* A `struct pending_option' remembers one -D, -A, -U, -include, or
  56    -imacros switch.  */
  57 typedef void (* cl_directive_handler) PARAMS ((cpp_reader *, const char *));
  58 struct pending_option
  59 {
  60   struct pending_option *next;
  61   const char *arg;
  62   cl_directive_handler handler;
  63 };
  64
  65 /* The `pending' structure accumulates all the options that are not
  66    actually processed until we hit cpp_read_main_file.  It consists of
  67    several lists, one for each type of option.  We keep both head and
  68    tail pointers for quick insertion.  */
  69 struct cpp_pending
  70 {
  71   struct pending_option *directive_head, *directive_tail;
  72
  73   struct search_path *quote_head, *quote_tail;
  74   struct search_path *brack_head, *brack_tail;
  75   struct search_path *systm_head, *systm_tail;
  76   struct search_path *after_head, *after_tail;
  77
  78   struct pending_option *imacros_head, *imacros_tail;
  79   struct pending_option *include_head, *include_tail;
  80 };
  81
  82 #ifdef __STDC__
  83 #define APPEND(pend, list, elt) \
  84   do {  if (!(pend)->list##_head) (pend)->list##_head = (elt); \
  85         else (pend)->list##_tail->next = (elt); \
  86         (pend)->list##_tail = (elt); \
  87   } while (0)
  88 #else
  89 #define APPEND(pend, list, elt) \
  90   do {  if (!(pend)->list/**/_head) (pend)->list/**/_head = (elt); \
  91         else (pend)->list/**/_tail->next = (elt); \
  92         (pend)->list/**/_tail = (elt); \
  93   } while (0)
  94 #endif
  95
  96 static void print_help                  PARAMS ((void));
  97 static void path_include                PARAMS ((cpp_reader *,
  98                                                  char *, int));
  99 static void init_library                PARAMS ((void));
 100 static void init_builtins               PARAMS ((cpp_reader *));
 101 static void mark_named_operators        PARAMS ((cpp_reader *));
 102 static void append_include_chain        PARAMS ((cpp_reader *,
 103                                                  char *, int, int));
 104 static struct search_path * remove_dup_dir      PARAMS ((cpp_reader *,
 105                                                  struct search_path *));
 106 static struct search_path * remove_dup_dirs PARAMS ((cpp_reader *,
 107                                                  struct search_path *));
 108 static void merge_include_chains        PARAMS ((cpp_reader *));
 109 static bool push_include                PARAMS ((cpp_reader *,
 110                                                  struct pending_option *));
 111 static void free_chain                  PARAMS ((struct pending_option *));
 112 static void set_lang                    PARAMS ((cpp_reader *, enum c_lang));
 113 static void init_dependency_output      PARAMS ((cpp_reader *));
 114 static void init_standard_includes      PARAMS ((cpp_reader *));
 115 static void read_original_filename      PARAMS ((cpp_reader *));
 116 static void new_pending_directive       PARAMS ((struct cpp_pending *,
 117                                                  const char *,
 118                                                  cl_directive_handler));
 119 static void output_deps                 PARAMS ((cpp_reader *));
 120 static int parse_option                 PARAMS ((const char *));
 121
 122 /* Fourth argument to append_include_chain: chain to use.
 123    Note it's never asked to append to the quote chain.  */
 124 enum { BRACKET = 0, SYSTEM, AFTER };
 125
 126 /* If we have designated initializers (GCC >2.7) these tables can be
 127    initialized, constant data.  Otherwise, they have to be filled in at
 128    runtime.  */
 129 #if HAVE_DESIGNATED_INITIALIZERS
 130
 131 #define init_trigraph_map()  /* Nothing.  */
 132 #define TRIGRAPH_MAP \
 133 __extension__ const uchar _cpp_trigraph_map[UCHAR_MAX + 1] = {
 134
 135 #define END };
 136 #define s(p, v) [p] = v,
 137
 138 #else
 139
 140 #define TRIGRAPH_MAP uchar _cpp_trigraph_map[UCHAR_MAX + 1] = { 0 }; \
 141  static void init_trigraph_map PARAMS ((void)) { \
 142  unsigned char *x = _cpp_trigraph_map;
 143
 144 #define END }
 145 #define s(p, v) x[p] = v;
 146
 147 #endif
 148
 149 TRIGRAPH_MAP
 150   s('=', '#')   s(')', ']')     s('!', '|')
 151   s('(', '[')   s('\'', '^')    s('>', '}')
 152   s('/', '\\')  s('<', '{')     s('-', '~')
 153 END
 154
 155 #undef s
 156 #undef END
 157 #undef TRIGRAPH_MAP
 158
 159 /* Given a colon-separated list of file names PATH,
 160    add all the names to the search path for include files.  */
 161 static void
 162 path_include (pfile, list, path)
 163      cpp_reader *pfile;
 164      char *list;
 165      int path;
 166 {
 167   char *p, *q, *name;
 168
 169   p = list;
 170
 171   do
 172     {
 173       /* Find the end of this name.  */
 174       q = p;
 175       while (*q != 0 && *q != PATH_SEPARATOR) q++;
 176       if (q == p)
 177         {
 178           /* An empty name in the path stands for the current directory.  */
 179           name = (char *) xmalloc (2);
 180           name[0] = '.';
 181           name[1] = 0;
 182         }
 183       else
 184         {
 185           /* Otherwise use the directory that is named.  */
 186           name = (char *) xmalloc (q - p + 1);
 187           memcpy (name, p, q - p);
 188           name[q - p] = 0;
 189         }
 190
 191       append_include_chain (pfile, name, path, 0);
 192
 193       /* Advance past this name.  */
 194       if (*q == 0)
 195         break;
 196       p = q + 1;
 197     }
 198   while (1);
 199 }
 200
 201 /* Append DIR to include path PATH.  DIR must be allocated on the
 202    heap; this routine takes responsibility for freeing it.  CXX_AWARE
 203    is non-zero if the header contains extern "C" guards for C++,
 204    otherwise it is zero.  */
 205 static void
 206 append_include_chain (pfile, dir, path, cxx_aware)
 207      cpp_reader *pfile;
 208      char *dir;
 209      int path;
 210      int cxx_aware;
 211 {
 212   struct cpp_pending *pend = CPP_OPTION (pfile, pending);
 213   struct search_path *new;
 214   struct stat st;
 215   unsigned int len;
 216
 217   if (*dir == '\0')
 218     {
 219       free (dir);
 220       dir = xstrdup (".");
 221     }
 222   _cpp_simplify_pathname (dir);
 223
 224   if (stat (dir, &st))
 225     {
 226       /* Dirs that don't exist are silently ignored.  */
 227       if (errno != ENOENT)
 228         cpp_errno (pfile, DL_ERROR, dir);
 229       else if (CPP_OPTION (pfile, verbose))
 230         fprintf (stderr, _("ignoring nonexistent directory \"%s\"\n"), dir);
 231       free (dir);
 232       return;
 233     }
 234
 235   if (!S_ISDIR (st.st_mode))
 236     {
 237       cpp_error_with_line (pfile, DL_ERROR, 0, 0, "%s: Not a directory", dir);
 238       free (dir);
 239       return;
 240     }
 241
 242   len = strlen (dir);
 243   if (len > pfile->max_include_len)
 244     pfile->max_include_len = len;
 245
 246   new = (struct search_path *) xmalloc (sizeof (struct search_path));
 247   new->name = dir;
 248   new->len = len;
 249   INO_T_COPY (new->ino, st.st_ino);
 250   new->dev  = st.st_dev;
 251   /* Both systm and after include file lists should be treated as system
 252      include files since these two lists are really just a concatenation
 253      of one "system" list.  */
 254   if (path == SYSTEM || path == AFTER)
 255     new->sysp = cxx_aware ? 1 : 2;
 256   else
 257     new->sysp = 0;
 258   new->name_map = NULL;
 259   new->next = NULL;
 260
 261   switch (path)
 262     {
 263     case BRACKET:       APPEND (pend, brack, new); break;
 264     case SYSTEM:        APPEND (pend, systm, new); break;
 265     case AFTER:         APPEND (pend, after, new); break;
 266     }
 267 }
 268
 269 /* Handle a duplicated include path.  PREV is the link in the chain
 270    before the duplicate.  The duplicate is removed from the chain and
 271    freed.  Returns PREV.  */
 272 static struct search_path *
 273 remove_dup_dir (pfile, prev)
 274      cpp_reader *pfile;
 275      struct search_path *prev;
 276 {
 277   struct search_path *cur = prev->next;
 278
 279   if (CPP_OPTION (pfile, verbose))
 280     fprintf (stderr, _("ignoring duplicate directory \"%s\"\n"), cur->name);
 281
 282   prev->next = cur->next;
 283   free ((PTR) cur->name);
 284   free (cur);
 285
 286   return prev;
 287 }
 288
 289 /* Remove duplicate directories from a chain.  Returns the tail of the
 290    chain, or NULL if the chain is empty.  This algorithm is quadratic
 291    in the number of -I switches, which is acceptable since there
 292    aren't usually that many of them.  */
 293 static struct search_path *
 294 remove_dup_dirs (pfile, head)
 295      cpp_reader *pfile;
 296      struct search_path *head;
 297 {
 298   struct search_path *prev = NULL, *cur, *other;
 299
 300   for (cur = head; cur; cur = cur->next)
 301     {
 302       for (other = head; other != cur; other = other->next)
 303         if (INO_T_EQ (cur->ino, other->ino) && cur->dev == other->dev)
 304           {
 305             if (cur->sysp && !other->sysp)
 306               {
 307                 cpp_error (pfile, DL_WARNING,
 308                            "changing search order for system directory \"%s\"",
 309                            cur->name);
 310                 if (strcmp (cur->name, other->name))
 311                   cpp_error (pfile, DL_WARNING,
 312                              "  as it is the same as non-system directory \"%s\"",
 313                              other->name);
 314                 else
 315                   cpp_error (pfile, DL_WARNING,
 316                              "  as it has already been specified as a non-system directory");
 317               }
 318             cur = remove_dup_dir (pfile, prev);
 319             break;
 320           }
 321       prev = cur;
 322     }
 323
 324   return prev;
 325 }
 326
 327 /* Merge the four include chains together in the order quote, bracket,
 328    system, after.  Remove duplicate dirs (as determined by
 329    INO_T_EQ()).  The system_include and after_include chains are never
 330    referred to again after this function; all access is through the
 331    bracket_include path.  */
 332 static void
 333 merge_include_chains (pfile)
 334      cpp_reader *pfile;
 335 {
 336   struct search_path *quote, *brack, *systm, *qtail;
 337
 338   struct cpp_pending *pend = CPP_OPTION (pfile, pending);
 339
 340   quote = pend->quote_head;
 341   brack = pend->brack_head;
 342   systm = pend->systm_head;
 343   qtail = pend->quote_tail;
 344
 345   /* Paste together bracket, system, and after include chains.  */
 346   if (systm)
 347     pend->systm_tail->next = pend->after_head;
 348   else
 349     systm = pend->after_head;
 350
 351   if (brack)
 352     pend->brack_tail->next = systm;
 353   else
 354     brack = systm;
 355
 356   /* This is a bit tricky.  First we drop dupes from the quote-include
 357      list.  Then we drop dupes from the bracket-include list.
 358      Finally, if qtail and brack are the same directory, we cut out
 359      brack and move brack up to point to qtail.
 360
 361      We can't just merge the lists and then uniquify them because
 362      then we may lose directories from the <> search path that should
 363      be there; consider -Ifoo -Ibar -I- -Ifoo -Iquux. It is however
 364      safe to treat -Ibar -Ifoo -I- -Ifoo -Iquux as if written
 365      -Ibar -I- -Ifoo -Iquux.  */
 366
 367   remove_dup_dirs (pfile, brack);
 368   qtail = remove_dup_dirs (pfile, quote);
 369
 370   if (quote)
 371     {
 372       qtail->next = brack;
 373
 374       /* If brack == qtail, remove brack as it's simpler.  */
 375       if (brack && INO_T_EQ (qtail->ino, brack->ino)
 376           && qtail->dev == brack->dev)
 377         brack = remove_dup_dir (pfile, qtail);
 378     }
 379   else
 380     quote = brack;
 381
 382   CPP_OPTION (pfile, quote_include) = quote;
 383   CPP_OPTION (pfile, bracket_include) = brack;
 384 }
 385
 386 /* A set of booleans indicating what CPP features each source language
 387    requires.  */
 388 struct lang_flags
 389 {
 390   char c99;
 391   char cplusplus;
 392   char extended_numbers;
 393   char trigraphs;
 394   char dollars_in_ident;
 395   char cplusplus_comments;
 396   char digraphs;
 397 };
 398
 399 /* ??? Enable $ in identifiers in assembly? */
 400 static const struct lang_flags lang_defaults[] =
 401 { /*              c99 c++ xnum trig dollar c++comm digr  */
 402   /* GNUC89 */  { 0,  0,  1,   0,   1,     1,      1     },
 403   /* GNUC99 */  { 1,  0,  1,   0,   1,     1,      1     },
 404   /* STDC89 */  { 0,  0,  0,   1,   0,     0,      0     },
 405   /* STDC94 */  { 0,  0,  0,   1,   0,     0,      1     },
 406   /* STDC99 */  { 1,  0,  1,   1,   0,     1,      1     },
 407   /* GNUCXX */  { 0,  1,  1,   0,   1,     1,      1     },
 408   /* CXX98  */  { 0,  1,  1,   1,   0,     1,      1     },
 409   /* ASM    */  { 0,  0,  1,   0,   0,     1,      0     }
 410 };
 411
 412 /* Sets internal flags correctly for a given language.  */
 413 static void
 414 set_lang (pfile, lang)
 415      cpp_reader *pfile;
 416      enum c_lang lang;
 417 {
 418   const struct lang_flags *l = &lang_defaults[(int) lang];
 419
 420   CPP_OPTION (pfile, lang) = lang;
 421
 422   CPP_OPTION (pfile, c99)                = l->c99;
 423   CPP_OPTION (pfile, cplusplus)          = l->cplusplus;
 424   CPP_OPTION (pfile, extended_numbers)   = l->extended_numbers;
 425   CPP_OPTION (pfile, trigraphs)          = l->trigraphs;
 426   CPP_OPTION (pfile, dollars_in_ident)   = l->dollars_in_ident;
 427   CPP_OPTION (pfile, cplusplus_comments) = l->cplusplus_comments;
 428   CPP_OPTION (pfile, digraphs)           = l->digraphs;
 429 }
 430
 431 #ifdef HOST_EBCDIC
 432 static int opt_comp PARAMS ((const void *, const void *));
 433
 434 /* Run-time sorting of options array.  */
 435 static int
 436 opt_comp (p1, p2)
 437      const void *p1, *p2;
 438 {
 439   return strcmp (((struct cl_option *) p1)->opt_text,
 440                  ((struct cl_option *) p2)->opt_text);
 441 }
 442 #endif
 443
 444 /* init initializes library global state.  It might not need to
 445    do anything depending on the platform and compiler.  */
 446 static void
 447 init_library ()
 448 {
 449   static int initialized = 0;
 450
 451   if (! initialized)
 452     {
 453       initialized = 1;
 454
 455 #ifdef HOST_EBCDIC
 456       /* For non-ASCII hosts, the cl_options array needs to be sorted at
 457          runtime.  */
 458       qsort (cl_options, N_OPTS, sizeof (struct cl_option), opt_comp);
 459 #endif
 460
 461       /* Set up the trigraph map.  This doesn't need to do anything if
 462          we were compiled with a compiler that supports C99 designated
 463          initializers.  */
 464       init_trigraph_map ();
 465     }
 466 }
 467
 468 /* Initialize a cpp_reader structure.  */
 469 cpp_reader *
 470 cpp_create_reader (lang)
 471      enum c_lang lang;
 472 {
 473   cpp_reader *pfile;
 474
 475   /* Initialise this instance of the library if it hasn't been already.  */
 476   init_library ();
 477
 478   pfile = (cpp_reader *) xcalloc (1, sizeof (cpp_reader));
 479
 480   set_lang (pfile, lang);
 481   CPP_OPTION (pfile, warn_import) = 1;
 482   CPP_OPTION (pfile, warn_multichar) = 1;
 483   CPP_OPTION (pfile, discard_comments) = 1;
 484   CPP_OPTION (pfile, discard_comments_in_macro_exp) = 1;
 485   CPP_OPTION (pfile, show_column) = 1;
 486   CPP_OPTION (pfile, tabstop) = 8;
 487   CPP_OPTION (pfile, operator_names) = 1;
 488   CPP_OPTION (pfile, warn_endif_labels) = 1;
 489
 490   CPP_OPTION (pfile, pending) =
 491     (struct cpp_pending *) xcalloc (1, sizeof (struct cpp_pending));
 492
 493   /* Default CPP arithmetic to something sensible for the host for the
 494      benefit of dumb users like fix-header.  */
 495   CPP_OPTION (pfile, precision) = CHAR_BIT * sizeof (long);
 496   CPP_OPTION (pfile, char_precision) = CHAR_BIT;
 497   CPP_OPTION (pfile, wchar_precision) = CHAR_BIT * sizeof (int);
 498   CPP_OPTION (pfile, int_precision) = CHAR_BIT * sizeof (int);
 499   CPP_OPTION (pfile, unsigned_char) = 0;
 500   CPP_OPTION (pfile, unsigned_wchar) = 1;
 501
 502   /* It's simplest to just create this struct whether or not it will
 503      be needed.  */
 504   pfile->deps = deps_init ();
 505
 506   /* Initialise the line map.  Start at logical line 1, so we can use
 507      a line number of zero for special states.  */
 508   init_line_maps (&pfile->line_maps);
 509   pfile->trad_line = pfile->line = 1;
 510
 511   /* Initialize lexer state.  */
 512   pfile->state.save_comments = ! CPP_OPTION (pfile, discard_comments);
 513
 514   /* Set up static tokens.  */
 515   pfile->date.type = CPP_EOF;
 516   pfile->avoid_paste.type = CPP_PADDING;
 517   pfile->avoid_paste.val.source = NULL;
 518   pfile->eof.type = CPP_EOF;
 519   pfile->eof.flags = 0;
 520
 521   /* Create a token buffer for the lexer.  */
 522   _cpp_init_tokenrun (&pfile->base_run, 250);
 523   pfile->cur_run = &pfile->base_run;
 524   pfile->cur_token = pfile->base_run.base;
 525
 526   /* Initialise the base context.  */
 527   pfile->context = &pfile->base_context;
 528   pfile->base_context.macro = 0;
 529   pfile->base_context.prev = pfile->base_context.next = 0;
 530
 531   /* Aligned and unaligned storage.  */
 532   pfile->a_buff = _cpp_get_buff (pfile, 0);
 533   pfile->u_buff = _cpp_get_buff (pfile, 0);
 534
 535   /* The expression parser stack.  */
 536   _cpp_expand_op_stack (pfile);
 537
 538   /* Initialise the buffer obstack.  */
 539   gcc_obstack_init (&pfile->buffer_ob);
 540
 541   _cpp_init_includes (pfile);
 542
 543   return pfile;
 544 }
 545
 546 /* Free resources used by PFILE.  Accessing PFILE after this function
 547    returns leads to undefined behaviour.  Returns the error count.  */
 548 int
 549 cpp_destroy (pfile)
 550      cpp_reader *pfile;
 551 {
 552   int result;
 553   struct search_path *dir, *dirn;
 554   cpp_context *context, *contextn;
 555   tokenrun *run, *runn;
 556
 557   free_chain (CPP_OPTION (pfile, pending)->include_head);
 558   free (CPP_OPTION (pfile, pending));
 559   free (pfile->op_stack);
 560
 561   while (CPP_BUFFER (pfile) != NULL)
 562     _cpp_pop_buffer (pfile);
 563
 564   if (pfile->trad_out_base)
 565     free (pfile->trad_out_base);
 566
 567   if (pfile->macro_buffer)
 568     {
 569       free ((PTR) pfile->macro_buffer);
 570       pfile->macro_buffer = NULL;
 571       pfile->macro_buffer_len = 0;
 572     }
 573
 574   deps_free (pfile->deps);
 575   obstack_free (&pfile->buffer_ob, 0);
 576
 577   _cpp_destroy_hashtable (pfile);
 578   _cpp_cleanup_includes (pfile);
 579
 580   _cpp_free_buff (pfile->a_buff);
 581   _cpp_free_buff (pfile->u_buff);
 582   _cpp_free_buff (pfile->free_buffs);
 583
 584   for (run = &pfile->base_run; run; run = runn)
 585     {
 586       runn = run->next;
 587       free (run->base);
 588       if (run != &pfile->base_run)
 589         free (run);
 590     }
 591
 592   for (dir = CPP_OPTION (pfile, quote_include); dir; dir = dirn)
 593     {
 594       dirn = dir->next;
 595       free ((PTR) dir->name);
 596       free (dir);
 597     }
 598
 599   for (context = pfile->base_context.next; context; context = contextn)
 600     {
 601       contextn = context->next;
 602       free (context);
 603     }
 604
 605   free_line_maps (&pfile->line_maps);
 606
 607   result = pfile->errors;
 608   free (pfile);
 609
 610   return result;
 611 }
 612
 613 /* This structure defines one built-in identifier.  A node will be
 614    entered in the hash table under the name NAME, with value VALUE.
 615
 616    There are two tables of these.  builtin_array holds all the
 617    "builtin" macros: these are handled by builtin_macro() in
 618    cppmacro.c.  Builtin is somewhat of a misnomer -- the property of
 619    interest is that these macros require special code to compute their
 620    expansions.  The value is a "builtin_type" enumerator.
 621
 622    operator_array holds the C++ named operators.  These are keywords
 623    which act as aliases for punctuators.  In C++, they cannot be
 624    altered through #define, and #if recognizes them as operators.  In
 625    C, these are not entered into the hash table at all (but see
 626    <iso646.h>).  The value is a token-type enumerator.  */
 627 struct builtin
 628 {
 629   const uchar *name;
 630   unsigned short len;
 631   unsigned short value;
 632 };
 633
 634 #define B(n, t)    { DSC(n), t }
 635 static const struct builtin builtin_array[] =
 636 {
 637   B("__TIME__",          BT_TIME),
 638   B("__DATE__",          BT_DATE),
 639   B("__FILE__",          BT_FILE),
 640   B("__BASE_FILE__",     BT_BASE_FILE),
 641   B("__LINE__",          BT_SPECLINE),
 642   B("__INCLUDE_LEVEL__", BT_INCLUDE_LEVEL),
 643   B("_Pragma",           BT_PRAGMA),
 644   B("__STDC__",          BT_STDC),
 645 };
 646
 647 static const struct builtin operator_array[] =
 648 {
 649   B("and",      CPP_AND_AND),
 650   B("and_eq",   CPP_AND_EQ),
 651   B("bitand",   CPP_AND),
 652   B("bitor",    CPP_OR),
 653   B("compl",    CPP_COMPL),
 654   B("not",      CPP_NOT),
 655   B("not_eq",   CPP_NOT_EQ),
 656   B("or",       CPP_OR_OR),
 657   B("or_eq",    CPP_OR_EQ),
 658   B("xor",      CPP_XOR),
 659   B("xor_eq",   CPP_XOR_EQ)
 660 };
 661 #undef B
 662
 663 /* Mark the C++ named operators in the hash table.  */
 664 static void
 665 mark_named_operators (pfile)
 666      cpp_reader *pfile;
 667 {
 668   const struct builtin *b;
 669
 670   for (b = operator_array;
 671        b < (operator_array + ARRAY_SIZE (operator_array));
 672        b++)
 673     {
 674       cpp_hashnode *hp = cpp_lookup (pfile, b->name, b->len);
 675       hp->flags |= NODE_OPERATOR;
 676       hp->value.operator = b->value;
 677     }
 678 }
 679
 680 /* Subroutine of cpp_read_main_file; reads the builtins table above and
 681    enters them, and language-specific macros, into the hash table.  */
 682 static void
 683 init_builtins (pfile)
 684      cpp_reader *pfile;
 685 {
 686   const struct builtin *b;
 687
 688   for(b = builtin_array;
 689       b < (builtin_array + ARRAY_SIZE (builtin_array));
 690       b++)
 691     {
 692       cpp_hashnode *hp = cpp_lookup (pfile, b->name, b->len);
 693       hp->type = NT_MACRO;
 694       hp->flags |= NODE_BUILTIN | NODE_WARN;
 695       hp->value.builtin = b->value;
 696     }
 697
 698   if (CPP_OPTION (pfile, cplusplus))
 699     _cpp_define_builtin (pfile, "__cplusplus 1");
 700   else if (CPP_OPTION (pfile, objc))
 701     _cpp_define_builtin (pfile, "__OBJC__ 1");
 702   else if (CPP_OPTION (pfile, lang) == CLK_ASM)
 703     _cpp_define_builtin (pfile, "__ASSEMBLER__ 1");
 704
 705   if (CPP_OPTION (pfile, lang) == CLK_STDC94)
 706     _cpp_define_builtin (pfile, "__STDC_VERSION__ 199409L");
 707   else if (CPP_OPTION (pfile, c99))
 708     _cpp_define_builtin (pfile, "__STDC_VERSION__ 199901L");
 709
 710   if (pfile->cb.register_builtins)
 711     (*pfile->cb.register_builtins) (pfile);
 712 }
 713
 714 /* And another subroutine.  This one sets up the standard include path.  */
 715 static void
 716 init_standard_includes (pfile)
 717      cpp_reader *pfile;
 718 {
 719   char *path;
 720   const struct default_include *p;
 721   const char *specd_prefix = CPP_OPTION (pfile, include_prefix);
 722
 723   /* Several environment variables may add to the include search path.
 724      CPATH specifies an additional list of directories to be searched
 725      as if specified with -I, while C_INCLUDE_PATH, CPLUS_INCLUDE_PATH,
 726      etc. specify an additional list of directories to be searched as
 727      if specified with -isystem, for the language indicated.  */
 728
 729   GET_ENV_PATH_LIST (path, "CPATH");
 730   if (path != 0 && *path != 0)
 731     path_include (pfile, path, BRACKET);
 732
 733   switch ((CPP_OPTION (pfile, objc) << 1) + CPP_OPTION (pfile, cplusplus))
 734     {
 735     case 0:
 736       GET_ENV_PATH_LIST (path, "C_INCLUDE_PATH");
 737       break;
 738     case 1:
 739       GET_ENV_PATH_LIST (path, "CPLUS_INCLUDE_PATH");
 740       break;
 741     case 2:
 742       GET_ENV_PATH_LIST (path, "OBJC_INCLUDE_PATH");
 743       break;
 744     case 3:
 745       GET_ENV_PATH_LIST (path, "OBJCPLUS_INCLUDE_PATH");
 746       break;
 747     }
 748   if (path != 0 && *path != 0)
 749     path_include (pfile, path, SYSTEM);
 750
 751   /* Search "translated" versions of GNU directories.
 752      These have /usr/local/lib/gcc... replaced by specd_prefix.  */
 753   if (specd_prefix != 0 && cpp_GCC_INCLUDE_DIR_len)
 754     {
 755       /* Remove the `include' from /usr/local/lib/gcc.../include.
 756          GCC_INCLUDE_DIR will always end in /include.  */
 757       int default_len = cpp_GCC_INCLUDE_DIR_len;
 758       char *default_prefix = (char *) alloca (default_len + 1);
 759       int specd_len = strlen (specd_prefix);
 760
 761       memcpy (default_prefix, cpp_GCC_INCLUDE_DIR, default_len);
 762       default_prefix[default_len] = '\0';
 763
 764       for (p = cpp_include_defaults; p->fname; p++)
 765         {
 766           /* Some standard dirs are only for C++.  */
 767           if (!p->cplusplus
 768               || (CPP_OPTION (pfile, cplusplus)
 769                   && !CPP_OPTION (pfile, no_standard_cplusplus_includes)))
 770             {
 771               /* Does this dir start with the prefix?  */
 772               if (!memcmp (p->fname, default_prefix, default_len))
 773                 {
 774                   /* Yes; change prefix and add to search list.  */
 775                   int flen = strlen (p->fname);
 776                   int this_len = specd_len + flen - default_len;
 777                   char *str = (char *) xmalloc (this_len + 1);
 778                   memcpy (str, specd_prefix, specd_len);
 779                   memcpy (str + specd_len,
 780                           p->fname + default_len,
 781                           flen - default_len + 1);
 782
 783                   append_include_chain (pfile, str, SYSTEM, p->cxx_aware);
 784                 }
 785             }
 786         }
 787     }
 788
 789   /* Search ordinary names for GNU include directories.  */
 790   for (p = cpp_include_defaults; p->fname; p++)
 791     {
 792       /* Some standard dirs are only for C++.  */
 793       if (!p->cplusplus
 794           || (CPP_OPTION (pfile, cplusplus)
 795               && !CPP_OPTION (pfile, no_standard_cplusplus_includes)))
 796         {
 797           char *str = update_path (p->fname, p->component);
 798           append_include_chain (pfile, str, SYSTEM, p->cxx_aware);
 799         }
 800     }
 801 }
 802
 803 /* Pushes a command line -imacro and -include file indicated by P onto
 804    the buffer stack.  Returns non-zero if successful.  */
 805 static bool
 806 push_include (pfile, p)
 807      cpp_reader *pfile;
 808      struct pending_option *p;
 809 {
 810   cpp_token header;
 811
 812   /* Later: maybe update this to use the #include "" search path
 813      if cpp_read_file fails.  */
 814   header.type = CPP_STRING;
 815   header.val.str.text = (const unsigned char *) p->arg;
 816   header.val.str.len = strlen (p->arg);
 817   /* Make the command line directive take up a line.  */
 818   pfile->line++;
 819
 820   return _cpp_execute_include (pfile, &header, IT_CMDLINE);
 821 }
 822
 823 /* Frees a pending_option chain.  */
 824 static void
 825 free_chain (head)
 826      struct pending_option *head;
 827 {
 828   struct pending_option *next;
 829
 830   while (head)
 831     {
 832       next = head->next;
 833       free (head);
 834       head = next;
 835     }
 836 }
 837
 838 /* Sanity-checks are dependent on command-line options, so it is
 839    called as a subroutine of cpp_read_main_file ().  */
 840 #if ENABLE_CHECKING
 841 static void sanity_checks PARAMS ((cpp_reader *));
 842 static void sanity_checks (pfile)
 843      cpp_reader *pfile;
 844 {
 845   cppchar_t test = 0;
 846   size_t max_precision = 2 * CHAR_BIT * sizeof (cpp_num_part);
 847
 848   /* Sanity checks for assumptions about CPP arithmetic and target
 849      type precisions made by cpplib.  */
 850   test--;
 851   if (test < 1)
 852     cpp_error (pfile, DL_ICE, "cppchar_t must be an unsigned type");
 853
 854   if (CPP_OPTION (pfile, precision) > max_precision)
 855     cpp_error (pfile, DL_ICE,
 856                "preprocessor arithmetic has maximum precision of %lu bits; target requires %lu bits",
 857                (unsigned long) max_precision,
 858                (unsigned long) CPP_OPTION (pfile, precision));
 859
 860   if (CPP_OPTION (pfile, precision) < CPP_OPTION (pfile, int_precision))
 861     cpp_error (pfile, DL_ICE,
 862                "CPP arithmetic must be at least as precise as a target int");
 863
 864   if (CPP_OPTION (pfile, char_precision) < 8)
 865     cpp_error (pfile, DL_ICE, "target char is less than 8 bits wide");
 866
 867   if (CPP_OPTION (pfile, wchar_precision) < CPP_OPTION (pfile, char_precision))
 868     cpp_error (pfile, DL_ICE,
 869                "target wchar_t is narrower than target char");
 870
 871   if (CPP_OPTION (pfile, int_precision) < CPP_OPTION (pfile, char_precision))
 872     cpp_error (pfile, DL_ICE,
 873                "target int is narrower than target char");
 874
 875   /* This is assumed in eval_token() and could be fixed if necessary.  */
 876   if (sizeof (cppchar_t) > sizeof (cpp_num_part))
 877     cpp_error (pfile, DL_ICE, "CPP half-integer narrower than CPP character");
 878
 879   if (CPP_OPTION (pfile, wchar_precision) > BITS_PER_CPPCHAR_T)
 880     cpp_error (pfile, DL_ICE,
 881                "CPP on this host cannot handle wide character constants over %lu bits, but the target requires %lu bits",
 882                (unsigned long) BITS_PER_CPPCHAR_T,
 883                (unsigned long) CPP_OPTION (pfile, wchar_precision));
 884 }
 885 #else
 886 # define sanity_checks(PFILE)
 887 #endif
 888
 889 /* This is called after options have been parsed, and partially
 890    processed.  Setup for processing input from the file named FNAME,
 891    or stdin if it is the empty string.  Return the original filename
 892    on success (e.g. foo.i->foo.c), or NULL on failure.  */
 893 const char *
 894 cpp_read_main_file (pfile, fname, table)
 895      cpp_reader *pfile;
 896      const char *fname;
 897      hash_table *table;
 898 {
 899   sanity_checks (pfile);
 900
 901   /* The front ends don't set up the hash table until they have
 902      finished processing the command line options, so initializing the
 903      hashtable is deferred until now.  */
 904   _cpp_init_hashtable (pfile, table);
 905
 906   /* Set up the include search path now.  */
 907   if (! CPP_OPTION (pfile, no_standard_includes))
 908     init_standard_includes (pfile);
 909
 910   merge_include_chains (pfile);
 911
 912   /* With -v, print the list of dirs to search.  */
 913   if (CPP_OPTION (pfile, verbose))
 914     {
 915       struct search_path *l;
 916       fprintf (stderr, _("#include \"...\" search starts here:\n"));
 917       for (l = CPP_OPTION (pfile, quote_include); l; l = l->next)
 918         {
 919           if (l == CPP_OPTION (pfile, bracket_include))
 920             fprintf (stderr, _("#include <...> search starts here:\n"));
 921           fprintf (stderr, " %s\n", l->name);
 922         }
 923       fprintf (stderr, _("End of search list.\n"));
 924     }
 925
 926   if (CPP_OPTION (pfile, print_deps))
 927     /* Set the default target (if there is none already).  */
 928     deps_add_default_target (pfile->deps, fname);
 929
 930   /* Open the main input file.  */
 931   if (!_cpp_read_file (pfile, fname))
 932     return NULL;
 933
 934   /* Set this after cpp_post_options so the client can change the
 935      option if it wishes, and after stacking the main file so we don't
 936      trace the main file.  */
 937   pfile->line_maps.trace_includes = CPP_OPTION (pfile, print_include_names);
 938
 939   /* For foo.i, read the original filename foo.c now, for the benefit
 940      of the front ends.  */
 941   if (CPP_OPTION (pfile, preprocessed))
 942     read_original_filename (pfile);
 943   /* Overlay an empty buffer to seed traditional preprocessing.  */
 944   else if (CPP_OPTION (pfile, traditional))
 945     _cpp_overlay_buffer (pfile, U"", 0);
 946
 947   return pfile->map->to_file;
 948 }
 949
 950 /* For preprocessed files, if the first tokens are of the form # NUM.
 951    handle the directive so we know the original file name.  This will
 952    generate file_change callbacks, which the front ends must handle
 953    appropriately given their state of initialization.  */
 954 static void
 955 read_original_filename (pfile)
 956      cpp_reader *pfile;
 957 {
 958   const cpp_token *token, *token1;
 959
 960   /* Lex ahead; if the first tokens are of the form # NUM, then
 961      process the directive, otherwise back up.  */
 962   token = _cpp_lex_direct (pfile);
 963   if (token->type == CPP_HASH)
 964     {
 965       token1 = _cpp_lex_direct (pfile);
 966       _cpp_backup_tokens (pfile, 1);
 967
 968       /* If it's a #line directive, handle it.  */
 969       if (token1->type == CPP_NUMBER)
 970         {
 971           _cpp_handle_directive (pfile, token->flags & PREV_WHITE);
 972           return;
 973         }
 974     }
 975
 976   /* Backup as if nothing happened.  */
 977   _cpp_backup_tokens (pfile, 1);
 978 }
 979
 980 /* Handle pending command line options: -D, -U, -A, -imacros and
 981    -include.  This should be called after debugging has been properly
 982    set up in the front ends.  */
 983 void
 984 cpp_finish_options (pfile)
 985      cpp_reader *pfile;
 986 {
 987   /* Mark named operators before handling command line macros.  */
 988   if (CPP_OPTION (pfile, cplusplus) && CPP_OPTION (pfile, operator_names))
 989     mark_named_operators (pfile);
 990
 991   /* Install builtins and process command line macros etc. in the order
 992      they appeared, but only if not already preprocessed.  */
 993   if (! CPP_OPTION (pfile, preprocessed))
 994     {
 995       struct pending_option *p;
 996
 997       _cpp_do_file_change (pfile, LC_RENAME, _("<built-in>"), 1, 0);
 998       init_builtins (pfile);
 999       _cpp_do_file_change (pfile, LC_RENAME, _("<command line>"), 1, 0);
1000       for (p = CPP_OPTION (pfile, pending)->directive_head; p; p = p->next)
1001         (*p->handler) (pfile, p->arg);
1002
1003       /* Scan -imacros files after -D, -U, but before -include.
1004          pfile->next_include_file is NULL, so _cpp_pop_buffer does not
1005          push -include files.  */
1006       for (p = CPP_OPTION (pfile, pending)->imacros_head; p; p = p->next)
1007         if (push_include (pfile, p))
1008           cpp_scan_nooutput (pfile);
1009
1010       pfile->next_include_file = &CPP_OPTION (pfile, pending)->include_head;
1011       _cpp_maybe_push_include_file (pfile);
1012     }
1013
1014   free_chain (CPP_OPTION (pfile, pending)->imacros_head);
1015   free_chain (CPP_OPTION (pfile, pending)->directive_head);
1016 }
1017
1018 /* Push the next buffer on the stack given by -include, if any.  */
1019 void
1020 _cpp_maybe_push_include_file (pfile)
1021      cpp_reader *pfile;
1022 {
1023   if (pfile->next_include_file)
1024     {
1025       struct pending_option *head = *pfile->next_include_file;
1026
1027       while (head && !push_include (pfile, head))
1028         head = head->next;
1029
1030       if (head)
1031         pfile->next_include_file = &head->next;
1032       else
1033         {
1034           /* All done; restore the line map from <command line>.  */
1035           _cpp_do_file_change (pfile, LC_RENAME,
1036                                pfile->line_maps.maps[0].to_file, 1, 0);
1037           /* Don't come back here again.  */
1038           pfile->next_include_file = NULL;
1039         }
1040     }
1041 }
1042
1043 /* Use mkdeps.c to output dependency information.  */
1044 static void
1045 output_deps (pfile)
1046      cpp_reader *pfile;
1047 {
1048   /* Stream on which to print the dependency information.  */
1049   FILE *deps_stream = 0;
1050   const char *const deps_mode =
1051     CPP_OPTION (pfile, print_deps_append) ? "a" : "w";
1052
1053   if (CPP_OPTION (pfile, deps_file)[0] == '\0')
1054     deps_stream = stdout;
1055   else
1056     {
1057       deps_stream = fopen (CPP_OPTION (pfile, deps_file), deps_mode);
1058       if (deps_stream == 0)
1059         {
1060           cpp_errno (pfile, DL_ERROR, CPP_OPTION (pfile, deps_file));
1061           return;
1062         }
1063     }
1064
1065   deps_write (pfile->deps, deps_stream, 72);
1066
1067   if (CPP_OPTION (pfile, deps_phony_targets))
1068     deps_phony_targets (pfile->deps, deps_stream);
1069
1070   /* Don't close stdout.  */
1071   if (deps_stream != stdout)
1072     {
1073       if (ferror (deps_stream) || fclose (deps_stream) != 0)
1074         cpp_error (pfile, DL_ERROR, "I/O error on output");
1075     }
1076 }
1077
1078 /* This is called at the end of preprocessing.  It pops the
1079    last buffer and writes dependency output.  It should also
1080    clear macro definitions, such that you could call cpp_start_read
1081    with a new filename to restart processing.  */
1082 void
1083 cpp_finish (pfile)
1084      cpp_reader *pfile;
1085 {
1086   /* cpplex.c leaves the final buffer on the stack.  This it so that
1087      it returns an unending stream of CPP_EOFs to the client.  If we
1088      popped the buffer, we'd dereference a NULL buffer pointer and
1089      segfault.  It's nice to allow the client to do worry-free excess
1090      cpp_get_token calls.  */
1091   while (pfile->buffer)
1092     _cpp_pop_buffer (pfile);
1093
1094   /* Don't write the deps file if preprocessing has failed.  */
1095   if (CPP_OPTION (pfile, print_deps) && pfile->errors == 0)
1096     output_deps (pfile);
1097
1098   /* Report on headers that could use multiple include guards.  */
1099   if (CPP_OPTION (pfile, print_include_names))
1100     _cpp_report_missing_guards (pfile);
1101 }
1102
1103 /* Add a directive to be handled later in the initialization phase.  */
1104 static void
1105 new_pending_directive (pend, text, handler)
1106      struct cpp_pending *pend;
1107      const char *text;
1108      cl_directive_handler handler;
1109 {
1110   struct pending_option *o = (struct pending_option *)
1111     xmalloc (sizeof (struct pending_option));
1112
1113   o->arg = text;
1114   o->next = NULL;
1115   o->handler = handler;
1116   APPEND (pend, directive, o);
1117 }
1118
1119 /* Irix6 "cc -n32" and OSF4 cc have problems with char foo[] = ("string");
1120    I.e. a const string initializer with parens around it.  That is
1121    what N_("string") resolves to, so we make no_* be macros instead.  */
1122 #define no_arg N_("argument missing after %s")
1123 #define no_ass N_("assertion missing after %s")
1124 #define no_dir N_("directory name missing after %s")
1125 #define no_fil N_("file name missing after %s")
1126 #define no_mac N_("macro name missing after %s")
1127 #define no_pth N_("path name missing after %s")
1128 #define no_num N_("number missing after %s")
1129 #define no_tgt N_("target missing after %s")
1130
1131 /* This is the list of all command line options, with the leading
1132    "-" removed.  It must be sorted in ASCII collating order.  */
1133 #define COMMAND_LINE_OPTIONS                                                  \
1134   DEF_OPT("$",                        0,      OPT_dollar)                     \
1135   DEF_OPT("-help",                    0,      OPT__help)                      \
1136   DEF_OPT("-target-help",             0,      OPT_target__help)               \
1137   DEF_OPT("-version",                 0,      OPT__version)                   \
1138   DEF_OPT("A",                        no_ass, OPT_A)                          \
1139   DEF_OPT("C",                        0,      OPT_C)                          \
1140   DEF_OPT("CC",                       0,      OPT_CC)                         \
1141   DEF_OPT("D",                        no_mac, OPT_D)                          \
1142   DEF_OPT("H",                        0,      OPT_H)                          \
1143   DEF_OPT("I",                        no_dir, OPT_I)                          \
1144   DEF_OPT("M",                        0,      OPT_M)                          \
1145   DEF_OPT("MD",                       no_fil, OPT_MD)                         \
1146   DEF_OPT("MF",                       no_fil, OPT_MF)                         \
1147   DEF_OPT("MG",                       0,      OPT_MG)                         \
1148   DEF_OPT("MM",                       0,      OPT_MM)                         \
1149   DEF_OPT("MMD",                      no_fil, OPT_MMD)                        \
1150   DEF_OPT("MP",                       0,      OPT_MP)                         \
1151   DEF_OPT("MQ",                       no_tgt, OPT_MQ)                         \
1152   DEF_OPT("MT",                       no_tgt, OPT_MT)                         \
1153   DEF_OPT("P",                        0,      OPT_P)                          \
1154   DEF_OPT("U",                        no_mac, OPT_U)                          \
1155   DEF_OPT("Wall",                     0,      OPT_Wall)                       \
1156   DEF_OPT("Wcomment",                 0,      OPT_Wcomment)                   \
1157   DEF_OPT("Wcomments",                0,      OPT_Wcomments)                  \
1158   DEF_OPT("Wendif-labels",            0,      OPT_Wendif_labels)              \
1159   DEF_OPT("Werror",                   0,      OPT_Werror)                     \
1160   DEF_OPT("Wimport",                  0,      OPT_Wimport)                    \
1161   DEF_OPT("Wno-comment",              0,      OPT_Wno_comment)                \
1162   DEF_OPT("Wno-comments",             0,      OPT_Wno_comments)               \
1163   DEF_OPT("Wno-endif-labels",         0,      OPT_Wno_endif_labels)           \
1164   DEF_OPT("Wno-error",                0,      OPT_Wno_error)                  \
1165   DEF_OPT("Wno-import",               0,      OPT_Wno_import)                 \
1166   DEF_OPT("Wno-system-headers",       0,      OPT_Wno_system_headers)         \
1167   DEF_OPT("Wno-traditional",          0,      OPT_Wno_traditional)            \
1168   DEF_OPT("Wno-trigraphs",            0,      OPT_Wno_trigraphs)              \
1169   DEF_OPT("Wno-undef",                0,      OPT_Wno_undef)                  \
1170   DEF_OPT("Wsystem-headers",          0,      OPT_Wsystem_headers)            \
1171   DEF_OPT("Wtraditional",             0,      OPT_Wtraditional)               \
1172   DEF_OPT("Wtrigraphs",               0,      OPT_Wtrigraphs)                 \
1173   DEF_OPT("Wundef",                   0,      OPT_Wundef)                     \
1174   DEF_OPT("d",                        no_arg, OPT_d)                          \
1175   DEF_OPT("fno-operator-names",       0,      OPT_fno_operator_names)         \
1176   DEF_OPT("fno-preprocessed",         0,      OPT_fno_preprocessed)           \
1177   DEF_OPT("fno-show-column",          0,      OPT_fno_show_column)            \
1178   DEF_OPT("fpreprocessed",            0,      OPT_fpreprocessed)              \
1179   DEF_OPT("fshow-column",             0,      OPT_fshow_column)               \
1180   DEF_OPT("ftabstop=",                no_num, OPT_ftabstop)                   \
1181   DEF_OPT("h",                        0,      OPT_h)                          \
1182   DEF_OPT("idirafter",                no_dir, OPT_idirafter)                  \
1183   DEF_OPT("imacros",                  no_fil, OPT_imacros)                    \
1184   DEF_OPT("include",                  no_fil, OPT_include)                    \
1185   DEF_OPT("iprefix",                  no_pth, OPT_iprefix)                    \
1186   DEF_OPT("isystem",                  no_dir, OPT_isystem)                    \
1187   DEF_OPT("iwithprefix",              no_dir, OPT_iwithprefix)                \
1188   DEF_OPT("iwithprefixbefore",        no_dir, OPT_iwithprefixbefore)          \
1189   DEF_OPT("lang-asm",                 0,      OPT_lang_asm)                   \
1190   DEF_OPT("lang-c",                   0,      OPT_lang_c)                     \
1191   DEF_OPT("lang-c++",                 0,      OPT_lang_cplusplus)             \
1192   DEF_OPT("lang-c89",                 0,      OPT_lang_c89)                   \
1193   DEF_OPT("lang-objc",                0,      OPT_lang_objc)                  \
1194   DEF_OPT("nostdinc",                 0,      OPT_nostdinc)                   \
1195   DEF_OPT("nostdinc++",               0,      OPT_nostdincplusplus)           \
1196   DEF_OPT("o",                        no_fil, OPT_o)                          \
1197   DEF_OPT("pedantic",                 0,      OPT_pedantic)                   \
1198   DEF_OPT("pedantic-errors",          0,      OPT_pedantic_errors)            \
1199   DEF_OPT("remap",                    0,      OPT_remap)                      \
1200   DEF_OPT("std=c++98",                0,      OPT_std_cplusplus98)            \
1201   DEF_OPT("std=c89",                  0,      OPT_std_c89)                    \
1202   DEF_OPT("std=c99",                  0,      OPT_std_c99)                    \
1203   DEF_OPT("std=c9x",                  0,      OPT_std_c9x)                    \
1204   DEF_OPT("std=gnu89",                0,      OPT_std_gnu89)                  \
1205   DEF_OPT("std=gnu99",                0,      OPT_std_gnu99)                  \
1206   DEF_OPT("std=gnu9x",                0,      OPT_std_gnu9x)                  \
1207   DEF_OPT("std=iso9899:1990",         0,      OPT_std_iso9899_1990)           \
1208   DEF_OPT("std=iso9899:199409",       0,      OPT_std_iso9899_199409)         \
1209   DEF_OPT("std=iso9899:1999",         0,      OPT_std_iso9899_1999)           \
1210   DEF_OPT("std=iso9899:199x",         0,      OPT_std_iso9899_199x)           \
1211   DEF_OPT("traditional-cpp",          0,      OPT_traditional_cpp)            \
1212   DEF_OPT("trigraphs",                0,      OPT_trigraphs)                  \
1213   DEF_OPT("v",                        0,      OPT_v)                          \
1214   DEF_OPT("version",                  0,      OPT_version)                    \
1215   DEF_OPT("w",                        0,      OPT_w)
1216
1217 #define DEF_OPT(text, msg, code) code,
1218 enum opt_code
1219 {
1220   COMMAND_LINE_OPTIONS
1221   N_OPTS
1222 };
1223 #undef DEF_OPT
1224
1225 struct cl_option
1226 {
1227   const char *opt_text;
1228   const char *msg;
1229   size_t opt_len;
1230   enum opt_code opt_code;
1231 };
1232
1233 #define DEF_OPT(text, msg, code) { text, msg, sizeof(text) - 1, code },
1234 #ifdef HOST_EBCDIC
1235 static struct cl_option cl_options[] =
1236 #else
1237 static const struct cl_option cl_options[] =
1238 #endif
1239 {
1240   COMMAND_LINE_OPTIONS
1241 };
1242 #undef DEF_OPT
1243 #undef COMMAND_LINE_OPTIONS
1244
1245 /* Perform a binary search to find which, if any, option the given
1246    command-line matches.  Returns its index in the option array,
1247    negative on failure.  Complications arise since some options can be
1248    suffixed with an argument, and multiple complete matches can occur,
1249    e.g. -pedantic and -pedantic-errors.  */
1250 static int
1251 parse_option (input)
1252      const char *input;
1253 {
1254   unsigned int md, mn, mx;
1255   size_t opt_len;
1256   int comp;
1257
1258   mn = 0;
1259   mx = N_OPTS;
1260
1261   while (mx > mn)
1262     {
1263       md = (mn + mx) / 2;
1264
1265       opt_len = cl_options[md].opt_len;
1266       comp = memcmp (input, cl_options[md].opt_text, opt_len);
1267
1268       if (comp > 0)
1269         mn = md + 1;
1270       else if (comp < 0)
1271         mx = md;
1272       else
1273         {
1274           if (input[opt_len] == '\0')
1275             return md;
1276           /* We were passed more text.  If the option takes an argument,
1277              we may match a later option or we may have been passed the
1278              argument.  The longest possible option match succeeds.
1279              If the option takes no arguments we have not matched and
1280              continue the search (e.g. input="stdc++" match was "stdc").  */
1281           mn = md + 1;
1282           if (cl_options[md].msg)
1283             {
1284               /* Scan forwards.  If we get an exact match, return it.
1285                  Otherwise, return the longest option-accepting match.
1286                  This loops no more than twice with current options.  */
1287               mx = md;
1288               for (; mn < (unsigned int) N_OPTS; mn++)
1289                 {
1290                   opt_len = cl_options[mn].opt_len;
1291                   if (memcmp (input, cl_options[mn].opt_text, opt_len))
1292                     break;
1293                   if (input[opt_len] == '\0')
1294                     return mn;
1295                   if (cl_options[mn].msg)
1296                     mx = mn;
1297                 }
1298               return mx;
1299             }
1300         }
1301     }
1302
1303   return -1;
1304 }
1305
1306 /* Handle one command-line option in (argc, argv).
1307    Can be called multiple times, to handle multiple sets of options.
1308    Returns number of strings consumed.  */
1309 int
1310 cpp_handle_option (pfile, argc, argv)
1311      cpp_reader *pfile;
1312      int argc;
1313      char **argv;
1314 {
1315   int i = 0;
1316   struct cpp_pending *pend = CPP_OPTION (pfile, pending);
1317
1318   /* Interpret "-" or a non-option as a file name.  */
1319   if (argv[i][0] != '-' || argv[i][1] == '\0')
1320     {
1321       if (CPP_OPTION (pfile, in_fname) == NULL)
1322         CPP_OPTION (pfile, in_fname) = argv[i];
1323       else if (CPP_OPTION (pfile, out_fname) == NULL)
1324         CPP_OPTION (pfile, out_fname) = argv[i];
1325       else
1326         cpp_error (pfile, DL_ERROR,
1327                    "too many filenames. Type %s --help for usage info",
1328                    progname);
1329     }
1330   else
1331     {
1332       enum opt_code opt_code;
1333       int opt_index;
1334       const char *arg = 0;
1335
1336       /* Skip over '-'.  */
1337       opt_index = parse_option (&argv[i][1]);
1338       if (opt_index < 0)
1339         return i;
1340
1341       opt_code = cl_options[opt_index].opt_code;
1342       if (cl_options[opt_index].msg)
1343         {
1344           arg = &argv[i][cl_options[opt_index].opt_len + 1];
1345           if (arg[0] == '\0')
1346             {
1347               arg = argv[++i];
1348               if (!arg)
1349                 {
1350                   cpp_error (pfile, DL_ERROR,
1351                              cl_options[opt_index].msg, argv[i - 1]);
1352                   return argc;
1353                 }
1354             }
1355         }
1356
1357       switch (opt_code)
1358         {
1359         case N_OPTS: /* Shut GCC up.  */
1360           break;
1361         case OPT_fno_operator_names:
1362           CPP_OPTION (pfile, operator_names) = 0;
1363           break;
1364         case OPT_fpreprocessed:
1365           CPP_OPTION (pfile, preprocessed) = 1;
1366           break;
1367         case OPT_fno_preprocessed:
1368           CPP_OPTION (pfile, preprocessed) = 0;
1369           break;
1370         case OPT_fshow_column:
1371           CPP_OPTION (pfile, show_column) = 1;
1372           break;
1373         case OPT_fno_show_column:
1374           CPP_OPTION (pfile, show_column) = 0;
1375           break;
1376         case OPT_ftabstop:
1377           /* Silently ignore empty string, non-longs and silly values.  */
1378           if (arg[0] != '\0')
1379             {
1380               char *endptr;
1381               long tabstop = strtol (arg, &endptr, 10);
1382               if (*endptr == '\0' && tabstop >= 1 && tabstop <= 100)
1383                 CPP_OPTION (pfile, tabstop) = tabstop;
1384             }
1385           break;
1386         case OPT_w:
1387           CPP_OPTION (pfile, inhibit_warnings) = 1;
1388           break;
1389         case OPT_h:
1390         case OPT__help:
1391           print_help ();
1392           CPP_OPTION (pfile, help_only) = 1;
1393           break;
1394         case OPT_target__help:
1395           /* Print if any target specific options. cpplib has none, but
1396              make sure help_only gets set.  */
1397           CPP_OPTION (pfile, help_only) = 1;
1398           break;
1399
1400           /* --version inhibits compilation, -version doesn't. -v means
1401              verbose and -version.  Historical reasons, don't ask.  */
1402         case OPT__version:
1403           CPP_OPTION (pfile, help_only) = 1;
1404           pfile->print_version = 1;
1405           break;
1406         case OPT_v:
1407           CPP_OPTION (pfile, verbose) = 1;
1408           pfile->print_version = 1;
1409           break;
1410         case OPT_version:
1411           pfile->print_version = 1;
1412           break;
1413
1414         case OPT_C:
1415           CPP_OPTION (pfile, discard_comments) = 0;
1416           break;
1417         case OPT_CC:
1418           CPP_OPTION (pfile, discard_comments) = 0;
1419           CPP_OPTION (pfile, discard_comments_in_macro_exp) = 0;
1420           break;
1421         case OPT_P:
1422           CPP_OPTION (pfile, no_line_commands) = 1;
1423           break;
1424         case OPT_dollar:        /* Don't include $ in identifiers.  */
1425           CPP_OPTION (pfile, dollars_in_ident) = 0;
1426           break;
1427         case OPT_H:
1428           CPP_OPTION (pfile, print_include_names) = 1;
1429           break;
1430         case OPT_D:
1431           new_pending_directive (pend, arg, cpp_define);
1432           break;
1433         case OPT_pedantic_errors:
1434           CPP_OPTION (pfile, pedantic_errors) = 1;
1435           /* fall through */
1436         case OPT_pedantic:
1437           CPP_OPTION (pfile, pedantic) = 1;
1438           CPP_OPTION (pfile, warn_endif_labels) = 1;
1439           break;
1440         case OPT_trigraphs:
1441           CPP_OPTION (pfile, trigraphs) = 1;
1442           break;
1443         case OPT_remap:
1444           CPP_OPTION (pfile, remap) = 1;
1445           break;
1446         case OPT_traditional_cpp:
1447           CPP_OPTION (pfile, traditional) = 1;
1448           break;
1449         case OPT_iprefix:
1450           CPP_OPTION (pfile, include_prefix) = arg;
1451           CPP_OPTION (pfile, include_prefix_len) = strlen (arg);
1452           break;
1453         case OPT_lang_c:
1454           set_lang (pfile, CLK_GNUC89);
1455           break;
1456         case OPT_lang_cplusplus:
1457           set_lang (pfile, CLK_GNUCXX);
1458           break;
1459         case OPT_lang_objc:
1460           CPP_OPTION (pfile, objc) = 1;
1461           break;
1462         case OPT_lang_asm:
1463           set_lang (pfile, CLK_ASM);
1464           break;
1465         case OPT_std_cplusplus98:
1466           set_lang (pfile, CLK_CXX98);
1467           break;
1468         case OPT_std_gnu89:
1469           set_lang (pfile, CLK_GNUC89);
1470           break;
1471         case OPT_std_gnu9x:
1472         case OPT_std_gnu99:
1473           set_lang (pfile, CLK_GNUC99);
1474           break;
1475         case OPT_std_iso9899_199409:
1476           set_lang (pfile, CLK_STDC94);
1477           break;
1478         case OPT_std_iso9899_1990:
1479         case OPT_std_c89:
1480         case OPT_lang_c89:
1481           set_lang (pfile, CLK_STDC89);
1482           break;
1483         case OPT_std_iso9899_199x:
1484         case OPT_std_iso9899_1999:
1485         case OPT_std_c9x:
1486         case OPT_std_c99:
1487           set_lang (pfile, CLK_STDC99);
1488           break;
1489         case OPT_nostdinc:
1490           /* -nostdinc causes no default include directories.
1491              You must specify all include-file directories with -I.  */
1492           CPP_OPTION (pfile, no_standard_includes) = 1;
1493           break;
1494         case OPT_nostdincplusplus:
1495           /* -nostdinc++ causes no default C++-specific include directories.  */
1496           CPP_OPTION (pfile, no_standard_cplusplus_includes) = 1;
1497           break;
1498         case OPT_o:
1499           if (CPP_OPTION (pfile, out_fname) == NULL)
1500             CPP_OPTION (pfile, out_fname) = arg;
1501           else
1502             {
1503               cpp_error (pfile, DL_ERROR, "output filename specified twice");
1504               return argc;
1505             }
1506           break;
1507         case OPT_d:
1508           /* Args to -d specify what parts of macros to dump.
1509              Silently ignore unrecognised options; they may
1510              be aimed at the compiler proper.  */
1511           {
1512             char c;
1513
1514             while ((c = *arg++) != '\0')
1515               switch (c)
1516                 {
1517                 case 'M':
1518                   CPP_OPTION (pfile, dump_macros) = dump_only;
1519                   break;
1520                 case 'N':
1521                   CPP_OPTION (pfile, dump_macros) = dump_names;
1522                   break;
1523                 case 'D':
1524                   CPP_OPTION (pfile, dump_macros) = dump_definitions;
1525                   break;
1526                 case 'I':
1527                   CPP_OPTION (pfile, dump_includes) = 1;
1528                   break;
1529                 }
1530           }
1531           break;
1532
1533         case OPT_MG:
1534           CPP_OPTION (pfile, print_deps_missing_files) = 1;
1535           break;
1536         case OPT_M:
1537           /* When doing dependencies with -M or -MM, suppress normal
1538              preprocessed output, but still do -dM etc. as software
1539              depends on this.  Preprocessed output occurs if -MD, -MMD
1540              or environment var dependency generation is used.  */
1541           CPP_OPTION (pfile, print_deps) = 2;
1542           CPP_OPTION (pfile, no_output) = 1;
1543           break;
1544         case OPT_MM:
1545           CPP_OPTION (pfile, print_deps) = 1;
1546           CPP_OPTION (pfile, no_output) = 1;
1547           break;
1548         case OPT_MF:
1549           CPP_OPTION (pfile, deps_file) = arg;
1550           break;
1551         case OPT_MP:
1552           CPP_OPTION (pfile, deps_phony_targets) = 1;
1553           break;
1554         case OPT_MQ:
1555         case OPT_MT:
1556           /* Add a target.  -MQ quotes for Make.  */
1557           deps_add_target (pfile->deps, arg, opt_code == OPT_MQ);
1558           break;
1559
1560         case OPT_MD:
1561           CPP_OPTION (pfile, print_deps) = 2;
1562           CPP_OPTION (pfile, deps_file) = arg;
1563           break;
1564         case OPT_MMD:
1565           CPP_OPTION (pfile, print_deps) = 1;
1566           CPP_OPTION (pfile, deps_file) = arg;
1567           break;
1568
1569         case OPT_A:
1570           if (arg[0] == '-')
1571             {
1572               /* -A with an argument beginning with '-' acts as
1573                  #unassert on whatever immediately follows the '-'.
1574                  If "-" is the whole argument, we eliminate all
1575                  predefined macros and assertions, including those
1576                  that were specified earlier on the command line.
1577                  That way we can get rid of any that were passed
1578                  automatically in from GCC.  */
1579
1580               if (arg[1] == '\0')
1581                 {
1582                   free_chain (pend->directive_head);
1583                   pend->directive_head = NULL;
1584                   pend->directive_tail = NULL;
1585                 }
1586               else
1587                 new_pending_directive (pend, arg + 1, cpp_unassert);
1588             }
1589           else
1590             new_pending_directive (pend, arg, cpp_assert);
1591           break;
1592         case OPT_U:
1593           new_pending_directive (pend, arg, cpp_undef);
1594           break;
1595         case OPT_I:           /* Add directory to path for includes.  */
1596           if (!strcmp (arg, "-"))
1597             {
1598               /* -I- means:
1599                  Use the preceding -I directories for #include "..."
1600                  but not #include <...>.
1601                  Don't search the directory of the present file
1602                  for #include "...".  (Note that -I. -I- is not the same as
1603                  the default setup; -I. uses the compiler's working dir.)  */
1604               if (! CPP_OPTION (pfile, ignore_srcdir))
1605                 {
1606                   pend->quote_head = pend->brack_head;
1607                   pend->quote_tail = pend->brack_tail;
1608                   pend->brack_head = 0;
1609                   pend->brack_tail = 0;
1610                   CPP_OPTION (pfile, ignore_srcdir) = 1;
1611                 }
1612               else
1613                 {
1614                   cpp_error (pfile, DL_ERROR, "-I- specified twice");
1615                   return argc;
1616                 }
1617             }
1618           else
1619             append_include_chain (pfile, xstrdup (arg), BRACKET, 0);
1620           break;
1621         case OPT_isystem:
1622           /* Add directory to beginning of system include path, as a system
1623              include directory.  */
1624           append_include_chain (pfile, xstrdup (arg), SYSTEM, 0);
1625           break;
1626         case OPT_include:
1627         case OPT_imacros:
1628           {
1629             struct pending_option *o = (struct pending_option *)
1630               xmalloc (sizeof (struct pending_option));
1631             o->arg = arg;
1632             o->next = NULL;
1633
1634             if (opt_code == OPT_include)
1635               APPEND (pend, include, o);
1636             else
1637               APPEND (pend, imacros, o);
1638           }
1639           break;
1640         case OPT_iwithprefix:
1641           /* Add directory to end of path for includes,
1642              with the default prefix at the front of its name.  */
1643           /* fall through */
1644         case OPT_iwithprefixbefore:
1645           /* Add directory to main path for includes,
1646              with the default prefix at the front of its name.  */
1647           {
1648             char *fname;
1649             int len;
1650
1651             len = strlen (arg);
1652
1653             if (CPP_OPTION (pfile, include_prefix) != 0)
1654               {
1655                 size_t ipl = CPP_OPTION (pfile, include_prefix_len);
1656                 fname = xmalloc (ipl + len + 1);
1657                 memcpy (fname, CPP_OPTION (pfile, include_prefix), ipl);
1658                 memcpy (fname + ipl, arg, len + 1);
1659               }
1660             else if (cpp_GCC_INCLUDE_DIR_len)
1661               {
1662                 fname = xmalloc (cpp_GCC_INCLUDE_DIR_len + len + 1);
1663                 memcpy (fname, cpp_GCC_INCLUDE_DIR, cpp_GCC_INCLUDE_DIR_len);
1664                 memcpy (fname + cpp_GCC_INCLUDE_DIR_len, arg, len + 1);
1665               }
1666             else
1667               fname = xstrdup (arg);
1668
1669             append_include_chain (pfile, fname,
1670                           opt_code == OPT_iwithprefix ? SYSTEM: BRACKET, 0);
1671           }
1672           break;
1673         case OPT_idirafter:
1674           /* Add directory to end of path for includes.  */
1675           append_include_chain (pfile, xstrdup (arg), AFTER, 0);
1676           break;
1677
1678         case OPT_Wall:
1679           CPP_OPTION (pfile, warn_trigraphs) = 1;
1680           CPP_OPTION (pfile, warn_comments) = 1;
1681           break;
1682
1683         case OPT_Wtraditional:
1684           CPP_OPTION (pfile, warn_traditional) = 1;
1685           break;
1686         case OPT_Wno_traditional:
1687           CPP_OPTION (pfile, warn_traditional) = 0;
1688           break;
1689
1690         case OPT_Wtrigraphs:
1691           CPP_OPTION (pfile, warn_trigraphs) = 1;
1692           break;
1693         case OPT_Wno_trigraphs:
1694           CPP_OPTION (pfile, warn_trigraphs) = 0;
1695           break;
1696
1697         case OPT_Wcomment:
1698         case OPT_Wcomments:
1699           CPP_OPTION (pfile, warn_comments) = 1;
1700           break;
1701         case OPT_Wno_comment:
1702         case OPT_Wno_comments:
1703           CPP_OPTION (pfile, warn_comments) = 0;
1704           break;
1705
1706         case OPT_Wundef:
1707           CPP_OPTION (pfile, warn_undef) = 1;
1708           break;
1709         case OPT_Wno_undef:
1710           CPP_OPTION (pfile, warn_undef) = 0;
1711           break;
1712
1713         case OPT_Wimport:
1714           CPP_OPTION (pfile, warn_import) = 1;
1715           break;
1716         case OPT_Wno_import:
1717           CPP_OPTION (pfile, warn_import) = 0;
1718           break;
1719
1720         case OPT_Wendif_labels:
1721           CPP_OPTION (pfile, warn_endif_labels) = 1;
1722           break;
1723         case OPT_Wno_endif_labels:
1724           CPP_OPTION (pfile, warn_endif_labels) = 0;
1725           break;
1726
1727         case OPT_Werror:
1728           CPP_OPTION (pfile, warnings_are_errors) = 1;
1729           break;
1730         case OPT_Wno_error:
1731           CPP_OPTION (pfile, warnings_are_errors) = 0;
1732           break;
1733
1734         case OPT_Wsystem_headers:
1735           CPP_OPTION (pfile, warn_system_headers) = 1;
1736           break;
1737         case OPT_Wno_system_headers:
1738           CPP_OPTION (pfile, warn_system_headers) = 0;
1739           break;
1740         }
1741     }
1742   return i + 1;
1743 }
1744
1745 /* Handle command-line options in (argc, argv).
1746    Can be called multiple times, to handle multiple sets of options.
1747    Returns if an unrecognized option is seen.
1748    Returns number of strings consumed.  */
1749 int
1750 cpp_handle_options (pfile, argc, argv)
1751      cpp_reader *pfile;
1752      int argc;
1753      char **argv;
1754 {
1755   int i;
1756   int strings_processed;
1757
1758   for (i = 0; i < argc; i += strings_processed)
1759     {
1760       strings_processed = cpp_handle_option (pfile, argc - i, argv + i);
1761       if (strings_processed == 0)
1762         break;
1763     }
1764
1765   return i;
1766 }
1767
1768 /* Extra processing when all options are parsed, after all calls to
1769    cpp_handle_option[s].  Consistency checks etc.  */
1770 void
1771 cpp_post_options (pfile)
1772      cpp_reader *pfile;
1773 {
1774   if (pfile->print_version)
1775     {
1776       fprintf (stderr, _("GNU CPP version %s (cpplib)"), version_string);
1777 #ifdef TARGET_VERSION
1778       TARGET_VERSION;
1779 #endif
1780       fputc ('\n', stderr);
1781     }
1782
1783   /* Canonicalize in_fname and out_fname.  We guarantee they are not
1784      NULL, and that the empty string represents stdin / stdout.  */
1785   if (CPP_OPTION (pfile, in_fname) == NULL
1786       || !strcmp (CPP_OPTION (pfile, in_fname), "-"))
1787     CPP_OPTION (pfile, in_fname) = "";
1788
1789   if (CPP_OPTION (pfile, out_fname) == NULL
1790       || !strcmp (CPP_OPTION (pfile, out_fname), "-"))
1791     CPP_OPTION (pfile, out_fname) = "";
1792
1793   /* -Wtraditional is not useful in C++ mode.  */
1794   if (CPP_OPTION (pfile, cplusplus))
1795     CPP_OPTION (pfile, warn_traditional) = 0;
1796
1797   /* The compiler front ends override this, but I think this is the
1798      appropriate setting for the library.  */
1799   CPP_OPTION (pfile, warn_long_long) = (CPP_OPTION (pfile, pedantic)
1800                                         && !CPP_OPTION (pfile, c99));
1801
1802   /* Permanently disable macro expansion if we are rescanning
1803      preprocessed text.  Read preprocesed source in ISO mode.  */
1804   if (CPP_OPTION (pfile, preprocessed))
1805     {
1806       pfile->state.prevent_expansion = 1;
1807       CPP_OPTION (pfile, traditional) = 0;
1808     }
1809
1810   /* Traditional CPP does not accurately track column information.  */
1811   if (CPP_OPTION (pfile, traditional))
1812     CPP_OPTION (pfile, show_column) = 0;
1813
1814   /* -dM makes no normal output.  This is set here so that -dM -dD
1815      works as expected.  */
1816   if (CPP_OPTION (pfile, dump_macros) == dump_only)
1817     CPP_OPTION (pfile, no_output) = 1;
1818
1819   /* Disable -dD, -dN and -dI if we should make no normal output
1820      (such as with -M). Allow -M -dM since some software relies on
1821      this.  */
1822   if (CPP_OPTION (pfile, no_output))
1823     {
1824       if (CPP_OPTION (pfile, dump_macros) != dump_only)
1825         CPP_OPTION (pfile, dump_macros) = dump_none;
1826       CPP_OPTION (pfile, dump_includes) = 0;
1827     }
1828
1829   /* We need to do this after option processing and before
1830      cpp_start_read, as cppmain.c relies on the options->no_output to
1831      set its callbacks correctly before calling cpp_start_read.  */
1832   init_dependency_output (pfile);
1833
1834   /* After checking the environment variables, check if -M or -MM has
1835      not been specified, but other -M options have.  */
1836   if (CPP_OPTION (pfile, print_deps) == 0 &&
1837       (CPP_OPTION (pfile, print_deps_missing_files)
1838        || CPP_OPTION (pfile, deps_file)
1839        || CPP_OPTION (pfile, deps_phony_targets)))
1840     cpp_error (pfile, DL_ERROR,
1841                "you must additionally specify either -M or -MM");
1842 }
1843
1844 /* Set up dependency-file output.  On exit, if print_deps is non-zero
1845    then deps_file is not NULL; stdout is the empty string.  */
1846 static void
1847 init_dependency_output (pfile)
1848      cpp_reader *pfile;
1849 {
1850   char *spec, *s, *output_file;
1851
1852   /* Either of two environment variables can specify output of deps.
1853      Its value is either "OUTPUT_FILE" or "OUTPUT_FILE DEPS_TARGET",
1854      where OUTPUT_FILE is the file to write deps info to
1855      and DEPS_TARGET is the target to mention in the deps.  */
1856
1857   if (CPP_OPTION (pfile, print_deps) == 0)
1858     {
1859       spec = getenv ("DEPENDENCIES_OUTPUT");
1860       if (spec)
1861         CPP_OPTION (pfile, print_deps) = 1;
1862       else
1863         {
1864           spec = getenv ("SUNPRO_DEPENDENCIES");
1865           if (spec)
1866             CPP_OPTION (pfile, print_deps) = 2;
1867           else
1868             return;
1869         }
1870
1871       /* Find the space before the DEPS_TARGET, if there is one.  */
1872       s = strchr (spec, ' ');
1873       if (s)
1874         {
1875           /* Let the caller perform MAKE quoting.  */
1876           deps_add_target (pfile->deps, s + 1, 0);
1877           output_file = (char *) xmalloc (s - spec + 1);
1878           memcpy (output_file, spec, s - spec);
1879           output_file[s - spec] = 0;
1880         }
1881       else
1882         output_file = spec;
1883
1884       /* Command line -MF overrides environment variables and default.  */
1885       if (CPP_OPTION (pfile, deps_file) == 0)
1886         CPP_OPTION (pfile, deps_file) = output_file;
1887
1888       CPP_OPTION (pfile, print_deps_append) = 1;
1889     }
1890   else if (CPP_OPTION (pfile, deps_file) == 0)
1891     /* If -M or -MM was seen without -MF, default output to wherever
1892        was specified with -o.  out_fname is non-NULL here.  */
1893     CPP_OPTION (pfile, deps_file) = CPP_OPTION (pfile, out_fname);
1894 }
1895
1896 /* Handle --help output.  */
1897 static void
1898 print_help ()
1899 {
1900   /* To keep the lines from getting too long for some compilers, limit
1901      to about 500 characters (6 lines) per chunk.  */
1902   fputs (_("\
1903 Switches:\n\
1904   -include <file>           Include the contents of <file> before other files\n\
1905   -imacros <file>           Accept definition of macros in <file>\n\
1906   -iprefix <path>           Specify <path> as a prefix for next two options\n\
1907   -iwithprefix <dir>        Add <dir> to the end of the system include path\n\
1908   -iwithprefixbefore <dir>  Add <dir> to the end of the main include path\n\
1909   -isystem <dir>            Add <dir> to the start of the system include path\n\
1910 "), stdout);
1911   fputs (_("\
1912   -idirafter <dir>          Add <dir> to the end of the system include path\n\
1913   -I <dir>                  Add <dir> to the end of the main include path\n\
1914   -I-                       Fine-grained include path control; see info docs\n\
1915   -nostdinc                 Do not search system include directories\n\
1916                              (dirs specified with -isystem will still be used)\n\
1917   -nostdinc++               Do not search system include directories for C++\n\
1918   -o <file>                 Put output into <file>\n\
1919 "), stdout);
1920   fputs (_("\
1921   -pedantic                 Issue all warnings demanded by strict ISO C\n\
1922   -pedantic-errors          Issue -pedantic warnings as errors instead\n\
1923   -trigraphs                Support ISO C trigraphs\n\
1924   -lang-c                   Assume that the input sources are in C\n\
1925   -lang-c89                 Assume that the input sources are in C89\n\
1926 "), stdout);
1927   fputs (_("\
1928   -lang-c++                 Assume that the input sources are in C++\n\
1929   -lang-objc                Assume that the input sources are in ObjectiveC\n\
1930   -lang-asm                 Assume that the input sources are in assembler\n\
1931 "), stdout);
1932   fputs (_("\
1933   -std=<std name>           Specify the conformance standard; one of:\n\
1934                             gnu89, gnu99, c89, c99, iso9899:1990,\n\
1935                             iso9899:199409, iso9899:1999\n\
1936   -w                        Inhibit warning messages\n\
1937   -Wtrigraphs               Warn if trigraphs are encountered\n\
1938   -Wno-trigraphs            Do not warn about trigraphs\n\
1939   -Wcomment{s}              Warn if one comment starts inside another\n\
1940 "), stdout);
1941   fputs (_("\
1942   -Wno-comment{s}           Do not warn about comments\n\
1943   -Wtraditional             Warn about features not present in traditional C\n\
1944   -Wno-traditional          Do not warn about traditional C\n\
1945   -Wundef                   Warn if an undefined macro is used by #if\n\
1946   -Wno-undef                Do not warn about testing undefined macros\n\
1947   -Wimport                  Warn about the use of the #import directive\n\
1948 "), stdout);
1949   fputs (_("\
1950   -Wno-import               Do not warn about the use of #import\n\
1951   -Werror                   Treat all warnings as errors\n\
1952   -Wno-error                Do not treat warnings as errors\n\
1953   -Wsystem-headers          Do not suppress warnings from system headers\n\
1954   -Wno-system-headers       Suppress warnings from system headers\n\
1955   -Wall                     Enable all preprocessor warnings\n\
1956 "), stdout);
1957   fputs (_("\
1958   -M                        Generate make dependencies\n\
1959   -MM                       As -M, but ignore system header files\n\
1960   -MD                       Generate make dependencies and compile\n\
1961   -MMD                      As -MD, but ignore system header files\n\
1962   -MF <file>                Write dependency output to the given file\n\
1963   -MG                       Treat missing header file as generated files\n\
1964 "), stdout);
1965   fputs (_("\
1966   -MP                       Generate phony targets for all headers\n\
1967   -MQ <target>              Add a MAKE-quoted target\n\
1968   -MT <target>              Add an unquoted target\n\
1969 "), stdout);
1970   fputs (_("\
1971   -D<macro>                 Define a <macro> with string '1' as its value\n\
1972   -D<macro>=<val>           Define a <macro> with <val> as its value\n\
1973   -A<question>=<answer>     Assert the <answer> to <question>\n\
1974   -A-<question>=<answer>    Disable the <answer> to <question>\n\
1975   -U<macro>                 Undefine <macro> \n\
1976   -v                        Display the version number\n\
1977 "), stdout);
1978   fputs (_("\
1979   -H                        Print the name of header files as they are used\n\
1980   -C                        Do not discard comments\n\
1981   -dM                       Display a list of macro definitions active at end\n\
1982   -dD                       Preserve macro definitions in output\n\
1983   -dN                       As -dD except that only the names are preserved\n\
1984   -dI                       Include #include directives in the output\n\
1985 "), stdout);
1986   fputs (_("\
1987   -fpreprocessed            Treat the input file as already preprocessed\n\
1988   -ftabstop=<number>        Distance between tab stops for column reporting\n\
1989   -P                        Do not generate #line directives\n\
1990   -$                        Do not allow '$' in identifiers\n\
1991   -remap                    Remap file names when including files\n\
1992   --version                 Display version information\n\
1993   -h or --help              Display this information\n\
1994 "), stdout);
1995 }