* data/bison.simple (m4_if): Don't output empty enums.

[bison.git] / src / gram.c

diff --git a/src/gram.c b/src/gram.c
index 57333e3eecd7f90764d38cd9e1367784deacfe49..75546603758b7f85cdd0711c89a657b357862e9d 100644 (file)
--- a/src/gram.c
+++ b/src/gram.c
@@ -1,5 +1,5 @@
 /* Allocate input grammar variables for bison,
 /* Allocate input grammar variables for bison,

-   Copyright 1984, 1986, 1989, 2001, 2002 Free Software Foundation, Inc.
+   Copyright (C) 1984, 1986, 1989, 2001, 2002 Free Software Foundation, Inc.

 
    This file is part of Bison, the GNU Compiler Compiler.
 
 
    This file is part of Bison, the GNU Compiler Compiler.
 


@@ -20,35 +20,32 @@
 
 
 #include "system.h"
 
 
 #include "system.h"

-#include "gram.h"
+#include "quotearg.h"

 #include "symtab.h"
 #include "symtab.h"

+#include "gram.h"
+#include "reduce.h"

 #include "reader.h"
 
 /* comments for these variables are in gram.h  */
 
 #include "reader.h"
 
 /* comments for these variables are in gram.h  */
 

-int nitems;
-int nrules;
-int nsyms;
-int ntokens;
-int nvars;
-
-short *ritem = NULL;
-int nritems;
+item_number_t *ritem = NULL;
+int nritems = 0;

 
 rule_t *rules = NULL;
 
 rule_t *rules = NULL;

+int nrules = 0;

 
 

-struct bucket **symbols = NULL;
-short *token_translations = NULL;
-
-int start_symbol;
+symbol_t **symbols = NULL;
+int nsyms = 0;
+int ntokens = 1;
+int nvars = 0;

 
 

-int max_user_token_number;
+token_number_t *token_translations = NULL;

 
 

-int semantic_parser;
+token_number_t start_symbol = 0;

 
 

-int pure_parser;
+int max_user_token_number = 256;

 
 

-int error_token_number;
+int pure_parser = 0;

 
 
 /*--------------------------------------.
 
 
 /*--------------------------------------.


@@ -59,7 +56,7 @@ int
 rule_rhs_length (rule_t *rule)
 {
   int res = 0;
 rule_rhs_length (rule_t *rule)
 {
   int res = 0;

-  short *rhsp;
+  item_number_t *rhsp;

   for (rhsp = rule->rhs; *rhsp >= 0; ++rhsp)
     ++res;
   return res;
   for (rhsp = rule->rhs; *rhsp >= 0; ++rhsp)
     ++res;
   return res;


@@ -77,7 +74,8 @@ ritem_print (FILE *out)
   fputs ("RITEM\n", out);
   for (i = 0; i < nritems; ++i)
     if (ritem[i] >= 0)
   fputs ("RITEM\n", out);
   for (i = 0; i < nritems; ++i)
     if (ritem[i] >= 0)

-      fprintf (out, "  %s", symbols[ritem[i]]->tag);
+      fprintf (out, "  %s", quotearg_style (escape_quoting_style,
+                                           symbols[ritem[i]]->tag));

     else
       fprintf (out, "  (rule %d)\n", -ritem[i] - 1);
   fputs ("\n\n", out);
     else
       fprintf (out, "  (rule %d)\n", -ritem[i] - 1);
   fputs ("\n\n", out);


@@ -103,3 +101,61 @@ ritem_longest_rhs (void)
 
   return max;
 }
 
   return max;
 }

+
+
+/*-------------------.
+| Dump the grammar.  |
+`-------------------*/
+
+void
+grammar_dump (FILE *out, const char *title)
+{
+  int i;
+  item_number_t *r;
+
+  fprintf (out, "%s\n\n", title);
+  fprintf (out,
+          "ntokens = %d, nvars = %d, nsyms = %d, nrules = %d, nritems = %d\n\n",
+          ntokens, nvars, nsyms, nrules, nritems);
+  fprintf (out, "Variables\n---------\n\n");
+  fprintf (out, "Value  Sprec  Sassoc  Tag\n");
+  for (i = ntokens; i < nsyms; i++)
+    fprintf (out, "%5d  %5d   %5d  %s\n",
+            i,
+            symbols[i]->prec, symbols[i]->assoc,
+            quotearg_style (escape_quoting_style, symbols[i]->tag));
+  fprintf (out, "\n\n");
+  fprintf (out, "Rules\n-----\n\n");
+  fprintf (out, "Num (Prec, Assoc, Useful, Ritem Range) Lhs -> Rhs (Ritem range) [Num]\n");
+  for (i = 1; i < nrules + nuseless_productions + 1; i++)
+    {
+      int rhs_count = 0;
+      /* Find the last RHS index in ritems. */
+      for (r = rules[i].rhs; *r >= 0; ++r)
+       ++rhs_count;
+      fprintf (out, "%3d (%2d, %2d, %2d, %2d-%2d)   %2d ->",
+              i - 1,
+              rules[i].prec ? rules[i].prec->prec : 0,
+              rules[i].prec ? rules[i].prec->assoc : 0,
+              rules[i].useful,
+              rules[i].rhs - ritem,
+              rules[i].rhs - ritem + rhs_count - 1,
+              rules[i].lhs->number);
+      /* Dumped the RHS. */
+      for (r = rules[i].rhs; *r >= 0; r++)
+       fprintf (out, " %3d", *r);
+      fprintf (out, "  [%d]\n", -(*r) - 1);
+    }
+  fprintf (out, "\n\n");
+  fprintf (out, "Rules interpreted\n-----------------\n\n");
+  for (i = 1; i < nrules + nuseless_productions + 1; i++)
+    {
+      fprintf (out, "%-5d  %s :",
+              i, quotearg_style (escape_quoting_style, rules[i].lhs->tag));
+      for (r = rules[i].rhs; *r >= 0; r++)
+       fprintf (out, " %s",
+                quotearg_style (escape_quoting_style, symbols[*r]->tag));
+      fputc ('\n', out);
+    }
+  fprintf (out, "\n\n");
+}