OSDN Git Service

Replace inclusion of <stdio.h> with "system.h"
[pf3gnuchains/gcc-fork.git] / gcc / cppinit.c
index 9ca7e7e..944dd59 100644 (file)
@@ -1,5 +1,6 @@
 /* CPP Library.
-   Copyright (C) 1986, 87, 89, 92-99, 2000 Free Software Foundation, Inc.
+   Copyright (C) 1986, 1987, 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
+   1999, 2000 Free Software Foundation, Inc.
    Contributed by Per Bothner, 1994-95.
    Based on CCCP program by Paul Rubin, June 1986
    Adapted to ANSI C, Richard Stallman, Jan 1987
@@ -20,16 +21,14 @@ Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 #include "config.h"
 #include "system.h"
-
-#define FAKE_CONST
+#include "hashtab.h"
 #include "cpplib.h"
 #include "cpphash.h"
 #include "output.h"
 #include "prefix.h"
 #include "intl.h"
-
-/* XXX Should be in a header file. */
-extern char *version_string;
+#include "version.h"
+#include "mkdeps.h"
 
 /* Predefined symbols, built-in macros, and the default include path. */
 
@@ -37,6 +36,17 @@ extern char *version_string;
 #define GET_ENV_PATH_LIST(VAR,NAME)    do { (VAR) = getenv (NAME); } while (0)
 #endif
 
+/* Windows does not natively support inodes, and neither does MSDOS.
+   Cygwin's emulation can generate non-unique inodes, so don't use it.
+   VMS has non-numeric inodes. */
+#ifdef VMS
+#define INO_T_EQ(a, b) (!memcmp (&(a), &(b), sizeof (a)))
+#elif (defined _WIN32 && ! defined (_UWIN)) || defined __MSDOS__
+#define INO_T_EQ(a, b) 0
+#else
+#define INO_T_EQ(a, b) ((a) == (b))
+#endif
+
 #ifndef STANDARD_INCLUDE_DIR
 #define STANDARD_INCLUDE_DIR "/usr/include"
 #endif
@@ -64,8 +74,6 @@ extern char *version_string;
 #ifndef WCHAR_TYPE
 #define WCHAR_TYPE "int"
 #endif
-#define CPP_WCHAR_TYPE(PFILE) \
-       (CPP_OPTIONS (PFILE)->cplusplus ? "__wchar_t" : WCHAR_TYPE)
 
 /* The string value for __USER_LABEL_PREFIX__ */
 
@@ -79,34 +87,17 @@ extern char *version_string;
 #define REGISTER_PREFIX ""
 #endif
 
-/* Suffix for object files, and known input-file extensions. */
-static const char * const known_suffixes[] =
-{
-  ".c",  ".C",   ".s",   ".S",   ".m",
-  ".cc", ".cxx", ".cpp", ".cp",  ".c++",
-  NULL
-};
-
-#ifndef OBJECT_SUFFIX
-# ifdef VMS
-#  define OBJECT_SUFFIX ".obj"
-# else
-#  define OBJECT_SUFFIX ".o"
-# endif
-#endif
-
-
 /* This is the default list of directories to search for include files.
    It may be overridden by the various -I and -ixxx options.
 
    #include "file" looks in the same directory as the current file,
-   then this list. 
+   then this list.
    #include <file> just looks in this list.
 
    All these directories are treated as `system' include directories
    (they are not subject to pedantic warnings in some cases).  */
 
-static struct default_include
+struct default_include
 {
   const char *fname;           /* The name of the directory.  */
   const char *component;       /* The component containing the directory
@@ -114,49 +105,54 @@ static struct default_include
   int cplusplus;               /* Only look here if we're compiling C++.  */
   int cxx_aware;               /* Includes in this directory don't need to
                                   be wrapped in extern "C" when compiling
-                                  C++.  This is not used anymore.  */
-}
-include_defaults_array[]
+                                  C++.  */
+};
+
+#ifndef STANDARD_INCLUDE_COMPONENT
+#define STANDARD_INCLUDE_COMPONENT 0
+#endif
+
+#ifdef CROSS_COMPILE
+#undef LOCAL_INCLUDE_DIR
+#undef SYSTEM_INCLUDE_DIR
+#undef STANDARD_INCLUDE_DIR
+#else
+#undef CROSS_INCLUDE_DIR
+#endif
+
+static const struct default_include include_defaults_array[]
 #ifdef INCLUDE_DEFAULTS
 = INCLUDE_DEFAULTS;
 #else
 = {
+#ifdef GPLUSPLUS_INCLUDE_DIR
     /* Pick up GNU C++ specific include files.  */
     { GPLUSPLUS_INCLUDE_DIR, "G++", 1, 1 },
-#ifdef CROSS_COMPILE
-    /* This is the dir for fixincludes.  Put it just before
-       the files that we fix.  */
-    { GCC_INCLUDE_DIR, "GCC", 0, 0 },
-    /* For cross-compilation, this dir name is generated
-       automatically in Makefile.in.  */
-    { CROSS_INCLUDE_DIR, "GCC", 0, 0 },
-#ifdef TOOL_INCLUDE_DIR
-    /* This is another place that the target system's headers might be.  */
-    { TOOL_INCLUDE_DIR, "BINUTILS", 0, 1 },
 #endif
-#else /* not CROSS_COMPILE */
 #ifdef LOCAL_INCLUDE_DIR
-    /* This should be /usr/local/include and should come before
-       the fixincludes-fixed header files.  */
+    /* /usr/local/include comes before the fixincluded header files.  */
     { LOCAL_INCLUDE_DIR, 0, 0, 1 },
 #endif
+#ifdef GCC_INCLUDE_DIR
+    /* This is the dir for fixincludes and for gcc's private headers.  */
+    { GCC_INCLUDE_DIR, "GCC", 0, 0 },
+#endif
+#ifdef CROSS_INCLUDE_DIR
+    /* One place the target system's headers might be.  */
+    { CROSS_INCLUDE_DIR, "GCC", 0, 0 },
+#endif
 #ifdef TOOL_INCLUDE_DIR
-    /* This is here ahead of GCC_INCLUDE_DIR because assert.h goes here.
-       Likewise, behind LOCAL_INCLUDE_DIR, where glibc puts its assert.h.  */
+    /* Another place the target system's headers might be.  */
     { TOOL_INCLUDE_DIR, "BINUTILS", 0, 1 },
 #endif
-    /* This is the dir for fixincludes.  Put it just before
-       the files that we fix.  */
-    { GCC_INCLUDE_DIR, "GCC", 0, 0 },
-    /* Some systems have an extra dir of include files.  */
 #ifdef SYSTEM_INCLUDE_DIR
+    /* Some systems have an extra dir of include files.  */
     { SYSTEM_INCLUDE_DIR, 0, 0, 0 },
 #endif
-#ifndef STANDARD_INCLUDE_COMPONENT
-#define STANDARD_INCLUDE_COMPONENT 0
-#endif
+#ifdef STANDARD_INCLUDE_DIR
+    /* /usr/include comes dead last.  */
     { STANDARD_INCLUDE_DIR, STANDARD_INCLUDE_COMPONENT, 0, 0 },
-#endif /* not CROSS_COMPILE */
+#endif
     { 0, 0, 0, 0 }
   };
 #endif /* no INCLUDE_DEFAULTS */
@@ -168,11 +164,30 @@ include_defaults_array[]
    for -include, one for -imacros.  `undef' is set for -U, clear for
    -D, ignored for the others.
    (Future: add an equivalent of -U for -A) */
+
+typedef void (* cl_directive_handler) PARAMS ((cpp_reader *, const char *));
 struct pending_option
 {
   struct pending_option *next;
-  char *arg;
-  int undef;
+  const char *arg;
+  cl_directive_handler handler;
+};
+
+/* The `pending' structure accumulates all the options that are not
+   actually processed until we hit cpp_start_read.  It consists of
+   several lists, one for each type of option.  We keep both head and
+   tail pointers for quick insertion. */
+struct cpp_pending
+{
+  struct pending_option *directive_head, *directive_tail;
+
+  struct file_name_list *quote_head, *quote_tail;
+  struct file_name_list *brack_head, *brack_tail;
+  struct file_name_list *systm_head, *systm_tail;
+  struct file_name_list *after_head, *after_tail;
+
+  struct pending_option *imacros_head, *imacros_tail;
+  struct pending_option *include_head, *include_tail;
 };
 
 #ifdef __STDC__
@@ -196,34 +211,39 @@ static void path_include          PARAMS ((cpp_reader *,
 static void initialize_builtins                PARAMS ((cpp_reader *));
 static void append_include_chain       PARAMS ((cpp_reader *,
                                                 struct cpp_pending *,
-                                                char *, int));
-static char *base_name                 PARAMS ((const char *));
+                                                char *, int, int));
+static void merge_include_chains       PARAMS ((cpp_reader *));
+
 static void dump_special_to_buffer     PARAMS ((cpp_reader *, const char *));
 static void initialize_dependency_output PARAMS ((cpp_reader *));
-static void new_pending_define         PARAMS ((struct cpp_options *,
-                                                const char *));
+static void initialize_standard_includes PARAMS ((cpp_reader *));
+static void new_pending_directive              PARAMS ((struct cpp_pending *,
+                                                const char *,
+                                                cl_directive_handler));
+#ifdef HOST_EBCDIC
+static int opt_comp                    PARAMS ((const void *, const void *));
+#endif
+static int parse_option                        PARAMS ((const char *));
+static int handle_option               PARAMS ((cpp_reader *, int, char **));
 
-/* Last argument to append_include_chain: chain to use */
+/* Fourth argument to append_include_chain: chain to use */
 enum { QUOTE = 0, BRACKET, SYSTEM, AFTER };
 
-/* If gcc is in use (stage2/stage3) we can make this table initialized data. */
-#ifdef __STDC__
-#define CAT(a, b) a##b
-#else
-#define CAT(a, b) a/**/b
-#endif
+/* If we have designated initializers (GCC >2.7, or C99) this table
+   can be initialized, constant data.  Otherwise, it has to be filled
+   in at runtime.  */
 
-#if (GCC_VERSION >= 2007)
-#define TABLE(id) static inline void CAT(init_, id) PARAMS ((void)) {} \
-unsigned char id[256] = {
-#define s(p, v) [p] = v,
+#if (GCC_VERSION >= 2007) || (__STDC_VERSION__ >= 199901L)
+#define init_IStable()  /* nothing */
+#define ISTABLE const unsigned char _cpp_IStable[256] = {
 #define END };
+#define s(p, v) [p] = v,
 #else
-#define TABLE(id) unsigned char id[256] = { 0 }; \
-static void CAT(init_,id) PARAMS ((void)) { \
-unsigned char *x = id;
+#define ISTABLE unsigned char _cpp_IStable[256] = { 0 }; \
+ static void init_IStable PARAMS ((void)) { \
+ unsigned char *x = _cpp_IStable;
+#define END }
 #define s(p, v) x[p] = v;
-#define END } 
 #endif
 
 #define A(x) s(x, ISidnum|ISidstart)
@@ -231,7 +251,7 @@ unsigned char *x = id;
 #define H(x) s(x, IShspace|ISspace)
 #define S(x) s(x, ISspace)
 
-TABLE (IStable)
+ISTABLE
   A('_')
 
   A('a') A('b') A('c') A('d') A('e') A('f') A('g') A('h') A('i')
@@ -244,7 +264,7 @@ TABLE (IStable)
 
   N('1') N('2') N('3') N('4') N('5') N('6') N('7') N('8') N('9') N('0')
 
-  H(' ') H('\t') H('\v') H('\f')
+  H('\0') H(' ') H('\t') H('\v') H('\f')
 
   S('\n')
 END
@@ -253,10 +273,9 @@ END
 #undef N
 #undef H
 #undef S
-#undef TABLE
-#undef END
 #undef s
-#undef CAT
+#undef ISTABLE
+#undef END
 
 /* Given a colon-separated list of file names PATH,
    add all the names to the search path for include files.  */
@@ -292,7 +311,7 @@ path_include (pfile, pend, list, path)
          name[q - p] = 0;
        }
 
-      append_include_chain (pfile, pend, name, path);
+      append_include_chain (pfile, pend, name, path, 0);
 
       /* Advance past this name.  */
       if (*q == 0)
@@ -302,49 +321,27 @@ path_include (pfile, pend, list, path)
   while (1);
 }
 
-/* Find the base name of a (partial) pathname FNAME.
-   Returns a pointer into the string passed in.
-   Accepts Unix (/-separated) paths on all systems,
-   DOS and VMS paths on those systems.  */
-static char *
-base_name (fname)
-     const char *fname;
-{
-  char *s = (char *)fname;
-  char *p;
-#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
-  if (ISALPHA (s[0]) && s[1] == ':') s += 2;
-  if ((p = rindex (s, '\\'))) s = p + 1;
-#elif defined VMS
-  if ((p = rindex (s, ':'))) s = p + 1; /* Skip device.  */
-  if ((p = rindex (s, ']'))) s = p + 1; /* Skip directory.  */
-  if ((p = rindex (s, '>'))) s = p + 1; /* Skip alternate (int'n'l) dir.  */
-#endif
-  if ((p = rindex (s, '/'))) s = p + 1;
-  return s;
-}
-     
-
 /* Append DIR to include path PATH.  DIR must be permanently allocated
    and writable. */
 static void
-append_include_chain (pfile, pend, dir, path)
+append_include_chain (pfile, pend, dir, path, cxx_aware)
      cpp_reader *pfile;
      struct cpp_pending *pend;
      char *dir;
      int path;
+     int cxx_aware;
 {
   struct file_name_list *new;
   struct stat st;
   unsigned int len;
 
-  simplify_pathname (dir);
+  _cpp_simplify_pathname (dir);
   if (stat (dir, &st))
     {
       /* Dirs that don't exist are silently ignored. */
       if (errno != ENOENT)
        cpp_notice_from_errno (pfile, dir);
-      else if (CPP_OPTIONS (pfile)->verbose)
+      else if (CPP_OPTION (pfile, verbose))
        fprintf (stderr, _("ignoring nonexistent directory `%s'\n"), dir);
       return;
     }
@@ -358,13 +355,16 @@ append_include_chain (pfile, pend, dir, path)
   len = strlen (dir);
   if (len > pfile->max_include_len)
     pfile->max_include_len = len;
-  
-  new = (struct file_name_list *)xmalloc (sizeof (struct file_name_list));
+
+  new = (struct file_name_list *) xmalloc (sizeof (struct file_name_list));
   new->name = dir;
   new->nlen = len;
   new->ino  = st.st_ino;
   new->dev  = st.st_dev;
-  new->sysp = (path == SYSTEM);
+  if (path == SYSTEM)
+    new->sysp = cxx_aware ? 1 : 2;
+  else
+    new->sysp = 0;
   new->name_map = NULL;
   new->next = NULL;
   new->alloc = NULL;
@@ -378,6 +378,137 @@ append_include_chain (pfile, pend, dir, path)
     }
 }
 
+/* Merge the four include chains together in the order quote, bracket,
+   system, after.  Remove duplicate dirs (as determined by
+   INO_T_EQ()).  The system_include and after_include chains are never
+   referred to again after this function; all access is through the
+   bracket_include path.
+
+   For the future: Check if the directory is empty (but
+   how?) and possibly preload the include hash. */
+
+static void
+merge_include_chains (pfile)
+     cpp_reader *pfile;
+{
+  struct file_name_list *prev, *cur, *other;
+  struct file_name_list *quote, *brack, *systm, *after;
+  struct file_name_list *qtail, *btail, *stail, *atail;
+
+  struct cpp_pending *pend = CPP_OPTION (pfile, pending);
+
+  qtail = pend->quote_tail;
+  btail = pend->brack_tail;
+  stail = pend->systm_tail;
+  atail = pend->after_tail;
+
+  quote = pend->quote_head;
+  brack = pend->brack_head;
+  systm = pend->systm_head;
+  after = pend->after_head;
+
+  /* Paste together bracket, system, and after include chains. */
+  if (stail)
+    stail->next = after;
+  else
+    systm = after;
+  if (btail)
+    btail->next = systm;
+  else
+    brack = systm;
+
+  /* This is a bit tricky.
+     First we drop dupes from the quote-include list.
+     Then we drop dupes from the bracket-include list.
+     Finally, if qtail and brack are the same directory,
+     we cut out qtail.
+
+     We can't just merge the lists and then uniquify them because
+     then we may lose directories from the <> search path that should
+     be there; consider -Ifoo -Ibar -I- -Ifoo -Iquux. It is however
+     safe to treat -Ibar -Ifoo -I- -Ifoo -Iquux as if written
+     -Ibar -I- -Ifoo -Iquux.
+
+     Note that this algorithm is quadratic in the number of -I switches,
+     which is acceptable since there aren't usually that many of them.  */
+
+  for (cur = quote, prev = NULL; cur; cur = cur->next)
+    {
+      for (other = quote; other != cur; other = other->next)
+        if (INO_T_EQ (cur->ino, other->ino)
+           && cur->dev == other->dev)
+          {
+           if (CPP_OPTION (pfile, verbose))
+             fprintf (stderr, _("ignoring duplicate directory `%s'\n"),
+                      cur->name);
+
+           prev->next = cur->next;
+           free (cur->name);
+           free (cur);
+           cur = prev;
+           break;
+         }
+      prev = cur;
+    }
+  qtail = prev;
+
+  for (cur = brack; cur; cur = cur->next)
+    {
+      for (other = brack; other != cur; other = other->next)
+        if (INO_T_EQ (cur->ino, other->ino)
+           && cur->dev == other->dev)
+          {
+           if (CPP_OPTION (pfile, verbose))
+             fprintf (stderr, _("ignoring duplicate directory `%s'\n"),
+                      cur->name);
+
+           prev->next = cur->next;
+           free (cur->name);
+           free (cur);
+           cur = prev;
+           break;
+         }
+      prev = cur;
+    }
+
+  if (quote)
+    {
+      if (INO_T_EQ (qtail->ino, brack->ino) && qtail->dev == brack->dev)
+        {
+         if (quote == qtail)
+           {
+             if (CPP_OPTION (pfile, verbose))
+               fprintf (stderr, _("ignoring duplicate directory `%s'\n"),
+                        quote->name);
+
+             free (quote->name);
+             free (quote);
+             quote = brack;
+           }
+         else
+           {
+             cur = quote;
+             while (cur->next != qtail)
+                 cur = cur->next;
+             cur->next = brack;
+             if (CPP_OPTION (pfile, verbose))
+               fprintf (stderr, _("ignoring duplicate directory `%s'\n"),
+                        qtail->name);
+
+             free (qtail->name);
+             free (qtail);
+           }
+       }
+      else
+         qtail->next = brack;
+    }
+  else
+      quote = brack;
+
+  CPP_OPTION (pfile, quote_include) = quote;
+  CPP_OPTION (pfile, bracket_include) = brack;
+}
+
 
 /* Write out a #define command for the special named MACRO_NAME
    to PFILE's token_buffer.  */
@@ -387,45 +518,63 @@ dump_special_to_buffer (pfile, macro_name)
      cpp_reader *pfile;
      const char *macro_name;
 {
-  static char define_directive[] = "#define ";
+  static const char define_directive[] = "#define ";
   int macro_name_length = strlen (macro_name);
-  output_line_command (pfile, same_file);
   CPP_RESERVE (pfile, sizeof(define_directive) + macro_name_length);
   CPP_PUTS_Q (pfile, define_directive, sizeof(define_directive)-1);
   CPP_PUTS_Q (pfile, macro_name, macro_name_length);
   CPP_PUTC_Q (pfile, ' ');
-  cpp_expand_to_buffer (pfile, macro_name, macro_name_length);
+  _cpp_expand_to_buffer (pfile, macro_name, macro_name_length);
   CPP_PUTC (pfile, '\n');
 }
 
-/* Initialize a cpp_options structure. */
-void
-cpp_options_init (opts)
-     cpp_options *opts;
-{
-  bzero ((char *) opts, sizeof (struct cpp_options));
-
-  opts->dollars_in_ident = 1;
-  opts->cplusplus_comments = 1;
-  opts->warn_import = 1;
-  opts->discard_comments = 1;
-
-  opts->pending =
-    (struct cpp_pending *) xcalloc (1, sizeof (struct cpp_pending));
-}
-
 /* Initialize a cpp_reader structure. */
 void
 cpp_reader_init (pfile)
      cpp_reader *pfile;
 {
-  bzero ((char *) pfile, sizeof (cpp_reader));
+  memset ((char *) pfile, 0, sizeof (cpp_reader));
 
   pfile->token_buffer_size = 200;
   pfile->token_buffer = (U_CHAR *) xmalloc (pfile->token_buffer_size);
   CPP_SET_WRITTEN (pfile, 0);
 
-  pfile->hashtab = (HASHNODE **) xcalloc (HASHSIZE, sizeof (HASHNODE *));
+  CPP_OPTION (pfile, dollars_in_ident) = 1;
+  CPP_OPTION (pfile, cplusplus_comments) = 1;
+  CPP_OPTION (pfile, warn_import) = 1;
+  CPP_OPTION (pfile, discard_comments) = 1;
+  CPP_OPTION (pfile, show_column) = 1;
+
+  CPP_OPTION (pfile, pending) =
+    (struct cpp_pending *) xcalloc (1, sizeof (struct cpp_pending));
+
+  _cpp_init_macro_hash (pfile);
+  _cpp_init_include_hash (pfile);
+}
+
+/* Initialize a cpp_printer structure.  As a side effect, open the
+   output file.  */
+cpp_printer *
+cpp_printer_init (pfile, print)
+     cpp_reader *pfile;
+     cpp_printer *print;
+{
+  memset (print, '\0', sizeof (cpp_printer));
+  if (CPP_OPTION (pfile, out_fname) == NULL)
+    CPP_OPTION (pfile, out_fname) = "";
+  
+  if (CPP_OPTION (pfile, out_fname)[0] == '\0')
+    print->outf = stdout;
+  else
+    {
+      print->outf = fopen (CPP_OPTION (pfile, out_fname), "w");
+      if (! print->outf)
+       {
+         cpp_notice_from_errno (pfile, CPP_OPTION (pfile, out_fname));
+         return NULL;
+       }
+    }
+  return print;
 }
 
 /* Free resources used by PFILE.
@@ -434,8 +583,7 @@ void
 cpp_cleanup (pfile)
      cpp_reader *pfile;
 {
-  int i;
-  while (CPP_BUFFER (pfile) != CPP_NULL_BUFFER (pfile))
+  while (CPP_BUFFER (pfile) != NULL)
     cpp_pop_buffer (pfile);
 
   if (pfile->token_buffer)
@@ -444,50 +592,18 @@ cpp_cleanup (pfile)
       pfile->token_buffer = NULL;
     }
 
-  if (pfile->deps_buffer)
-    {
-      free (pfile->deps_buffer);
-      pfile->deps_buffer = NULL;
-      pfile->deps_allocated_size = 0;
-    }
-
   if (pfile->input_buffer)
     {
       free (pfile->input_buffer);
-      free (pfile->input_speccase);
-      pfile->input_buffer = pfile->input_speccase = NULL;
+      pfile->input_buffer = NULL;
       pfile->input_buffer_len = 0;
     }
 
-  while (pfile->if_stack)
-    {
-      IF_STACK_FRAME *temp = pfile->if_stack;
-      pfile->if_stack = temp->next;
-      free (temp);
-    }
-
-  for (i = ALL_INCLUDE_HASHSIZE; --i >= 0; )
-    {
-      struct include_hash *imp = pfile->all_include_files[i];
-      while (imp)
-       {
-         struct include_hash *next = imp->next;
-#if 0
-         /* This gets freed elsewhere - I think. */
-         free (imp->name);
-#endif
-         free (imp);
-         imp = next;
-       }
-      pfile->all_include_files[i] = 0;
-    }
+  if (pfile->deps)
+    deps_free (pfile->deps);
 
-  for (i = HASHSIZE; --i >= 0;)
-    {
-      while (pfile->hashtab[i])
-       delete_macro (pfile->hashtab[i]);
-    }
-  free (pfile->hashtab);
+  htab_delete (pfile->hashtab);
+  htab_delete (pfile->all_include_files);
 }
 
 
@@ -495,9 +611,8 @@ cpp_cleanup (pfile)
    be entered in the macro hash table under the name NAME, with value
    VALUE (if any).  FLAGS tweaks the behavior a little:
    DUMP                write debug info for this macro
-   STDC                define only if not -traditional
-   ULP         value is the global user_label_prefix (which can't be
-               put directly into the table).
+   VERS                value is the global version_string, quoted
+   ULP         value is the global user_label_prefix
  */
 
 struct builtin
@@ -508,36 +623,38 @@ struct builtin
   unsigned short flags;
 };
 #define DUMP 0x01
-#define STDC 0x02
-#define ULP  0x10
+#define VERS 0x02
+#define ULP  0x04
 
 static const struct builtin builtin_array[] =
 {
-  { "__TIME__",                        0, T_TIME,              DUMP },
-  { "__DATE__",                        0, T_DATE,              DUMP },
-  { "__FILE__",                        0, T_FILE,              0    },
-  { "__BASE_FILE__",           0, T_BASE_FILE,         DUMP },
-  { "__LINE__",                        0, T_SPECLINE,          0    },
-  { "__INCLUDE_LEVEL__",       0, T_INCLUDE_LEVEL,     0    },
-  { "__VERSION__",             0, T_VERSION,           DUMP },
-  { "__STDC__",                        0, T_STDC,              DUMP|STDC },
-
-  { "__USER_LABEL_PREFIX__",   0,               T_CONST, ULP  },
-  { "__REGISTER_PREFIX__",     REGISTER_PREFIX, T_CONST, 0    },
-  { "__HAVE_BUILTIN_SETJMP__", "1",             T_CONST, 0    },
+  { "__TIME__",                        0, T_TIME,              0 },
+  { "__DATE__",                        0, T_DATE,              0 },
+  { "__FILE__",                        0, T_FILE,              0 },
+  { "__BASE_FILE__",           0, T_BASE_FILE,         0 },
+  { "__LINE__",                        0, T_SPECLINE,          0 },
+  { "__INCLUDE_LEVEL__",       0, T_INCLUDE_LEVEL,     0 },
+
+  { "__VERSION__",             0,               T_XCONST, DUMP|VERS },
+  { "__USER_LABEL_PREFIX__",   0,               T_CONST,  DUMP|ULP  },
+  { "__STDC__",                        "1",             T_STDC,   DUMP },
+  { "__REGISTER_PREFIX__",     REGISTER_PREFIX, T_CONST,  DUMP },
+  { "__HAVE_BUILTIN_SETJMP__", "1",             T_CONST,  DUMP },
 #ifndef NO_BUILTIN_SIZE_TYPE
-  { "__SIZE_TYPE__",           SIZE_TYPE,       T_CONST, DUMP },
+  { "__SIZE_TYPE__",           SIZE_TYPE,       T_CONST,  DUMP },
 #endif
 #ifndef NO_BUILTIN_PTRDIFF_TYPE
-  { "__PTRDIFF_TYPE__",                PTRDIFF_TYPE,    T_CONST, DUMP },
+  { "__PTRDIFF_TYPE__",                PTRDIFF_TYPE,    T_CONST,  DUMP },
+#endif
+#ifndef NO_BUILTIN_WCHAR_TYPE
+  { "__WCHAR_TYPE__",          WCHAR_TYPE,      T_CONST,  DUMP },
 #endif
-  { "__WCHAR_TYPE__",          WCHAR_TYPE,      T_CONST, DUMP },
-  { 0, 0, 0, 0 }
 };
+#define builtin_array_end \
+ builtin_array + sizeof(builtin_array)/sizeof(struct builtin)
 
 /* Subroutine of cpp_start_read; reads the builtins table above and
    enters the macros into the hash table.  */
-
 static void
 initialize_builtins (pfile)
      cpp_reader *pfile;
@@ -545,22 +662,34 @@ initialize_builtins (pfile)
   int len;
   const struct builtin *b;
   const char *val;
-  for(b = builtin_array; b->name; b++)
+  HASHNODE *hp;
+  for(b = builtin_array; b < builtin_array_end; b++)
     {
-      if ((b->flags & STDC) && CPP_TRADITIONAL (pfile))
+      if (b->type == T_STDC && CPP_TRADITIONAL (pfile))
        continue;
 
-      val = (b->flags & ULP) ? user_label_prefix : b->value;
+      if (b->flags & ULP)
+       val = user_label_prefix;
+      else if (b->flags & VERS)
+       {
+         val = xmalloc (strlen (version_string) + 3);
+         sprintf ((char *)val, "\"%s\"", version_string);
+       }
+      else
+       val = b->value;
+
       len = strlen (b->name);
+      hp = _cpp_lookup (pfile, b->name, len);
+      hp->value.cpval = val;
+      hp->type = b->type;
 
-      cpp_install (pfile, b->name, len, b->type, val);
-      if ((b->flags & DUMP) && CPP_OPTIONS (pfile)->debug_output)
+      if ((b->flags & DUMP) && CPP_OPTION (pfile, debug_output))
        dump_special_to_buffer (pfile, b->name);
     }
-
 }
 #undef DUMP
 #undef STDC
+#undef VERS
 #undef ULP
 
 /* Another subroutine of cpp_start_read.  This one sets up to do
@@ -569,24 +698,23 @@ static void
 initialize_dependency_output (pfile)
      cpp_reader *pfile;
 {
-  cpp_options *opts = CPP_OPTIONS (pfile);
   char *spec, *s, *output_file;
-  
+
   /* Either of two environment variables can specify output of deps.
      Its value is either "OUTPUT_FILE" or "OUTPUT_FILE DEPS_TARGET",
      where OUTPUT_FILE is the file to write deps info to
      and DEPS_TARGET is the target to mention in the deps.  */
 
-  if (opts->print_deps == 0)
+  if (CPP_OPTION (pfile, print_deps) == 0)
     {
       spec = getenv ("DEPENDENCIES_OUTPUT");
       if (spec)
-       opts->print_deps = 1;
+       CPP_OPTION (pfile, print_deps) = 1;
       else
        {
          spec = getenv ("SUNPRO_DEPENDENCIES");
          if (spec)
-           opts->print_deps = 2;
+           CPP_OPTION (pfile, print_deps) = 2;
          else
            return;
        }
@@ -595,65 +723,124 @@ initialize_dependency_output (pfile)
       s = strchr (spec, ' ');
       if (s)
        {
-         opts->deps_target = s + 1;
+         CPP_OPTION (pfile, deps_target) = s + 1;
          output_file = (char *) xmalloc (s - spec + 1);
          memcpy (output_file, spec, s - spec);
          output_file[s - spec] = 0;
        }
       else
        {
-         opts->deps_target = 0;
+         CPP_OPTION (pfile, deps_target) = 0;
          output_file = spec;
        }
 
-      opts->deps_file = output_file;
-      opts->print_deps_append = 1;
+      CPP_OPTION (pfile, deps_file) = output_file;
+      CPP_OPTION (pfile, print_deps_append) = 1;
     }
 
+  pfile->deps = deps_init ();
+
   /* Print the expected object file name as the target of this Make-rule.  */
-  pfile->deps_allocated_size = 200;
-  pfile->deps_buffer = (char *) xmalloc (pfile->deps_allocated_size);
-  pfile->deps_buffer[0] = 0;
-  pfile->deps_size = 0;
-  pfile->deps_column = 0;
-
-  if (opts->deps_target)
-    deps_output (pfile, opts->deps_target, ':');
-  else if (*opts->in_fname == 0)
-    deps_output (pfile, "-", ':');
+  if (CPP_OPTION (pfile, deps_target))
+    deps_add_target (pfile->deps, CPP_OPTION (pfile, deps_target));
+  else if (*CPP_OPTION (pfile, in_fname) == 0)
+    deps_add_target (pfile->deps, "-");
   else
+    deps_calc_target (pfile->deps, CPP_OPTION (pfile, in_fname));
+
+  if (CPP_OPTION (pfile, in_fname))
+    deps_add_dep (pfile->deps, CPP_OPTION (pfile, in_fname));
+}
+
+/* And another subroutine.  This one sets up the standard include path.  */
+static void
+initialize_standard_includes (pfile)
+     cpp_reader *pfile;
+{
+  char *path;
+  const struct default_include *p;
+  const char *specd_prefix = CPP_OPTION (pfile, include_prefix);
+
+  /* Several environment variables may add to the include search path.
+     CPATH specifies an additional list of directories to be searched
+     as if specified with -I, while C_INCLUDE_PATH, CPLUS_INCLUDE_PATH,
+     etc. specify an additional list of directories to be searched as
+     if specified with -isystem, for the language indicated.  */
+
+  GET_ENV_PATH_LIST (path, "CPATH");
+  if (path != 0 && *path != 0)
+    path_include (pfile, CPP_OPTION (pfile, pending), path, BRACKET);
+
+  switch ((CPP_OPTION (pfile, objc) << 1) + CPP_OPTION (pfile, cplusplus))
+    {
+    case 0:
+      GET_ENV_PATH_LIST (path, "C_INCLUDE_PATH");
+      break;
+    case 1:
+      GET_ENV_PATH_LIST (path, "CPLUS_INCLUDE_PATH");
+      break;
+    case 2:
+      GET_ENV_PATH_LIST (path, "OBJC_INCLUDE_PATH");
+      break;
+    case 3:
+      GET_ENV_PATH_LIST (path, "OBJCPLUS_INCLUDE_PATH");
+      break;
+    }
+  if (path != 0 && *path != 0)
+    path_include (pfile, CPP_OPTION (pfile, pending), path, SYSTEM);
+
+  /* Search "translated" versions of GNU directories.
+     These have /usr/local/lib/gcc... replaced by specd_prefix.  */
+  if (specd_prefix != 0)
     {
-      char *p, *q, *r;
-      int len, x;
-
-      /* Discard all directory prefixes from filename.  */
-      q = base_name (opts->in_fname);
-
-      /* Copy remainder to mungable area.  */
-      len = strlen (q);
-      p = (char *) alloca (len + 8);
-      strcpy (p, q);
-
-      /* Output P, but remove known suffixes.  */
-      q = p + len;
-      /* Point to the filename suffix.  */
-      r = strrchr (p, '.');
-      if (r)
-       /* Compare against the known suffixes.  */
-       for (x = 0; known_suffixes[x]; x++)
-         if (strncmp (known_suffixes[x], r, q - r) == 0)
+      char *default_prefix = (char *) alloca (sizeof GCC_INCLUDE_DIR - 7);
+      /* Remove the `include' from /usr/local/lib/gcc.../include.
+        GCC_INCLUDE_DIR will always end in /include. */
+      int default_len = sizeof GCC_INCLUDE_DIR - 8;
+      int specd_len = strlen (specd_prefix);
+
+      memcpy (default_prefix, GCC_INCLUDE_DIR, default_len);
+      default_prefix[default_len] = '\0';
+
+      for (p = include_defaults_array; p->fname; p++)
+       {
+         /* Some standard dirs are only for C++.  */
+         if (!p->cplusplus
+             || (CPP_OPTION (pfile, cplusplus)
+                 && !CPP_OPTION (pfile, no_standard_cplusplus_includes)))
            {
-             /* Make q point to the bit we're going to overwrite
-                with an object suffix.  */
-             q = r;
-             break;
+             /* Does this dir start with the prefix?  */
+             if (!strncmp (p->fname, default_prefix, default_len))
+               {
+                 /* Yes; change prefix and add to search list.  */
+                 int flen = strlen (p->fname);
+                 int this_len = specd_len + flen - default_len;
+                 char *str = (char *) xmalloc (this_len + 1);
+                 memcpy (str, specd_prefix, specd_len);
+                 memcpy (str + specd_len,
+                         p->fname + default_len,
+                         flen - default_len + 1);
+
+                 append_include_chain (pfile, CPP_OPTION (pfile, pending),
+                                       str, SYSTEM, p->cxx_aware);
+               }
            }
+       }
+    }
 
-      /* Supply our own suffix.  */
-      strcpy (q, OBJECT_SUFFIX);
-
-      deps_output (pfile, p, ':');
-      deps_output (pfile, opts->in_fname, ' ');
+  /* Search ordinary names for GNU include directories.  */
+  for (p = include_defaults_array; p->fname; p++)
+    {
+      /* Some standard dirs are only for C++.  */
+      if (!p->cplusplus
+         || (CPP_OPTION (pfile, cplusplus)
+             && !CPP_OPTION (pfile, no_standard_cplusplus_includes)))
+       {
+         /* XXX Potential memory leak! */
+         char *str = xstrdup (update_path (p->fname, p->component));
+         append_include_chain (pfile, CPP_OPTION (pfile, pending),
+                               str, SYSTEM, p->cxx_aware);
+       }
     }
 }
 
@@ -664,1000 +851,885 @@ initialize_dependency_output (pfile)
  */
 
 int
-cpp_start_read (pfile, fname)
+cpp_start_read (pfile, print, fname)
      cpp_reader *pfile;
-     char *fname;
+     cpp_printer *print;
+     const char *fname;
 {
-  struct cpp_options *opts = CPP_OPTIONS (pfile);
   struct pending_option *p, *q;
-  int f;
-  cpp_buffer *fp;
-  struct include_hash *ih_fake;
 
   /* -MG doesn't select the form of output and must be specified with one of
      -M or -MM.  -MG doesn't make sense with -MD or -MMD since they don't
      inhibit compilation.  */
-  if (opts->print_deps_missing_files
-      && (opts->print_deps == 0 || !opts->no_output))
+  if (CPP_OPTION (pfile, print_deps_missing_files)
+      && (CPP_OPTION (pfile, print_deps) == 0
+         || !CPP_OPTION (pfile, no_output)))
     {
       cpp_fatal (pfile, "-MG must be specified with one of -M or -MM");
       return 0;
     }
 
   /* Chill should not be used with -trigraphs. */
-  if (opts->chill && opts->trigraphs)
+  if (CPP_OPTION (pfile, chill) && CPP_OPTION (pfile, trigraphs))
     {
       cpp_warning (pfile, "-lang-chill and -trigraphs are mutually exclusive");
-      opts->trigraphs = 0;
+      CPP_OPTION (pfile, trigraphs) = 0;
     }
 
+  /* -Wtraditional is not useful in C++ mode.  */
+  if (CPP_OPTION (pfile, cplusplus))
+    CPP_OPTION (pfile, warn_traditional) = 0;
+
   /* Set this if it hasn't been set already. */
   if (user_label_prefix == NULL)
     user_label_prefix = USER_LABEL_PREFIX;
-  
-  /* Now that we know dollars_in_ident, we can initialize the syntax
-     tables. */
+
+  /* Don't bother trying to do macro expansion if we've already done
+     preprocessing.  */
+  if (CPP_OPTION (pfile, preprocessed))
+    pfile->no_macro_expand++;
+
+  /* Set up the IStable.  This doesn't do anything if we were compiled
+     with a compiler that supports C99 designated initializers.  */
   init_IStable ();
-  /* XXX Get rid of code that depends on this, then IStable can
-     be truly const.  */
-  if (opts->dollars_in_ident)
-    IStable['$'] = ISidstart|ISidnum;
-
-  /* Do partial setup of input buffer for the sake of generating
-     early #line directives (when -g is in effect).  */
-  fp = cpp_push_buffer (pfile, NULL, 0);
-  if (!fp)
+
+  /* Set up the tables used by read_and_prescan.  */
+  _cpp_init_input_buffer (pfile);
+
+  /* Set up the include search path now.  */
+  if (! CPP_OPTION (pfile, no_standard_includes))
+    initialize_standard_includes (pfile);
+
+  merge_include_chains (pfile);
+
+  /* With -v, print the list of dirs to search.  */
+  if (CPP_OPTION (pfile, verbose))
+    {
+      struct file_name_list *l;
+      fprintf (stderr, _("#include \"...\" search starts here:\n"));
+      for (l = CPP_OPTION (pfile, quote_include); l; l = l->next)
+       {
+         if (l == CPP_OPTION (pfile, bracket_include))
+           fprintf (stderr, _("#include <...> search starts here:\n"));
+         fprintf (stderr, " %s\n", l->name);
+       }
+      fprintf (stderr, _("End of search list.\n"));
+    }
+
+  /* Open the main input file.  This must be done early, so we have a
+     buffer to stand on.  */
+  if (CPP_OPTION (pfile, in_fname) == NULL
+      || *CPP_OPTION (pfile, in_fname) == 0)
+    {
+      CPP_OPTION (pfile, in_fname) = fname;
+      if (CPP_OPTION (pfile, in_fname) == NULL)
+       CPP_OPTION (pfile, in_fname) = "";
+    }
+  if (CPP_OPTION (pfile, out_fname) == NULL)
+    CPP_OPTION (pfile, out_fname) = "";
+
+  if (!cpp_read_file (pfile, fname))
     return 0;
-  if (opts->in_fname == NULL || *opts->in_fname == 0)
+
+  initialize_dependency_output (pfile);
+
+  /* -D and friends may produce output, which should be identified
+     as line 0.  */
+
+  CPP_BUFFER (pfile)->lineno = 0;
+
+  if (print)
     {
-      opts->in_fname = fname;
-      if (opts->in_fname == NULL)
-       opts->in_fname = "";
+      print->lineno = 0;
+      print->last_fname = CPP_BUFFER (pfile)->nominal_fname;
+      print->last_bsd = pfile->buffer_stack_depth;
+      print->written = CPP_WRITTEN (pfile);
     }
-  fp->nominal_fname = fp->fname = opts->in_fname;
-  fp->lineno = 0;
 
-  /* Install __LINE__, etc.  Must follow initialize_char_syntax
-     and option processing.  */
+  /* Install __LINE__, etc.  */
   initialize_builtins (pfile);
 
   /* Do -U's, -D's and -A's in the order they were seen.  */
-  p = opts->pending->define_head;
+  p = CPP_OPTION (pfile, pending)->directive_head;
   while (p)
     {
-      if (opts->debug_output)
-       output_line_command (pfile, same_file);
-      if (p->undef)
-       cpp_undef (pfile, p->arg);
-      else
-       cpp_define (pfile, p->arg);
-
+      (*p->handler) (pfile, p->arg);
       q = p->next;
       free (p);
       p = q;
     }
+  pfile->done_initializing = 1;
+  pfile->only_seen_white = 2;
+  CPP_BUFFER (pfile)->lineno = 1;
+  if (print && ! CPP_OPTION (pfile, no_output))
+    cpp_output_tokens (pfile, print);
+
+  /* The -imacros files can be scanned now, but the -include files
+     have to be pushed onto the include stack and processed later,
+     in the main loop calling cpp_get_token.  */
 
-  p = opts->pending->assert_head;
+  p = CPP_OPTION (pfile, pending)->imacros_head;
   while (p)
     {
-      if (opts->debug_output)
-       output_line_command (pfile, same_file);
-      if (p->undef)
-       cpp_unassert (pfile, p->arg);
-      else
-       cpp_assert (pfile, p->arg);
+      if (cpp_read_file (pfile, p->arg))
+       cpp_scan_buffer_nooutput (pfile);
+      q = p->next;
+      free (p);
+      p = q;
+    }
 
+  p = CPP_OPTION (pfile, pending)->include_head;
+  while (p)
+    {
+      if (cpp_read_file (pfile, p->arg)
+         && print && ! CPP_OPTION (pfile, no_output))
+       cpp_output_tokens (pfile, print);
       q = p->next;
       free (p);
       p = q;
     }
-  
-  opts->done_initializing = 1;
 
-  /* Several environment variables may add to the include search path.
-     CPATH specifies an additional list of directories to be searched
-     as if specified with -I, while C_INCLUDE_PATH, CPLUS_INCLUDE_PATH,
-     etc. specify an additional list of directories to be searched as
-     if specified with -isystem, for the language indicated.
+  free (CPP_OPTION (pfile, pending));
+  CPP_OPTION (pfile, pending) = NULL;
 
-     These variables are ignored if -nostdinc is on.  */
-  if (! opts->no_standard_includes)
-    {
-      char *path;
-      GET_ENV_PATH_LIST (path, "CPATH");
-      if (path != 0 && *path != 0)
-       path_include (pfile, opts->pending, path, BRACKET);
+  return 1;
+}
 
-      switch ((opts->objc << 1) + opts->cplusplus)
-       {
-       case 0:
-         GET_ENV_PATH_LIST (path, "C_INCLUDE_PATH");
-         break;
-       case 1:
-         GET_ENV_PATH_LIST (path, "CPLUS_INCLUDE_PATH");
-         break;
-       case 2:
-         GET_ENV_PATH_LIST (path, "OBJC_INCLUDE_PATH");
-         break;
-       case 3:
-         GET_ENV_PATH_LIST (path, "OBJCPLUS_INCLUDE_PATH");
-         break;
-       }
-      if (path != 0 && *path != 0)
-       path_include (pfile, opts->pending, path, SYSTEM);
+/* This is called at the end of preprocessing.  It pops the
+   last buffer and writes dependency output.  It should also
+   clear macro definitions, such that you could call cpp_start_read
+   with a new filename to restart processing. */
+void
+cpp_finish (pfile, print)
+     cpp_reader *pfile;
+     cpp_printer *print;
+{
+  if (CPP_BUFFER (pfile))
+    {
+      cpp_ice (pfile, "buffers still stacked in cpp_finish");
+      while (CPP_BUFFER (pfile))
+       cpp_pop_buffer (pfile);
     }
 
-  /* Unless -nostdinc, add the compiled-in include path to the list,
-     translating prefixes. */
-  if (!opts->no_standard_includes)
+  /* Don't write the deps file if preprocessing has failed.  */
+  if (CPP_OPTION (pfile, print_deps) && pfile->errors == 0)
     {
-      struct default_include *p = include_defaults_array;
-      char *specd_prefix = opts->include_prefix;
-
-      /* Search "translated" versions of GNU directories.
-        These have /usr/local/lib/gcc... replaced by specd_prefix.  */
-      if (specd_prefix != 0)
+      /* Stream on which to print the dependency information.  */
+      FILE *deps_stream = 0;
+      const char *deps_mode
+       = CPP_OPTION (pfile, print_deps_append) ? "a" : "w";
+      if (CPP_OPTION (pfile, deps_file) == 0)
+       deps_stream = stdout;
+      else
        {
-         char *default_prefix = alloca (sizeof GCC_INCLUDE_DIR - 7);
-         /* Remove the `include' from /usr/local/lib/gcc.../include.
-            GCC_INCLUDE_DIR will always end in /include. */
-         int default_len = sizeof GCC_INCLUDE_DIR - 8;
-         int specd_len = strlen (specd_prefix);
-
-         memcpy (default_prefix, GCC_INCLUDE_DIR, default_len);
-         default_prefix[default_len] = '\0';
-
-         for (p = include_defaults_array; p->fname; p++)
+         deps_stream = fopen (CPP_OPTION (pfile, deps_file), deps_mode);
+         if (deps_stream == 0)
+           cpp_notice_from_errno (pfile, CPP_OPTION (pfile, deps_file));
+       }
+      if (deps_stream)
+       {
+         deps_write (pfile->deps, deps_stream, 72);
+         if (CPP_OPTION (pfile, deps_file))
            {
-             /* Some standard dirs are only for C++.  */
-             if (!p->cplusplus
-                 || (opts->cplusplus
-                     && !opts->no_standard_cplusplus_includes))
-               {
-                 /* Does this dir start with the prefix?  */
-                 if (!strncmp (p->fname, default_prefix, default_len))
-                   {
-                     /* Yes; change prefix and add to search list.  */
-                     int flen = strlen (p->fname);
-                     int this_len = specd_len + flen - default_len;
-                     char *str = (char *) xmalloc (this_len + 1);
-                     memcpy (str, specd_prefix, specd_len);
-                     memcpy (str + specd_len,
-                             p->fname + default_len,
-                             flen - default_len + 1);
-
-                     append_include_chain (pfile, opts->pending,
-                                           str, SYSTEM);
-                   }
-               }
+             if (ferror (deps_stream) || fclose (deps_stream) != 0)
+               cpp_fatal (pfile, "I/O error on output");
            }
        }
+    }
 
-      /* Search ordinary names for GNU include directories.  */
-      for (p = include_defaults_array; p->fname; p++)
-       {
-         /* Some standard dirs are only for C++.  */
-         if (!p->cplusplus
-             || (opts->cplusplus
-                 && !opts->no_standard_cplusplus_includes))
-           {
-             /* XXX Potential memory leak! */
-             char *str = xstrdup (update_path (p->fname, p->component));
-             append_include_chain (pfile, opts->pending, str, SYSTEM);
-           }
-       }
-    }
+  if (CPP_OPTION (pfile, dump_macros) == dump_only)
+    _cpp_dump_macro_hash (pfile);
 
-  merge_include_chains (opts);
-
-  /* With -v, print the list of dirs to search.  */
-  if (opts->verbose)
+  /* Flush any pending output.  */
+  if (print)
     {
-      struct file_name_list *p;
-      fprintf (stderr, _("#include \"...\" search starts here:\n"));
-      for (p = opts->quote_include; p; p = p->next)
-       {
-         if (p == opts->bracket_include)
-           fprintf (stderr, _("#include <...> search starts here:\n"));
-         fprintf (stderr, " %s\n", p->name);
-       }
-      fprintf (stderr, _("End of search list.\n"));
-    }
-
-  /* Don't bother trying to do macro expansion if we've already done
-     preprocessing.  */
-  if (opts->preprocessed)
-    pfile->no_macro_expand++;
-
-  /* Open the main input file.
-     We do this in nonblocking mode so we don't get stuck here if
-     someone clever has asked cpp to process /dev/rmt0;
-     finclude() will check that we have a real file to work with.  */
-  if (fname == NULL || *fname == 0)
-    {
-      fname = "";
-      f = 0;
-    }
-  else if ((f = open (fname, O_RDONLY|O_NONBLOCK|O_NOCTTY, 0666)) < 0)
-    {
-      cpp_notice_from_errno (pfile, fname);
-      return 0;
-    }
-
-  initialize_dependency_output (pfile);
-
-  /* Must call finclude() on the main input before processing
-     -include switches; otherwise the -included text winds up
-     after the main input. */
-  ih_fake = (struct include_hash *) xmalloc (sizeof (struct include_hash));
-  ih_fake->next = 0;
-  ih_fake->next_this_file = 0;
-  ih_fake->foundhere = ABSOLUTE_PATH;  /* well sort of ... */
-  ih_fake->name = fname;
-  ih_fake->control_macro = 0;
-  ih_fake->buf = (char *)-1;
-  ih_fake->limit = 0;
-  if (!finclude (pfile, f, ih_fake))
-    return 0;
-  if (opts->preprocessed)
-    /* If we've already processed this code, we want to trust the #line
-       directives in the input.  But we still need to update our line
-       counter accordingly.  */
-    pfile->lineno = CPP_BUFFER (pfile)->lineno;
-  else
-    output_line_command (pfile, same_file);
-  pfile->only_seen_white = 2;
-
-  /* The -imacros files can be scanned now, but the -include files
-     have to be pushed onto the include stack and processed later,
-     in the main loop calling cpp_get_token.  */
-  
-  pfile->no_record_file++;
-  opts->no_output++;
-  p = opts->pending->imacros_head;
-  while (p)
-    {
-      int fd = open (p->arg, O_RDONLY|O_NONBLOCK|O_NOCTTY, 0666);
-      if (fd < 0)
-       {
-         cpp_notice_from_errno (pfile, p->arg);
-         return 0;
-       }
-      if (!cpp_push_buffer (pfile, NULL, 0))
-       return 0;
-
-      ih_fake = (struct include_hash *)
-       xmalloc (sizeof (struct include_hash));
-      ih_fake->next = 0;
-      ih_fake->next_this_file = 0;
-      ih_fake->foundhere = ABSOLUTE_PATH;  /* well sort of ... */
-      ih_fake->name = p->arg;
-      ih_fake->control_macro = 0;
-      ih_fake->buf = (char *)-1;
-      ih_fake->limit = 0;
-      if (finclude (pfile, fd, ih_fake))
-       {
-         if (CPP_PRINT_DEPS (pfile))
-           deps_output (pfile, ih_fake->name, ' ');
-
-         cpp_scan_buffer (pfile);
-       }
-      else
-       cpp_pop_buffer (pfile);
-      free (ih_fake);
-
-      q = p->next;
-      free (p);
-      p = q;
+      cpp_output_tokens (pfile, print);
+      if (ferror (print->outf) || fclose (print->outf))
+       cpp_notice_from_errno (pfile, CPP_OPTION (pfile, out_fname));
     }
+}
 
-  opts->no_output--;
+static void
+new_pending_directive (pend, text, handler)
+     struct cpp_pending *pend;
+     const char *text;
+     cl_directive_handler handler;
+{
+  struct pending_option *o = (struct pending_option *)
+    xmalloc (sizeof (struct pending_option));
 
-  p = opts->pending->include_head;
-  while (p)
-    {
-      int fd = open (p->arg, O_RDONLY|O_NONBLOCK|O_NOCTTY, 0666);
-      if (fd < 0)
-       {
-         cpp_notice_from_errno (pfile, p->arg);
-         return 0;
-       }
-      if (!cpp_push_buffer (pfile, NULL, 0))
-       return 0;
-
-      ih_fake = (struct include_hash *)
-       xmalloc (sizeof (struct include_hash));
-      ih_fake->next = 0;
-      ih_fake->next_this_file = 0;
-      ih_fake->foundhere = ABSOLUTE_PATH;  /* well sort of ... */
-      ih_fake->name = p->arg;
-      ih_fake->control_macro = 0;
-      ih_fake->buf = (char *)-1;
-      ih_fake->limit = 0;
-      if (finclude (pfile, fd, ih_fake))
-       {
-         if (CPP_PRINT_DEPS (pfile))
-           deps_output (pfile, ih_fake->name, ' ');
-         
-         output_line_command (pfile, enter_file);
-       }
-      else
-       cpp_pop_buffer (pfile);
-      q = p->next;
-      free (p);
-      p = q;
-    }
-  pfile->no_record_file--;
+  o->arg = text;
+  o->next = NULL;
+  o->handler = handler;
+  APPEND (pend, directive, o);
+}
 
-  free (opts->pending);
-  opts->pending = NULL;
+/* Irix6 "cc -n32" and OSF4 cc have problems with char foo[] = ("string");
+   I.e. a const string initializer with parens around it.  That is
+   what N_("string") resolves to, so we make no_* be macros instead.  */
+#define no_arg N_("Argument missing after %s")
+#define no_ass N_("Assertion missing after %s")
+#define no_dir N_("Directory name missing after %s")
+#define no_fil N_("File name missing after %s")
+#define no_mac N_("Macro name missing after %s")
+#define no_pth N_("Path name missing after %s")
+
+/* This is the list of all command line options, with the leading
+   "-" removed.  It must be sorted in ASCII collating order.  */
+#define COMMAND_LINE_OPTIONS                                                  \
+  DEF_OPT("",                         0,      OPT_stdin_stdout)               \
+  DEF_OPT("$",                        0,      OPT_dollar)                     \
+  DEF_OPT("+",                        0,      OPT_plus)                       \
+  DEF_OPT("-help",                    0,      OPT__help)                      \
+  DEF_OPT("-version",                 0,      OPT__version)                   \
+  DEF_OPT("A",                        no_ass, OPT_A)                          \
+  DEF_OPT("C",                        0,      OPT_C)                          \
+  DEF_OPT("D",                        no_mac, OPT_D)                          \
+  DEF_OPT("H",                        0,      OPT_H)                          \
+  DEF_OPT("I",                        no_dir, OPT_I)                          \
+  DEF_OPT("M",                        0,      OPT_M)                          \
+  DEF_OPT("MD",                       no_fil, OPT_MD)                         \
+  DEF_OPT("MG",                       0,      OPT_MG)                         \
+  DEF_OPT("MM",                       0,      OPT_MM)                         \
+  DEF_OPT("MMD",                      no_fil, OPT_MMD)                        \
+  DEF_OPT("P",                        0,      OPT_P)                          \
+  DEF_OPT("U",                        no_mac, OPT_U)                          \
+  DEF_OPT("W",                        no_arg, OPT_W)  /* arg optional */      \
+  DEF_OPT("d",                        no_arg, OPT_d)                          \
+  DEF_OPT("fleading-underscore",      0,      OPT_fleading_underscore)        \
+  DEF_OPT("fno-leading-underscore",   0,      OPT_fno_leading_underscore)     \
+  DEF_OPT("fno-preprocessed",         0,      OPT_fno_preprocessed)           \
+  DEF_OPT("fno-show-column",          0,      OPT_fno_show_column)            \
+  DEF_OPT("fpreprocessed",            0,      OPT_fpreprocessed)              \
+  DEF_OPT("fshow-column",             0,      OPT_fshow_column)               \
+  DEF_OPT("g",                        no_arg, OPT_g)  /* arg optional */      \
+  DEF_OPT("h",                        0,      OPT_h)                          \
+  DEF_OPT("idirafter",                no_dir, OPT_idirafter)                  \
+  DEF_OPT("imacros",                  no_fil, OPT_imacros)                    \
+  DEF_OPT("include",                  no_fil, OPT_include)                    \
+  DEF_OPT("iprefix",                  no_pth, OPT_iprefix)                    \
+  DEF_OPT("isystem",                  no_dir, OPT_isystem)                    \
+  DEF_OPT("iwithprefix",              no_dir, OPT_iwithprefix)                \
+  DEF_OPT("iwithprefixbefore",        no_dir, OPT_iwithprefixbefore)          \
+  DEF_OPT("lang-asm",                 0,      OPT_lang_asm)                   \
+  DEF_OPT("lang-c",                   0,      OPT_lang_c)                     \
+  DEF_OPT("lang-c++",                 0,      OPT_lang_cplusplus)             \
+  DEF_OPT("lang-c89",                 0,      OPT_lang_c89)                   \
+  DEF_OPT("lang-chill",               0,      OPT_lang_chill)                 \
+  DEF_OPT("lang-fortran",             0,      OPT_lang_fortran)               \
+  DEF_OPT("lang-objc",                0,      OPT_lang_objc)                  \
+  DEF_OPT("lang-objc++",              0,      OPT_lang_objcplusplus)          \
+  DEF_OPT("nostdinc",                 0,      OPT_nostdinc)                   \
+  DEF_OPT("nostdinc++",               0,      OPT_nostdincplusplus)           \
+  DEF_OPT("o",                        no_fil, OPT_o)                          \
+  DEF_OPT("pedantic",                 0,      OPT_pedantic)                   \
+  DEF_OPT("pedantic-errors",          0,      OPT_pedantic_errors)            \
+  DEF_OPT("remap",                    0,      OPT_remap)                      \
+  DEF_OPT("std=c89",                  0,      OPT_std_c89)                    \
+  DEF_OPT("std=c99",                  0,      OPT_std_c99)                    \
+  DEF_OPT("std=c9x",                  0,      OPT_std_c9x)                    \
+  DEF_OPT("std=gnu89",                0,      OPT_std_gnu89)                  \
+  DEF_OPT("std=gnu99",                0,      OPT_std_gnu99)                  \
+  DEF_OPT("std=gnu9x",                0,      OPT_std_gnu9x)                  \
+  DEF_OPT("std=iso9899:1990",         0,      OPT_std_iso9899_1990)           \
+  DEF_OPT("std=iso9899:199409",       0,      OPT_std_iso9899_199409)         \
+  DEF_OPT("std=iso9899:1999",         0,      OPT_std_iso9899_1999)           \
+  DEF_OPT("std=iso9899:199x",         0,      OPT_std_iso9899_199x)           \
+  DEF_OPT("traditional",              0,      OPT_traditional)                \
+  DEF_OPT("trigraphs",                0,      OPT_trigraphs)                  \
+  DEF_OPT("v",                        0,      OPT_v)                          \
+  DEF_OPT("w",                        0,      OPT_w)
+
+#define DEF_OPT(text, msg, code) code,
+enum opt_code
+{
+  COMMAND_LINE_OPTIONS
+  N_OPTS
+};
+#undef DEF_OPT
 
-  return 1;
-}
+struct cl_option
+{
+  const char *opt_text;
+  const char *msg;
+  size_t opt_len;
+  enum opt_code opt_code;
+};
 
-/* This is called at the end of preprocessing.  It pops the
-   last buffer and writes dependency output.  It should also
-   clear macro definitions, such that you could call cpp_start_read
-   with a new filename to restart processing. */
-void
-cpp_finish (pfile)
-     cpp_reader *pfile;
+#define DEF_OPT(text, msg, code) { text, msg, sizeof(text) - 1, code },
+#ifdef HOST_EBCDIC
+static struct cl_option cl_options[] =
+#else
+static const struct cl_option cl_options[] =
+#endif
 {
-  struct cpp_options *opts = CPP_OPTIONS (pfile);
+  COMMAND_LINE_OPTIONS
+};
+#undef DEF_OPT
+#undef COMMAND_LINE_OPTIONS
+
+/* Perform a binary search to find which, if any, option the given
+   command-line matches.  Returns its index in the option array,
+   negative on failure.  Complications arise since some options can be
+   suffixed with an argument, and multiple complete matches can occur,
+   e.g. -iwithprefix and -iwithprefixbefore.  Moreover, we want to
+   accept options beginning with -g and -W that we do not recognise,
+   but not to swallow any subsequent command line argument; these are
+   handled as special cases in cpp_handle_option */
+static int
+parse_option (input)
+     const char *input;
+{
+  unsigned int md, mn, mx;
+  size_t opt_len;
+  int comp;
 
-  if (CPP_PREV_BUFFER (CPP_BUFFER (pfile)) != CPP_NULL_BUFFER (pfile))
-    cpp_ice (pfile, "buffers still stacked in cpp_finish");
-  cpp_pop_buffer (pfile);
+  mn = 0;
+  mx = N_OPTS;
 
-  if (opts->print_deps)
+  while (mx > mn)
     {
-      /* Stream on which to print the dependency information.  */
-      FILE *deps_stream = 0;
+      md = (mn + mx) / 2;
 
-      /* Don't actually write the deps file if compilation has failed.  */
-      if (pfile->errors == 0)
-       {
-         const char *deps_mode = opts->print_deps_append ? "a" : "w";
-         if (opts->deps_file == 0)
-           deps_stream = stdout;
-         else if ((deps_stream = fopen (opts->deps_file, deps_mode)) == 0)
-           cpp_notice_from_errno (pfile, opts->deps_file);
+      opt_len = cl_options[md].opt_len;
+      comp = strncmp (input, cl_options[md].opt_text, opt_len);
 
-         if (deps_stream)
+      if (comp > 0)
+       mn = md + 1;
+      else if (comp < 0)
+       mx = md;
+      else
+       {
+         if (input[opt_len] == '\0')
+           return md;
+         /* We were passed more text.  If the option takes an argument,
+            we may match a later option or we may have been passed the
+            argument.  The longest possible option match succeeds.
+            If the option takes no arguments we have not matched and
+            continue the search (e.g. input="stdc++" match was "stdc") */
+         mn = md + 1;
+         if (cl_options[md].msg)
            {
-             fputs (pfile->deps_buffer, deps_stream);
-             putc ('\n', deps_stream);
-             if (opts->deps_file)
+             /* Scan forwards.  If we get an exact match, return it.
+                Otherwise, return the longest option-accepting match.
+                This loops no more than twice with current options */
+             mx = md;
+             for (; mn < N_OPTS; mn++)
                {
-                 if (ferror (deps_stream) || fclose (deps_stream) != 0)
-                   cpp_fatal (pfile, "I/O error on output");
+                 opt_len = cl_options[mn].opt_len;
+                 if (strncmp (input, cl_options[mn].opt_text, opt_len))
+                   break;
+                 if (input[opt_len] == '\0')
+                   return mn;
+                 if (cl_options[mn].msg)
+                   mx = mn;
                }
+             return mx;
            }
        }
     }
 
-  if (opts->dump_macros == dump_only)
-    {
-      int i;
-      HASHNODE *h;
-      MACRODEF m;
-      for (i = HASHSIZE; --i >= 0;)
-       {
-         for (h = pfile->hashtab[i]; h; h = h->next)
-           if (h->type == T_MACRO)
-             {
-               m.defn = h->value.defn;
-               m.symnam = h->name;
-               m.symlen = h->length;
-               dump_definition (pfile, m);
-               CPP_PUTC (pfile, '\n');
-             }
-       }
-    }
-}
-
-static void
-new_pending_define (opts, text)
-     struct cpp_options *opts;
-     const char *text;
-{
-  struct pending_option *o = (struct pending_option *)
-    xmalloc (sizeof (struct pending_option));
-
-  o->arg = text;
-  o->next = NULL;
-  o->undef = 0;
-  APPEND (opts->pending, define, o);
+  return -1;
 }
 
 /* Handle one command-line option in (argc, argv).
    Can be called multiple times, to handle multiple sets of options.
    Returns number of strings consumed.  */
-int
-cpp_handle_option (pfile, argc, argv)
+
+static int
+handle_option (pfile, argc, argv)
      cpp_reader *pfile;
      int argc;
      char **argv;
 {
-  struct cpp_options *opts = CPP_OPTIONS (pfile);
   int i = 0;
 
   if (argv[i][0] != '-')
     {
-      if (opts->out_fname != NULL)
-       {
-         print_help ();
-         cpp_fatal (pfile, "Too many arguments");
-       }
-      else if (opts->in_fname != NULL)
-       opts->out_fname = argv[i];
+      if (CPP_OPTION (pfile, out_fname) != NULL)
+       cpp_fatal (pfile, "Too many arguments. Type %s --help for usage info",
+                  progname);
+      else if (CPP_OPTION (pfile, in_fname) != NULL)
+       CPP_OPTION (pfile, out_fname) = argv[i];
       else
-       opts->in_fname = argv[i];
+       CPP_OPTION (pfile, in_fname) = argv[i];
     }
   else
-    switch (argv[i][1])
-      {
-      case 'f':
-       if (!strcmp (argv[i], "-fleading-underscore"))
-         user_label_prefix = "_";
-       else if (!strcmp (argv[i], "-fno-leading-underscore"))
-         user_label_prefix = "";
-       else if (!strcmp (argv[i], "-fpreprocessed"))
-         opts->preprocessed = 1;
-       else if (!strcmp (argv[i], "-fno-preprocessed"))
-         opts->preprocessed = 0;
-       else
-         {
-           return i;
-         }
-       break;
-
-      case 'I':                        /* Add directory to path for includes.  */
-       if (!strcmp (argv[i] + 2, "-"))
-         {
-           /* -I- means:
-              Use the preceding -I directories for #include "..."
-              but not #include <...>.
-              Don't search the directory of the present file
-              for #include "...".  (Note that -I. -I- is not the same as
-              the default setup; -I. uses the compiler's working dir.)  */
-           if (! opts->ignore_srcdir)
-             {
-               opts->ignore_srcdir = 1;
-               opts->pending->quote_head = opts->pending->brack_head;
-               opts->pending->quote_tail = opts->pending->brack_tail;
-               opts->pending->brack_head = 0;
-               opts->pending->brack_tail = 0;
-             }
-           else
-             {
-               cpp_fatal (pfile, "-I- specified twice");
-               return argc;
-             }
-         }
-       else
-         {
-           char *fname;
-           if (argv[i][2] != 0)
-             fname = argv[i] + 2;
-           else if (i + 1 == argc)
-             goto missing_dirname;
-           else
-             fname = argv[++i];
-           append_include_chain (pfile, opts->pending,
-                                 xstrdup (fname), BRACKET);
-         }
-       break;
-
-      case 'i':
-       /* Add directory to beginning of system include path, as a system
-          include directory. */
-       if (!strcmp (argv[i], "-isystem"))
-         {
-           if (i + 1 == argc)
-             goto missing_filename;
-           append_include_chain (pfile, opts->pending,
-                                 xstrdup (argv[++i]), SYSTEM);
-         }
-       else if (!strcmp (argv[i], "-include"))
-         {
-           if (i + 1 == argc)
-             goto missing_filename;
-           else
-             {
-               struct pending_option *o = (struct pending_option *)
-                 xmalloc (sizeof (struct pending_option));
-               o->arg = argv[++i];
-
-               /* This list has to be built in reverse order so that
-                  when cpp_start_read pushes all the -include files onto
-                  the buffer stack, they will be scanned in forward order.  */
-               o->next = opts->pending->include_head;
-               opts->pending->include_head = o;
-             }
-         }
-       else if (!strcmp (argv[i], "-imacros"))
-         {
-           if (i + 1 == argc)
-             goto missing_filename;
-           else
-             {
-               struct pending_option *o = (struct pending_option *)
-                 xmalloc (sizeof (struct pending_option));
-               o->arg = argv[++i];
-               o->next = NULL;
-
-               APPEND (opts->pending, imacros, o);
-             }
-         }
-       /* Add directory to end of path for includes,
-          with the default prefix at the front of its name.  */
-       else if (!strcmp (argv[i], "-iwithprefix"))
-         {
-           char *fname;
-           int len;
-           if (i + 1 == argc)
-             goto missing_dirname;
-           ++i;
-           len = strlen (argv[i]);
-
-           if (opts->include_prefix != 0)
-             {
-               fname = xmalloc (opts->include_prefix_len + len + 1);
-               memcpy (fname, opts->include_prefix, opts->include_prefix_len);
-               memcpy (fname + opts->include_prefix_len, argv[i], len + 1);
-             }
-           else
-             {
-               fname = xmalloc (sizeof GCC_INCLUDE_DIR - 8 + len);
-               memcpy (fname, GCC_INCLUDE_DIR, sizeof GCC_INCLUDE_DIR - 9);
-               memcpy (fname + sizeof GCC_INCLUDE_DIR - 9, argv[i], len + 1);
-             }
-         
-           append_include_chain (pfile, opts->pending, fname, SYSTEM);
-         }
-       /* Add directory to main path for includes,
-          with the default prefix at the front of its name.  */
-       else if (!strcmp (argv[i], "-iwithprefixbefore"))
-         {
-           char *fname;
-           int len;
-           if (i + 1 == argc)
-             goto missing_dirname;
-           ++i;
-           len = strlen (argv[i]);
+    {
+      enum opt_code opt_code;
+      int opt_index;
+      const char *arg = 0;
 
-           if (opts->include_prefix != 0)
-             {
-               fname = xmalloc (opts->include_prefix_len + len + 1);
-               memcpy (fname, opts->include_prefix, opts->include_prefix_len);
-               memcpy (fname + opts->include_prefix_len, argv[i], len + 1);
-             }
-           else
-             {
-               fname = xmalloc (sizeof GCC_INCLUDE_DIR - 8 + len);
-               memcpy (fname, GCC_INCLUDE_DIR, sizeof GCC_INCLUDE_DIR - 9);
-               memcpy (fname + sizeof GCC_INCLUDE_DIR - 9, argv[i], len + 1);
-             }
-         
-           append_include_chain (pfile, opts->pending, fname, BRACKET);
-         }
-       /* Add directory to end of path for includes.  */
-       else if (!strcmp (argv[i], "-idirafter"))
-         {
-           if (i + 1 == argc)
-             goto missing_dirname;
-           append_include_chain (pfile, opts->pending,
-                                 xstrdup (argv[++i]), AFTER);
-         }
-       else if (!strcmp (argv[i], "-iprefix"))
-         {
-           if (i + 1 == argc)
-             goto missing_filename;
-           else
-             {
-               opts->include_prefix = argv[++i];
-               opts->include_prefix_len = strlen (argv[i]);
-             }
-         }
-       else if (!strcmp (argv[i], "-ifoutput"))
-         opts->output_conditionals = 1;
+      /* Skip over '-' */
+      opt_index = parse_option (&argv[i][1]);
+      if (opt_index < 0)
+       return i;
 
-       break;
-      
-      case 'o':
-       if (opts->out_fname != NULL)
-         {
-           cpp_fatal (pfile, "Output filename specified twice");
-           return argc;
-         }
-       if (i + 1 == argc)
-         goto missing_filename;
-       opts->out_fname = argv[++i];
-       if (!strcmp (opts->out_fname, "-"))
-         opts->out_fname = "";
-       break;
-      
-      case 'p':
-       if (!strcmp (argv[i], "-pedantic"))
-         CPP_PEDANTIC (pfile) = 1;
-       else if (!strcmp (argv[i], "-pedantic-errors"))
-         {
-           CPP_PEDANTIC (pfile) = 1;
-           opts->pedantic_errors = 1;
-         }
-       break;
-      
-      case 't':
-       if (!strcmp (argv[i], "-traditional"))
-         {
-           opts->traditional = 1;
-           opts->cplusplus_comments = 0;
-           opts->trigraphs = 0;
-           opts->warn_trigraphs = 0;
-         }
-       else if (!strcmp (argv[i], "-trigraphs"))
-         opts->trigraphs = 1;
-       break;
-      
-      case 'l':
-       if (! strcmp (argv[i], "-lang-c"))
-         opts->cplusplus = 0, opts->cplusplus_comments = 1, opts->c89 = 0,
-           opts->c99 = 1, opts->objc = 0;
-       if (! strcmp (argv[i], "-lang-c89"))
-         {
-           opts->cplusplus = 0, opts->cplusplus_comments = 0;
-           opts->c89 = 1, opts->c99 = 0, opts->objc = 0;
-           opts->trigraphs = 1;
-           new_pending_define (opts, "__STRICT_ANSI__");
-         }
-       if (! strcmp (argv[i], "-lang-c++"))
-         opts->cplusplus = 1, opts->cplusplus_comments = 1, opts->c89 = 0,
-           opts->c99 = 0, opts->objc = 0;
-       if (! strcmp (argv[i], "-lang-objc"))
-         opts->cplusplus = 0, opts->cplusplus_comments = 1, opts->c89 = 0,
-           opts->c99 = 0, opts->objc = 1;
-       if (! strcmp (argv[i], "-lang-objc++"))
-         opts->cplusplus = 1, opts->cplusplus_comments = 1, opts->c89 = 0,
-           opts->c99 = 0, opts->objc = 1;
-       if (! strcmp (argv[i], "-lang-asm"))
-         opts->lang_asm = 1;
-       if (! strcmp (argv[i], "-lang-fortran"))
-         opts->lang_fortran = 1, opts->cplusplus_comments = 0;
-       if (! strcmp (argv[i], "-lang-chill"))
-         opts->objc = 0, opts->cplusplus = 0, opts->chill = 1,
-           opts->traditional = 1;
-       break;
-      
-      case '+':
-       opts->cplusplus = 1, opts->cplusplus_comments = 1;
-       break;
+      opt_code = cl_options[opt_index].opt_code;
+      if (cl_options[opt_index].msg)
+       {
+         arg = &argv[i][cl_options[opt_index].opt_len + 1];
 
-      case 's':
-       if (!strcmp (argv[i], "-std=gnu89"))
-         {
-           opts->cplusplus = 0, opts->cplusplus_comments = 1;
-           opts->c89 = 1, opts->c99 = 0, opts->objc = 0;
-         }
-       else if (!strcmp (argv[i], "-std=gnu9x")
-                || !strcmp (argv[i], "-std=gnu99"))
-         {
-           opts->cplusplus = 0, opts->cplusplus_comments = 1;
-           opts->c89 = 0, opts->c99 = 1, opts->objc = 0;
-           new_pending_define (opts, "__STDC_VERSION__=199901L");
-         }
-       else if (!strcmp (argv[i], "-std=iso9899:1990")
-                || !strcmp (argv[i], "-std=c89"))
-         {
-           opts->cplusplus = 0, opts->cplusplus_comments = 0;
-           opts->c89 = 1, opts->c99 = 0, opts->objc = 0;
-           opts->trigraphs = 1;
-           new_pending_define (opts, "__STRICT_ANSI__");
-         }
-       else if (!strcmp (argv[i], "-std=iso9899:199409"))
-         {
-           opts->cplusplus = 0, opts->cplusplus_comments = 0;
-           opts->c89 = 1, opts->c99 = 0, opts->objc = 0;
-           opts->trigraphs = 1;
-           new_pending_define (opts, "__STRICT_ANSI__");
-           new_pending_define (opts, "__STDC_VERSION__=199409L");
-         }
-       else if (!strcmp (argv[i], "-std=iso9899:199x")
-                || !strcmp (argv[i], "-std=iso9899:1999")
-                || !strcmp (argv[i], "-std=c9x")
-                || !strcmp (argv[i], "-std=c99"))
-         {
-           opts->cplusplus = 0, opts->cplusplus_comments = 1;
-           opts->c89 = 0, opts->c99 = 1, opts->objc = 0;
-           opts->trigraphs = 1;
-           new_pending_define (opts, "__STRICT_ANSI__");
-           new_pending_define (opts, "__STDC_VERSION__=199901L");
-         }
-       break;
+         /* Yuk. Special case for -g and -W as they must not swallow
+            up any following argument.  If this becomes common, add
+            another field to the cl_options table */
+         if (arg[0] == '\0' && !(opt_code == OPT_g || opt_code == OPT_W))
+           {
+             arg = argv[++i];
+             if (!arg)
+               {
+                 cpp_fatal (pfile, cl_options[opt_index].msg, argv[i - 1]);
+                 return argc;
+               }
+           }
+       }
 
-      case 'w':
-       opts->inhibit_warnings = 1;
-       break;
-      
-      case 'W':
-       if (!strcmp (argv[i], "-Wtrigraphs"))
-         opts->warn_trigraphs = 1;
-       else if (!strcmp (argv[i], "-Wno-trigraphs"))
-         opts->warn_trigraphs = 0;
-       else if (!strcmp (argv[i], "-Wcomment"))
-         opts->warn_comments = 1;
-       else if (!strcmp (argv[i], "-Wno-comment"))
-         opts->warn_comments = 0;
-       else if (!strcmp (argv[i], "-Wcomments"))
-         opts->warn_comments = 1;
-       else if (!strcmp (argv[i], "-Wno-comments"))
-         opts->warn_comments = 0;
-       else if (!strcmp (argv[i], "-Wtraditional"))
-         opts->warn_stringify = 1;
-       else if (!strcmp (argv[i], "-Wno-traditional"))
-         opts->warn_stringify = 0;
-       else if (!strcmp (argv[i], "-Wundef"))
-         opts->warn_undef = 1;
-       else if (!strcmp (argv[i], "-Wno-undef"))
-         opts->warn_undef = 0;
-       else if (!strcmp (argv[i], "-Wimport"))
-         opts->warn_import = 1;
-       else if (!strcmp (argv[i], "-Wno-import"))
-         opts->warn_import = 0;
-       else if (!strcmp (argv[i], "-Werror"))
-         opts->warnings_are_errors = 1;
-       else if (!strcmp (argv[i], "-Wno-error"))
-         opts->warnings_are_errors = 0;
-       else if (!strcmp (argv[i], "-Wall"))
-         {
-           opts->warn_trigraphs = 1;
-           opts->warn_comments = 1;
-         }
-       break;
-      
-      case 'M':
-       /* The style of the choices here is a bit mixed.
-          The chosen scheme is a hybrid of keeping all options in one string
-          and specifying each option in a separate argument:
-          -M|-MM|-MD file|-MMD file [-MG].  An alternative is:
-          -M|-MM|-MD file|-MMD file|-MG|-MMG; or more concisely:
-          -M[M][G][D file].  This is awkward to handle in specs, and is not
-          as extensible.  */
-       /* ??? -MG must be specified in addition to one of -M or -MM.
-          This can be relaxed in the future without breaking anything.
-          The converse isn't true.  */
-      
-       /* -MG isn't valid with -MD or -MMD.  This is checked for later.  */
-       if (!strcmp (argv[i], "-MG"))
-         {
-           opts->print_deps_missing_files = 1;
-           break;
-         }
-       if (!strcmp (argv[i], "-M"))
-         opts->print_deps = 2;
-       else if (!strcmp (argv[i], "-MM"))
-         opts->print_deps = 1;
-       else if (!strcmp (argv[i], "-MD"))
-         opts->print_deps = 2;
-       else if (!strcmp (argv[i], "-MMD"))
-         opts->print_deps = 1;
-       /* For -MD and -MMD options, write deps on file named by next arg.  */
-       if (!strcmp (argv[i], "-MD") || !strcmp (argv[i], "-MMD"))
-         {
-           if (i+1 == argc)
-             goto missing_filename;
-           opts->deps_file = argv[++i];
-         }
-       else
-         {
-           /* For -M and -MM, write deps on standard output
-              and suppress the usual output.  */
-           opts->no_output = 1;
-         }       
-       break;
-      
-      case 'd':
+      switch (opt_code)
        {
-         char *p = argv[i] + 2;
-         char c;
-         while ((c = *p++) != 0)
+       case N_OPTS: /* shut GCC up */
+         break;
+       case OPT_fleading_underscore:
+         user_label_prefix = "_";
+         break;
+       case OPT_fno_leading_underscore:
+         user_label_prefix = "";
+         break;
+       case OPT_fpreprocessed:
+         CPP_OPTION (pfile, preprocessed) = 1;
+         break;
+       case OPT_fno_preprocessed:
+         CPP_OPTION (pfile, preprocessed) = 0;
+         break;
+       case OPT_fshow_column:
+         CPP_OPTION (pfile, show_column) = 1;
+         break;
+       case OPT_fno_show_column:
+         CPP_OPTION (pfile, show_column) = 0;
+         break;
+       case OPT_w:
+         CPP_OPTION (pfile, inhibit_warnings) = 1;
+         break;
+       case OPT_g:  /* Silently ignore anything but -g3 */
+         if (!strcmp(&argv[i][2], "3"))
+           CPP_OPTION (pfile, debug_output) = 1;
+         break;
+       case OPT_h:
+       case OPT__help:
+         print_help ();
+         exit (0);  /* XXX */
+         break;
+       case OPT__version:
+         fprintf (stderr, _("GNU CPP version %s (cpplib)\n"), version_string);
+         exit (0);  /* XXX */
+         break;
+       case OPT_C:
+         CPP_OPTION (pfile, discard_comments) = 0;
+         break;
+       case OPT_P:
+         CPP_OPTION (pfile, no_line_commands) = 1;
+         break;
+       case OPT_dollar:                /* Don't include $ in identifiers.  */
+         CPP_OPTION (pfile, dollars_in_ident) = 0;
+         break;
+       case OPT_H:
+         CPP_OPTION (pfile, print_include_names) = 1;
+         break;
+       case OPT_D:
+         new_pending_directive (CPP_OPTION (pfile, pending), arg, cpp_define);
+         break;
+       case OPT_pedantic_errors:
+         CPP_OPTION (pfile, pedantic_errors) = 1;
+         /* fall through */
+       case OPT_pedantic:
+         CPP_OPTION (pfile, pedantic) = 1;
+         break;
+       case OPT_traditional:
+         CPP_OPTION (pfile, traditional) = 1;
+         CPP_OPTION (pfile, cplusplus_comments) = 0;
+         CPP_OPTION (pfile, trigraphs) = 0;
+         CPP_OPTION (pfile, warn_trigraphs) = 0;
+         break;
+       case OPT_trigraphs:
+         CPP_OPTION (pfile, trigraphs) = 1;
+         break;
+       case OPT_plus:
+         CPP_OPTION (pfile, cplusplus) = 1;
+         CPP_OPTION (pfile, cplusplus_comments) = 1;
+         break;
+       case OPT_remap:
+         CPP_OPTION (pfile, remap) = 1;
+         break;
+       case OPT_iprefix:
+         CPP_OPTION (pfile, include_prefix) = arg;
+         CPP_OPTION (pfile, include_prefix_len) = strlen (arg);
+         break;
+       case OPT_lang_c:
+         CPP_OPTION (pfile, cplusplus) = 0;
+         CPP_OPTION (pfile, cplusplus_comments) = 1;
+         CPP_OPTION (pfile, c89) = 0;
+         CPP_OPTION (pfile, c99) = 1;
+         CPP_OPTION (pfile, objc) = 0;
+         break;
+       case OPT_lang_c89:
+         CPP_OPTION (pfile, cplusplus) = 0;
+         CPP_OPTION (pfile, cplusplus_comments) = 0;
+         CPP_OPTION (pfile, c89) = 1;
+         CPP_OPTION (pfile, c99) = 0;
+         CPP_OPTION (pfile, objc) = 0;
+         CPP_OPTION (pfile, trigraphs) = 1;
+         new_pending_directive (CPP_OPTION (pfile, pending),
+                                "__STRICT_ANSI__", cpp_define);
+         break;
+       case OPT_lang_cplusplus:
+         CPP_OPTION (pfile, cplusplus) = 1;
+         CPP_OPTION (pfile, cplusplus_comments) = 1;
+         CPP_OPTION (pfile, c89) = 0;
+         CPP_OPTION (pfile, c99) = 0;
+         CPP_OPTION (pfile, objc) = 0;
+         break;
+       case OPT_lang_objc:
+       case OPT_lang_objcplusplus:
+         CPP_OPTION (pfile, cplusplus) = opt_code == OPT_lang_objcplusplus;
+         CPP_OPTION (pfile, cplusplus_comments) = 1;
+         CPP_OPTION (pfile, c89) = 0;
+         CPP_OPTION (pfile, c99) = 0;
+         CPP_OPTION (pfile, objc) = 1;
+         break;
+       case OPT_lang_asm:
+         CPP_OPTION (pfile, lang_asm) = 1;
+         break;
+       case OPT_lang_fortran:
+         CPP_OPTION (pfile, lang_fortran) = 1;
+         CPP_OPTION (pfile, cplusplus_comments) = 0;
+         break;
+       case OPT_lang_chill:
+         CPP_OPTION (pfile, objc) = 0;
+         CPP_OPTION (pfile, cplusplus) = 0;
+         CPP_OPTION (pfile, chill) = 1;
+         CPP_OPTION (pfile, traditional) = 1;
+         break;
+       case OPT_nostdinc:
+         /* -nostdinc causes no default include directories.
+            You must specify all include-file directories with -I.  */
+         CPP_OPTION (pfile, no_standard_includes) = 1;
+         break;
+       case OPT_nostdincplusplus:
+         /* -nostdinc++ causes no default C++-specific include directories. */
+         CPP_OPTION (pfile, no_standard_cplusplus_includes) = 1;
+         break;
+       case OPT_std_gnu89:
+         CPP_OPTION (pfile, cplusplus) = 0;
+         CPP_OPTION (pfile, cplusplus_comments) = 1;
+         CPP_OPTION (pfile, c89) = 1;
+         CPP_OPTION (pfile, c99) = 0;
+         CPP_OPTION (pfile, objc) = 0;
+         break;
+       case OPT_std_gnu9x:
+       case OPT_std_gnu99:
+         CPP_OPTION (pfile, cplusplus) = 0;
+         CPP_OPTION (pfile, cplusplus_comments) = 1;
+         CPP_OPTION (pfile, c89) = 0;
+         CPP_OPTION (pfile, c99) = 1;
+         CPP_OPTION (pfile, objc) = 0;
+         new_pending_directive (CPP_OPTION (pfile, pending),
+                                "__STDC_VERSION__=199901L", cpp_define);
+         break;
+       case OPT_std_iso9899_199409:
+         new_pending_directive (CPP_OPTION (pfile, pending),
+                                "__STDC_VERSION__=199409L", cpp_define);
+         /* Fall through */
+       case OPT_std_iso9899_1990:
+       case OPT_std_c89:
+         CPP_OPTION (pfile, cplusplus) = 0;
+         CPP_OPTION (pfile, cplusplus_comments) = 0;
+         CPP_OPTION (pfile, c89) = 1;
+         CPP_OPTION (pfile, c99) = 0;
+         CPP_OPTION (pfile, objc) = 0;
+         CPP_OPTION (pfile, trigraphs) = 1;
+         new_pending_directive (CPP_OPTION (pfile, pending),
+                                "__STRICT_ANSI__", cpp_define);
+         break;
+       case OPT_std_iso9899_199x:
+       case OPT_std_iso9899_1999:
+       case OPT_std_c9x:
+       case OPT_std_c99:
+         CPP_OPTION (pfile, cplusplus) = 0;
+         CPP_OPTION (pfile, cplusplus_comments) = 1;
+         CPP_OPTION (pfile, c89) = 0;
+         CPP_OPTION (pfile, c99) = 1;
+         CPP_OPTION (pfile, objc) = 0;
+         CPP_OPTION (pfile, trigraphs) = 1;
+         new_pending_directive (CPP_OPTION (pfile, pending),
+                                "__STRICT_ANSI__", cpp_define);
+         new_pending_directive (CPP_OPTION (pfile, pending),
+                                "__STDC_VERSION__=199901L", cpp_define);
+         break;
+       case OPT_o:
+         if (CPP_OPTION (pfile, out_fname) != NULL)
            {
-             /* Arg to -d specifies what parts of macros to dump */
-             switch (c)
-               {
-               case 'M':
-                 opts->dump_macros = dump_only;
-                 opts->no_output = 1;
+             cpp_fatal (pfile, "Output filename specified twice");
+             return argc;
+           }
+         CPP_OPTION (pfile, out_fname) = arg;
+         if (!strcmp (CPP_OPTION (pfile, out_fname), "-"))
+           CPP_OPTION (pfile, out_fname) = "";
+         break;
+       case OPT_v:
+         fprintf (stderr, _("GNU CPP version %s (cpplib)\n"), version_string);
+#ifdef TARGET_VERSION
+         TARGET_VERSION;
+#endif
+         fputc ('\n', stderr);
+         CPP_OPTION (pfile, verbose) = 1;
+         break;
+       case OPT_stdin_stdout:
+         /* JF handle '-' as file name meaning stdin or stdout */
+         if (CPP_OPTION (pfile, in_fname) == NULL)
+           CPP_OPTION (pfile, in_fname) = "";
+         else if (CPP_OPTION (pfile, out_fname) == NULL)
+           CPP_OPTION (pfile, out_fname) = "";
+         break;
+       case OPT_d:
+         /* Args to -d specify what parts of macros to dump.
+            Silently ignore unrecognised options; they may
+            be aimed at the compiler proper. */
+         {
+           char c;
+
+           while ((c = *arg++) != '\0')
+             switch (c)
+               {
+               case 'M':
+                 CPP_OPTION (pfile, dump_macros) = dump_only;
+                 CPP_OPTION (pfile, no_output) = 1;
                  break;
                case 'N':
-                 opts->dump_macros = dump_names;
+                 CPP_OPTION (pfile, dump_macros) = dump_names;
                  break;
                case 'D':
-                 opts->dump_macros = dump_definitions;
+                 CPP_OPTION (pfile, dump_macros) = dump_definitions;
                  break;
                case 'I':
-                 opts->dump_includes = 1;
+                 CPP_OPTION (pfile, dump_includes) = 1;
                  break;
                }
-           }
-       }
-       break;
-    
-      case 'g':
-       if (argv[i][2] == '3')
-         opts->debug_output = 1;
-       break;
-      
-      case '-':
-       if (!strcmp (argv[i], "--help"))
-         print_help ();
-       else if (!strcmp (argv[i], "--version"))
-         fprintf (stderr, _("GNU CPP version %s (cpplib)\n"), version_string);
-       exit (0);  /* XXX */
-       break;
-       
-      case 'v':
-       fprintf (stderr, _("GNU CPP version %s (cpplib)\n"), version_string);
-#ifdef TARGET_VERSION
-       TARGET_VERSION;
-#endif
-       fputc ('\n', stderr);
-       opts->verbose = 1;
-       break;
-      
-      case 'H':
-       opts->print_include_names = 1;
-       break;
-      
-      case 'D':
-       {
-         const char *text;
-         if (argv[i][2] != 0)
-           text = argv[i] + 2;
-         else if (i + 1 == argc)
-           {
-             cpp_fatal (pfile, "Macro name missing after -D option");
-             return argc;
-           }
-         else
-           text = argv[++i];
-         new_pending_define (opts, text);
-       }
-       break;
-      
-      case 'A':
-       {
-         char *p;
-       
-         if (argv[i][2] != 0)
-           p = argv[i] + 2;
-         else if (i + 1 == argc)
-           {
-             cpp_fatal (pfile, "Assertion missing after -A option");
-             return argc;
-           }
-         else
-           p = argv[++i];
-       
-         if (strcmp (p, "-"))
+         }
+         break;
+         /* The style of the choices here is a bit mixed.
+            The chosen scheme is a hybrid of keeping all options in one string
+            and specifying each option in a separate argument:
+            -M|-MM|-MD file|-MMD file [-MG].  An alternative is:
+            -M|-MM|-MD file|-MMD file|-MG|-MMG; or more concisely:
+            -M[M][G][D file].  This is awkward to handle in specs, and is not
+            as extensible.  */
+         /* ??? -MG must be specified in addition to one of -M or -MM.
+            This can be relaxed in the future without breaking anything.
+            The converse isn't true.  */
+
+         /* -MG isn't valid with -MD or -MMD.  This is checked for later.  */
+       case OPT_MG:
+         CPP_OPTION (pfile, print_deps_missing_files) = 1;
+         break;
+       case OPT_M:
+       case OPT_MD:
+       case OPT_MM:
+       case OPT_MMD:
+         if (opt_code == OPT_M || opt_code == OPT_MD)
+           CPP_OPTION (pfile, print_deps) = 2;
+         else
+           CPP_OPTION (pfile, print_deps) = 1;
+
+         /* For -MD and -MMD options, write deps on file named by next arg */
+         /* For -M and -MM, write deps on standard output
+            and suppress the usual output.  */
+         if (opt_code == OPT_MD || opt_code == OPT_MMD)
+             CPP_OPTION (pfile, deps_file) = arg;
+         else
+             CPP_OPTION (pfile, no_output) = 1;
+         break;
+       case OPT_A:
+         if (arg[0] == '-')
            {
-             struct pending_option *o = (struct pending_option *)
-               xmalloc (sizeof (struct pending_option));
+             /* -A with an argument beginning with '-' acts as
+                #unassert on whatever immediately follows the '-'.
+                If "-" is the whole argument, we eliminate all
+                predefined macros and assertions, including those
+                that were specified earlier on the command line.
+                That way we can get rid of any that were passed
+                automatically in from GCC.  */
+
+             if (arg[1] == '\0')
+               {
+                 struct pending_option *o1, *o2;
 
-             o->arg = p;
-             o->next = NULL;
-             o->undef = 0;
-             APPEND (opts->pending, assert, o);
+                 o1 = CPP_OPTION (pfile, pending)->directive_head;
+                 while (o1)
+                   {
+                     o2 = o1->next;
+                     free (o1);
+                     o1 = o2;
+                   }
+                 CPP_OPTION (pfile, pending)->directive_head = NULL;
+                 CPP_OPTION (pfile, pending)->directive_tail = NULL;
+               }
+             else
+               new_pending_directive (CPP_OPTION (pfile, pending),
+                                      arg + 1, cpp_unassert);
            }
          else
-           {
-             /* -A- eliminates all predefined macros and assertions.
-                Let's include also any that were specified earlier
-                on the command line.  That way we can get rid of any
-                that were passed automatically in from GCC.  */
-             struct pending_option *o1, *o2;
-
-             o1 = opts->pending->define_head;
-             while (o1)
+           new_pending_directive (CPP_OPTION (pfile, pending),
+                                  arg, cpp_assert);
+         break;
+       case OPT_U:
+         new_pending_directive (CPP_OPTION (pfile, pending), arg, cpp_undef);
+         break;
+       case OPT_I:           /* Add directory to path for includes.  */
+         if (!strcmp (arg, "-"))
+           {
+             /* -I- means:
+                Use the preceding -I directories for #include "..."
+                but not #include <...>.
+                Don't search the directory of the present file
+                for #include "...".  (Note that -I. -I- is not the same as
+                the default setup; -I. uses the compiler's working dir.)  */
+             if (! CPP_OPTION (pfile, ignore_srcdir))
                {
-                 o2 = o1->next;
-                 free (o1);
-                 o1 = o2;
+                 struct cpp_pending *pend = CPP_OPTION (pfile, pending);
+                 pend->quote_head = pend->brack_head;
+                 pend->quote_tail = pend->brack_tail;
+                 pend->brack_head = 0;
+                 pend->brack_tail = 0;
+                 CPP_OPTION (pfile, ignore_srcdir) = 1;
                }
-             o1 = opts->pending->assert_head;
-             while (o1)
+             else
                {
-                 o2 = o1->next;
-                 free (o1);
-                 o1 = o2;
+                 cpp_fatal (pfile, "-I- specified twice");
+                 return argc;
                }
-             opts->pending->assert_head = NULL;
-             opts->pending->assert_tail = NULL;
-             opts->pending->define_head = NULL;
-             opts->pending->define_tail = NULL;
-           }
-       }
-       break;
-    
-      case 'U':
-       {
-         struct pending_option *o = (struct pending_option *)
-           xmalloc (sizeof (struct pending_option));
-         
-         if (argv[i][2] != 0)
-           o->arg = argv[i] + 2;
-         else if (i + 1 == argc)
-           {
-             cpp_fatal (pfile, "Macro name missing after -U option");
-             return argc;
-           }
-         else
-           o->arg = argv[++i];
+           }
+         else
+           append_include_chain (pfile, CPP_OPTION (pfile, pending),
+                                 xstrdup (arg), BRACKET, 0);
+         break;
+       case OPT_isystem:
+         /* Add directory to beginning of system include path, as a system
+            include directory. */
+         append_include_chain (pfile, CPP_OPTION (pfile, pending),
+                               xstrdup (arg), SYSTEM, 0);
+         break;
+       case OPT_include:
+         {
+           struct pending_option *o = (struct pending_option *)
+             xmalloc (sizeof (struct pending_option));
+           o->arg = arg;
+
+           /* This list has to be built in reverse order so that
+              when cpp_start_read pushes all the -include files onto
+              the buffer stack, they will be scanned in forward order.  */
+           o->next = CPP_OPTION (pfile, pending)->include_head;
+           CPP_OPTION (pfile, pending)->include_head = o;
+         }
+         break;
+       case OPT_imacros:
+         {
+           struct pending_option *o = (struct pending_option *)
+             xmalloc (sizeof (struct pending_option));
+           o->arg = arg;
+           o->next = NULL;
 
-         o->next = NULL;
-         o->undef = 1;
-         APPEND (opts->pending, define, o);
-       }
-       break;
-      
-      case 'C':
-       opts->discard_comments = 0;
-       break;
-      
-      case 'E':                        /* -E comes from cc -E; ignore it.  */
-       break;
-      
-      case 'P':
-       opts->no_line_commands = 1;
-       break;
-      
-      case '$':                        /* Don't include $ in identifiers.  */
-       opts->dollars_in_ident = 0;
-       break;
-      
-      case 'n':
-       if (!strcmp (argv[i], "-nostdinc"))
-         /* -nostdinc causes no default include directories.
-            You must specify all include-file directories with -I.  */
-         opts->no_standard_includes = 1;
-       else if (!strcmp (argv[i], "-nostdinc++"))
-         /* -nostdinc++ causes no default C++-specific include directories. */
-         opts->no_standard_cplusplus_includes = 1;
-       break;
-      
-      case 'r':
-       if (!strcmp (argv[i], "-remap"))
-         opts->remap = 1;
-       break;
-      
-      case '\0': /* JF handle '-' as file name meaning stdin or stdout */
-       if (opts->in_fname == NULL)
-         opts->in_fname = "";
-       else if (opts->out_fname == NULL)
-         opts->out_fname = "";
-       else
-         return i;  /* error */
-       break;
+           APPEND (CPP_OPTION (pfile, pending), imacros, o);
+         }
+         break;
+       case OPT_iwithprefix:
+         /* Add directory to end of path for includes,
+            with the default prefix at the front of its name.  */
+         /* fall through */
+       case OPT_iwithprefixbefore:
+         /* Add directory to main path for includes,
+            with the default prefix at the front of its name.  */
+         {
+           char *fname;
+           int len;
 
-      default:
-       return i;
-      }
+           len = strlen (arg);
 
+           if (CPP_OPTION (pfile, include_prefix) != 0)
+             {
+               size_t ipl = CPP_OPTION (pfile, include_prefix_len);
+               fname = xmalloc (ipl + len + 1);
+               memcpy (fname, CPP_OPTION (pfile, include_prefix), ipl);
+               memcpy (fname + ipl, arg, len + 1);
+             }
+           else
+             {
+               fname = xmalloc (sizeof GCC_INCLUDE_DIR - 8 + len);
+               memcpy (fname, GCC_INCLUDE_DIR, sizeof GCC_INCLUDE_DIR - 9);
+               memcpy (fname + sizeof GCC_INCLUDE_DIR - 9, arg, len + 1);
+             }
+
+           append_include_chain (pfile, CPP_OPTION (pfile, pending), fname,
+                         opt_code == OPT_iwithprefix ? SYSTEM: BRACKET, 0);
+         }
+         break;
+       case OPT_idirafter:
+         /* Add directory to end of path for includes.  */
+         append_include_chain (pfile, CPP_OPTION (pfile, pending),
+                               xstrdup (arg), AFTER, 0);
+         break;
+       case OPT_W:
+         /* Silently ignore unrecognised options */
+         if (!strcmp (argv[i], "-Wall"))
+           {
+             CPP_OPTION (pfile, warn_trigraphs) = 1;
+             CPP_OPTION (pfile, warn_comments) = 1;
+           }
+         else if (!strcmp (argv[i], "-Wtraditional"))
+           CPP_OPTION (pfile, warn_traditional) = 1;
+         else if (!strcmp (argv[i], "-Wtrigraphs"))
+           CPP_OPTION (pfile, warn_trigraphs) = 1;
+         else if (!strcmp (argv[i], "-Wcomment"))
+           CPP_OPTION (pfile, warn_comments) = 1;
+         else if (!strcmp (argv[i], "-Wcomments"))
+           CPP_OPTION (pfile, warn_comments) = 1;
+         else if (!strcmp (argv[i], "-Wundef"))
+           CPP_OPTION (pfile, warn_undef) = 1;
+         else if (!strcmp (argv[i], "-Wimport"))
+           CPP_OPTION (pfile, warn_import) = 1;
+         else if (!strcmp (argv[i], "-Werror"))
+           CPP_OPTION (pfile, warnings_are_errors) = 1;
+         else if (!strcmp (argv[i], "-Wno-traditional"))
+           CPP_OPTION (pfile, warn_traditional) = 0;
+         else if (!strcmp (argv[i], "-Wno-trigraphs"))
+           CPP_OPTION (pfile, warn_trigraphs) = 0;
+         else if (!strcmp (argv[i], "-Wno-comment"))
+           CPP_OPTION (pfile, warn_comments) = 0;
+         else if (!strcmp (argv[i], "-Wno-comments"))
+           CPP_OPTION (pfile, warn_comments) = 0;
+         else if (!strcmp (argv[i], "-Wno-undef"))
+           CPP_OPTION (pfile, warn_undef) = 0;
+         else if (!strcmp (argv[i], "-Wno-import"))
+           CPP_OPTION (pfile, warn_import) = 0;
+         else if (!strcmp (argv[i], "-Wno-error"))
+           CPP_OPTION (pfile, warnings_are_errors) = 0;
+         break;
+       }
+    }
   return i + 1;
+}
 
- missing_filename:
-  cpp_fatal (pfile, "Filename missing after `%s' option", argv[i]);
-  return argc;
- missing_dirname:
-  cpp_fatal (pfile, "Directory name missing after `%s' option", argv[i]);
-  return argc;
+#ifdef HOST_EBCDIC
+static int
+opt_comp (const void *p1, const void *p2)
+{
+  return strcmp (((struct cl_option *)p1)->opt_text,
+                ((struct cl_option *)p2)->opt_text);
 }
+#endif
 
 /* Handle command-line options in (argc, argv).
    Can be called multiple times, to handle multiple sets of options.
    Returns if an unrecognized option is seen.
    Returns number of strings consumed.  */
-
 int
 cpp_handle_options (pfile, argc, argv)
      cpp_reader *pfile;
@@ -1666,9 +1738,21 @@ cpp_handle_options (pfile, argc, argv)
 {
   int i;
   int strings_processed;
+
+#ifdef HOST_EBCDIC
+  static int opts_sorted = 0;
+
+  if (!opts_sorted)
+    {
+      opts_sorted = 1;
+      /* For non-ASCII hosts, the array needs to be sorted at runtime */
+      qsort (cl_options, N_OPTS, sizeof (struct cl_option), opt_comp);
+    }
+#endif
+
   for (i = 0; i < argc; i += strings_processed)
     {
-      strings_processed = cpp_handle_option (pfile, argc - i, argv + i);
+      strings_processed = handle_option (pfile, argc - i, argv + i);
       if (strings_processed == 0)
        break;
     }
@@ -1689,11 +1773,13 @@ Switches:\n\
   -isystem <dir>            Add <dir> to the start of the system include path\n\
   -idirafter <dir>          Add <dir> to the end of the system include path\n\
   -I <dir>                  Add <dir> to the end of the main include path\n\
+  -I-                       Fine-grained include path control; see info docs\n\
   -nostdinc                 Do not search system include directories\n\
                              (dirs specified with -isystem will still be used)\n\
   -nostdinc++               Do not search system include directories for C++\n\
   -o <file>                 Put output into <file>\n\
   -pedantic                 Issue all warnings demanded by strict ANSI C\n\
+  -pedantic-errors          Issue -pedantic warnings as errors instead\n\
   -traditional              Follow K&R pre-processor behaviour\n\
   -trigraphs                Support ANSI C trigraphs\n\
   -lang-c                   Assume that the input sources are in C\n\
@@ -1728,10 +1814,11 @@ Switches:\n\
   -MD                       As -M, but put output in a .d file\n\
   -MMD                      As -MD, but ignore system header files\n\
   -MG                       Treat missing header file as generated files\n\
-  -g                        Include #define and #undef directives in the output\n\
+  -g3                       Include #define and #undef directives in the output\n\
   -D<macro>                 Define a <macro> with string '1' as its value\n\
   -D<macro>=<val>           Define a <macro> with <val> as its value\n\
   -A<question> (<answer>)   Assert the <answer> to <question>\n\
+  -A-<question> (<answer>)  Disable the <answer> to <question>\n\
   -U<macro>                 Undefine <macro> \n\
   -v                        Display the version number\n\
   -H                        Print the name of header files as they are used\n\
@@ -1740,10 +1827,10 @@ Switches:\n\
   -dD                       Preserve macro definitions in output\n\
   -dN                       As -dD except that only the names are preserved\n\
   -dI                       Include #include directives in the output\n\
-  -ifoutput                 Describe skipped code blocks in output \n\
   -P                        Do not generate #line directives\n\
   -$                        Do not allow '$' in identifiers\n\
   -remap                    Remap file names when including files.\n\
+  --version                 Display version information\n\
   -h or --help              Display this information\n\
 "), stdout);
 }