From e9e80fc389365e24d4300d7d5390c7d833a96c50 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:54:35 +0000
Subject: changed names of resource-1.3; added a note on homepage on release

---
 src/GF.hs | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 src/GF.hs

(limited to 'src/GF.hs')

diff --git a/src/GF.hs b/src/GF.hs
new file mode 100644
index 000000000..5b1776987
--- /dev/null
+++ b/src/GF.hs
@@ -0,0 +1,41 @@
+{-# OPTIONS -cpp #-}
+module Main where
+
+import GFC
+import GFI
+import GF.Data.ErrM
+import GF.Infra.Option
+import GF.Infra.UseIO
+import Paths_gf
+
+import Data.Version
+import System.Environment (getArgs)
+import System.Exit
+import System.IO
+#ifdef mingw32_HOST_OS
+import System.Win32.Console
+import System.Win32.NLS
+#endif
+
+main :: IO ()
+main = do
+#ifdef mingw32_HOST_OS
+  codepage <- getACP
+  setConsoleCP codepage
+  setConsoleOutputCP codepage
+#endif
+  args <- getArgs
+  case parseOptions args of
+    Ok (opts,files) -> mainOpts opts files
+    Bad err         -> do hPutStrLn stderr err
+                          hPutStrLn stderr "You may want to try --help."
+                          exitFailure
+
+mainOpts :: Options -> [FilePath] -> IO ()
+mainOpts opts files = 
+    case flag optMode opts of
+      ModeVersion     -> putStrLn $ "Grammatical Framework (GF) version " ++ showVersion version
+      ModeHelp        -> putStrLn helpMessage
+      ModeInteractive -> mainGFI opts files
+      ModeCompiler    -> dieIOE (mainGFC opts files)
+
-- 
cgit v1.2.3