Add printc and exit builtin functions

2024-10-04 18:26:10 +02:00
parent fdf56ce9d0
commit 35742aa525
20 changed files with 139 additions and 53 deletions
--- a/lib/Language/Elna/Frontend/SymbolTable.hs
+++ b/lib/Language/Elna/Frontend/SymbolTable.hs
@@ -40,9 +40,22 @@ scope parent (SymbolTable _ mappings) = SymbolTable (Just parent) mappings

 builtInSymbolTable :: SymbolTable
 builtInSymbolTable = SymbolTable Nothing $ HashMap.fromList
-    [ ("printi", ProcedureInfo empty Vector.empty)
+    [ ("printi", ProcedureInfo empty (Vector.singleton printiX))
+    , ("printc", ProcedureInfo empty (Vector.singleton printcI))
+    , ("exit", ProcedureInfo empty Vector.empty)
    , ("int", TypeInfo intType)
    ]
+  where
+    printiX = ParameterInfo
+        { name = "x"
+        , type' = intType
+        , isReferenceParameter = False
+        }
+    printcI = ParameterInfo
+        { name = "i"
+        , type' = intType
+        , isReferenceParameter = False
+        }

 toMap :: SymbolTable  -> HashMap Identifier Info
 toMap (SymbolTable _ map') = map'