Implement basic functions (no parameters yet)

2023-12-10 16:29:29 +01:00
parent f594027de5
commit 165be5cfdb
12 changed files with 150 additions and 6 deletions
--- a/IBAF-Tests/IBAF-1/basicControlFlow.fct
+++ b/IBAF-Tests/IBAF-1/basicControlFlow.fct
@@ -0,0 +1,39 @@
+initialise-binding scope
+  (collateral
+     (map
+        ( ),
+      bind
+        ("i",
+         allocate-initialised-variable
+           (integers,
+            0)),
+      map
+        ( )),
+   sequential
+     (if-else
+        (true,
+         print true,
+         print false),
+      assign
+        (bound "i",
+         decimal-natural
+           ("0")),
+      while
+        (is-less
+           (assigned
+              (bound
+                 ("i")),
+            decimal-natural
+              ("10")),
+         sequential
+           (assign
+              (bound "i",
+               int-add
+                 (assigned
+                    (bound
+                       ("i")),
+                  decimal-natural
+                    ("1"))),
+            print assigned
+              (bound
+                 ("i"))))))