heptagon/test/good/tt.ept
2012-07-18 16:54:44 +02:00

33 lines
500 B
Text

node f(x:bool;c:bool) returns (o:bool)
let
automaton
state A
var l:bool; do
l = x when c;
o = merge c (true -> l) (false -> false)
until true then B
state B
do o = false
end
tel
node main() returns (o:bool)
let
o = f(true, true)
tel
(*
node clock_on<<pref, per : int>>(w1, w2 : bool) returns (o : bool)
let
automaton
state FirstPeriod
var w2' : bool; do
w2' = w1 when w2;
o = false;
until true then Cruise
state Cruise do
o = true;
end
tel
*)