1
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2
* Copyright (C) 2001 Gerwin Klein <lsf@jflex.de> *
3
* Copyright (C) 2001 Bernhard Rumpe <rumpe@in.tum.de> *
4
* All rights reserved. *
6
* This program is free software; you can redistribute it and/or modify *
7
* it under the terms of the GNU General Public License. See the file *
8
* COPYRIGHT for more information. *
10
* This program is distributed in the hope that it will be useful, *
11
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
12
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
13
* GNU General Public License for more details. *
15
* You should have received a copy of the GNU General Public License along *
16
* with this program; if not, write to the Free Software Foundation, Inc., *
17
* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
19
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
23
* AST node for a parameter list.
25
class Tparlist implements AST {
26
Tparlist parlist; // rest of the liste (optional null)
27
Tident ident; // identifier
29
public Tparlist(Tparlist p, Tident i) {
34
public Tparlist(Tident i) {
39
public String toString() {
41
return parlist+","+ident;
43
return ident.toString();
46
public void setSymtab(SymTab st, boolean isInput, int index) {
47
boolean isNew = st.enter(ident.toString(),
48
new STEvar(ident.toString(), isInput, index));
50
if (!isNew) Main.error("Variable "+ident+" defined twice!");
51
if (parlist!=null) parlist.setSymtab(st, isInput, index+1);