From 0e1f435314b382cb78056f04d0997df43e4f8fcf Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Mon, 26 Mar 2018 21:34:51 +0200
Subject: Rename files for case-sensitive file system

---
 Main.hs | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 Main.hs

(limited to 'Main.hs')

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
-- 
cgit v1.2.3-70-g09d2