heptagon/test/good/autohiera.ept
Léonard Gérard 1d6feeef54 some more tests
2011-05-26 15:56:59 +02:00

28 lines
529 B
Text

node count() returns (o : int)
let
o = 0 fby (o + 1);
tel
node main(x : bool) returns (d : bool)
var last c : bool = false;
let
d = c;
automaton
state One
var last xone : bool = false;
do
automaton
state A
do c = xone & x;
xone = true;
until count() = 2 then B
state B
do
until count() = 3 then A
end
until count() = 5 then Two
state Two
do c = x;
until count() = 3 then One
end
tel