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