From b30bbcab2892f9c41d6b1057eb09804e2d9be4e6 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 24 Sep 2024 22:20:57 +0200 Subject: Parse call statements --- lib/Language/Elna/SymbolTable.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/Language/Elna/SymbolTable.hs') diff --git a/lib/Language/Elna/SymbolTable.hs b/lib/Language/Elna/SymbolTable.hs index 52b8542..97d9621 100644 --- a/lib/Language/Elna/SymbolTable.hs +++ b/lib/Language/Elna/SymbolTable.hs @@ -20,8 +20,9 @@ import Data.List.NonEmpty (NonEmpty) import qualified Data.List.NonEmpty as NonEmpty import Data.Maybe (isJust) import Data.Vector (Vector) +import qualified Data.Vector as Vector import Language.Elna.Location (Identifier(..)) -import Language.Elna.Types (Type(..), intType, booleanType) +import Language.Elna.Types (Type(..), intType) import Prelude hiding (lookup) data SymbolTable = SymbolTable (Maybe SymbolTable) (HashMap Identifier Info) @@ -39,7 +40,7 @@ scope parent (SymbolTable _ mappings) = SymbolTable (Just parent) mappings builtInSymbolTable :: SymbolTable builtInSymbolTable = SymbolTable Nothing $ HashMap.fromList - [ ("boolean", TypeInfo booleanType) + [ ("printi", ProcedureInfo empty Vector.empty) , ("int", TypeInfo intType) ] -- cgit v1.2.3