src/main.c

   1 /* Top level entry point of bison,
   2    Copyright 1984, 1986, 1989, 1992, 1995, 2000, 2001
   3    Free Software Foundation, Inc.
   4
   5    This file is part of Bison, the GNU Compiler Compiler.
   6
   7    Bison is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2, or (at your option)
  10    any later version.
  11
  12    Bison is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with Bison; see the file COPYING.  If not, write to
  19    the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20    Boston, MA 02111-1307, USA.  */
  21
  22
  23 #include "system.h"
  24 #include "getargs.h"
  25 #include "files.h"
  26 #include "complain.h"
  27 #include "derives.h"
  28 #include "output.h"
  29 #include "reader.h"
  30 #include "lalr.h"
  31 #include "reduce.h"
  32 #include "nullable.h"
  33 #include "print.h"
  34 #include "LR0.h"
  35 #include "conflicts.h"
  36 #include "print_graph.h"
  37 #include "muscle_tab.h"
  38 #include "symtab.h"
  39 #include "lex.h"
  40
  41 /* The name this program was run with, for messages.  */
  42 char *program_name;
  43
  44 extern void berror PARAMS((const char *));
  45
  46 int
  47 main (int argc, char *argv[])
  48 {
  49   program_name = argv[0];
  50   setlocale (LC_ALL, "");
  51   bindtextdomain (PACKAGE, LOCALEDIR);
  52   textdomain (PACKAGE);
  53
  54   lineno = 0;
  55   getargs (argc, argv);
  56
  57   muscle_init ();
  58   open_files ();
  59
  60   /* Read the input.  Copy some parts of it to FGUARD, FACTION, FTABLE
  61      and FATTRS.  In file reader.c.  The other parts are recorded in
  62      the grammar; see gram.h.  */
  63   reader ();
  64   if (complain_message_count)
  65     exit (1);
  66
  67   /* Find useless nonterminals and productions and reduce the grammar. */
  68   reduce_grammar ();
  69
  70   /* Record other info about the grammar.  In files derives and
  71      nullable.  */
  72   set_derives ();
  73   set_nullable ();
  74
  75   /* Convert to nondeterministic finite state machine.  In file LR0.
  76      See state.h for more info.  */
  77   generate_states ();
  78
  79   /* make it deterministic.  In file lalr.  */
  80   lalr ();
  81
  82   /* Find and record any conflicts: places where one token of
  83      lookahead is not enough to disambiguate the parsing.  In file
  84      conflicts.  Also resolve s/r conflicts based on precedence
  85      declarations.  */
  86   solve_conflicts ();
  87   conflicts_print ();
  88
  89   /* Output file names. */
  90   compute_output_file_names ();
  91
  92   /* Stop if there were errors, to avoid trashing previous output
  93      files.  */
  94   if (complain_message_count)
  95     exit (1);
  96
  97   /* Output the detailed report on the grammar.  */
  98   print_results ();
  99
 100   /* Output the VCG graph.  */
 101   print_graph ();
 102
 103   /* Output the tables and the parser to ftable.  In file output.  */
 104   output ();
 105
 106   /* Close the input files. */
 107   close_files ();
 108
 109   /* Free the symbol table data structure.  */
 110   free_symtab ();
 111
 112   lex_free ();
 113
 114   reduce_free ();
 115   free_conflicts ();
 116   free_nullable ();
 117   free_derives ();
 118
 119   output_files ();
 120
 121   /* If using alloca.c, flush the alloca'ed memory for the benefit of
 122      people running Bison as a library in IDEs.  */
 123 #if C_ALLOCA
 124     alloca (0);
 125 #endif
 126
 127   return complain_message_count ? EXIT_FAILURE : EXIT_SUCCESS;
 128 }
 129 \f
 130 /* Abort for an internal error denoted by string S.  */
 131
 132 void
 133 berror (const char *s)
 134 {
 135   fprintf (stderr, _("%s: internal error: %s\n"), program_name, s);
 136   abort ();
 137 }