15 lines
432 B
Haskell
15 lines
432 B
Haskell
module Main where
|
|
|
|
import qualified Lexer
|
|
import qualified Parser
|
|
import qualified AbstractSyntaxTree as AST
|
|
import qualified Compiler
|
|
import qualified Assembler
|
|
import qualified Data.ByteString.Lazy as BL
|
|
|
|
main :: IO ()
|
|
main = do
|
|
source <- readFile "arithmetic.txt"
|
|
case Parser.parse $ Lexer.lex source of
|
|
Just source -> BL.putStr $ Assembler.assemble $ Compiler.compile $ AST.createAST source
|
|
_ -> putStr "Some error"
|