summaryrefslogtreecommitdiff
path: root/src-3.0/GF.hs
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /src-3.0/GF.hs
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'src-3.0/GF.hs')
-rw-r--r--src-3.0/GF.hs41
1 files changed, 0 insertions, 41 deletions
diff --git a/src-3.0/GF.hs b/src-3.0/GF.hs
deleted file mode 100644
index 5b1776987..000000000
--- a/src-3.0/GF.hs
+++ /dev/null
@@ -1,41 +0,0 @@
-{-# 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)
-