heptagon/test/good/autohiera.ept

29 lines
530 B
Text
Raw Normal View History

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