class Animal : SodObject {
int tickles = 0;
- void tickle(void) { }
+ [combination = progn]
+ void tickle();
[role = before]
- void nml.tickle(void) { me->nml.tickles++; }
+ void nml.tickle() { me->nml.tickles++; }
}
class Lion : Animal {
- void bite(void) { puts("Munch!"); }
- void nml.tickle(void) { me->_vt->lion.bite(me); }
+ void bite() { puts("Munch!"); }
+ void nml.tickle() { Lion_bite(me); }
}
class Goat : Animal {
- void butt(void) { puts("Bonk!"); }
- void nml.tickle(void) { me->_vt->goat.butt(me); }
+ void butt() { puts("Bonk!"); }
+ void nml.tickle() { Goat_butt(me); }
}
class Serpent : Animal {
- void hiss(void) { puts("Sssss!"); }
- void bite(void) { puts("Nom!"); }
- void nml.tickle(void) {
- if (SERPENT__CONV_NML(me)->nml.tickles > 2) me->_vt->serpent.bite(me);
- else me->_vt->serpent.hiss(me);
+ void hiss() { puts("Sssss!"); }
+ void bite() { puts("Nom!"); }
+ void nml.tickle() {
+ if (SERPENT__CONV_NML(me)->nml.tickles <= 2) Serpent_hiss(me);
+ else Serpent_bite(me);
}
}
for (i = 0; i < 3; i++) {
printf("tickle %s #%d...\n", a->_vt->_class->cls.name, i);
- a->_vt->nml.tickle(a);
+ Animal_tickle(a);
}
}
static void provoke_lion(Lion *l)
{
printf("provoking %s as a lion\n", l->_vt->_class->cls.name);
- l->_vt->lion.bite(l);
+ Lion_bite(l);
}
static void provoke_goat(Goat *g)
{
printf("provoking %s as a goat\n", g->_vt->_class->cls.name);
- g->_vt->goat.butt(g);
+ Goat_butt(g);
}
static void provoke_serpent(Serpent *s)
{
printf("provoking %s as a serpent\n", s->_vt->_class->cls.name);
- s->_vt->serpent.bite(s);
+ Serpent_bite(s);
}
int main(void)
{
{
- struct Lion__ilayout ll;
- Lion *l = Lion__class->cls.init(&ll);
+ SOD_DECL(Lion, l);
provoke_lion(l);
tickle_animal(LION__CONV_NML(l));
}
{
- struct Goat__ilayout gg;
- Goat *g = Goat__class->cls.init(&gg);
+ SOD_DECL(Goat, g);
provoke_goat(g);
tickle_animal(GOAT__CONV_NML(g));
}
{
- struct Serpent__ilayout ss;
- Serpent *s = Serpent__class->cls.init(&ss);
+ SOD_DECL(Serpent, s);
provoke_serpent(s);
tickle_animal(SERPENT__CONV_NML(s));
}
{
- struct Chimaera__ilayout cc;
- Chimaera *c = Chimaera__class->cls.init(&cc);
+ SOD_DECL(Chimaera, c);
provoke_lion(CHIMAERA__CONV_LION(c));
provoke_goat(CHIMAERA__CONV_GOAT(c));
provoke_serpent(CHIMAERA__CONV_SERPENT(c));