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

Take in input/output file args

Browse Source
This commit is contained in:
Ethan Girouard 2024-12-09 20:19:31 -05:00
parent 37cf2fe339
commit 2819b7fc57
Signed by: eta357
GPG Key ID: 7BCDC36DFD11C146
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Main.hs
View File

@ -6,10 +6,17 @@ import qualified Data.Text.IO as T
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)
main :: IO () main :: IO ()
main = do main = do
test <- T.readFile "test/hello.w12" args <- getArgs
case parse programP "test/hello.w12" test of
Left err -> print err if length args /= 2
Right ast -> print (pretty ast) then putStrLn "Usage: windows12 <input file> <output file>"
else do
let [inputFile, outputFile] = args
test <- T.readFile inputFile
case parse programP inputFile test of
Left err -> print err
Right ast -> print (pretty ast)