feat: Implement Assembler
This commit is contained in:
parent
8e5fba32f6
commit
29e5f97dae
3 changed files with 38 additions and 3 deletions
|
|
@ -4,10 +4,12 @@ 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 -> print $ Compiler.compile $ AST.createAST source
|
||||
Just source -> BL.putStr $ Assembler.assemble $ Compiler.compile $ AST.createAST source
|
||||
_ -> putStr "Some error"
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue