/[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.30 by akim, Wed Dec 5 09:40:31 2001 UTC revision 1.31 by akim, Wed Dec 5 09:40:47 2001 UTC
# Line 52  static int varsetsize; Line 52  static int varsetsize;
52  `-----------------*/  `-----------------*/
53    
54  static void  static void
55  print_closure (int n)  print_closure (const char *title, short *array, size_t size)
56  {  {
57    int i;    size_t i;
58    fprintf (stderr, "n = %d\n", n);    fprintf (stderr, "Closure: %s\n", title);
59    for (i = 0; i < itemsetsize; ++i)    for (i = 0; i < size; ++i)
60      fprintf (stderr, "   %d\n", itemset[i]);      {
61    fprintf (stderr, "\n\n");        short *rp;
62          fprintf (stderr, "  %2d: .", array[i]);
63          for (rp = &ritem[array[i]]; *rp > 0; ++rp)
64            fprintf (stderr, " %s", tags[*rp]);
65          fprintf (stderr, "  (rule %d)\n", -*rp);
66        }
67      fputs ("\n\n", stderr);
68  }  }
69    
70    
# Line 194  closure (short *core, int n) Line 200  closure (short *core, int n)
200    int ruleno;    int ruleno;
201    
202    if (trace_flag)    if (trace_flag)
203      {      print_closure ("input", core, n);
       fprintf (stderr, "Entering closure (items = {");  
       for (c = 0; c < n; ++c)  
         fprintf (stderr, " %d ", core[c]);  
       fprintf (stderr, "})\n");  
     }  
204    
205    if (n == 0)    if (n == 0)
206      {      {
# Line 241  closure (short *core, int n) Line 242  closure (short *core, int n)
242      }      }
243    
244    if (trace_flag)    if (trace_flag)
245      print_closure (n);      print_closure ("output", itemset, itemsetsize);
246  }  }
247    
248    

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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