debian/libsod-dev.install: Fix name of manpage.

[sod] / test / chimaera.sod

diff --git a/test/chimaera.sod b/test/chimaera.sod
index cc56236ff62f3fae25dccc1aeeaa5d5eb5d94d17..976c727e578e25c5e440bbbfd3e9f608f053ef64 100644 (file)
--- a/test/chimaera.sod
+++ b/test/chimaera.sod
@@ -16,34 +16,98 @@ code h : includes {
 class Animal : SodObject {
   int tickles = 0;
 
-  void tickle(void) { }
-
-  [role = before]
-  void nml.tickle(void) { me->nml.tickles++; }
+  [combination = progn] void tickle();
+  [role = before] 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();
+  int limit = 2;
+
+  void hiss() { puts("Sssss!"); }
+  void bite() { puts("Nom!"); }
+  void nml.tickle() {
+    if (SERPENT__CONV_NML(me)->nml.tickles <= me->serpent.limit)
+      Serpent_hiss(me);
     else
-      me->_vt.serpent.hiss();
+      Serpent_bite(me);
   }
 }
 
 [nick = sir, link = Animal]
 class Chimaera : Lion, Goat, Serpent {
+  serpent.limit = 1;
+}
+
+code c : user {
+/*----- Main driver code --------------------------------------------------*/
+
+static void tickle_animal(Animal *a)
+{
+  int i;
+
+  for (i = 0; i < 3; i++) {
+    printf("tickle %s #%d...\n", a->_vt->_class->cls.name, i);
+    Animal_tickle(a);
+  }
+}
+
+static void provoke_lion(Lion *l)
+{
+  printf("provoking %s as a lion\n", l->_vt->_class->cls.name);
+  Lion_bite(l);
+}
+
+static void provoke_goat(Goat *g)
+{
+  printf("provoking %s as a goat\n", g->_vt->_class->cls.name);
+  Goat_butt(g);
+}
+
+static void provoke_serpent(Serpent *s)
+{
+  printf("provoking %s as a serpent\n", s->_vt->_class->cls.name);
+  Serpent_bite(s);
+}
+
+int main(void)
+{
+  {
+    SOD_DECL(Lion, l, NO_KWARGS);
+    provoke_lion(l);
+    tickle_animal(LION__CONV_NML(l));
+  }
+
+  {
+    SOD_DECL(Goat, g, NO_KWARGS);
+    provoke_goat(g);
+    tickle_animal(GOAT__CONV_NML(g));
+  }
+
+  {
+    SOD_DECL(Serpent, s, NO_KWARGS);
+    provoke_serpent(s);
+    tickle_animal(SERPENT__CONV_NML(s));
+  }
+
+  {
+    SOD_DECL(Chimaera, c, NO_KWARGS);
+    provoke_lion(CHIMAERA__CONV_LION(c));
+    provoke_goat(CHIMAERA__CONV_GOAT(c));
+    provoke_serpent(CHIMAERA__CONV_SERPENT(c));
+    tickle_animal(CHIMAERA__CONV_NML(c));
+  }
+
+  return (0);
 }
 
+}