src/symlist.c

   1 /* Lists of symbols for Bison
   2
   3    Copyright (C) 2002, 2005 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., 51 Franklin Street, Fifth Floor,
  20    Boston, MA 02110-1301, USA.  */
  21
  22 #include <config.h>
  23 #include "system.h"
  24
  25 #include "complain.h"
  26 #include "symlist.h"
  27
  28
  29 /*--------------------------------------.
  30 | Create a list containing SYM at LOC.  |
  31 `--------------------------------------*/
  32
  33 symbol_list *
  34 symbol_list_new (symbol *sym, location loc)
  35 {
  36   symbol_list *res = xmalloc (sizeof *res);
  37   res->next = NULL;
  38   res->sym = sym;
  39   res->location = loc;
  40   res->action = NULL;
  41   res->ruleprec = NULL;
  42   res->dprec = 0;
  43   res->merger = 0;
  44   return res;
  45 }
  46
  47
  48 /*------------------.
  49 | Print this list.  |
  50 `------------------*/
  51
  52 void
  53 symbol_list_print (symbol_list *l, FILE *f)
  54 {
  55   for (/* Nothing. */; l && l->sym; l = l->next)
  56     {
  57       symbol_print (l->sym, f);
  58       if (l && l->sym)
  59         fputc (' ', f);
  60     }
  61 }
  62
  63
  64 /*---------------------------------.
  65 | Prepend SYM at LOC to the LIST.  |
  66 `---------------------------------*/
  67
  68 symbol_list *
  69 symbol_list_prepend (symbol_list *list, symbol *sym, location loc)
  70 {
  71   symbol_list *res = symbol_list_new (sym, loc);
  72   res->next = list;
  73   return res;
  74 }
  75
  76
  77 /*-------------------------------------------------.
  78 | Free the LIST, but not the symbols it contains.  |
  79 `-------------------------------------------------*/
  80
  81 void
  82 symbol_list_free (symbol_list *list)
  83 {
  84   LIST_FREE (symbol_list, list);
  85 }
  86
  87
  88 /*--------------------.
  89 | Return its length.  |
  90 `--------------------*/
  91
  92 unsigned int
  93 symbol_list_length (symbol_list *list)
  94 {
  95   int res = 0;
  96   for (/* Nothing. */; list; list = list->next)
  97     ++res;
  98   return res;
  99 }
 100
 101
 102 /*--------------------------------------------------------------.
 103 | Get the data type (alternative in the union) of the value for |
 104 | symbol N in symbol list RP.                                   |
 105 `--------------------------------------------------------------*/
 106
 107 uniqstr
 108 symbol_list_n_type_name_get (symbol_list *rp, location loc, int n)
 109 {
 110   int i;
 111
 112   if (n < 0)
 113     {
 114       complain_at (loc, _("invalid $ value: $%d"), n);
 115       return NULL;
 116     }
 117
 118   i = 0;
 119
 120   while (i < n)
 121     {
 122       rp = rp->next;
 123       if (rp == NULL || rp->sym == NULL)
 124         {
 125           complain_at (loc, _("invalid $ value: $%d"), n);
 126           return NULL;
 127         }
 128       ++i;
 129     }
 130
 131   return rp->sym->type_name;
 132 }