From 5fedbc53ae997bd8d4071d05fc10853f80065698 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Fri, 28 Sep 2007 13:27:12 +0000
Subject: Started on a stub GFC.Main

---
 src/GF/Devel/GFC/Main.hs | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 src/GF/Devel/GFC/Main.hs

(limited to 'src/GF/Devel/GFC/Main.hs')

diff --git a/src/GF/Devel/GFC/Main.hs b/src/GF/Devel/GFC/Main.hs
new file mode 100644
index 000000000..d9ceb8e70
--- /dev/null
+++ b/src/GF/Devel/GFC/Main.hs
@@ -0,0 +1,28 @@
+module GF.Devel.GFC.Main where
+
+import GF.Devel.GFC.Options
+
+import System.Environment
+import System.Exit
+import System.IO
+
+
+version = "X.X"
+
+main :: IO ()
+main = 
+    do args <- getArgs
+       case parseOptions args of
+         Ok (opts, files) -> 
+             case optMode opts of
+               Version  -> putStrLn $ "GF, version " ++ version
+               Help     -> putStr helpMessage
+               Compiler -> gfcMain opts files
+         Errors errs -> 
+             do mapM_ (hPutStrLn stderr) errs
+                exitFailure
+
+gfcMain :: Options -> [FilePath] -> IO ()
+gfcMain opts files = return ()
+
+
-- 
cgit v1.2.3