heptagon/test/good/t1.ept

(* pour debugger ../../compiler/hec.byte -i -v -I ../../lib t1.ept *)
(* pour debugger
   directory parsing global analysis dataflow sequential sigali simulation translation main
   set arguments -v ../test/good/t1.ept *)

node m0() returns (o: int)
  let
    o = if true then if true then 1 else 2 else 3;
  tel

node mm(x: int) returns (o: int)
  var last m: int = 0;
  let
    switch (x = 0)
      | true do m = last m + 1; o = m
      | false do m = 2; o = m
    end
  tel

node mmm(x: int) returns (o2: int)
  var last m: int = 1; o: int;
  let
    automaton
      state I
        do m = 0; o = last m + 1 until (o = 1) then J
      state J
        do m = last m + 1; o = 0
    end;
    o2 = 1 -> pre o
  tel

node m(x: int) returns (o: int)
  var last o2 : int = 1;
  let
    automaton
      state I
        do o2 = 2
        unless (last o2 = 2) then J
      state J
        do o2 = 1
        unless (last o2 = 1) then I
    end;
    o = o2;
  tel

node h(z: int; x, y: int) returns (o2: int)
  var o1, o: int;
  let
    (o1, o2) = if z<0 then (1, o) else (o, 4);
    o = 0 -> pre o + 2
  tel

node i(x, y: int) returns (o: int)
  var z, k: int;
  let
    reset
      o = 0 + x + y;
      reset
        z = 1 + o + 3;
        k = z + o + 2
      every (x = x)
    every (x = y)
  tel

node j(x, y: int) returns (o: int)
  let
    automaton
      state I
         var z: int;
         do o = 1; z = 2
         until (o = 2) then J
      state J
         do o = 2
         until (o = 1) then I
    end
  tel

node (++)(up, down: int) returns (o: int)
  var last cpt: int = 42;
  let
    o = last cpt;
    automaton
      state Init
         var k : int;
         do k = 0 -> pre k + 2;
            cpt = 0
         until
           (up = 1) then Up
      state Up
         do cpt = last cpt + 1
         until (down = 1) then Down
             | (down = 0) then Up
      state Down
         do cpt = (last cpt) - 1
         until (up = 1) then Up
    end;
  tel

node f(x: bool) returns (y: bool)
  var z: bool;
  let
    y = x or x & x;
    z = true -> if y then not (pre z) else pre z;
 tel

node main() returns (o1,o2,o3,o4,o5,o6,o7,o8,o9:int)
var x:int;
let
  x = -10 fby if x = 10 then -10 else x + 1;
  o1 = m0();
  o2 = mm(x);
  o3 = mmm(0);
  o4 = m(0);
  o5 = h(x,0,0);
  o6 = i(0,x);
  o7 = j(0,0);
  o8 = (++)((0 fby 1),(0 fby o9));
  o9 = if (f(false fby true)) then 13 else 17;
tel

(*
let increasing(x) returns (o)
  do true -> x >= pre(x) + 1 done

modes(v0) =
  last o = v0
  when up(x) returns (w)
     assume (x >= 0) ensure (w >= 0)
     do w = x + last o + 2; o = w + 4 done
  when down(x) returns (w)
     do w = x - last o + 2; o = w + 2 done
  end

val gain : int >
  modes last o : int when up: int -> int when down: int -> int
  end with { up # down }

let node gain(v0)(up, down) returns (o)
  assume (v0 >= 0) & (increasing up)
  guaranty (deacreasing o)
  last o = 0 in
  automaton
    state Await
      do
      unless down then Down(1) | up then Up(1)
    state Down(d)
      let rec cpt = 1 -> pre cpt + 1 in
      do o = last o - d
      until (cpt >= 5) then Down(d-5)
      until up then Up(1)
    state Up(d)
      let rec cpt = 1 -> pre cpt + 1 in
      do o = last o + d
      until (cpt >= 5) then Up(d+5)
      until down then Down(1)
    state Unreachable
      let rec c = 0 + 2 in
      var m in
      do o = m + 2; m = 3 + c done
   end

node g(x, y: int) returns (o: int)
  let
    o = x ++ y;
  tel

node dfby(x)(y) returns (o)
  let
    o = x fby (x fby y)
  tel

node f(x)(y) returns (o)
  var last o = x;
  let
    o = last o + y
  tel

val f : int > (int => int)

static x = e in ...

(if c then (fun x -> x + 2) else (fun k -> k + 3))(x+2)

let M(x1,..., xn) =
  let y1 = ... in ... let yk = ... in
  modes
   mem m1 = ...; mem ml = ...;
   step (...) returns (...) ...
   reset = ...
  end
*)