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
|
director_nested
A=@() subclass(FooBar_int(),
'do_step',@(self) "A::do_step;",
'get_value',@(self) "A::get_value");
a = A();
if (!strcmp(a.step(),"Bar::step;Foo::advance;Bar::do_advance;A::do_step;"))
error("Bad A virtual resolution")
endif
B=@() subclass(FooBar_int(),
'do_advance',@(self) strcat("B::do_advance;",self.do_step()),
'do_step',@(self) "B::do_step;",
'get_value',@(self) 1);
b = B();
if (!strcmp(b.step(),"Bar::step;Foo::advance;B::do_advance;B::do_step;"))
error("Bad B virtual resolution")
endif
C=@() subclass(FooBar_int(),
'do_advance',@(self) strcat("C::do_advance;",self.FooBar_int.do_advance()),
'do_step',@(self) "C::do_step;",
'get_value',@(self) 2,
'get_name',@(self) strcat(self.FooBar_int.get_name()," hello"));
cc = C();
c = FooBar_int_get_self(cc);
c.advance();
if (!strcmp(c.get_name(),"FooBar::get_name hello"))
error
endif
if (!strcmp(c.name(),"FooBar::get_name hello"))
error
endif
|
