-
Notifications
You must be signed in to change notification settings - Fork 0
/
chill-run.hs
39 lines (34 loc) · 1.15 KB
/
chill-run.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
import Prelude hiding (fromString)
import System.Environment
import Data.List
import Control.DeepSeq (deepseq, NFData(rnf))
import Parser (parse, fromString)
import Compiler (compile)
import qualified Vm (run, run_, ChillVm)
runVerbose :: String -> IO ()
runVerbose sourceName = do
putStrLn "Running in verbose mode"
input <- readFile sourceName
putStrLn $ "Before processing:\n" ++ input
let parsed = parse input
putStrLn $ "After parsing:\n" ++ unlines parsed
let bytecode = map fromString parsed
let program = compile bytecode
putStrLn $ "Program is:\n" ++ show program
finalState <- Vm.run program
putStrLn $ "Final state:\n" ++ show finalState
run :: String -> IO ()
run sourceName = do
input <- readFile sourceName
let parsed = parse input
let bytecode = map fromString parsed
let program = compile bytecode
Vm.run_ program
showUsage = putStrLn "Usage: chill-run path-to-text"
main = do
args <- getArgs
if head args == "-v"
then if length args /= 2 then showUsage else runVerbose $ args !! 1
else if length args == 1
then run $ head args
else showUsage