MiniJavaCompiler/src/Example.hs

module Example where

import Ast
import Control.Exception (catch, evaluate, SomeException, displayException)
import Control.Exception.Base
import Typecheck

-- Example classes and their methods and fields
sampleClasses :: [Class]
sampleClasses = [
    Class "Person" [
        MethodDeclaration "void" "setAge" [ParameterDeclaration "Int" "newAge"]
        (Block [
            LocalVariableDeclaration (VariableDeclaration "Int" "age" (Just (Reference "newAge")))
        ]),
        MethodDeclaration "Int" "getAge" [] (Return (Just (Reference "age")))
    ] [
        VariableDeclaration "Int" "age" (Just (IntegerLiteral 25)),
        VariableDeclaration "String" "name" (Just (CharacterLiteral 'A'))
    ]
 ]

-- Symbol table, mapping identifiers to their data types
initialSymtab :: [(DataType, Identifier)]
initialSymtab = []

-- An example block of statements to type check
exampleBlock :: Statement
exampleBlock = Block [
    LocalVariableDeclaration (VariableDeclaration "Person" "bob" (Just (StatementExpressionExpression  (ConstructorCall "Person" [])))),
    StatementExpressionStatement (MethodCall "setAge" [IntegerLiteral 30]),
    Return (Just (StatementExpressionExpression (MethodCall "getAge" [])))
    ]

exampleExpression :: Expression
exampleExpression = BinaryOperation NameResolution (Reference "bob") (Reference "age")

-- Function to perform type checking and handle errors
runTypeCheck :: IO ()
runTypeCheck = do
    -- Evaluate the block of statements
    --evaluatedBlock <- evaluate (typeCheckStatement exampleBlock initialSymtab sampleClasses)
    --putStrLn "Type checking of block completed successfully:"
    --print evaluatedBlock
    
    -- Evaluate the expression
    evaluatedExpression <- evaluate (typeCheckExpression exampleExpression [("bob", "Person"), ("age", "int")] sampleClasses)
    putStrLn "Type checking of expression completed successfully:"
    print evaluatedExpression