]> git.saurik.com Git - bison.git/blame_incremental - src/symlist.c
(allocate_itemsets): Use xnmalloc, not xcalloc,
[bison.git] / src / symlist.c
... / ...
CommitLineData
1/* Lists of symbols for Bison
2
3 Copyright (C) 2002 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., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
21
22#include "system.h"
23
24#include "complain.h"
25#include "symlist.h"
26
27
28/*--------------------------------------.
29| Create a list containing SYM at LOC. |
30`--------------------------------------*/
31
32symbol_list *
33symbol_list_new (symbol *sym, location loc)
34{
35 symbol_list *res = MALLOC (res, 1);
36 res->next = NULL;
37 res->sym = sym;
38 res->location = loc;
39 res->action = NULL;
40 res->ruleprec = NULL;
41 res->dprec = 0;
42 res->merger = 0;
43 return res;
44}
45
46
47/*---------------------------------.
48| Prepend SYM at LOC to the LIST. |
49`---------------------------------*/
50
51symbol_list *
52symbol_list_prepend (symbol_list *list, symbol *sym, location loc)
53{
54 symbol_list *res = symbol_list_new (sym, loc);
55 res->next = list;
56 return res;
57}
58
59
60/*-------------------------------------------------.
61| Free the LIST, but not the symbols it contains. |
62`-------------------------------------------------*/
63
64void
65symbol_list_free (symbol_list *list)
66{
67 LIST_FREE (symbol_list, list);
68}
69
70
71/*--------------------.
72| Return its length. |
73`--------------------*/
74
75unsigned int
76symbol_list_length (symbol_list *list)
77{
78 int res = 0;
79 for (/* Nothing. */; list; list = list->next)
80 ++res;
81 return res;
82}
83
84
85/*--------------------------------------------------------------.
86| Get the data type (alternative in the union) of the value for |
87| symbol N in symbol list RP. |
88`--------------------------------------------------------------*/
89
90uniqstr
91symbol_list_n_type_name_get (symbol_list *rp, location loc, int n)
92{
93 int i;
94
95 if (n < 0)
96 {
97 complain_at (loc, _("invalid $ value"));
98 return NULL;
99 }
100
101 i = 0;
102
103 while (i < n)
104 {
105 rp = rp->next;
106 if (rp == NULL || rp->sym == NULL)
107 {
108 complain_at (loc, _("invalid $ value"));
109 return NULL;
110 }
111 ++i;
112 }
113
114 return rp->sym->type_name;
115}