eta357/Windows-12-Compiler
1
1
Fork 0
Code Issues Pull Requests Actions Packages Releases 1 Activity

Call codegen and write LLVM output to output file

Browse Source
This commit is contained in:
Ethan Girouard 2024-12-09 20:30:01 -05:00
parent 892658de78
commit 5d9b956883
Signed by: eta357
GPG Key ID: 7BCDC36DFD11C146
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Main.hs
View File

@ -3,10 +3,17 @@
module Main where module Main where
import qualified Data.Text.IO as T import qualified Data.Text.IO as T
import qualified Data.Text.Lazy.IO as TL
import Data.Text.Lazy (toStrict, unpack)
import Data.String.Conversions (cs)
import Data.Text.Prettyprint.Doc (pretty) import Data.Text.Prettyprint.Doc (pretty)
import Text.Megaparsec (parse) import Text.Megaparsec (parse)
import Windows12.Parser (programP) import Windows12.Parser (programP)
import System.Environment (getArgs) import System.Environment (getArgs)
import LLVM.Pretty
import Windows12.Ast
import Windows12.CodeGen (codegen)
main :: IO () main :: IO ()
main = do main = do
@ -19,4 +26,4 @@ main = do
test <- T.readFile inputFile test <- T.readFile inputFile
case parse programP inputFile test of case parse programP inputFile test of
Left err -> print err Left err -> print err
Right ast -> print (pretty ast) Right ast -> TL.writeFile outputFile (ppllvm (codegen (cs inputFile) ast))