MiniJavaCompiler/src/Main.hs

module Main where

import Example
import Typecheck
import Parser.Lexer (alexScanTokens)
import Parser.JavaParser
import ByteCode.Generator
import ByteCode.ClassFile
import Data.ByteString (pack, writeFile)

main = do
    -- read source code from disk
    file <- readFile "Testklasse.java"

    -- parse source code
    let untypedAST = parse $ alexScanTokens file
    -- typecheck AST
    let typedAST = (typeCheckCompilationUnit untypedAST)
    -- assemble classes
    let assembledClasses = map (\(typedClass) -> classBuilder typedClass emptyClassFile) typedAST

    -- write class files to disk
    mapM_ (\(classFile) -> let
            fileContent = pack (serialize classFile)
            fileName = (className classFile) ++ ".class"
        in Data.ByteString.writeFile fileName fileContent
        ) assembledClasses