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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
package tinybasic;
import java.lang.*;
import antlr.collections.AST;
public class DTArray1D extends DTDataType{
private Object data[];
protected int dim1;
protected int base=0;
public DTArray1D(int _ttype,Scope scope)
{
super(scope,_ttype);
dim1=0;
}
protected void init(){
data =new Object[dim1];
}
public DTDataType getDTDataType(DTDataType i1){
int idx1=i1.getInteger()-base;
if(dim1==0){
dim1=10;
init();
}
if(idx1>dim1){
return null;
} else {
DTDataType t=(DTDataType)data[idx1];
if(t==null){
data[idx1]=t=getOne();
}
return t;
}
}
public void setDTDataType(DTDataType i1,DTDataType s){
int idx1=i1.getInteger()-base;
if(dim1==0){
dim1=10;
init();
}
if(idx1>dim1){
//return null;
} else {
DTDataType t=(DTDataType)data[idx1];
if(t==null){
data[idx1]=getOne(s);
} else {
t.assign(s);
}
}
}
public int getDimension(){return 1;}
public int getDimensioned(int i){
if(i==1){
return dim1;
}
return 0;
}
public void setDimension(int i1){
dim1=i1;
init();
}
public int compareTo(Object o){
return 0;
}
}
|
