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