diff options
author | Tom Smeding <tom.smeding@gmail.com> | 2018-04-15 10:20:03 +0200 |
---|---|---|
committer | Tom Smeding <tom.smeding@gmail.com> | 2018-04-15 10:20:03 +0200 |
commit | 001804756eefd24bedb2ac55170e9df4827f2964 (patch) | |
tree | 61cf5cc6b2b88251636ebe6b89e08014ba4d3d5b /Main.hs | |
parent | 2f7aa3f0ae524305b7c3e8ba06a5ed0d2ba70891 (diff) |
Quieter
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -7,7 +7,7 @@ import System.Exit import qualified System.Info as System (os) import System.Process -import AST +-- import AST import Compiler import Interpreter import Parser @@ -32,13 +32,14 @@ main = do -- putStrLn $ astSuccinct prog -- print prog let opt = optimise prog - writeFile (fname ++ ".succinct") $ astSuccinct opt - writeFile (fname ++ ".ast") $ show opt + -- writeFile (fname ++ ".succinct") $ astSuccinct opt + -- writeFile (fname ++ ".ast") $ show opt case executionMode of EMInterpret -> do input <- getContents - interpret opt (map (fromIntegral . ord) input) >>= (putStr . map (chr . fromIntegral)) + output <- interpret opt $ map (fromIntegral . ord) input + putStr $ map (chr . fromIntegral) output EMCompile -> do writeFile (fname ++ ".asm") $ compile opt |