X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/7d5b141f4bd60a23f2c47776cfe467a414f8b472..298c0379a9232762e373c048202ca941816d9072:/test/chimaera.sod diff --git a/test/chimaera.sod b/test/chimaera.sod index e9b9077..0723ae1 100644 --- a/test/chimaera.sod +++ b/test/chimaera.sod @@ -16,11 +16,8 @@ code h : includes { class Animal : SodObject { int tickles = 0; - [combination = progn] - void tickle(); - - [role = before] - void nml.tickle() { me->nml.tickles++; } + [combination = progn] void tickle(); + [role = before] void nml.tickle() { me->nml.tickles++; } } class Lion : Animal { @@ -34,19 +31,24 @@ class Goat : Animal { } class Serpent : Animal { + int limit = 2; + 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); + if (SERPENT__CONV_NML(me)->nml.tickles <= me->serpent.limit) + Serpent_hiss(me); + else + Serpent_bite(me); } } [nick = sir, link = Animal] class Chimaera : Lion, Goat, Serpent { + serpent.limit = 1; } -code c : user [classes end, user, epilogue] { +code c : user { /*----- Main driver code --------------------------------------------------*/ static void tickle_animal(Animal *a)