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/fun.fct
+++ b/IBAF-Tests/IBAF-1/fun.fct
@@ -0,0 +1,28 @@
+initialise-binding scope
+  (collateral
+     (bind
+        ("test",
+         function abstraction
+           (scope
+              (collateral
+                 (map
+                    ( )),
+               return decimal-natural
+                 ("3")))),
+      bind
+        ("x",
+         allocate-initialised-variable
+           (integers,
+            0)),
+      map
+        ( )),
+   sequential
+     (null,
+      assign
+        (bound "x",
+         handle-return apply
+           (bound "test",
+            null)),
+      print assigned
+        (bound
+           ("x"))))