blob: d5ff7e1935ac488c135ade3adab60c849c8332e8 (
plain)
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
|
implement ADTs;
include "sys.m";
include "draw.m";
sys: Sys;
print: import sys;
ADTs: module {
init: fn(nil: ref Draw->Context, nil: list of string);
Person: adt {
age: int;
name: string;
stringify: fn(p: self ref Person): string;
};
};
Town: adt {
pop: array of ref Person;
name: string;
stringify: fn(t: self ref Town): string;
};
init(nil: ref Draw->Context, nil: list of string) {
sys = load Sys Sys->PATH;
p := ref Person(27, "Spike");
print("%s\n", p.name);
t: Town;
t.pop = array[] of {p, ref Person(13, "Ed")};
t.name = "Mars";
town := ref t;
print("%s\n", town.stringify());
exit;
}
Person.stringify(p: self ref Person): string {
return p.name;
}
Town.stringify(t: self ref Town): string {
s := "Name: " + t.name + "\nSize: " + string len t.pop + "\nMembers:";
for(i := 0; i < len t.pop; i++)
s += "\n→ " + t.pop[i].stringify();
return s;
}
|
