~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/c-types-parse.lisp: Introduce a pluggable parser for declspecs.
[sod]
/
test
/
chimaera.sod
diff --git
a/test/chimaera.sod
b/test/chimaera.sod
index
5b55e93
..
0723ae1
100644
(file)
--- a/
test/chimaera.sod
+++ b/
test/chimaera.sod
@@
-16,11
+16,8
@@
code h : includes {
class Animal : SodObject {
int tickles = 0;
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 {
}
class Lion : Animal {
@@
-34,19
+31,24
@@
class Goat : Animal {
}
class Serpent : Animal {
}
class Serpent : Animal {
+ int limit = 2;
+
void hiss() { puts("Sssss!"); }
void bite() { puts("Nom!"); }
void nml.tickle() {
void hiss() { puts("Sssss!"); }
void bite() { puts("Nom!"); }
void nml.tickle() {
- if (SERPENT__CONV_NML(me)->nml.tickles > 2) Serpent_bite(me);
- else Serpent_hiss(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 {
}
}
[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)
/*----- Main driver code --------------------------------------------------*/
static void tickle_animal(Animal *a)