/[bison]/bison/src/closure.c
ViewVC logotype

Diff of /bison/src/closure.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.53 by akim, Mon May 6 08:42:24 2002 UTC revision 1.54 by akim, Sat Jun 15 18:23:12 2002 UTC
# Line 59  print_closure (const char *title, item_n Line 59  print_closure (const char *title, item_n
59        item_number_t *rp;        item_number_t *rp;
60        fprintf (stderr, "  %2d: .", array[i]);        fprintf (stderr, "  %2d: .", array[i]);
61        for (rp = &ritem[array[i]]; *rp >= 0; ++rp)        for (rp = &ritem[array[i]]; *rp >= 0; ++rp)
62          fprintf (stderr, " %s",          fprintf (stderr, " %s", symbol_tag_get (symbols[*rp]));
                  quotearg_style (escape_quoting_style, symbols[*rp]->tag));  
63        fprintf (stderr, "  (rule %d)\n", -*rp - 1);        fprintf (stderr, "  (rule %d)\n", -*rp - 1);
64      }      }
65    fputs ("\n\n", stderr);    fputs ("\n\n", stderr);
# Line 75  print_firsts (void) Line 74  print_firsts (void)
74    fprintf (stderr, "FIRSTS\n");    fprintf (stderr, "FIRSTS\n");
75    for (i = ntokens; i < nsyms; i++)    for (i = ntokens; i < nsyms; i++)
76      {      {
77        fprintf (stderr, "\t%s firsts\n",        fprintf (stderr, "\t%s firsts\n", symbol_tag_get (symbols[i]));
                quotearg_style (escape_quoting_style, symbols[i]->tag));  
78        for (j = 0; j < nvars; j++)        for (j = 0; j < nvars; j++)
79          if (bitset_test (FIRSTS (i), j))          if (bitset_test (FIRSTS (i), j))
80            fprintf (stderr, "\t\t%s\n",            fprintf (stderr, "\t\t%s\n",
81                     quotearg_style (escape_quoting_style,                     symbol_tag_get (symbols[j + ntokens]));
                                    symbols[j + ntokens]->tag));  
82      }      }
83    fprintf (stderr, "\n\n");    fprintf (stderr, "\n\n");
84  }  }
# Line 95  print_fderives (void) Line 92  print_fderives (void)
92    fprintf (stderr, "FDERIVES\n");    fprintf (stderr, "FDERIVES\n");
93    for (i = ntokens; i < nsyms; i++)    for (i = ntokens; i < nsyms; i++)
94      {      {
95        fprintf (stderr, "\t%s derives\n",        fprintf (stderr, "\t%s derives\n", symbol_tag_get (symbols[i]));
                quotearg_style (escape_quoting_style, symbols[i]->tag));  
96        for (j = 0; j < nrules + 1; j++)        for (j = 0; j < nrules + 1; j++)
97          if (bitset_test (FDERIVES (i), j))          if (bitset_test (FDERIVES (i), j))
98            {            {
99              item_number_t *rhsp;              item_number_t *rhsp;
100              fprintf (stderr, "\t\t%d:", j - 1);              fprintf (stderr, "\t\t%d:", j - 1);
101              for (rhsp = rules[j].rhs; *rhsp >= 0; ++rhsp)              for (rhsp = rules[j].rhs; *rhsp >= 0; ++rhsp)
102                fprintf (stderr, " %s",                fprintf (stderr, " %s", symbol_tag_get (symbols[*rhsp]));
                        quotearg_style (escape_quoting_style,  
                                        symbols[*rhsp]->tag));  
103              fputc ('\n', stderr);              fputc ('\n', stderr);
104            }            }
105      }      }

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26