Rename files for case-sensitive file system

1 files changed, 29 insertions, 0 deletions

diff --git a/Main.hs b/Main.hs
new file mode 100644
index 0000000..b56edfe
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,29 @@
+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