gcc/cppinit.c

   1 /* CPP Library.
   2    Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
   3    1999, 2000, 2001 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 "output.h"
  27 #include "prefix.h"
  28 #include "intl.h"
  29 #include "version.h"
  30 #include "mkdeps.h"
  31 #include "cppdefault.h"
  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 #elif (defined _WIN32 && ! defined (_UWIN)) || defined __MSDOS__
  45 #define INO_T_EQ(a, b) 0
  46 #else
  47 #define INO_T_EQ(a, b) ((a) == (b))
  48 #endif
  49
  50 /* Internal structures and prototypes.  */
  51
  52 /* A `struct pending_option' remembers one -D, -A, -U, -include, or
  53    -imacros switch.  */
  54
  55 typedef void (* cl_directive_handler) PARAMS ((cpp_reader *, const char *));
  56 struct pending_option
  57 {
  58   struct pending_option *next;
  59   const char *arg;
  60   cl_directive_handler handler;
  61 };
  62
  63 /* The `pending' structure accumulates all the options that are not
  64    actually processed until we hit cpp_start_read.  It consists of
  65    several lists, one for each type of option.  We keep both head and
  66    tail pointers for quick insertion.  */
  67 struct cpp_pending
  68 {
  69   struct pending_option *directive_head, *directive_tail;
  70
  71   struct file_name_list *quote_head, *quote_tail;
  72   struct file_name_list *brack_head, *brack_tail;
  73   struct file_name_list *systm_head, *systm_tail;
  74   struct file_name_list *after_head, *after_tail;
  75
  76   struct pending_option *imacros_head, *imacros_tail;
  77   struct pending_option *include_head, *include_tail;
  78 };
  79
  80 #ifdef __STDC__
  81 #define APPEND(pend, list, elt) \
  82   do {  if (!(pend)->list##_head) (pend)->list##_head = (elt); \
  83         else (pend)->list##_tail->next = (elt); \
  84         (pend)->list##_tail = (elt); \
  85   } while (0)
  86 #else
  87 #define APPEND(pend, list, elt) \
  88   do {  if (!(pend)->list/**/_head) (pend)->list/**/_head = (elt); \
  89         else (pend)->list/**/_tail->next = (elt); \
  90         (pend)->list/**/_tail = (elt); \
  91   } while (0)
  92 #endif
  93
  94 static void print_help                  PARAMS ((void));
  95 static void path_include                PARAMS ((cpp_reader *,
  96                                                  char *, int));
  97 static void initialize                  PARAMS ((void));
  98 static void initialize_builtins         PARAMS ((cpp_reader *));
  99 static void append_include_chain        PARAMS ((cpp_reader *,
 100                                                  char *, int, int));
 101 struct file_name_list * remove_dup_dir  PARAMS ((cpp_reader *,
 102                                                  struct file_name_list *));
 103 struct file_name_list * remove_dup_dirs PARAMS ((cpp_reader *,
 104                                                  struct file_name_list *));
 105 static void merge_include_chains        PARAMS ((cpp_reader *));
 106 static void do_includes                 PARAMS ((cpp_reader *,
 107                                                  struct pending_option *,
 108                                                  int));
 109 static void set_lang                    PARAMS ((cpp_reader *, enum c_lang));
 110 static void initialize_dependency_output PARAMS ((cpp_reader *));
 111 static void initialize_standard_includes PARAMS ((cpp_reader *));
 112 static void new_pending_directive       PARAMS ((struct cpp_pending *,
 113                                                  const char *,
 114                                                  cl_directive_handler));
 115 #ifdef HOST_EBCDIC
 116 static int opt_comp                     PARAMS ((const void *, const void *));
 117 #endif
 118 static int parse_option                 PARAMS ((const char *));
 119
 120 /* Fourth argument to append_include_chain: chain to use.  */
 121 enum { QUOTE = 0, BRACKET, SYSTEM, AFTER };
 122
 123 /* If we have designated initializers (GCC >2.7) these tables can be
 124    initialized, constant data.  Otherwise, they have to be filled in at
 125    runtime.  */
 126 #if HAVE_DESIGNATED_INITIALIZERS
 127
 128 #define init_trigraph_map()  /* Nothing.  */
 129 #define TRIGRAPH_MAP \
 130 __extension__ const U_CHAR _cpp_trigraph_map[UCHAR_MAX + 1] = {
 131
 132 #define END };
 133 #define s(p, v) [p] = v,
 134
 135 #else
 136
 137 #define TRIGRAPH_MAP U_CHAR _cpp_trigraph_map[UCHAR_MAX + 1] = { 0 }; \
 138  static void init_trigraph_map PARAMS ((void)) { \
 139  unsigned char *x = _cpp_trigraph_map;
 140
 141 #define END }
 142 #define s(p, v) x[p] = v;
 143
 144 #endif
 145
 146 TRIGRAPH_MAP
 147   s('=', '#')   s(')', ']')     s('!', '|')
 148   s('(', '[')   s('\'', '^')    s('>', '}')
 149   s('/', '\\')  s('<', '{')     s('-', '~')
 150 END
 151
 152 #undef s
 153 #undef END
 154 #undef TRIGRAPH_MAP
 155
 156 /* Given a colon-separated list of file names PATH,
 157    add all the names to the search path for include files.  */
 158
 159 static void
 160 path_include (pfile, list, path)
 161      cpp_reader *pfile;
 162      char *list;
 163      int path;
 164 {
 165   char *p, *q, *name;
 166
 167   p = list;
 168
 169   do
 170     {
 171       /* Find the end of this name.  */
 172       q = p;
 173       while (*q != 0 && *q != PATH_SEPARATOR) q++;
 174       if (q == p)
 175         {
 176           /* An empty name in the path stands for the current directory.  */
 177           name = (char *) xmalloc (2);
 178           name[0] = '.';
 179           name[1] = 0;
 180         }
 181       else
 182         {
 183           /* Otherwise use the directory that is named.  */
 184           name = (char *) xmalloc (q - p + 1);
 185           memcpy (name, p, q - p);
 186           name[q - p] = 0;
 187         }
 188
 189       append_include_chain (pfile, name, path, 0);
 190
 191       /* Advance past this name.  */
 192       if (*q == 0)
 193         break;
 194       p = q + 1;
 195     }
 196   while (1);
 197 }
 198
 199 /* Append DIR to include path PATH.  DIR must be permanently allocated
 200    and writable. */
 201 static void
 202 append_include_chain (pfile, dir, path, cxx_aware)
 203      cpp_reader *pfile;
 204      char *dir;
 205      int path;
 206      int cxx_aware;
 207 {
 208   struct cpp_pending *pend = CPP_OPTION (pfile, pending);
 209   struct file_name_list *new;
 210   struct stat st;
 211   unsigned int len;
 212
 213   _cpp_simplify_pathname (dir);
 214   if (stat (dir, &st))
 215     {
 216       /* Dirs that don't exist are silently ignored. */
 217       if (errno != ENOENT)
 218         cpp_notice_from_errno (pfile, dir);
 219       else if (CPP_OPTION (pfile, verbose))
 220         fprintf (stderr, _("ignoring nonexistent directory \"%s\"\n"), dir);
 221       return;
 222     }
 223
 224   if (!S_ISDIR (st.st_mode))
 225     {
 226       cpp_notice (pfile, "%s: Not a directory", dir);
 227       return;
 228     }
 229
 230   len = strlen (dir);
 231   if (len > pfile->max_include_len)
 232     pfile->max_include_len = len;
 233
 234   new = (struct file_name_list *) xmalloc (sizeof (struct file_name_list));
 235   new->name = dir;
 236   new->nlen = len;
 237   new->ino  = st.st_ino;
 238   new->dev  = st.st_dev;
 239   if (path == SYSTEM)
 240     new->sysp = cxx_aware ? 1 : 2;
 241   else
 242     new->sysp = 0;
 243   new->name_map = NULL;
 244   new->next = NULL;
 245   new->alloc = NULL;
 246
 247   switch (path)
 248     {
 249     case QUOTE:         APPEND (pend, quote, new); break;
 250     case BRACKET:       APPEND (pend, brack, new); break;
 251     case SYSTEM:        APPEND (pend, systm, new); break;
 252     case AFTER:         APPEND (pend, after, new); break;
 253     }
 254 }
 255
 256 /* Handle a duplicated include path.  PREV is the link in the chain
 257    before the duplicate.  The duplicate is removed from the chain and
 258    freed.  Returns PREV.  */
 259 struct file_name_list *
 260 remove_dup_dir (pfile, prev)
 261      cpp_reader *pfile;
 262      struct file_name_list *prev;
 263 {
 264   struct file_name_list *cur = prev->next;
 265
 266   if (CPP_OPTION (pfile, verbose))
 267     fprintf (stderr, _("ignoring duplicate directory \"%s\"\n"), cur->name);
 268
 269   prev->next = cur->next;
 270   free (cur->name);
 271   free (cur);
 272
 273   return prev;
 274 }
 275
 276 /* Remove duplicate directories from a chain.  Returns the tail of the
 277    chain, or NULL if the chain is empty.  This algorithm is quadratic
 278    in the number of -I switches, which is acceptable since there
 279    aren't usually that many of them.  */
 280 struct file_name_list *
 281 remove_dup_dirs (pfile, head)
 282      cpp_reader *pfile;
 283      struct file_name_list *head;
 284 {
 285   struct file_name_list *prev = NULL, *cur, *other;
 286
 287   for (cur = head; cur; cur = cur->next)
 288     {
 289       for (other = head; other != cur; other = other->next)
 290         if (INO_T_EQ (cur->ino, other->ino) && cur->dev == other->dev)
 291           {
 292             cur = remove_dup_dir (pfile, prev);
 293             break;
 294           }
 295       prev = cur;
 296     }
 297
 298   return prev;
 299 }
 300
 301 /* Merge the four include chains together in the order quote, bracket,
 302    system, after.  Remove duplicate dirs (as determined by
 303    INO_T_EQ()).  The system_include and after_include chains are never
 304    referred to again after this function; all access is through the
 305    bracket_include path.
 306
 307    For the future: Check if the directory is empty (but
 308    how?) and possibly preload the include hash.  */
 309
 310 static void
 311 merge_include_chains (pfile)
 312      cpp_reader *pfile;
 313 {
 314   struct file_name_list *quote, *brack, *systm, *qtail;
 315
 316   struct cpp_pending *pend = CPP_OPTION (pfile, pending);
 317
 318   quote = pend->quote_head;
 319   brack = pend->brack_head;
 320   systm = pend->systm_head;
 321   qtail = pend->quote_tail;
 322
 323   /* Paste together bracket, system, and after include chains.  */
 324   if (systm)
 325     pend->systm_tail->next = pend->after_head;
 326   else
 327     systm = pend->after_head;
 328
 329   if (brack)
 330     pend->brack_tail->next = systm;
 331   else
 332     brack = systm;
 333
 334   /* This is a bit tricky.  First we drop dupes from the quote-include
 335      list.  Then we drop dupes from the bracket-include list.
 336      Finally, if qtail and brack are the same directory, we cut out
 337      brack.
 338
 339      We can't just merge the lists and then uniquify them because
 340      then we may lose directories from the <> search path that should
 341      be there; consider -Ifoo -Ibar -I- -Ifoo -Iquux. It is however
 342      safe to treat -Ibar -Ifoo -I- -Ifoo -Iquux as if written
 343      -Ibar -I- -Ifoo -Iquux.  */
 344
 345   remove_dup_dirs (pfile, brack);
 346   qtail = remove_dup_dirs (pfile, quote);
 347
 348   if (quote)
 349     {
 350       qtail->next = brack;
 351
 352       /* If brack == qtail, remove brack as it's simpler.  */
 353       if (INO_T_EQ (qtail->ino, brack->ino) && qtail->dev == brack->dev)
 354         brack = remove_dup_dir (pfile, qtail);
 355     }
 356   else
 357       quote = brack;
 358
 359   CPP_OPTION (pfile, quote_include) = quote;
 360   CPP_OPTION (pfile, bracket_include) = brack;
 361 }
 362
 363 /* Sets internal flags correctly for a given language, and defines
 364    macros if necessary.  */
 365 static void
 366 set_lang (pfile, lang)
 367      cpp_reader *pfile;
 368      enum c_lang lang;
 369 {
 370   struct cpp_pending *pend = CPP_OPTION (pfile, pending);
 371
 372   /* Defaults.  */
 373   CPP_OPTION (pfile, lang) = lang;
 374   CPP_OPTION (pfile, objc) = 0;
 375   CPP_OPTION (pfile, cplusplus) = 0;
 376   CPP_OPTION (pfile, extended_numbers) = 1; /* Allowed in GNU C and C99.  */
 377
 378   switch (lang)
 379     {
 380       /* GNU C.  */
 381     case CLK_GNUC99:
 382       CPP_OPTION (pfile, trigraphs) = 0;
 383       CPP_OPTION (pfile, dollars_in_ident) = 1;
 384       CPP_OPTION (pfile, cplusplus_comments) = 1;
 385       CPP_OPTION (pfile, digraphs) = 1;
 386       CPP_OPTION (pfile, c99) = 1;
 387       new_pending_directive (pend, "__STDC_VERSION__=199901L", cpp_define);
 388       break;
 389     case CLK_GNUC89:
 390       CPP_OPTION (pfile, trigraphs) = 0;
 391       CPP_OPTION (pfile, dollars_in_ident) = 1;
 392       CPP_OPTION (pfile, cplusplus_comments) = 1;
 393       CPP_OPTION (pfile, digraphs) = 1;
 394       CPP_OPTION (pfile, c99) = 0;
 395       break;
 396
 397       /* ISO C.  */
 398     case CLK_STDC94:
 399       new_pending_directive (pend, "__STDC_VERSION__=199409L", cpp_define);
 400     case CLK_STDC89:
 401       CPP_OPTION (pfile, trigraphs) = 1;
 402       CPP_OPTION (pfile, dollars_in_ident) = 0;
 403       CPP_OPTION (pfile, cplusplus_comments) = 0;
 404       CPP_OPTION (pfile, digraphs) = lang == CLK_STDC94;
 405       CPP_OPTION (pfile, c99) = 0;
 406       CPP_OPTION (pfile, extended_numbers) = 0;
 407       new_pending_directive (pend, "__STRICT_ANSI__", cpp_define);
 408       break;
 409     case CLK_STDC99:
 410       CPP_OPTION (pfile, trigraphs) = 1;
 411       CPP_OPTION (pfile, dollars_in_ident) = 0;
 412       CPP_OPTION (pfile, cplusplus_comments) = 1;
 413       CPP_OPTION (pfile, digraphs) = 1;
 414       CPP_OPTION (pfile, c99) = 1;
 415       new_pending_directive (pend, "__STRICT_ANSI__", cpp_define);
 416       new_pending_directive (pend, "__STDC_VERSION__=199901L", cpp_define);
 417       break;
 418
 419       /* Objective C.  */
 420     case CLK_OBJCXX:
 421       new_pending_directive (pend, "__cplusplus", cpp_define);
 422       CPP_OPTION (pfile, cplusplus) = 1;
 423     case CLK_OBJC:
 424       CPP_OPTION (pfile, trigraphs) = 0;
 425       CPP_OPTION (pfile, dollars_in_ident) = 1;
 426       CPP_OPTION (pfile, cplusplus_comments) = 1;
 427       CPP_OPTION (pfile, digraphs) = 1;
 428       CPP_OPTION (pfile, c99) = 0;
 429       CPP_OPTION (pfile, objc) = 1;
 430       new_pending_directive (pend, "__OBJC__", cpp_define);
 431       break;
 432
 433       /* C++.  */
 434     case CLK_GNUCXX:
 435     case CLK_CXX98:
 436       CPP_OPTION (pfile, cplusplus) = 1;
 437       CPP_OPTION (pfile, trigraphs) = lang == CLK_CXX98;
 438       CPP_OPTION (pfile, dollars_in_ident) = lang == CLK_GNUCXX;
 439       CPP_OPTION (pfile, cplusplus_comments) = 1;
 440       CPP_OPTION (pfile, digraphs) = 1;
 441       CPP_OPTION (pfile, c99) = 0;
 442       new_pending_directive (pend, "__cplusplus", cpp_define);
 443       break;
 444
 445       /* Assembler.  */
 446     case CLK_ASM:
 447       CPP_OPTION (pfile, trigraphs) = 0;
 448       CPP_OPTION (pfile, dollars_in_ident) = 0; /* Maybe not?  */
 449       CPP_OPTION (pfile, cplusplus_comments) = 1;
 450       CPP_OPTION (pfile, digraphs) = 0;
 451       CPP_OPTION (pfile, c99) = 0;
 452       new_pending_directive (pend, "__ASSEMBLER__", cpp_define);
 453       break;
 454     }
 455 }
 456
 457 /* initialize initializes library global state.  It might not need to
 458    do anything depending on the platform and compiler.  */
 459
 460 static int initialized = 0;
 461
 462 static void
 463 initialize ()
 464 {
 465 #ifdef HOST_EBCDIC
 466   /* For non-ASCII hosts, the cl_options array needs to be sorted at
 467      runtime.  */
 468   qsort (cl_options, N_OPTS, sizeof (struct cl_option), opt_comp);
 469 #endif
 470
 471   /* Set up the trigraph map.  This doesn't need to do anything if we were
 472      compiled with a compiler that supports C99 designated initializers.  */
 473   init_trigraph_map ();
 474
 475   initialized = 1;
 476 }
 477
 478 /* Initialize a cpp_reader structure. */
 479 cpp_reader *
 480 cpp_create_reader (lang)
 481      enum c_lang lang;
 482 {
 483   struct spec_nodes *s;
 484   cpp_reader *pfile = (cpp_reader *) xcalloc (1, sizeof (cpp_reader));
 485
 486   /* Initialise this instance of the library if it hasn't been already.  */
 487   if (! initialized)
 488     initialize ();
 489
 490   CPP_OPTION (pfile, warn_import) = 1;
 491   CPP_OPTION (pfile, discard_comments) = 1;
 492   CPP_OPTION (pfile, show_column) = 1;
 493   CPP_OPTION (pfile, tabstop) = 8;
 494   CPP_OPTION (pfile, operator_names) = 1;
 495
 496   CPP_OPTION (pfile, pending) =
 497     (struct cpp_pending *) xcalloc (1, sizeof (struct cpp_pending));
 498
 499   /* After creating pfile->pending.  */
 500   set_lang (pfile, lang);
 501
 502   /* Initialize lexer state.  */
 503   pfile->state.save_comments = ! CPP_OPTION (pfile, discard_comments);
 504
 505   /* Indicate date and time not yet calculated.  */
 506   pfile->date.type = CPP_EOF;
 507
 508   /* Initialise the base context.  */
 509   pfile->context = &pfile->base_context;
 510   pfile->base_context.macro = 0;
 511   pfile->base_context.prev = pfile->base_context.next = 0;
 512
 513   /* Identifier pool initially 8K.  Unaligned, permanent pool.  */
 514   _cpp_init_pool (&pfile->ident_pool, 8 * 1024, 1, 0);
 515
 516   /* Argument pool initially 8K.  Aligned, temporary pool.  */
 517   _cpp_init_pool (&pfile->argument_pool, 8 * 1024, 0, 1);
 518
 519   /* Macro pool initially 8K.  Aligned, permanent pool.  */
 520   _cpp_init_pool (&pfile->macro_pool, 8 * 1024, 0, 0);
 521
 522   _cpp_init_hashtable (pfile);
 523   _cpp_init_stacks (pfile);
 524   _cpp_init_includes (pfile);
 525   _cpp_init_internal_pragmas (pfile);
 526
 527   /* Initialize the special nodes.  */
 528   s = &pfile->spec_nodes;
 529   s->n_L                = cpp_lookup (pfile, DSC("L"));
 530   s->n_defined          = cpp_lookup (pfile, DSC("defined"));
 531   s->n__Pragma          = cpp_lookup (pfile, DSC("_Pragma"));
 532   s->n__STRICT_ANSI__   = cpp_lookup (pfile, DSC("__STRICT_ANSI__"));
 533   s->n__CHAR_UNSIGNED__ = cpp_lookup (pfile, DSC("__CHAR_UNSIGNED__"));
 534   s->n__VA_ARGS__       = cpp_lookup (pfile, DSC("__VA_ARGS__"));
 535   s->n__VA_ARGS__->flags |= NODE_DIAGNOSTIC;
 536
 537   return pfile;
 538 }
 539
 540 /* Free resources used by PFILE.
 541    This is the cpp_reader 'finalizer' or 'destructor' (in C++ terminology).  */
 542 void
 543 cpp_cleanup (pfile)
 544      cpp_reader *pfile;
 545 {
 546   struct file_name_list *dir, *dirn;
 547   cpp_context *context, *contextn;
 548
 549   while (CPP_BUFFER (pfile) != NULL)
 550     cpp_pop_buffer (pfile);
 551
 552   if (pfile->macro_buffer)
 553     free ((PTR) pfile->macro_buffer);
 554
 555   if (pfile->deps)
 556     deps_free (pfile->deps);
 557
 558   _cpp_cleanup_includes (pfile);
 559   _cpp_cleanup_stacks (pfile);
 560   _cpp_cleanup_hashtable (pfile);
 561
 562   _cpp_free_lookaheads (pfile);
 563
 564   _cpp_free_pool (&pfile->ident_pool);
 565   _cpp_free_pool (&pfile->macro_pool);
 566   _cpp_free_pool (&pfile->argument_pool);
 567
 568   for (dir = CPP_OPTION (pfile, quote_include); dir; dir = dirn)
 569     {
 570       dirn = dir->next;
 571       free (dir->name);
 572       free (dir);
 573     }
 574
 575   for (context = pfile->base_context.next; context; context = contextn)
 576     {
 577       contextn = context->next;
 578       free (context);
 579     }
 580 }
 581
 582
 583 /* This structure defines one built-in identifier.  A node will be
 584    entered in the hash table under the name NAME, with value VALUE (if
 585    any).  If flags has OPERATOR, the node's operator field is used; if
 586    flags has BUILTIN the node's builtin field is used.
 587
 588    Two values are not compile time constants, so we tag
 589    them in the FLAGS field instead:
 590    VERS         value is the global version_string, quoted
 591    ULP          value is the global user_label_prefix
 592
 593    Also, macros with CPLUS set in the flags field are entered only for C++.  */
 594
 595 struct builtin
 596 {
 597   const U_CHAR *name;
 598   const char *value;
 599   unsigned char builtin;
 600   unsigned char operator;
 601   unsigned short flags;
 602   unsigned short len;
 603 };
 604 #define VERS            0x01
 605 #define ULP             0x02
 606 #define CPLUS           0x04
 607 #define BUILTIN         0x08
 608 #define OPERATOR        0x10
 609
 610 #define B(n, t)       { U n, 0, t, 0, BUILTIN, sizeof n - 1 }
 611 #define C(n, v)       { U n, v, 0, 0, 0, sizeof n - 1 }
 612 #define X(n, f)       { U n, 0, 0, 0, f, sizeof n - 1 }
 613 #define O(n, c, f)    { U n, 0, 0, c, OPERATOR | f, sizeof n - 1 }
 614 static const struct builtin builtin_array[] =
 615 {
 616   B("__TIME__",          BT_TIME),
 617   B("__DATE__",          BT_DATE),
 618   B("__FILE__",          BT_FILE),
 619   B("__BASE_FILE__",     BT_BASE_FILE),
 620   B("__LINE__",          BT_SPECLINE),
 621   B("__INCLUDE_LEVEL__", BT_INCLUDE_LEVEL),
 622   B("__STDC__",          BT_STDC),
 623
 624   X("__VERSION__",              VERS),
 625   X("__USER_LABEL_PREFIX__",    ULP),
 626   C("__REGISTER_PREFIX__",      REGISTER_PREFIX),
 627   C("__HAVE_BUILTIN_SETJMP__",  "1"),
 628 #ifndef NO_BUILTIN_SIZE_TYPE
 629   C("__SIZE_TYPE__",            SIZE_TYPE),
 630 #endif
 631 #ifndef NO_BUILTIN_PTRDIFF_TYPE
 632   C("__PTRDIFF_TYPE__",         PTRDIFF_TYPE),
 633 #endif
 634 #ifndef NO_BUILTIN_WCHAR_TYPE
 635   C("__WCHAR_TYPE__",           WCHAR_TYPE),
 636 #endif
 637 #ifndef NO_BUILTIN_WINT_TYPE
 638   C("__WINT_TYPE__",            WINT_TYPE),
 639 #endif
 640
 641   /* Named operators known to the preprocessor.  These cannot be #defined
 642      and always have their stated meaning.  They are treated like normal
 643      identifiers except for the type code and the meaning.  Most of them
 644      are only for C++ (but see iso646.h).  */
 645   O("and",      CPP_AND_AND, CPLUS),
 646   O("and_eq",   CPP_AND_EQ,  CPLUS),
 647   O("bitand",   CPP_AND,     CPLUS),
 648   O("bitor",    CPP_OR,      CPLUS),
 649   O("compl",    CPP_COMPL,   CPLUS),
 650   O("not",      CPP_NOT,     CPLUS),
 651   O("not_eq",   CPP_NOT_EQ,  CPLUS),
 652   O("or",       CPP_OR_OR,   CPLUS),
 653   O("or_eq",    CPP_OR_EQ,   CPLUS),
 654   O("xor",      CPP_XOR,     CPLUS),
 655   O("xor_eq",   CPP_XOR_EQ,  CPLUS)
 656 };
 657 #undef B
 658 #undef C
 659 #undef X
 660 #undef O
 661 #define builtin_array_end \
 662  builtin_array + sizeof(builtin_array)/sizeof(struct builtin)
 663
 664 /* Subroutine of cpp_start_read; reads the builtins table above and
 665    enters the macros into the hash table.  */
 666 static void
 667 initialize_builtins (pfile)
 668      cpp_reader *pfile;
 669 {
 670   const struct builtin *b;
 671
 672   for(b = builtin_array; b < builtin_array_end; b++)
 673     {
 674       if ((b->flags & CPLUS) && ! CPP_OPTION (pfile, cplusplus))
 675         continue;
 676
 677       if ((b->flags & OPERATOR) && ! CPP_OPTION (pfile, operator_names))
 678         continue;
 679
 680       if (b->flags & (OPERATOR | BUILTIN))
 681         {
 682           cpp_hashnode *hp = cpp_lookup (pfile, b->name, b->len);
 683           if (b->flags & OPERATOR)
 684             {
 685               hp->flags |= NODE_OPERATOR;
 686               hp->value.operator = b->operator;
 687             }
 688           else
 689             {
 690               hp->type = NT_MACRO;
 691               hp->flags |= NODE_BUILTIN;
 692               hp->value.builtin = b->builtin;
 693             }
 694         }
 695       else                      /* A standard macro of some kind.  */
 696         {
 697           const char *val;
 698           char *str;
 699
 700           if (b->flags & VERS)
 701             {
 702               /* Allocate enough space for 'name "value"\n\0'.  */
 703               str = alloca (b->len + strlen (version_string) + 5);
 704               sprintf (str, "%s \"%s\"\n", b->name, version_string);
 705             }
 706           else
 707             {
 708               if (b->flags & ULP)
 709                 val = CPP_OPTION (pfile, user_label_prefix);
 710               else
 711                 val = b->value;
 712
 713               /* Allocate enough space for "name value\n\0".  */
 714               str = alloca (b->len + strlen (val) + 3);
 715               sprintf(str, "%s %s\n", b->name, val);
 716             }
 717
 718           _cpp_define_builtin (pfile, str);
 719         }
 720     }
 721 }
 722 #undef BUILTIN
 723 #undef OPERATOR
 724 #undef VERS
 725 #undef ULP
 726 #undef CPLUS
 727 #undef builtin_array_end
 728
 729 /* Another subroutine of cpp_start_read.  This one sets up to do
 730    dependency-file output. */
 731 static void
 732 initialize_dependency_output (pfile)
 733      cpp_reader *pfile;
 734 {
 735   char *spec, *s, *output_file;
 736
 737   /* Either of two environment variables can specify output of deps.
 738      Its value is either "OUTPUT_FILE" or "OUTPUT_FILE DEPS_TARGET",
 739      where OUTPUT_FILE is the file to write deps info to
 740      and DEPS_TARGET is the target to mention in the deps.  */
 741
 742   if (CPP_OPTION (pfile, print_deps) == 0)
 743     {
 744       spec = getenv ("DEPENDENCIES_OUTPUT");
 745       if (spec)
 746         CPP_OPTION (pfile, print_deps) = 1;
 747       else
 748         {
 749           spec = getenv ("SUNPRO_DEPENDENCIES");
 750           if (spec)
 751             CPP_OPTION (pfile, print_deps) = 2;
 752           else
 753             return;
 754         }
 755
 756       if (! pfile->deps)
 757         pfile->deps = deps_init ();
 758
 759       /* Find the space before the DEPS_TARGET, if there is one.  */
 760       s = strchr (spec, ' ');
 761       if (s)
 762         {
 763           /* Let the caller perform MAKE quoting.  */
 764           deps_add_target (pfile->deps, s + 1, 0);
 765           output_file = (char *) xmalloc (s - spec + 1);
 766           memcpy (output_file, spec, s - spec);
 767           output_file[s - spec] = 0;
 768         }
 769       else
 770         output_file = spec;
 771
 772       CPP_OPTION (pfile, deps_file) = output_file;
 773       CPP_OPTION (pfile, print_deps_append) = 1;
 774     }
 775
 776   /* Set the default target (if there is none already).  */
 777   deps_add_default_target (pfile->deps, CPP_OPTION (pfile, in_fname));
 778
 779   if (CPP_OPTION (pfile, in_fname))
 780     deps_add_dep (pfile->deps, CPP_OPTION (pfile, in_fname));
 781 }
 782
 783 /* And another subroutine.  This one sets up the standard include path.  */
 784 static void
 785 initialize_standard_includes (pfile)
 786      cpp_reader *pfile;
 787 {
 788   char *path;
 789   const struct default_include *p;
 790   const char *specd_prefix = CPP_OPTION (pfile, include_prefix);
 791
 792   /* Several environment variables may add to the include search path.
 793      CPATH specifies an additional list of directories to be searched
 794      as if specified with -I, while C_INCLUDE_PATH, CPLUS_INCLUDE_PATH,
 795      etc. specify an additional list of directories to be searched as
 796      if specified with -isystem, for the language indicated.  */
 797
 798   GET_ENV_PATH_LIST (path, "CPATH");
 799   if (path != 0 && *path != 0)
 800     path_include (pfile, path, BRACKET);
 801
 802   switch ((CPP_OPTION (pfile, objc) << 1) + CPP_OPTION (pfile, cplusplus))
 803     {
 804     case 0:
 805       GET_ENV_PATH_LIST (path, "C_INCLUDE_PATH");
 806       break;
 807     case 1:
 808       GET_ENV_PATH_LIST (path, "CPLUS_INCLUDE_PATH");
 809       break;
 810     case 2:
 811       GET_ENV_PATH_LIST (path, "OBJC_INCLUDE_PATH");
 812       break;
 813     case 3:
 814       GET_ENV_PATH_LIST (path, "OBJCPLUS_INCLUDE_PATH");
 815       break;
 816     }
 817   if (path != 0 && *path != 0)
 818     path_include (pfile, path, SYSTEM);
 819
 820   /* Search "translated" versions of GNU directories.
 821      These have /usr/local/lib/gcc... replaced by specd_prefix.  */
 822   if (specd_prefix != 0 && cpp_GCC_INCLUDE_DIR_len)
 823     {
 824       /* Remove the `include' from /usr/local/lib/gcc.../include.
 825          GCC_INCLUDE_DIR will always end in /include. */
 826       int default_len = cpp_GCC_INCLUDE_DIR_len;
 827       char *default_prefix = (char *) alloca (default_len + 1);
 828       int specd_len = strlen (specd_prefix);
 829
 830       memcpy (default_prefix, cpp_GCC_INCLUDE_DIR, default_len);
 831       default_prefix[default_len] = '\0';
 832
 833       for (p = cpp_include_defaults; p->fname; p++)
 834         {
 835           /* Some standard dirs are only for C++.  */
 836           if (!p->cplusplus
 837               || (CPP_OPTION (pfile, cplusplus)
 838                   && !CPP_OPTION (pfile, no_standard_cplusplus_includes)))
 839             {
 840               /* Does this dir start with the prefix?  */
 841               if (!memcmp (p->fname, default_prefix, default_len))
 842                 {
 843                   /* Yes; change prefix and add to search list.  */
 844                   int flen = strlen (p->fname);
 845                   int this_len = specd_len + flen - default_len;
 846                   char *str = (char *) xmalloc (this_len + 1);
 847                   memcpy (str, specd_prefix, specd_len);
 848                   memcpy (str + specd_len,
 849                           p->fname + default_len,
 850                           flen - default_len + 1);
 851
 852                   append_include_chain (pfile, str, SYSTEM, p->cxx_aware);
 853                 }
 854             }
 855         }
 856     }
 857
 858   /* Search ordinary names for GNU include directories.  */
 859   for (p = cpp_include_defaults; p->fname; p++)
 860     {
 861       /* Some standard dirs are only for C++.  */
 862       if (!p->cplusplus
 863           || (CPP_OPTION (pfile, cplusplus)
 864               && !CPP_OPTION (pfile, no_standard_cplusplus_includes)))
 865         {
 866           char *str = xstrdup (update_path (p->fname, p->component));
 867           append_include_chain (pfile, str, SYSTEM, p->cxx_aware);
 868         }
 869     }
 870 }
 871
 872 /* Handles -imacro and -include from the command line.  */
 873 static void
 874 do_includes (pfile, p, scan)
 875      cpp_reader *pfile;
 876      struct pending_option *p;
 877      int scan;
 878 {
 879   while (p)
 880     {
 881       struct pending_option *q;
 882
 883       /* Later: maybe update this to use the #include "" search path
 884          if cpp_read_file fails.  */
 885       if (_cpp_read_file (pfile, p->arg) && scan)
 886         cpp_scan_buffer_nooutput (pfile, 0);
 887       q = p->next;
 888       free (p);
 889       p = q;
 890     }
 891 }
 892
 893 /* This is called after options have been processed.  Check options
 894  for consistency, and setup for processing input from the file named
 895  FNAME.  (Use standard input if FNAME == NULL.)  Return 1 on success,
 896  0 on failure.  */
 897
 898 int
 899 cpp_start_read (pfile, fname)
 900      cpp_reader *pfile;
 901      const char *fname;
 902 {
 903   struct pending_option *p, *q;
 904
 905   /* -MG doesn't select the form of output and must be specified with one of
 906      -M or -MM.  -MG doesn't make sense with -MD or -MMD since they don't
 907      inhibit compilation.  */
 908   if (CPP_OPTION (pfile, print_deps_missing_files)
 909       && (CPP_OPTION (pfile, print_deps) == 0
 910           || !CPP_OPTION (pfile, no_output)))
 911     {
 912       cpp_fatal (pfile, "-MG must be specified with one of -M or -MM");
 913       return 0;
 914     }
 915
 916   /* -Wtraditional is not useful in C++ mode.  */
 917   if (CPP_OPTION (pfile, cplusplus))
 918     CPP_OPTION (pfile, warn_traditional) = 0;
 919
 920   /* Set this if it hasn't been set already. */
 921   if (CPP_OPTION (pfile, user_label_prefix) == NULL)
 922     CPP_OPTION (pfile, user_label_prefix) = USER_LABEL_PREFIX;
 923
 924   /* Set up the include search path now.  */
 925   if (! CPP_OPTION (pfile, no_standard_includes))
 926     initialize_standard_includes (pfile);
 927
 928   merge_include_chains (pfile);
 929
 930   /* With -v, print the list of dirs to search.  */
 931   if (CPP_OPTION (pfile, verbose))
 932     {
 933       struct file_name_list *l;
 934       fprintf (stderr, _("#include \"...\" search starts here:\n"));
 935       for (l = CPP_OPTION (pfile, quote_include); l; l = l->next)
 936         {
 937           if (l == CPP_OPTION (pfile, bracket_include))
 938             fprintf (stderr, _("#include <...> search starts here:\n"));
 939           fprintf (stderr, " %s\n", l->name);
 940         }
 941       fprintf (stderr, _("End of search list.\n"));
 942     }
 943
 944   /* Open the main input file.  This must be done early, so we have a
 945      buffer to stand on.  */
 946   if (CPP_OPTION (pfile, in_fname) == NULL
 947       || *CPP_OPTION (pfile, in_fname) == 0)
 948     {
 949       CPP_OPTION (pfile, in_fname) = fname;
 950       if (CPP_OPTION (pfile, in_fname) == NULL)
 951         CPP_OPTION (pfile, in_fname) = "";
 952     }
 953   if (CPP_OPTION (pfile, out_fname) == NULL)
 954     CPP_OPTION (pfile, out_fname) = "";
 955
 956   if (!_cpp_read_file (pfile, fname))
 957     return 0;
 958
 959   initialize_dependency_output (pfile);
 960
 961   /* Install __LINE__, etc.  */
 962   initialize_builtins (pfile);
 963
 964   /* Do -U's, -D's and -A's in the order they were seen.  */
 965   p = CPP_OPTION (pfile, pending)->directive_head;
 966   while (p)
 967     {
 968       (*p->handler) (pfile, p->arg);
 969       q = p->next;
 970       free (p);
 971       p = q;
 972     }
 973   pfile->done_initializing = 1;
 974
 975   /* The -imacros files can be scanned now, but the -include files
 976      have to be pushed onto the buffer stack and processed later,
 977      otherwise cppmain.c won't see the tokens.  include_head was built
 978      up as a stack, and popping this stack onto the buffer stack means
 979      we preserve the order of the command line.  */
 980   do_includes (pfile, CPP_OPTION (pfile, pending)->imacros_head, 1);
 981   do_includes (pfile, CPP_OPTION (pfile, pending)->include_head, 0);
 982
 983   free (CPP_OPTION (pfile, pending));
 984   CPP_OPTION (pfile, pending) = NULL;
 985
 986   return 1;
 987 }
 988
 989 /* This is called at the end of preprocessing.  It pops the
 990    last buffer and writes dependency output.  It should also
 991    clear macro definitions, such that you could call cpp_start_read
 992    with a new filename to restart processing.  */
 993 void
 994 cpp_finish (pfile)
 995      cpp_reader *pfile;
 996 {
 997   if (CPP_BUFFER (pfile))
 998     {
 999       cpp_ice (pfile, "buffers still stacked in cpp_finish");
1000       while (CPP_BUFFER (pfile))
1001         cpp_pop_buffer (pfile);
1002     }
1003
1004   /* Don't write the deps file if preprocessing has failed.  */
1005   if (CPP_OPTION (pfile, print_deps) && pfile->errors == 0)
1006     {
1007       /* Stream on which to print the dependency information.  */
1008       FILE *deps_stream = 0;
1009       const char *deps_mode
1010         = CPP_OPTION (pfile, print_deps_append) ? "a" : "w";
1011       if (CPP_OPTION (pfile, deps_file) == 0)
1012         deps_stream = stdout;
1013       else
1014         {
1015           deps_stream = fopen (CPP_OPTION (pfile, deps_file), deps_mode);
1016           if (deps_stream == 0)
1017             cpp_notice_from_errno (pfile, CPP_OPTION (pfile, deps_file));
1018         }
1019       if (deps_stream)
1020         {
1021           deps_write (pfile->deps, deps_stream, 72);
1022
1023           if (CPP_OPTION (pfile, deps_phony_targets))
1024             deps_phony_targets (pfile->deps, deps_stream);
1025
1026           if (CPP_OPTION (pfile, deps_file))
1027             {
1028               if (ferror (deps_stream) || fclose (deps_stream) != 0)
1029                 cpp_fatal (pfile, "I/O error on output");
1030             }
1031         }
1032     }
1033
1034   /* Report on headers that could use multiple include guards.  */
1035   if (CPP_OPTION (pfile, print_include_names))
1036     _cpp_report_missing_guards (pfile);
1037 }
1038
1039 static void
1040 new_pending_directive (pend, text, handler)
1041      struct cpp_pending *pend;
1042      const char *text;
1043      cl_directive_handler handler;
1044 {
1045   struct pending_option *o = (struct pending_option *)
1046     xmalloc (sizeof (struct pending_option));
1047
1048   o->arg = text;
1049   o->next = NULL;
1050   o->handler = handler;
1051   APPEND (pend, directive, o);
1052 }
1053
1054 /* Irix6 "cc -n32" and OSF4 cc have problems with char foo[] = ("string");
1055    I.e. a const string initializer with parens around it.  That is
1056    what N_("string") resolves to, so we make no_* be macros instead.  */
1057 #define no_arg N_("Argument missing after %s")
1058 #define no_ass N_("Assertion missing after %s")
1059 #define no_dir N_("Directory name missing after %s")
1060 #define no_fil N_("File name missing after %s")
1061 #define no_mac N_("Macro name missing after %s")
1062 #define no_pth N_("Path name missing after %s")
1063 #define no_num N_("Number missing after %s")
1064 #define no_tgt N_("Target missing after %s")
1065
1066 /* This is the list of all command line options, with the leading
1067    "-" removed.  It must be sorted in ASCII collating order.  */
1068 #define COMMAND_LINE_OPTIONS                                                  \
1069   DEF_OPT("",                         0,      OPT_stdin_stdout)               \
1070   DEF_OPT("$",                        0,      OPT_dollar)                     \
1071   DEF_OPT("+",                        0,      OPT_plus)                       \
1072   DEF_OPT("-help",                    0,      OPT__help)                      \
1073   DEF_OPT("-target-help",             0,      OPT_target__help)               \
1074   DEF_OPT("-version",                 0,      OPT__version)                   \
1075   DEF_OPT("A",                        no_ass, OPT_A)                          \
1076   DEF_OPT("C",                        0,      OPT_C)                          \
1077   DEF_OPT("D",                        no_mac, OPT_D)                          \
1078   DEF_OPT("H",                        0,      OPT_H)                          \
1079   DEF_OPT("I",                        no_dir, OPT_I)                          \
1080   DEF_OPT("M",                        0,      OPT_M)                          \
1081   DEF_OPT("MD",                       no_fil, OPT_MD)                         \
1082   DEF_OPT("MG",                       0,      OPT_MG)                         \
1083   DEF_OPT("MM",                       0,      OPT_MM)                         \
1084   DEF_OPT("MMD",                      no_fil, OPT_MMD)                        \
1085   DEF_OPT("MP",                       0,      OPT_MP)                         \
1086   DEF_OPT("MT",                       no_tgt, OPT_MT)                         \
1087   DEF_OPT("P",                        0,      OPT_P)                          \
1088   DEF_OPT("U",                        no_mac, OPT_U)                          \
1089   DEF_OPT("W",                        no_arg, OPT_W)  /* arg optional */      \
1090   DEF_OPT("d",                        no_arg, OPT_d)                          \
1091   DEF_OPT("fleading-underscore",      0,      OPT_fleading_underscore)        \
1092   DEF_OPT("fno-leading-underscore",   0,      OPT_fno_leading_underscore)     \
1093   DEF_OPT("fno-operator-names",       0,      OPT_fno_operator_names)         \
1094   DEF_OPT("fno-preprocessed",         0,      OPT_fno_preprocessed)           \
1095   DEF_OPT("fno-show-column",          0,      OPT_fno_show_column)            \
1096   DEF_OPT("fpreprocessed",            0,      OPT_fpreprocessed)              \
1097   DEF_OPT("fshow-column",             0,      OPT_fshow_column)               \
1098   DEF_OPT("ftabstop=",                no_num, OPT_ftabstop)                   \
1099   DEF_OPT("g",                        no_arg, OPT_g)  /* arg optional */      \
1100   DEF_OPT("h",                        0,      OPT_h)                          \
1101   DEF_OPT("idirafter",                no_dir, OPT_idirafter)                  \
1102   DEF_OPT("imacros",                  no_fil, OPT_imacros)                    \
1103   DEF_OPT("include",                  no_fil, OPT_include)                    \
1104   DEF_OPT("iprefix",                  no_pth, OPT_iprefix)                    \
1105   DEF_OPT("isystem",                  no_dir, OPT_isystem)                    \
1106   DEF_OPT("iwithprefix",              no_dir, OPT_iwithprefix)                \
1107   DEF_OPT("iwithprefixbefore",        no_dir, OPT_iwithprefixbefore)          \
1108   DEF_OPT("lang-asm",                 0,      OPT_lang_asm)                   \
1109   DEF_OPT("lang-c",                   0,      OPT_lang_c)                     \
1110   DEF_OPT("lang-c++",                 0,      OPT_lang_cplusplus)             \
1111   DEF_OPT("lang-c89",                 0,      OPT_lang_c89)                   \
1112   DEF_OPT("lang-objc",                0,      OPT_lang_objc)                  \
1113   DEF_OPT("lang-objc++",              0,      OPT_lang_objcplusplus)          \
1114   DEF_OPT("nostdinc",                 0,      OPT_nostdinc)                   \
1115   DEF_OPT("nostdinc++",               0,      OPT_nostdincplusplus)           \
1116   DEF_OPT("o",                        no_fil, OPT_o)                          \
1117   DEF_OPT("pedantic",                 0,      OPT_pedantic)                   \
1118   DEF_OPT("pedantic-errors",          0,      OPT_pedantic_errors)            \
1119   DEF_OPT("remap",                    0,      OPT_remap)                      \
1120   DEF_OPT("std=c++98",                0,      OPT_std_cplusplus98)            \
1121   DEF_OPT("std=c89",                  0,      OPT_std_c89)                    \
1122   DEF_OPT("std=c99",                  0,      OPT_std_c99)                    \
1123   DEF_OPT("std=c9x",                  0,      OPT_std_c9x)                    \
1124   DEF_OPT("std=gnu89",                0,      OPT_std_gnu89)                  \
1125   DEF_OPT("std=gnu99",                0,      OPT_std_gnu99)                  \
1126   DEF_OPT("std=gnu9x",                0,      OPT_std_gnu9x)                  \
1127   DEF_OPT("std=iso9899:1990",         0,      OPT_std_iso9899_1990)           \
1128   DEF_OPT("std=iso9899:199409",       0,      OPT_std_iso9899_199409)         \
1129   DEF_OPT("std=iso9899:1999",         0,      OPT_std_iso9899_1999)           \
1130   DEF_OPT("std=iso9899:199x",         0,      OPT_std_iso9899_199x)           \
1131   DEF_OPT("trigraphs",                0,      OPT_trigraphs)                  \
1132   DEF_OPT("v",                        0,      OPT_v)                          \
1133   DEF_OPT("w",                        0,      OPT_w)
1134
1135 #define DEF_OPT(text, msg, code) code,
1136 enum opt_code
1137 {
1138   COMMAND_LINE_OPTIONS
1139   N_OPTS
1140 };
1141 #undef DEF_OPT
1142
1143 struct cl_option
1144 {
1145   const char *opt_text;
1146   const char *msg;
1147   size_t opt_len;
1148   enum opt_code opt_code;
1149 };
1150
1151 #define DEF_OPT(text, msg, code) { text, msg, sizeof(text) - 1, code },
1152 #ifdef HOST_EBCDIC
1153 static struct cl_option cl_options[] =
1154 #else
1155 static const struct cl_option cl_options[] =
1156 #endif
1157 {
1158   COMMAND_LINE_OPTIONS
1159 };
1160 #undef DEF_OPT
1161 #undef COMMAND_LINE_OPTIONS
1162
1163 /* Perform a binary search to find which, if any, option the given
1164    command-line matches.  Returns its index in the option array,
1165    negative on failure.  Complications arise since some options can be
1166    suffixed with an argument, and multiple complete matches can occur,
1167    e.g. -iwithprefix and -iwithprefixbefore.  Moreover, we want to
1168    accept options beginning with -g and -W that we do not recognise,
1169    but not to swallow any subsequent command line argument; these are
1170    handled as special cases in cpp_handle_option.  */
1171 static int
1172 parse_option (input)
1173      const char *input;
1174 {
1175   unsigned int md, mn, mx;
1176   size_t opt_len;
1177   int comp;
1178
1179   mn = 0;
1180   mx = N_OPTS;
1181
1182   while (mx > mn)
1183     {
1184       md = (mn + mx) / 2;
1185
1186       opt_len = cl_options[md].opt_len;
1187       comp = memcmp (input, cl_options[md].opt_text, opt_len);
1188
1189       if (comp > 0)
1190         mn = md + 1;
1191       else if (comp < 0)
1192         mx = md;
1193       else
1194         {
1195           if (input[opt_len] == '\0')
1196             return md;
1197           /* We were passed more text.  If the option takes an argument,
1198              we may match a later option or we may have been passed the
1199              argument.  The longest possible option match succeeds.
1200              If the option takes no arguments we have not matched and
1201              continue the search (e.g. input="stdc++" match was "stdc").  */
1202           mn = md + 1;
1203           if (cl_options[md].msg)
1204             {
1205               /* Scan forwards.  If we get an exact match, return it.
1206                  Otherwise, return the longest option-accepting match.
1207                  This loops no more than twice with current options.  */
1208               mx = md;
1209               for (; mn < N_OPTS; mn++)
1210                 {
1211                   opt_len = cl_options[mn].opt_len;
1212                   if (memcmp (input, cl_options[mn].opt_text, opt_len))
1213                     break;
1214                   if (input[opt_len] == '\0')
1215                     return mn;
1216                   if (cl_options[mn].msg)
1217                     mx = mn;
1218                 }
1219               return mx;
1220             }
1221         }
1222     }
1223
1224   return -1;
1225 }
1226
1227 /* Handle one command-line option in (argc, argv).
1228    Can be called multiple times, to handle multiple sets of options.
1229    Returns number of strings consumed.  */
1230
1231 int
1232 cpp_handle_option (pfile, argc, argv)
1233      cpp_reader *pfile;
1234      int argc;
1235      char **argv;
1236 {
1237   int i = 0;
1238   struct cpp_pending *pend = CPP_OPTION (pfile, pending);
1239
1240   if (argv[i][0] != '-')
1241     {
1242       if (CPP_OPTION (pfile, out_fname) != NULL)
1243         cpp_fatal (pfile, "Too many arguments. Type %s --help for usage info",
1244                    progname);
1245       else if (CPP_OPTION (pfile, in_fname) != NULL)
1246         CPP_OPTION (pfile, out_fname) = argv[i];
1247       else
1248         CPP_OPTION (pfile, in_fname) = argv[i];
1249     }
1250   else
1251     {
1252       enum opt_code opt_code;
1253       int opt_index;
1254       const char *arg = 0;
1255
1256       /* Skip over '-'.  */
1257       opt_index = parse_option (&argv[i][1]);
1258       if (opt_index < 0)
1259         return i;
1260
1261       opt_code = cl_options[opt_index].opt_code;
1262       if (cl_options[opt_index].msg)
1263         {
1264           arg = &argv[i][cl_options[opt_index].opt_len + 1];
1265
1266           /* Yuk. Special case for -g and -W as they must not swallow
1267              up any following argument.  If this becomes common, add
1268              another field to the cl_options table.  */
1269           if (arg[0] == '\0' && !(opt_code == OPT_g || opt_code == OPT_W))
1270             {
1271               arg = argv[++i];
1272               if (!arg)
1273                 {
1274                   cpp_fatal (pfile, cl_options[opt_index].msg, argv[i - 1]);
1275                   return argc;
1276                 }
1277             }
1278         }
1279
1280       switch (opt_code)
1281         {
1282         case N_OPTS: /* Shut GCC up.  */
1283           break;
1284         case OPT_fleading_underscore:
1285           CPP_OPTION (pfile, user_label_prefix) = "_";
1286           break;
1287         case OPT_fno_leading_underscore:
1288           CPP_OPTION (pfile, user_label_prefix) = "";
1289           break;
1290         case OPT_fno_operator_names:
1291           CPP_OPTION (pfile, operator_names) = 0;
1292           break;
1293         case OPT_fpreprocessed:
1294           CPP_OPTION (pfile, preprocessed) = 1;
1295           break;
1296         case OPT_fno_preprocessed:
1297           CPP_OPTION (pfile, preprocessed) = 0;
1298           break;
1299         case OPT_fshow_column:
1300           CPP_OPTION (pfile, show_column) = 1;
1301           break;
1302         case OPT_fno_show_column:
1303           CPP_OPTION (pfile, show_column) = 0;
1304           break;
1305         case OPT_ftabstop:
1306           /* Silently ignore empty string, non-longs and silly values.  */
1307           if (arg[0] != '\0')
1308             {
1309               char *endptr;
1310               long tabstop = strtol (arg, &endptr, 10);
1311               if (*endptr == '\0' && tabstop >= 1 && tabstop <= 100)
1312                 CPP_OPTION (pfile, tabstop) = tabstop;
1313             }
1314           break;
1315         case OPT_w:
1316           CPP_OPTION (pfile, inhibit_warnings) = 1;
1317           break;
1318         case OPT_g:  /* Silently ignore anything but -g3.  */
1319           if (!strcmp(&argv[i][2], "3"))
1320             CPP_OPTION (pfile, debug_output) = 1;
1321           break;
1322         case OPT_h:
1323         case OPT__help:
1324           print_help ();
1325           exit (0);  /* XXX */
1326           break;
1327         case OPT_target__help:
1328           /* Print if any target specific options. */
1329           exit (0);
1330           break;
1331         case OPT__version:
1332           fprintf (stderr, _("GNU CPP version %s (cpplib)\n"), version_string);
1333           exit (0);  /* XXX */
1334           break;
1335         case OPT_C:
1336           CPP_OPTION (pfile, discard_comments) = 0;
1337           break;
1338         case OPT_P:
1339           CPP_OPTION (pfile, no_line_commands) = 1;
1340           break;
1341         case OPT_dollar:        /* Don't include $ in identifiers.  */
1342           CPP_OPTION (pfile, dollars_in_ident) = 0;
1343           break;
1344         case OPT_H:
1345           CPP_OPTION (pfile, print_include_names) = 1;
1346           break;
1347         case OPT_D:
1348           new_pending_directive (pend, arg, cpp_define);
1349           break;
1350         case OPT_pedantic_errors:
1351           CPP_OPTION (pfile, pedantic_errors) = 1;
1352           /* fall through */
1353         case OPT_pedantic:
1354           CPP_OPTION (pfile, pedantic) = 1;
1355           break;
1356         case OPT_trigraphs:
1357           CPP_OPTION (pfile, trigraphs) = 1;
1358           break;
1359         case OPT_plus:
1360           CPP_OPTION (pfile, cplusplus) = 1;
1361           CPP_OPTION (pfile, cplusplus_comments) = 1;
1362           break;
1363         case OPT_remap:
1364           CPP_OPTION (pfile, remap) = 1;
1365           break;
1366         case OPT_iprefix:
1367           CPP_OPTION (pfile, include_prefix) = arg;
1368           CPP_OPTION (pfile, include_prefix_len) = strlen (arg);
1369           break;
1370         case OPT_lang_c:
1371           set_lang (pfile, CLK_GNUC89);
1372           break;
1373         case OPT_lang_cplusplus:
1374           set_lang (pfile, CLK_GNUCXX);
1375           break;
1376         case OPT_lang_objc:
1377           set_lang (pfile, CLK_OBJC);
1378           break;
1379         case OPT_lang_objcplusplus:
1380           set_lang (pfile, CLK_OBJCXX);
1381           break;
1382         case OPT_lang_asm:
1383           set_lang (pfile, CLK_ASM);
1384           break;
1385         case OPT_std_cplusplus98:
1386           set_lang (pfile, CLK_CXX98);
1387           break;
1388         case OPT_std_gnu89:
1389           set_lang (pfile, CLK_GNUC89);
1390           break;
1391         case OPT_std_gnu9x:
1392         case OPT_std_gnu99:
1393           set_lang (pfile, CLK_GNUC99);
1394           break;
1395         case OPT_std_iso9899_199409:
1396           set_lang (pfile, CLK_STDC94);
1397           break;
1398         case OPT_std_iso9899_1990:
1399         case OPT_std_c89:
1400         case OPT_lang_c89:
1401           set_lang (pfile, CLK_STDC89);
1402           break;
1403         case OPT_std_iso9899_199x:
1404         case OPT_std_iso9899_1999:
1405         case OPT_std_c9x:
1406         case OPT_std_c99:
1407           set_lang (pfile, CLK_STDC99);
1408           break;
1409         case OPT_nostdinc:
1410           /* -nostdinc causes no default include directories.
1411              You must specify all include-file directories with -I.  */
1412           CPP_OPTION (pfile, no_standard_includes) = 1;
1413           break;
1414         case OPT_nostdincplusplus:
1415           /* -nostdinc++ causes no default C++-specific include directories. */
1416           CPP_OPTION (pfile, no_standard_cplusplus_includes) = 1;
1417           break;
1418         case OPT_o:
1419           if (CPP_OPTION (pfile, out_fname) != NULL)
1420             {
1421               cpp_fatal (pfile, "Output filename specified twice");
1422               return argc;
1423             }
1424           CPP_OPTION (pfile, out_fname) = arg;
1425           if (!strcmp (CPP_OPTION (pfile, out_fname), "-"))
1426             CPP_OPTION (pfile, out_fname) = "";
1427           break;
1428         case OPT_v:
1429           fprintf (stderr, _("GNU CPP version %s (cpplib)"), version_string);
1430 #ifdef TARGET_VERSION
1431           TARGET_VERSION;
1432 #endif
1433           fputc ('\n', stderr);
1434           CPP_OPTION (pfile, verbose) = 1;
1435           break;
1436         case OPT_stdin_stdout:
1437           /* JF handle '-' as file name meaning stdin or stdout.  */
1438           if (CPP_OPTION (pfile, in_fname) == NULL)
1439             CPP_OPTION (pfile, in_fname) = "";
1440           else if (CPP_OPTION (pfile, out_fname) == NULL)
1441             CPP_OPTION (pfile, out_fname) = "";
1442           break;
1443         case OPT_d:
1444           /* Args to -d specify what parts of macros to dump.
1445              Silently ignore unrecognised options; they may
1446              be aimed at the compiler proper.  */
1447           {
1448             char c;
1449
1450             while ((c = *arg++) != '\0')
1451               switch (c)
1452                 {
1453                 case 'M':
1454                   CPP_OPTION (pfile, dump_macros) = dump_only;
1455                   CPP_OPTION (pfile, no_output) = 1;
1456                   break;
1457                 case 'N':
1458                   CPP_OPTION (pfile, dump_macros) = dump_names;
1459                   break;
1460                 case 'D':
1461                   CPP_OPTION (pfile, dump_macros) = dump_definitions;
1462                   break;
1463                 case 'I':
1464                   CPP_OPTION (pfile, dump_includes) = 1;
1465                   break;
1466                 }
1467           }
1468           break;
1469           /* The style of the choices here is a bit mixed.
1470              The chosen scheme is a hybrid of keeping all options in one string
1471              and specifying each option in a separate argument:
1472              -M|-MM|-MD file|-MMD file [-MG].  An alternative is:
1473              -M|-MM|-MD file|-MMD file|-MG|-MMG; or more concisely:
1474              -M[M][G][D file].  This is awkward to handle in specs, and is not
1475              as extensible.  */
1476           /* ??? -MG must be specified in addition to one of -M or -MM.
1477              This can be relaxed in the future without breaking anything.
1478              The converse isn't true.  */
1479
1480           /* -MG isn't valid with -MD or -MMD.  This is checked for later.  */
1481         case OPT_MG:
1482           CPP_OPTION (pfile, print_deps_missing_files) = 1;
1483           break;
1484         case OPT_M:
1485         case OPT_MD:
1486         case OPT_MM:
1487         case OPT_MMD:
1488           if (! pfile->deps)
1489             pfile->deps = deps_init ();
1490
1491           if (opt_code == OPT_M || opt_code == OPT_MD)
1492             CPP_OPTION (pfile, print_deps) = 2;
1493           else
1494             CPP_OPTION (pfile, print_deps) = 1;
1495
1496           /* For -MD and -MMD, write deps on file named by next arg.  */
1497           /* For -M and -MM, write deps on standard output and
1498              suppress the usual output.  */
1499           if (opt_code == OPT_MD || opt_code == OPT_MMD)
1500               CPP_OPTION (pfile, deps_file) = arg;
1501           else
1502               CPP_OPTION (pfile, no_output) = 1;
1503           break;
1504
1505         case OPT_MP:
1506           CPP_OPTION (pfile, deps_phony_targets) = 1;
1507           break;
1508
1509         case OPT_MT:
1510           /* Add a target.  */
1511           if (! pfile->deps)
1512             pfile->deps = deps_init ();
1513           deps_add_target (pfile->deps, arg, 0);
1514           break;
1515
1516         case OPT_A:
1517           if (arg[0] == '-')
1518             {
1519               /* -A with an argument beginning with '-' acts as
1520                  #unassert on whatever immediately follows the '-'.
1521                  If "-" is the whole argument, we eliminate all
1522                  predefined macros and assertions, including those
1523                  that were specified earlier on the command line.
1524                  That way we can get rid of any that were passed
1525                  automatically in from GCC.  */
1526
1527               if (arg[1] == '\0')
1528                 {
1529                   struct pending_option *o1, *o2;
1530
1531                   o1 = pend->directive_head;
1532                   while (o1)
1533                     {
1534                       o2 = o1->next;
1535                       free (o1);
1536                       o1 = o2;
1537                     }
1538                   pend->directive_head = NULL;
1539                   pend->directive_tail = NULL;
1540                 }
1541               else
1542                 new_pending_directive (pend, arg + 1, cpp_unassert);
1543             }
1544           else
1545             new_pending_directive (pend, arg, cpp_assert);
1546           break;
1547         case OPT_U:
1548           new_pending_directive (pend, arg, cpp_undef);
1549           break;
1550         case OPT_I:           /* Add directory to path for includes.  */
1551           if (!strcmp (arg, "-"))
1552             {
1553               /* -I- means:
1554                  Use the preceding -I directories for #include "..."
1555                  but not #include <...>.
1556                  Don't search the directory of the present file
1557                  for #include "...".  (Note that -I. -I- is not the same as
1558                  the default setup; -I. uses the compiler's working dir.)  */
1559               if (! CPP_OPTION (pfile, ignore_srcdir))
1560                 {
1561                   pend->quote_head = pend->brack_head;
1562                   pend->quote_tail = pend->brack_tail;
1563                   pend->brack_head = 0;
1564                   pend->brack_tail = 0;
1565                   CPP_OPTION (pfile, ignore_srcdir) = 1;
1566                 }
1567               else
1568                 {
1569                   cpp_fatal (pfile, "-I- specified twice");
1570                   return argc;
1571                 }
1572             }
1573           else
1574             append_include_chain (pfile, xstrdup (arg), BRACKET, 0);
1575           break;
1576         case OPT_isystem:
1577           /* Add directory to beginning of system include path, as a system
1578              include directory.  */
1579           append_include_chain (pfile, xstrdup (arg), SYSTEM, 0);
1580           break;
1581         case OPT_include:
1582           {
1583             struct pending_option *o = (struct pending_option *)
1584               xmalloc (sizeof (struct pending_option));
1585             o->arg = arg;
1586
1587             /* This list has to be built in reverse order so that
1588                when cpp_start_read pushes all the -include files onto
1589                the buffer stack, they will be scanned in forward order.  */
1590             o->next = pend->include_head;
1591             pend->include_head = o;
1592           }
1593           break;
1594         case OPT_imacros:
1595           {
1596             struct pending_option *o = (struct pending_option *)
1597               xmalloc (sizeof (struct pending_option));
1598             o->arg = arg;
1599             o->next = NULL;
1600
1601             APPEND (pend, imacros, o);
1602           }
1603           break;
1604         case OPT_iwithprefix:
1605           /* Add directory to end of path for includes,
1606              with the default prefix at the front of its name.  */
1607           /* fall through */
1608         case OPT_iwithprefixbefore:
1609           /* Add directory to main path for includes,
1610              with the default prefix at the front of its name.  */
1611           {
1612             char *fname;
1613             int len;
1614
1615             len = strlen (arg);
1616
1617             if (CPP_OPTION (pfile, include_prefix) != 0)
1618               {
1619                 size_t ipl = CPP_OPTION (pfile, include_prefix_len);
1620                 fname = xmalloc (ipl + len + 1);
1621                 memcpy (fname, CPP_OPTION (pfile, include_prefix), ipl);
1622                 memcpy (fname + ipl, arg, len + 1);
1623               }
1624             else if (cpp_GCC_INCLUDE_DIR_len)
1625               {
1626                 fname = xmalloc (cpp_GCC_INCLUDE_DIR_len + len + 1);
1627                 memcpy (fname, cpp_GCC_INCLUDE_DIR, cpp_GCC_INCLUDE_DIR_len);
1628                 memcpy (fname + cpp_GCC_INCLUDE_DIR_len, arg, len + 1);
1629               }
1630             else
1631               fname = xstrdup (arg);
1632
1633             append_include_chain (pfile, fname,
1634                           opt_code == OPT_iwithprefix ? SYSTEM: BRACKET, 0);
1635           }
1636           break;
1637         case OPT_idirafter:
1638           /* Add directory to end of path for includes.  */
1639           append_include_chain (pfile, xstrdup (arg), AFTER, 0);
1640           break;
1641         case OPT_W:
1642           /* Silently ignore unrecognised options.  */
1643           if (!strcmp (argv[i], "-Wall"))
1644             {
1645               CPP_OPTION (pfile, warn_trigraphs) = 1;
1646               CPP_OPTION (pfile, warn_comments) = 1;
1647             }
1648           else if (!strcmp (argv[i], "-Wtraditional"))
1649             CPP_OPTION (pfile, warn_traditional) = 1;
1650           else if (!strcmp (argv[i], "-Wtrigraphs"))
1651             CPP_OPTION (pfile, warn_trigraphs) = 1;
1652           else if (!strcmp (argv[i], "-Wcomment"))
1653             CPP_OPTION (pfile, warn_comments) = 1;
1654           else if (!strcmp (argv[i], "-Wcomments"))
1655             CPP_OPTION (pfile, warn_comments) = 1;
1656           else if (!strcmp (argv[i], "-Wundef"))
1657             CPP_OPTION (pfile, warn_undef) = 1;
1658           else if (!strcmp (argv[i], "-Wimport"))
1659             CPP_OPTION (pfile, warn_import) = 1;
1660           else if (!strcmp (argv[i], "-Werror"))
1661             CPP_OPTION (pfile, warnings_are_errors) = 1;
1662           else if (!strcmp (argv[i], "-Wsystem-headers"))
1663             CPP_OPTION (pfile, warn_system_headers) = 1;
1664           else if (!strcmp (argv[i], "-Wno-traditional"))
1665             CPP_OPTION (pfile, warn_traditional) = 0;
1666           else if (!strcmp (argv[i], "-Wno-trigraphs"))
1667             CPP_OPTION (pfile, warn_trigraphs) = 0;
1668           else if (!strcmp (argv[i], "-Wno-comment"))
1669             CPP_OPTION (pfile, warn_comments) = 0;
1670           else if (!strcmp (argv[i], "-Wno-comments"))
1671             CPP_OPTION (pfile, warn_comments) = 0;
1672           else if (!strcmp (argv[i], "-Wno-undef"))
1673             CPP_OPTION (pfile, warn_undef) = 0;
1674           else if (!strcmp (argv[i], "-Wno-import"))
1675             CPP_OPTION (pfile, warn_import) = 0;
1676           else if (!strcmp (argv[i], "-Wno-error"))
1677             CPP_OPTION (pfile, warnings_are_errors) = 0;
1678           else if (!strcmp (argv[i], "-Wno-system-headers"))
1679             CPP_OPTION (pfile, warn_system_headers) = 0;
1680           break;
1681         }
1682     }
1683   return i + 1;
1684 }
1685
1686 #ifdef HOST_EBCDIC
1687 static int
1688 opt_comp (const void *p1, const void *p2)
1689 {
1690   return strcmp (((struct cl_option *)p1)->opt_text,
1691                  ((struct cl_option *)p2)->opt_text);
1692 }
1693 #endif
1694
1695 /* Handle command-line options in (argc, argv).
1696    Can be called multiple times, to handle multiple sets of options.
1697    Returns if an unrecognized option is seen.
1698    Returns number of strings consumed.  */
1699 int
1700 cpp_handle_options (pfile, argc, argv)
1701      cpp_reader *pfile;
1702      int argc;
1703      char **argv;
1704 {
1705   int i;
1706   int strings_processed;
1707
1708   for (i = 0; i < argc; i += strings_processed)
1709     {
1710       strings_processed = cpp_handle_option (pfile, argc - i, argv + i);
1711       if (strings_processed == 0)
1712         break;
1713     }
1714   return i;
1715 }
1716
1717 static void
1718 print_help ()
1719 {
1720   fprintf (stderr, _("Usage: %s [switches] input output\n"), progname);
1721   /* To keep the lines from getting too long for some compilers, limit
1722      to about 500 characters (6 lines) per chunk. */
1723   fputs (_("\
1724 Switches:\n\
1725   -include <file>           Include the contents of <file> before other files\n\
1726   -imacros <file>           Accept definition of macros in <file>\n\
1727   -iprefix <path>           Specify <path> as a prefix for next two options\n\
1728   -iwithprefix <dir>        Add <dir> to the end of the system include path\n\
1729   -iwithprefixbefore <dir>  Add <dir> to the end of the main include path\n\
1730   -isystem <dir>            Add <dir> to the start of the system include path\n\
1731 "), stdout);
1732   fputs (_("\
1733   -idirafter <dir>          Add <dir> to the end of the system include path\n\
1734   -I <dir>                  Add <dir> to the end of the main include path\n\
1735   -I-                       Fine-grained include path control; see info docs\n\
1736   -nostdinc                 Do not search system include directories\n\
1737                              (dirs specified with -isystem will still be used)\n\
1738   -nostdinc++               Do not search system include directories for C++\n\
1739   -o <file>                 Put output into <file>\n\
1740 "), stdout);
1741   fputs (_("\
1742   -pedantic                 Issue all warnings demanded by strict ISO C\n\
1743   -pedantic-errors          Issue -pedantic warnings as errors instead\n\
1744   -trigraphs                Support ISO C trigraphs\n\
1745   -lang-c                   Assume that the input sources are in C\n\
1746   -lang-c89                 Assume that the input sources are in C89\n\
1747 "), stdout);
1748   fputs (_("\
1749   -lang-c++                 Assume that the input sources are in C++\n\
1750   -lang-objc                Assume that the input sources are in ObjectiveC\n\
1751   -lang-objc++              Assume that the input sources are in ObjectiveC++\n\
1752   -lang-asm                 Assume that the input sources are in assembler\n\
1753 "), stdout);
1754   fputs (_("\
1755   -std=<std name>           Specify the conformance standard; one of:\n\
1756                             gnu89, gnu99, c89, c99, iso9899:1990,\n\
1757                             iso9899:199409, iso9899:1999\n\
1758   -+                        Allow parsing of C++ style features\n\
1759   -w                        Inhibit warning messages\n\
1760   -Wtrigraphs               Warn if trigraphs are encountered\n\
1761   -Wno-trigraphs            Do not warn about trigraphs\n\
1762   -Wcomment{s}              Warn if one comment starts inside another\n\
1763 "), stdout);
1764   fputs (_("\
1765   -Wno-comment{s}           Do not warn about comments\n\
1766   -Wtraditional             Warn about features not present in traditional C\n\
1767   -Wno-traditional          Do not warn about traditional C\n\
1768   -Wundef                   Warn if an undefined macro is used by #if\n\
1769   -Wno-undef                Do not warn about testing undefined macros\n\
1770   -Wimport                  Warn about the use of the #import directive\n\
1771 "), stdout);
1772   fputs (_("\
1773   -Wno-import               Do not warn about the use of #import\n\
1774   -Werror                   Treat all warnings as errors\n\
1775   -Wno-error                Do not treat warnings as errors\n\
1776   -Wsystem-headers          Do not suppress warnings from system headers\n\
1777   -Wno-system-headers       Suppress warnings from system headers\n\
1778   -Wall                     Enable all preprocessor warnings\n\
1779 "), stdout);
1780   fputs (_("\
1781   -M                        Generate make dependencies\n\
1782   -MM                       As -M, but ignore system header files\n\
1783   -MD                       As -M, but put output in a .d file\n\
1784   -MMD                      As -MD, but ignore system header files\n\
1785   -MG                       Treat missing header file as generated files\n\
1786   -g3                       Include #define and #undef directives in the output\n\
1787 "), stdout);
1788   fputs (_("\
1789   -D<macro>                 Define a <macro> with string '1' as its value\n\
1790   -D<macro>=<val>           Define a <macro> with <val> as its value\n\
1791   -A<question> (<answer>)   Assert the <answer> to <question>\n\
1792   -A-<question> (<answer>)  Disable the <answer> to <question>\n\
1793   -U<macro>                 Undefine <macro> \n\
1794   -v                        Display the version number\n\
1795 "), stdout);
1796   fputs (_("\
1797   -H                        Print the name of header files as they are used\n\
1798   -C                        Do not discard comments\n\
1799   -dM                       Display a list of macro definitions active at end\n\
1800   -dD                       Preserve macro definitions in output\n\
1801   -dN                       As -dD except that only the names are preserved\n\
1802   -dI                       Include #include directives in the output\n\
1803 "), stdout);
1804   fputs (_("\
1805   -ftabstop=<number>        Distance between tab stops for column reporting\n\
1806   -P                        Do not generate #line directives\n\
1807   -$                        Do not allow '$' in identifiers\n\
1808   -remap                    Remap file names when including files.\n\
1809   --version                 Display version information\n\
1810   -h or --help              Display this information\n\
1811 "), stdout);
1812 }