gcc/cppinit.c

   1 /* CPP Library.
   2    Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
   3    1999, 2000 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       /* Find the space before the DEPS_TARGET, if there is one.  */
 757       s = strchr (spec, ' ');
 758       if (s)
 759         {
 760           CPP_OPTION (pfile, deps_target) = s + 1;
 761           output_file = (char *) xmalloc (s - spec + 1);
 762           memcpy (output_file, spec, s - spec);
 763           output_file[s - spec] = 0;
 764         }
 765       else
 766         {
 767           CPP_OPTION (pfile, deps_target) = 0;
 768           output_file = spec;
 769         }
 770
 771       CPP_OPTION (pfile, deps_file) = output_file;
 772       CPP_OPTION (pfile, print_deps_append) = 1;
 773     }
 774
 775   pfile->deps = deps_init ();
 776
 777   /* Print the expected object file name as the target of this Make-rule.  */
 778   if (CPP_OPTION (pfile, deps_target))
 779     deps_add_target (pfile->deps, CPP_OPTION (pfile, deps_target));
 780   else if (*CPP_OPTION (pfile, in_fname) == 0)
 781     deps_add_target (pfile->deps, "-");
 782   else
 783     deps_calc_target (pfile->deps, CPP_OPTION (pfile, in_fname));
 784
 785   if (CPP_OPTION (pfile, in_fname))
 786     deps_add_dep (pfile->deps, CPP_OPTION (pfile, in_fname));
 787 }
 788
 789 /* And another subroutine.  This one sets up the standard include path.  */
 790 static void
 791 initialize_standard_includes (pfile)
 792      cpp_reader *pfile;
 793 {
 794   char *path;
 795   const struct default_include *p;
 796   const char *specd_prefix = CPP_OPTION (pfile, include_prefix);
 797
 798   /* Several environment variables may add to the include search path.
 799      CPATH specifies an additional list of directories to be searched
 800      as if specified with -I, while C_INCLUDE_PATH, CPLUS_INCLUDE_PATH,
 801      etc. specify an additional list of directories to be searched as
 802      if specified with -isystem, for the language indicated.  */
 803
 804   GET_ENV_PATH_LIST (path, "CPATH");
 805   if (path != 0 && *path != 0)
 806     path_include (pfile, path, BRACKET);
 807
 808   switch ((CPP_OPTION (pfile, objc) << 1) + CPP_OPTION (pfile, cplusplus))
 809     {
 810     case 0:
 811       GET_ENV_PATH_LIST (path, "C_INCLUDE_PATH");
 812       break;
 813     case 1:
 814       GET_ENV_PATH_LIST (path, "CPLUS_INCLUDE_PATH");
 815       break;
 816     case 2:
 817       GET_ENV_PATH_LIST (path, "OBJC_INCLUDE_PATH");
 818       break;
 819     case 3:
 820       GET_ENV_PATH_LIST (path, "OBJCPLUS_INCLUDE_PATH");
 821       break;
 822     }
 823   if (path != 0 && *path != 0)
 824     path_include (pfile, path, SYSTEM);
 825
 826   /* Search "translated" versions of GNU directories.
 827      These have /usr/local/lib/gcc... replaced by specd_prefix.  */
 828   if (specd_prefix != 0 && cpp_GCC_INCLUDE_DIR_len)
 829     {
 830       /* Remove the `include' from /usr/local/lib/gcc.../include.
 831          GCC_INCLUDE_DIR will always end in /include. */
 832       int default_len = cpp_GCC_INCLUDE_DIR_len;
 833       char *default_prefix = (char *) alloca (default_len + 1);
 834       int specd_len = strlen (specd_prefix);
 835
 836       memcpy (default_prefix, cpp_GCC_INCLUDE_DIR, default_len);
 837       default_prefix[default_len] = '\0';
 838
 839       for (p = cpp_include_defaults; p->fname; p++)
 840         {
 841           /* Some standard dirs are only for C++.  */
 842           if (!p->cplusplus
 843               || (CPP_OPTION (pfile, cplusplus)
 844                   && !CPP_OPTION (pfile, no_standard_cplusplus_includes)))
 845             {
 846               /* Does this dir start with the prefix?  */
 847               if (!memcmp (p->fname, default_prefix, default_len))
 848                 {
 849                   /* Yes; change prefix and add to search list.  */
 850                   int flen = strlen (p->fname);
 851                   int this_len = specd_len + flen - default_len;
 852                   char *str = (char *) xmalloc (this_len + 1);
 853                   memcpy (str, specd_prefix, specd_len);
 854                   memcpy (str + specd_len,
 855                           p->fname + default_len,
 856                           flen - default_len + 1);
 857
 858                   append_include_chain (pfile, str, SYSTEM, p->cxx_aware);
 859                 }
 860             }
 861         }
 862     }
 863
 864   /* Search ordinary names for GNU include directories.  */
 865   for (p = cpp_include_defaults; p->fname; p++)
 866     {
 867       /* Some standard dirs are only for C++.  */
 868       if (!p->cplusplus
 869           || (CPP_OPTION (pfile, cplusplus)
 870               && !CPP_OPTION (pfile, no_standard_cplusplus_includes)))
 871         {
 872           char *str = xstrdup (update_path (p->fname, p->component));
 873           append_include_chain (pfile, str, SYSTEM, p->cxx_aware);
 874         }
 875     }
 876 }
 877
 878 /* Handles -imacro and -include from the command line.  */
 879 static void
 880 do_includes (pfile, p, scan)
 881      cpp_reader *pfile;
 882      struct pending_option *p;
 883      int scan;
 884 {
 885   while (p)
 886     {
 887       struct pending_option *q;
 888
 889       /* Later: maybe update this to use the #include "" search path
 890          if cpp_read_file fails.  */
 891       if (_cpp_read_file (pfile, p->arg) && scan)
 892         cpp_scan_buffer_nooutput (pfile, 0);
 893       q = p->next;
 894       free (p);
 895       p = q;
 896     }
 897 }
 898
 899 /* This is called after options have been processed.  Check options
 900  for consistency, and setup for processing input from the file named
 901  FNAME.  (Use standard input if FNAME == NULL.)  Return 1 on success,
 902  0 on failure.  */
 903
 904 int
 905 cpp_start_read (pfile, fname)
 906      cpp_reader *pfile;
 907      const char *fname;
 908 {
 909   struct pending_option *p, *q;
 910
 911   /* -MG doesn't select the form of output and must be specified with one of
 912      -M or -MM.  -MG doesn't make sense with -MD or -MMD since they don't
 913      inhibit compilation.  */
 914   if (CPP_OPTION (pfile, print_deps_missing_files)
 915       && (CPP_OPTION (pfile, print_deps) == 0
 916           || !CPP_OPTION (pfile, no_output)))
 917     {
 918       cpp_fatal (pfile, "-MG must be specified with one of -M or -MM");
 919       return 0;
 920     }
 921
 922   /* -Wtraditional is not useful in C++ mode.  */
 923   if (CPP_OPTION (pfile, cplusplus))
 924     CPP_OPTION (pfile, warn_traditional) = 0;
 925
 926   /* Set this if it hasn't been set already. */
 927   if (CPP_OPTION (pfile, user_label_prefix) == NULL)
 928     CPP_OPTION (pfile, user_label_prefix) = USER_LABEL_PREFIX;
 929
 930   /* Set up the include search path now.  */
 931   if (! CPP_OPTION (pfile, no_standard_includes))
 932     initialize_standard_includes (pfile);
 933
 934   merge_include_chains (pfile);
 935
 936   /* With -v, print the list of dirs to search.  */
 937   if (CPP_OPTION (pfile, verbose))
 938     {
 939       struct file_name_list *l;
 940       fprintf (stderr, _("#include \"...\" search starts here:\n"));
 941       for (l = CPP_OPTION (pfile, quote_include); l; l = l->next)
 942         {
 943           if (l == CPP_OPTION (pfile, bracket_include))
 944             fprintf (stderr, _("#include <...> search starts here:\n"));
 945           fprintf (stderr, " %s\n", l->name);
 946         }
 947       fprintf (stderr, _("End of search list.\n"));
 948     }
 949
 950   /* Open the main input file.  This must be done early, so we have a
 951      buffer to stand on.  */
 952   if (CPP_OPTION (pfile, in_fname) == NULL
 953       || *CPP_OPTION (pfile, in_fname) == 0)
 954     {
 955       CPP_OPTION (pfile, in_fname) = fname;
 956       if (CPP_OPTION (pfile, in_fname) == NULL)
 957         CPP_OPTION (pfile, in_fname) = "";
 958     }
 959   if (CPP_OPTION (pfile, out_fname) == NULL)
 960     CPP_OPTION (pfile, out_fname) = "";
 961
 962   if (!_cpp_read_file (pfile, fname))
 963     return 0;
 964
 965   initialize_dependency_output (pfile);
 966
 967   /* Install __LINE__, etc.  */
 968   initialize_builtins (pfile);
 969
 970   /* Do -U's, -D's and -A's in the order they were seen.  */
 971   p = CPP_OPTION (pfile, pending)->directive_head;
 972   while (p)
 973     {
 974       (*p->handler) (pfile, p->arg);
 975       q = p->next;
 976       free (p);
 977       p = q;
 978     }
 979   pfile->done_initializing = 1;
 980
 981   /* The -imacros files can be scanned now, but the -include files
 982      have to be pushed onto the buffer stack and processed later,
 983      otherwise cppmain.c won't see the tokens.  include_head was built
 984      up as a stack, and popping this stack onto the buffer stack means
 985      we preserve the order of the command line.  */
 986   do_includes (pfile, CPP_OPTION (pfile, pending)->imacros_head, 1);
 987   do_includes (pfile, CPP_OPTION (pfile, pending)->include_head, 0);
 988
 989   free (CPP_OPTION (pfile, pending));
 990   CPP_OPTION (pfile, pending) = NULL;
 991
 992   return 1;
 993 }
 994
 995 /* This is called at the end of preprocessing.  It pops the
 996    last buffer and writes dependency output.  It should also
 997    clear macro definitions, such that you could call cpp_start_read
 998    with a new filename to restart processing.  */
 999 void
1000 cpp_finish (pfile)
1001      cpp_reader *pfile;
1002 {
1003   if (CPP_BUFFER (pfile))
1004     {
1005       cpp_ice (pfile, "buffers still stacked in cpp_finish");
1006       while (CPP_BUFFER (pfile))
1007         cpp_pop_buffer (pfile);
1008     }
1009
1010   /* Don't write the deps file if preprocessing has failed.  */
1011   if (CPP_OPTION (pfile, print_deps) && pfile->errors == 0)
1012     {
1013       /* Stream on which to print the dependency information.  */
1014       FILE *deps_stream = 0;
1015       const char *deps_mode
1016         = CPP_OPTION (pfile, print_deps_append) ? "a" : "w";
1017       if (CPP_OPTION (pfile, deps_file) == 0)
1018         deps_stream = stdout;
1019       else
1020         {
1021           deps_stream = fopen (CPP_OPTION (pfile, deps_file), deps_mode);
1022           if (deps_stream == 0)
1023             cpp_notice_from_errno (pfile, CPP_OPTION (pfile, deps_file));
1024         }
1025       if (deps_stream)
1026         {
1027           deps_write (pfile->deps, deps_stream, 72);
1028           if (CPP_OPTION (pfile, deps_file))
1029             {
1030               if (ferror (deps_stream) || fclose (deps_stream) != 0)
1031                 cpp_fatal (pfile, "I/O error on output");
1032             }
1033         }
1034     }
1035
1036   /* Report on headers that could use multiple include guards.  */
1037   if (CPP_OPTION (pfile, print_include_names))
1038     _cpp_report_missing_guards (pfile);
1039 }
1040
1041 static void
1042 new_pending_directive (pend, text, handler)
1043      struct cpp_pending *pend;
1044      const char *text;
1045      cl_directive_handler handler;
1046 {
1047   struct pending_option *o = (struct pending_option *)
1048     xmalloc (sizeof (struct pending_option));
1049
1050   o->arg = text;
1051   o->next = NULL;
1052   o->handler = handler;
1053   APPEND (pend, directive, o);
1054 }
1055
1056 /* Irix6 "cc -n32" and OSF4 cc have problems with char foo[] = ("string");
1057    I.e. a const string initializer with parens around it.  That is
1058    what N_("string") resolves to, so we make no_* be macros instead.  */
1059 #define no_arg N_("Argument missing after %s")
1060 #define no_ass N_("Assertion missing after %s")
1061 #define no_dir N_("Directory name missing after %s")
1062 #define no_fil N_("File name missing after %s")
1063 #define no_mac N_("Macro name missing after %s")
1064 #define no_pth N_("Path name missing after %s")
1065 #define no_num N_("Number missing after %s")
1066
1067 /* This is the list of all command line options, with the leading
1068    "-" removed.  It must be sorted in ASCII collating order.  */
1069 #define COMMAND_LINE_OPTIONS                                                  \
1070   DEF_OPT("",                         0,      OPT_stdin_stdout)               \
1071   DEF_OPT("$",                        0,      OPT_dollar)                     \
1072   DEF_OPT("+",                        0,      OPT_plus)                       \
1073   DEF_OPT("-help",                    0,      OPT__help)                      \
1074   DEF_OPT("-target-help",             0,      OPT_target__help)               \
1075   DEF_OPT("-version",                 0,      OPT__version)                   \
1076   DEF_OPT("A",                        no_ass, OPT_A)                          \
1077   DEF_OPT("C",                        0,      OPT_C)                          \
1078   DEF_OPT("D",                        no_mac, OPT_D)                          \
1079   DEF_OPT("H",                        0,      OPT_H)                          \
1080   DEF_OPT("I",                        no_dir, OPT_I)                          \
1081   DEF_OPT("M",                        0,      OPT_M)                          \
1082   DEF_OPT("MD",                       no_fil, OPT_MD)                         \
1083   DEF_OPT("MG",                       0,      OPT_MG)                         \
1084   DEF_OPT("MM",                       0,      OPT_MM)                         \
1085   DEF_OPT("MMD",                      no_fil, OPT_MMD)                        \
1086   DEF_OPT("P",                        0,      OPT_P)                          \
1087   DEF_OPT("U",                        no_mac, OPT_U)                          \
1088   DEF_OPT("W",                        no_arg, OPT_W)  /* arg optional */      \
1089   DEF_OPT("d",                        no_arg, OPT_d)                          \
1090   DEF_OPT("fleading-underscore",      0,      OPT_fleading_underscore)        \
1091   DEF_OPT("fno-leading-underscore",   0,      OPT_fno_leading_underscore)     \
1092   DEF_OPT("fno-operator-names",       0,      OPT_fno_operator_names)         \
1093   DEF_OPT("fno-preprocessed",         0,      OPT_fno_preprocessed)           \
1094   DEF_OPT("fno-show-column",          0,      OPT_fno_show_column)            \
1095   DEF_OPT("fpreprocessed",            0,      OPT_fpreprocessed)              \
1096   DEF_OPT("fshow-column",             0,      OPT_fshow_column)               \
1097   DEF_OPT("ftabstop=",                no_num, OPT_ftabstop)                   \
1098   DEF_OPT("g",                        no_arg, OPT_g)  /* arg optional */      \
1099   DEF_OPT("h",                        0,      OPT_h)                          \
1100   DEF_OPT("idirafter",                no_dir, OPT_idirafter)                  \
1101   DEF_OPT("imacros",                  no_fil, OPT_imacros)                    \
1102   DEF_OPT("include",                  no_fil, OPT_include)                    \
1103   DEF_OPT("iprefix",                  no_pth, OPT_iprefix)                    \
1104   DEF_OPT("isystem",                  no_dir, OPT_isystem)                    \
1105   DEF_OPT("iwithprefix",              no_dir, OPT_iwithprefix)                \
1106   DEF_OPT("iwithprefixbefore",        no_dir, OPT_iwithprefixbefore)          \
1107   DEF_OPT("lang-asm",                 0,      OPT_lang_asm)                   \
1108   DEF_OPT("lang-c",                   0,      OPT_lang_c)                     \
1109   DEF_OPT("lang-c++",                 0,      OPT_lang_cplusplus)             \
1110   DEF_OPT("lang-c89",                 0,      OPT_lang_c89)                   \
1111   DEF_OPT("lang-objc",                0,      OPT_lang_objc)                  \
1112   DEF_OPT("lang-objc++",              0,      OPT_lang_objcplusplus)          \
1113   DEF_OPT("nostdinc",                 0,      OPT_nostdinc)                   \
1114   DEF_OPT("nostdinc++",               0,      OPT_nostdincplusplus)           \
1115   DEF_OPT("o",                        no_fil, OPT_o)                          \
1116   DEF_OPT("pedantic",                 0,      OPT_pedantic)                   \
1117   DEF_OPT("pedantic-errors",          0,      OPT_pedantic_errors)            \
1118   DEF_OPT("remap",                    0,      OPT_remap)                      \
1119   DEF_OPT("std=c++98",                0,      OPT_std_cplusplus98)            \
1120   DEF_OPT("std=c89",                  0,      OPT_std_c89)                    \
1121   DEF_OPT("std=c99",                  0,      OPT_std_c99)                    \
1122   DEF_OPT("std=c9x",                  0,      OPT_std_c9x)                    \
1123   DEF_OPT("std=gnu89",                0,      OPT_std_gnu89)                  \
1124   DEF_OPT("std=gnu99",                0,      OPT_std_gnu99)                  \
1125   DEF_OPT("std=gnu9x",                0,      OPT_std_gnu9x)                  \
1126   DEF_OPT("std=iso9899:1990",         0,      OPT_std_iso9899_1990)           \
1127   DEF_OPT("std=iso9899:199409",       0,      OPT_std_iso9899_199409)         \
1128   DEF_OPT("std=iso9899:1999",         0,      OPT_std_iso9899_1999)           \
1129   DEF_OPT("std=iso9899:199x",         0,      OPT_std_iso9899_199x)           \
1130   DEF_OPT("trigraphs",                0,      OPT_trigraphs)                  \
1131   DEF_OPT("v",                        0,      OPT_v)                          \
1132   DEF_OPT("w",                        0,      OPT_w)
1133
1134 #define DEF_OPT(text, msg, code) code,
1135 enum opt_code
1136 {
1137   COMMAND_LINE_OPTIONS
1138   N_OPTS
1139 };
1140 #undef DEF_OPT
1141
1142 struct cl_option
1143 {
1144   const char *opt_text;
1145   const char *msg;
1146   size_t opt_len;
1147   enum opt_code opt_code;
1148 };
1149
1150 #define DEF_OPT(text, msg, code) { text, msg, sizeof(text) - 1, code },
1151 #ifdef HOST_EBCDIC
1152 static struct cl_option cl_options[] =
1153 #else
1154 static const struct cl_option cl_options[] =
1155 #endif
1156 {
1157   COMMAND_LINE_OPTIONS
1158 };
1159 #undef DEF_OPT
1160 #undef COMMAND_LINE_OPTIONS
1161
1162 /* Perform a binary search to find which, if any, option the given
1163    command-line matches.  Returns its index in the option array,
1164    negative on failure.  Complications arise since some options can be
1165    suffixed with an argument, and multiple complete matches can occur,
1166    e.g. -iwithprefix and -iwithprefixbefore.  Moreover, we want to
1167    accept options beginning with -g and -W that we do not recognise,
1168    but not to swallow any subsequent command line argument; these are
1169    handled as special cases in cpp_handle_option.  */
1170 static int
1171 parse_option (input)
1172      const char *input;
1173 {
1174   unsigned int md, mn, mx;
1175   size_t opt_len;
1176   int comp;
1177
1178   mn = 0;
1179   mx = N_OPTS;
1180
1181   while (mx > mn)
1182     {
1183       md = (mn + mx) / 2;
1184
1185       opt_len = cl_options[md].opt_len;
1186       comp = memcmp (input, cl_options[md].opt_text, opt_len);
1187
1188       if (comp > 0)
1189         mn = md + 1;
1190       else if (comp < 0)
1191         mx = md;
1192       else
1193         {
1194           if (input[opt_len] == '\0')
1195             return md;
1196           /* We were passed more text.  If the option takes an argument,
1197              we may match a later option or we may have been passed the
1198              argument.  The longest possible option match succeeds.
1199              If the option takes no arguments we have not matched and
1200              continue the search (e.g. input="stdc++" match was "stdc").  */
1201           mn = md + 1;
1202           if (cl_options[md].msg)
1203             {
1204               /* Scan forwards.  If we get an exact match, return it.
1205                  Otherwise, return the longest option-accepting match.
1206                  This loops no more than twice with current options.  */
1207               mx = md;
1208               for (; mn < N_OPTS; mn++)
1209                 {
1210                   opt_len = cl_options[mn].opt_len;
1211                   if (memcmp (input, cl_options[mn].opt_text, opt_len))
1212                     break;
1213                   if (input[opt_len] == '\0')
1214                     return mn;
1215                   if (cl_options[mn].msg)
1216                     mx = mn;
1217                 }
1218               return mx;
1219             }
1220         }
1221     }
1222
1223   return -1;
1224 }
1225
1226 /* Handle one command-line option in (argc, argv).
1227    Can be called multiple times, to handle multiple sets of options.
1228    Returns number of strings consumed.  */
1229
1230 int
1231 cpp_handle_option (pfile, argc, argv)
1232      cpp_reader *pfile;
1233      int argc;
1234      char **argv;
1235 {
1236   int i = 0;
1237   struct cpp_pending *pend = CPP_OPTION (pfile, pending);
1238
1239   if (argv[i][0] != '-')
1240     {
1241       if (CPP_OPTION (pfile, out_fname) != NULL)
1242         cpp_fatal (pfile, "Too many arguments. Type %s --help for usage info",
1243                    progname);
1244       else if (CPP_OPTION (pfile, in_fname) != NULL)
1245         CPP_OPTION (pfile, out_fname) = argv[i];
1246       else
1247         CPP_OPTION (pfile, in_fname) = argv[i];
1248     }
1249   else
1250     {
1251       enum opt_code opt_code;
1252       int opt_index;
1253       const char *arg = 0;
1254
1255       /* Skip over '-'.  */
1256       opt_index = parse_option (&argv[i][1]);
1257       if (opt_index < 0)
1258         return i;
1259
1260       opt_code = cl_options[opt_index].opt_code;
1261       if (cl_options[opt_index].msg)
1262         {
1263           arg = &argv[i][cl_options[opt_index].opt_len + 1];
1264
1265           /* Yuk. Special case for -g and -W as they must not swallow
1266              up any following argument.  If this becomes common, add
1267              another field to the cl_options table.  */
1268           if (arg[0] == '\0' && !(opt_code == OPT_g || opt_code == OPT_W))
1269             {
1270               arg = argv[++i];
1271               if (!arg)
1272                 {
1273                   cpp_fatal (pfile, cl_options[opt_index].msg, argv[i - 1]);
1274                   return argc;
1275                 }
1276             }
1277         }
1278
1279       switch (opt_code)
1280         {
1281         case N_OPTS: /* Shut GCC up.  */
1282           break;
1283         case OPT_fleading_underscore:
1284           CPP_OPTION (pfile, user_label_prefix) = "_";
1285           break;
1286         case OPT_fno_leading_underscore:
1287           CPP_OPTION (pfile, user_label_prefix) = "";
1288           break;
1289         case OPT_fno_operator_names:
1290           CPP_OPTION (pfile, operator_names) = 0;
1291           break;
1292         case OPT_fpreprocessed:
1293           CPP_OPTION (pfile, preprocessed) = 1;
1294           break;
1295         case OPT_fno_preprocessed:
1296           CPP_OPTION (pfile, preprocessed) = 0;
1297           break;
1298         case OPT_fshow_column:
1299           CPP_OPTION (pfile, show_column) = 1;
1300           break;
1301         case OPT_fno_show_column:
1302           CPP_OPTION (pfile, show_column) = 0;
1303           break;
1304         case OPT_ftabstop:
1305           /* Silently ignore empty string, non-longs and silly values.  */
1306           if (arg[0] != '\0')
1307             {
1308               char *endptr;
1309               long tabstop = strtol (arg, &endptr, 10);
1310               if (*endptr == '\0' && tabstop >= 1 && tabstop <= 100)
1311                 CPP_OPTION (pfile, tabstop) = tabstop;
1312             }
1313           break;
1314         case OPT_w:
1315           CPP_OPTION (pfile, inhibit_warnings) = 1;
1316           break;
1317         case OPT_g:  /* Silently ignore anything but -g3.  */
1318           if (!strcmp(&argv[i][2], "3"))
1319             CPP_OPTION (pfile, debug_output) = 1;
1320           break;
1321         case OPT_h:
1322         case OPT__help:
1323           print_help ();
1324           exit (0);  /* XXX */
1325           break;
1326         case OPT_target__help:
1327           /* Print if any target specific options. */
1328           exit (0);
1329           break;
1330         case OPT__version:
1331           fprintf (stderr, _("GNU CPP version %s (cpplib)\n"), version_string);
1332           exit (0);  /* XXX */
1333           break;
1334         case OPT_C:
1335           CPP_OPTION (pfile, discard_comments) = 0;
1336           break;
1337         case OPT_P:
1338           CPP_OPTION (pfile, no_line_commands) = 1;
1339           break;
1340         case OPT_dollar:        /* Don't include $ in identifiers.  */
1341           CPP_OPTION (pfile, dollars_in_ident) = 0;
1342           break;
1343         case OPT_H:
1344           CPP_OPTION (pfile, print_include_names) = 1;
1345           break;
1346         case OPT_D:
1347           new_pending_directive (pend, arg, cpp_define);
1348           break;
1349         case OPT_pedantic_errors:
1350           CPP_OPTION (pfile, pedantic_errors) = 1;
1351           /* fall through */
1352         case OPT_pedantic:
1353           CPP_OPTION (pfile, pedantic) = 1;
1354           break;
1355         case OPT_trigraphs:
1356           CPP_OPTION (pfile, trigraphs) = 1;
1357           break;
1358         case OPT_plus:
1359           CPP_OPTION (pfile, cplusplus) = 1;
1360           CPP_OPTION (pfile, cplusplus_comments) = 1;
1361           break;
1362         case OPT_remap:
1363           CPP_OPTION (pfile, remap) = 1;
1364           break;
1365         case OPT_iprefix:
1366           CPP_OPTION (pfile, include_prefix) = arg;
1367           CPP_OPTION (pfile, include_prefix_len) = strlen (arg);
1368           break;
1369         case OPT_lang_c:
1370           set_lang (pfile, CLK_GNUC89);
1371           break;
1372         case OPT_lang_cplusplus:
1373           set_lang (pfile, CLK_GNUCXX);
1374           break;
1375         case OPT_lang_objc:
1376           set_lang (pfile, CLK_OBJC);
1377           break;
1378         case OPT_lang_objcplusplus:
1379           set_lang (pfile, CLK_OBJCXX);
1380           break;
1381         case OPT_lang_asm:
1382           set_lang (pfile, CLK_ASM);
1383           break;
1384         case OPT_std_cplusplus98:
1385           set_lang (pfile, CLK_CXX98);
1386           break;
1387         case OPT_std_gnu89:
1388           set_lang (pfile, CLK_GNUC89);
1389           break;
1390         case OPT_std_gnu9x:
1391         case OPT_std_gnu99:
1392           set_lang (pfile, CLK_GNUC99);
1393           break;
1394         case OPT_std_iso9899_199409:
1395           set_lang (pfile, CLK_STDC94);
1396           break;
1397         case OPT_std_iso9899_1990:
1398         case OPT_std_c89:
1399         case OPT_lang_c89:
1400           set_lang (pfile, CLK_STDC89);
1401           break;
1402         case OPT_std_iso9899_199x:
1403         case OPT_std_iso9899_1999:
1404         case OPT_std_c9x:
1405         case OPT_std_c99:
1406           set_lang (pfile, CLK_STDC99);
1407           break;
1408         case OPT_nostdinc:
1409           /* -nostdinc causes no default include directories.
1410              You must specify all include-file directories with -I.  */
1411           CPP_OPTION (pfile, no_standard_includes) = 1;
1412           break;
1413         case OPT_nostdincplusplus:
1414           /* -nostdinc++ causes no default C++-specific include directories. */
1415           CPP_OPTION (pfile, no_standard_cplusplus_includes) = 1;
1416           break;
1417         case OPT_o:
1418           if (CPP_OPTION (pfile, out_fname) != NULL)
1419             {
1420               cpp_fatal (pfile, "Output filename specified twice");
1421               return argc;
1422             }
1423           CPP_OPTION (pfile, out_fname) = arg;
1424           if (!strcmp (CPP_OPTION (pfile, out_fname), "-"))
1425             CPP_OPTION (pfile, out_fname) = "";
1426           break;
1427         case OPT_v:
1428           fprintf (stderr, _("GNU CPP version %s (cpplib)"), version_string);
1429 #ifdef TARGET_VERSION
1430           TARGET_VERSION;
1431 #endif
1432           fputc ('\n', stderr);
1433           CPP_OPTION (pfile, verbose) = 1;
1434           break;
1435         case OPT_stdin_stdout:
1436           /* JF handle '-' as file name meaning stdin or stdout.  */
1437           if (CPP_OPTION (pfile, in_fname) == NULL)
1438             CPP_OPTION (pfile, in_fname) = "";
1439           else if (CPP_OPTION (pfile, out_fname) == NULL)
1440             CPP_OPTION (pfile, out_fname) = "";
1441           break;
1442         case OPT_d:
1443           /* Args to -d specify what parts of macros to dump.
1444              Silently ignore unrecognised options; they may
1445              be aimed at the compiler proper.  */
1446           {
1447             char c;
1448
1449             while ((c = *arg++) != '\0')
1450               switch (c)
1451                 {
1452                 case 'M':
1453                   CPP_OPTION (pfile, dump_macros) = dump_only;
1454                   CPP_OPTION (pfile, no_output) = 1;
1455                   break;
1456                 case 'N':
1457                   CPP_OPTION (pfile, dump_macros) = dump_names;
1458                   break;
1459                 case 'D':
1460                   CPP_OPTION (pfile, dump_macros) = dump_definitions;
1461                   break;
1462                 case 'I':
1463                   CPP_OPTION (pfile, dump_includes) = 1;
1464                   break;
1465                 }
1466           }
1467           break;
1468           /* The style of the choices here is a bit mixed.
1469              The chosen scheme is a hybrid of keeping all options in one string
1470              and specifying each option in a separate argument:
1471              -M|-MM|-MD file|-MMD file [-MG].  An alternative is:
1472              -M|-MM|-MD file|-MMD file|-MG|-MMG; or more concisely:
1473              -M[M][G][D file].  This is awkward to handle in specs, and is not
1474              as extensible.  */
1475           /* ??? -MG must be specified in addition to one of -M or -MM.
1476              This can be relaxed in the future without breaking anything.
1477              The converse isn't true.  */
1478
1479           /* -MG isn't valid with -MD or -MMD.  This is checked for later.  */
1480         case OPT_MG:
1481           CPP_OPTION (pfile, print_deps_missing_files) = 1;
1482           break;
1483         case OPT_M:
1484         case OPT_MD:
1485         case OPT_MM:
1486         case OPT_MMD:
1487           if (opt_code == OPT_M || opt_code == OPT_MD)
1488             CPP_OPTION (pfile, print_deps) = 2;
1489           else
1490             CPP_OPTION (pfile, print_deps) = 1;
1491
1492           /* For -MD and -MMD, write deps on file named by next arg.  */
1493           /* For -M and -MM, write deps on standard output and
1494              suppress the usual output.  */
1495           if (opt_code == OPT_MD || opt_code == OPT_MMD)
1496               CPP_OPTION (pfile, deps_file) = arg;
1497           else
1498               CPP_OPTION (pfile, no_output) = 1;
1499           break;
1500         case OPT_A:
1501           if (arg[0] == '-')
1502             {
1503               /* -A with an argument beginning with '-' acts as
1504                  #unassert on whatever immediately follows the '-'.
1505                  If "-" is the whole argument, we eliminate all
1506                  predefined macros and assertions, including those
1507                  that were specified earlier on the command line.
1508                  That way we can get rid of any that were passed
1509                  automatically in from GCC.  */
1510
1511               if (arg[1] == '\0')
1512                 {
1513                   struct pending_option *o1, *o2;
1514
1515                   o1 = pend->directive_head;
1516                   while (o1)
1517                     {
1518                       o2 = o1->next;
1519                       free (o1);
1520                       o1 = o2;
1521                     }
1522                   pend->directive_head = NULL;
1523                   pend->directive_tail = NULL;
1524                 }
1525               else
1526                 new_pending_directive (pend, arg + 1, cpp_unassert);
1527             }
1528           else
1529             new_pending_directive (pend, arg, cpp_assert);
1530           break;
1531         case OPT_U:
1532           new_pending_directive (pend, arg, cpp_undef);
1533           break;
1534         case OPT_I:           /* Add directory to path for includes.  */
1535           if (!strcmp (arg, "-"))
1536             {
1537               /* -I- means:
1538                  Use the preceding -I directories for #include "..."
1539                  but not #include <...>.
1540                  Don't search the directory of the present file
1541                  for #include "...".  (Note that -I. -I- is not the same as
1542                  the default setup; -I. uses the compiler's working dir.)  */
1543               if (! CPP_OPTION (pfile, ignore_srcdir))
1544                 {
1545                   pend->quote_head = pend->brack_head;
1546                   pend->quote_tail = pend->brack_tail;
1547                   pend->brack_head = 0;
1548                   pend->brack_tail = 0;
1549                   CPP_OPTION (pfile, ignore_srcdir) = 1;
1550                 }
1551               else
1552                 {
1553                   cpp_fatal (pfile, "-I- specified twice");
1554                   return argc;
1555                 }
1556             }
1557           else
1558             append_include_chain (pfile, xstrdup (arg), BRACKET, 0);
1559           break;
1560         case OPT_isystem:
1561           /* Add directory to beginning of system include path, as a system
1562              include directory.  */
1563           append_include_chain (pfile, xstrdup (arg), SYSTEM, 0);
1564           break;
1565         case OPT_include:
1566           {
1567             struct pending_option *o = (struct pending_option *)
1568               xmalloc (sizeof (struct pending_option));
1569             o->arg = arg;
1570
1571             /* This list has to be built in reverse order so that
1572                when cpp_start_read pushes all the -include files onto
1573                the buffer stack, they will be scanned in forward order.  */
1574             o->next = pend->include_head;
1575             pend->include_head = o;
1576           }
1577           break;
1578         case OPT_imacros:
1579           {
1580             struct pending_option *o = (struct pending_option *)
1581               xmalloc (sizeof (struct pending_option));
1582             o->arg = arg;
1583             o->next = NULL;
1584
1585             APPEND (pend, imacros, o);
1586           }
1587           break;
1588         case OPT_iwithprefix:
1589           /* Add directory to end of path for includes,
1590              with the default prefix at the front of its name.  */
1591           /* fall through */
1592         case OPT_iwithprefixbefore:
1593           /* Add directory to main path for includes,
1594              with the default prefix at the front of its name.  */
1595           {
1596             char *fname;
1597             int len;
1598
1599             len = strlen (arg);
1600
1601             if (CPP_OPTION (pfile, include_prefix) != 0)
1602               {
1603                 size_t ipl = CPP_OPTION (pfile, include_prefix_len);
1604                 fname = xmalloc (ipl + len + 1);
1605                 memcpy (fname, CPP_OPTION (pfile, include_prefix), ipl);
1606                 memcpy (fname + ipl, arg, len + 1);
1607               }
1608             else if (cpp_GCC_INCLUDE_DIR_len)
1609               {
1610                 fname = xmalloc (cpp_GCC_INCLUDE_DIR_len + len + 1);
1611                 memcpy (fname, cpp_GCC_INCLUDE_DIR, cpp_GCC_INCLUDE_DIR_len);
1612                 memcpy (fname + cpp_GCC_INCLUDE_DIR_len, arg, len + 1);
1613               }
1614             else
1615               fname = xstrdup (arg);
1616
1617             append_include_chain (pfile, fname,
1618                           opt_code == OPT_iwithprefix ? SYSTEM: BRACKET, 0);
1619           }
1620           break;
1621         case OPT_idirafter:
1622           /* Add directory to end of path for includes.  */
1623           append_include_chain (pfile, xstrdup (arg), AFTER, 0);
1624           break;
1625         case OPT_W:
1626           /* Silently ignore unrecognised options.  */
1627           if (!strcmp (argv[i], "-Wall"))
1628             {
1629               CPP_OPTION (pfile, warn_trigraphs) = 1;
1630               CPP_OPTION (pfile, warn_comments) = 1;
1631             }
1632           else if (!strcmp (argv[i], "-Wtraditional"))
1633             CPP_OPTION (pfile, warn_traditional) = 1;
1634           else if (!strcmp (argv[i], "-Wtrigraphs"))
1635             CPP_OPTION (pfile, warn_trigraphs) = 1;
1636           else if (!strcmp (argv[i], "-Wcomment"))
1637             CPP_OPTION (pfile, warn_comments) = 1;
1638           else if (!strcmp (argv[i], "-Wcomments"))
1639             CPP_OPTION (pfile, warn_comments) = 1;
1640           else if (!strcmp (argv[i], "-Wundef"))
1641             CPP_OPTION (pfile, warn_undef) = 1;
1642           else if (!strcmp (argv[i], "-Wimport"))
1643             CPP_OPTION (pfile, warn_import) = 1;
1644           else if (!strcmp (argv[i], "-Werror"))
1645             CPP_OPTION (pfile, warnings_are_errors) = 1;
1646           else if (!strcmp (argv[i], "-Wsystem-headers"))
1647             CPP_OPTION (pfile, warn_system_headers) = 1;
1648           else if (!strcmp (argv[i], "-Wno-traditional"))
1649             CPP_OPTION (pfile, warn_traditional) = 0;
1650           else if (!strcmp (argv[i], "-Wno-trigraphs"))
1651             CPP_OPTION (pfile, warn_trigraphs) = 0;
1652           else if (!strcmp (argv[i], "-Wno-comment"))
1653             CPP_OPTION (pfile, warn_comments) = 0;
1654           else if (!strcmp (argv[i], "-Wno-comments"))
1655             CPP_OPTION (pfile, warn_comments) = 0;
1656           else if (!strcmp (argv[i], "-Wno-undef"))
1657             CPP_OPTION (pfile, warn_undef) = 0;
1658           else if (!strcmp (argv[i], "-Wno-import"))
1659             CPP_OPTION (pfile, warn_import) = 0;
1660           else if (!strcmp (argv[i], "-Wno-error"))
1661             CPP_OPTION (pfile, warnings_are_errors) = 0;
1662           else if (!strcmp (argv[i], "-Wno-system-headers"))
1663             CPP_OPTION (pfile, warn_system_headers) = 0;
1664           break;
1665         }
1666     }
1667   return i + 1;
1668 }
1669
1670 #ifdef HOST_EBCDIC
1671 static int
1672 opt_comp (const void *p1, const void *p2)
1673 {
1674   return strcmp (((struct cl_option *)p1)->opt_text,
1675                  ((struct cl_option *)p2)->opt_text);
1676 }
1677 #endif
1678
1679 /* Handle command-line options in (argc, argv).
1680    Can be called multiple times, to handle multiple sets of options.
1681    Returns if an unrecognized option is seen.
1682    Returns number of strings consumed.  */
1683 int
1684 cpp_handle_options (pfile, argc, argv)
1685      cpp_reader *pfile;
1686      int argc;
1687      char **argv;
1688 {
1689   int i;
1690   int strings_processed;
1691
1692   for (i = 0; i < argc; i += strings_processed)
1693     {
1694       strings_processed = cpp_handle_option (pfile, argc - i, argv + i);
1695       if (strings_processed == 0)
1696         break;
1697     }
1698   return i;
1699 }
1700
1701 static void
1702 print_help ()
1703 {
1704   fprintf (stderr, _("Usage: %s [switches] input output\n"), progname);
1705   /* To keep the lines from getting too long for some compilers, limit
1706      to about 500 characters (6 lines) per chunk. */
1707   fputs (_("\
1708 Switches:\n\
1709   -include <file>           Include the contents of <file> before other files\n\
1710   -imacros <file>           Accept definition of macros in <file>\n\
1711   -iprefix <path>           Specify <path> as a prefix for next two options\n\
1712   -iwithprefix <dir>        Add <dir> to the end of the system include path\n\
1713   -iwithprefixbefore <dir>  Add <dir> to the end of the main include path\n\
1714   -isystem <dir>            Add <dir> to the start of the system include path\n\
1715 "), stdout);
1716   fputs (_("\
1717   -idirafter <dir>          Add <dir> to the end of the system include path\n\
1718   -I <dir>                  Add <dir> to the end of the main include path\n\
1719   -I-                       Fine-grained include path control; see info docs\n\
1720   -nostdinc                 Do not search system include directories\n\
1721                              (dirs specified with -isystem will still be used)\n\
1722   -nostdinc++               Do not search system include directories for C++\n\
1723   -o <file>                 Put output into <file>\n\
1724 "), stdout);
1725   fputs (_("\
1726   -pedantic                 Issue all warnings demanded by strict ISO C\n\
1727   -pedantic-errors          Issue -pedantic warnings as errors instead\n\
1728   -trigraphs                Support ISO C trigraphs\n\
1729   -lang-c                   Assume that the input sources are in C\n\
1730   -lang-c89                 Assume that the input sources are in C89\n\
1731 "), stdout);
1732   fputs (_("\
1733   -lang-c++                 Assume that the input sources are in C++\n\
1734   -lang-objc                Assume that the input sources are in ObjectiveC\n\
1735   -lang-objc++              Assume that the input sources are in ObjectiveC++\n\
1736   -lang-asm                 Assume that the input sources are in assembler\n\
1737 "), stdout);
1738   fputs (_("\
1739   -std=<std name>           Specify the conformance standard; one of:\n\
1740                             gnu89, gnu99, c89, c99, iso9899:1990,\n\
1741                             iso9899:199409, iso9899:1999\n\
1742   -+                        Allow parsing of C++ style features\n\
1743   -w                        Inhibit warning messages\n\
1744   -Wtrigraphs               Warn if trigraphs are encountered\n\
1745   -Wno-trigraphs            Do not warn about trigraphs\n\
1746   -Wcomment{s}              Warn if one comment starts inside another\n\
1747 "), stdout);
1748   fputs (_("\
1749   -Wno-comment{s}           Do not warn about comments\n\
1750   -Wtraditional             Warn about features not present in traditional C\n\
1751   -Wno-traditional          Do not warn about traditional C\n\
1752   -Wundef                   Warn if an undefined macro is used by #if\n\
1753   -Wno-undef                Do not warn about testing undefined macros\n\
1754   -Wimport                  Warn about the use of the #import directive\n\
1755 "), stdout);
1756   fputs (_("\
1757   -Wno-import               Do not warn about the use of #import\n\
1758   -Werror                   Treat all warnings as errors\n\
1759   -Wno-error                Do not treat warnings as errors\n\
1760   -Wsystem-headers          Do not suppress warnings from system headers\n\
1761   -Wno-system-headers       Suppress warnings from system headers\n\
1762   -Wall                     Enable all preprocessor warnings\n\
1763 "), stdout);
1764   fputs (_("\
1765   -M                        Generate make dependencies\n\
1766   -MM                       As -M, but ignore system header files\n\
1767   -MD                       As -M, but put output in a .d file\n\
1768   -MMD                      As -MD, but ignore system header files\n\
1769   -MG                       Treat missing header file as generated files\n\
1770   -g3                       Include #define and #undef directives in the output\n\
1771 "), stdout);
1772   fputs (_("\
1773   -D<macro>                 Define a <macro> with string '1' as its value\n\
1774   -D<macro>=<val>           Define a <macro> with <val> as its value\n\
1775   -A<question> (<answer>)   Assert the <answer> to <question>\n\
1776   -A-<question> (<answer>)  Disable the <answer> to <question>\n\
1777   -U<macro>                 Undefine <macro> \n\
1778   -v                        Display the version number\n\
1779 "), stdout);
1780   fputs (_("\
1781   -H                        Print the name of header files as they are used\n\
1782   -C                        Do not discard comments\n\
1783   -dM                       Display a list of macro definitions active at end\n\
1784   -dD                       Preserve macro definitions in output\n\
1785   -dN                       As -dD except that only the names are preserved\n\
1786   -dI                       Include #include directives in the output\n\
1787 "), stdout);
1788   fputs (_("\
1789   -ftabstop=<number>        Distance between tab stops for column reporting\n\
1790   -P                        Do not generate #line directives\n\
1791   -$                        Do not allow '$' in identifiers\n\
1792   -remap                    Remap file names when including files.\n\
1793   --version                 Display version information\n\
1794   -h or --help              Display this information\n\
1795 "), stdout);
1796 }