added automaton to ast

This commit is contained in:
Antoine Grimod
2022-12-13 15:02:54 +01:00
parent ad1f529863
commit bb017afe39
6 changed files with 41 additions and 42 deletions

View File

@@ -11,3 +11,10 @@ let
o = (not (not (l1 = l2))) and (l1 = l2) and true;
tel
node auto (i: int) returns (o : int);
let
automaton
| Incr -> do o = (pre o) + 1; done
| Decr -> do o = (pre o) - 1; done
tel