1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Copyright (C) 2001 Gerwin Klein <lsf@jflex.de> *
* Copyright (C) 2001 Bernhard Rumpe <rumpe@in.tum.de> *
* All rights reserved. *
* *
* License: BSD *
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/**
* AST node for a parameter list.
*/
class Tparlist implements AST {
Tparlist parlist; // rest of the liste (optional null)
Tident ident; // identifier
public Tparlist(Tparlist p, Tident i) {
parlist=p;
ident=i;
}
public Tparlist(Tident i) {
parlist=null;
ident=i;
}
public String toString() {
if (parlist!=null)
return parlist+","+ident;
else
return ident.toString();
}
public void setSymtab(SymTab st, boolean isInput, int index) {
boolean isNew = st.enter(ident.toString(),
new STEvar(ident.toString(), isInput, index));
if (!isNew) Main.error("Variable "+ident+" defined twice!");
if (parlist!=null) parlist.setSymtab(st, isInput, index+1);
}
}
|
