diff options
Diffstat (limited to 'main.hs')
-rw-r--r-- | main.hs | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/main.hs b/main.hs deleted file mode 100644 index b56edfe..0000000 --- a/main.hs +++ /dev/null @@ -1,29 +0,0 @@ -module Main where - -import System.Environment -import System.Exit - -import Compiler -import Optimiser -import Parser -import VM - - -usage :: IO () -usage = do - progname <- getProgName - putStrLn $ "Usage: " ++ progname ++ " [filename.lisp]" - -main :: IO () -main = do - clargs <- getArgs - source <- case clargs of - [] -> getContents - [fname] -> readFile fname - _ -> usage >> exitFailure - - prog <- parseProgram source >>= either (die . show) return - irprog <- either die return (compileProgram prog) - let opt = optimise irprog - -- print opt - vmRun opt |