src/gram.c

   1 /* Allocate input grammar variables for bison,
   2    Copyright (C) 1984, 1986, 1989, 2001, 2002 Free Software Foundation, Inc.
   3
   4    This file is part of Bison, the GNU Compiler Compiler.
   5
   6    Bison is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 2, or (at your option)
   9    any later version.
  10
  11    Bison is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with Bison; see the file COPYING.  If not, write to
  18    the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19    Boston, MA 02111-1307, USA.  */
  20
  21
  22 #include "system.h"
  23 #include "quotearg.h"
  24 #include "gram.h"
  25 #include "symtab.h"
  26 #include "reader.h"
  27
  28 /* comments for these variables are in gram.h  */
  29
  30 item_number_t *ritem = NULL;
  31 int nritems = 0;
  32
  33 rule_t *rules = NULL;
  34 int nrules = 0;
  35
  36 symbol_t **symbols = NULL;
  37 int nsyms = 0;
  38 int ntokens = 1;
  39 int nvars = 0;
  40
  41 token_number_t *token_translations = NULL;
  42
  43 int start_symbol = 0;
  44
  45 int max_user_token_number = 256;
  46
  47 int semantic_parser = 0;
  48
  49 int pure_parser = 0;
  50
  51 int error_token_number = 0;
  52
  53
  54 /*--------------------------------------.
  55 | Return the number of symbols in RHS.  |
  56 `--------------------------------------*/
  57
  58 int
  59 rule_rhs_length (rule_t *rule)
  60 {
  61   int res = 0;
  62   item_number_t *rhsp;
  63   for (rhsp = rule->rhs; *rhsp >= 0; ++rhsp)
  64     ++res;
  65   return res;
  66 }
  67
  68
  69 /*------------------------.
  70 | Dump RITEM for traces.  |
  71 `------------------------*/
  72
  73 void
  74 ritem_print (FILE *out)
  75 {
  76   int i;
  77   fputs ("RITEM\n", out);
  78   for (i = 0; i < nritems; ++i)
  79     if (ritem[i] >= 0)
  80       fprintf (out, "  %s", quotearg_style (escape_quoting_style,
  81                                             symbols[ritem[i]]->tag));
  82     else
  83       fprintf (out, "  (rule %d)\n", -ritem[i] - 1);
  84   fputs ("\n\n", out);
  85 }
  86
  87
  88 /*------------------------------------------.
  89 | Return the size of the longest rule RHS.  |
  90 `------------------------------------------*/
  91
  92 size_t
  93 ritem_longest_rhs (void)
  94 {
  95   int max = 0;
  96   int i;
  97
  98   for (i = 1; i < nrules + 1; ++i)
  99     {
 100       int length = rule_rhs_length (&rules[i]);
 101       if (length > max)
 102         max = length;
 103     }
 104
 105   return max;
 106 }