3 * A simple SOD module for testing.
15 [nick = nml, link = SodObject]
16 class Animal : SodObject {
22 void nml.tickle(void) { me->nml.tickles++; }
26 void bite(void) { puts("Munch!"); }
27 void nml.tickle(void) { me->_vt->lion.bite(me); }
31 void butt(void) { puts("Bonk!"); }
32 void nml.tickle(void) { me->_vt->goat.butt(me); }
35 class Serpent : Animal {
36 void hiss(void) { puts("Sssss!"); }
37 void bite(void) { puts("Nom!"); }
38 void nml.tickle(void) {
39 if (SERPENT__CONV_NML(me)->nml.tickles > 2) me->_vt->serpent.bite(me);
40 else me->_vt->serpent.hiss(me);
44 [nick = sir, link = Animal]
45 class Chimaera : Lion, Goat, Serpent {
48 code c : user [classes end, user, epilogue] {
49 /*----- Main driver code --------------------------------------------------*/
51 static void tickle_animal(Animal *a)
55 for (i = 0; i < 3; i++) {
56 printf("tickle %s #%d...\n", a->_vt->_class->cls.name, i);
57 a->_vt->nml.tickle(a);
61 static void provoke_lion(Lion *l)
63 printf("provoking %s as a lion\n", l->_vt->_class->cls.name);
67 static void provoke_goat(Goat *g)
69 printf("provoking %s as a goat\n", g->_vt->_class->cls.name);
73 static void provoke_serpent(Serpent *s)
75 printf("provoking %s as a serpent\n", s->_vt->_class->cls.name);
76 s->_vt->serpent.bite(s);
82 struct Lion__ilayout ll;
83 Lion *l = Lion__class->cls.init(&ll);
85 tickle_animal(LION__CONV_NML(l));
89 struct Goat__ilayout gg;
90 Goat *g = Goat__class->cls.init(&gg);
92 tickle_animal(GOAT__CONV_NML(g));
96 struct Serpent__ilayout ss;
97 Serpent *s = Serpent__class->cls.init(&ss);
99 tickle_animal(SERPENT__CONV_NML(s));
103 struct Chimaera__ilayout cc;
104 Chimaera *c = Chimaera__class->cls.init(&cc);
105 provoke_lion(CHIMAERA__CONV_LION(c));
106 provoke_goat(CHIMAERA__CONV_GOAT(c));
107 provoke_serpent(CHIMAERA__CONV_SERPENT(c));
108 tickle_animal(CHIMAERA__CONV_NML(c));