3 * A simple SOD module for testing.
15 [nick = nml, link = SodObject]
16 class Animal : SodObject {
23 void nml.tickle() { me->nml.tickles++; }
27 void bite() { puts("Munch!"); }
28 void nml.tickle() { Lion_bite(me); }
32 void butt() { puts("Bonk!"); }
33 void nml.tickle() { Goat_butt(me); }
36 class Serpent : Animal {
37 void hiss() { puts("Sssss!"); }
38 void bite() { puts("Nom!"); }
40 if (SERPENT__CONV_NML(me)->nml.tickles <= 2) Serpent_hiss(me);
41 else Serpent_bite(me);
45 [nick = sir, link = Animal]
46 class Chimaera : Lion, Goat, Serpent {
49 code c : user [classes end, user, epilogue] {
50 /*----- Main driver code --------------------------------------------------*/
52 static void tickle_animal(Animal *a)
56 for (i = 0; i < 3; i++) {
57 printf("tickle %s #%d...\n", a->_vt->_class->cls.name, i);
62 static void provoke_lion(Lion *l)
64 printf("provoking %s as a lion\n", l->_vt->_class->cls.name);
68 static void provoke_goat(Goat *g)
70 printf("provoking %s as a goat\n", g->_vt->_class->cls.name);
74 static void provoke_serpent(Serpent *s)
76 printf("provoking %s as a serpent\n", s->_vt->_class->cls.name);
85 tickle_animal(LION__CONV_NML(l));
91 tickle_animal(GOAT__CONV_NML(g));
97 tickle_animal(SERPENT__CONV_NML(s));
101 SOD_DECL(Chimaera, c);
102 provoke_lion(CHIMAERA__CONV_LION(c));
103 provoke_goat(CHIMAERA__CONV_GOAT(c));
104 provoke_serpent(CHIMAERA__CONV_SERPENT(c));
105 tickle_animal(CHIMAERA__CONV_NML(c));