From b801149fbf5c9eb3f73477d3496cdfd92cb178a1 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 12 Nov 2007 09:17:02 +0000
Subject: merged gfc and gfi to one binary, and a shell script for gfc

---
 src/GF/Devel/GF3.hs | 79 -----------------------------------------------------
 1 file changed, 79 deletions(-)
 delete mode 100644 src/GF/Devel/GF3.hs

(limited to 'src/GF/Devel/GF3.hs')

diff --git a/src/GF/Devel/GF3.hs b/src/GF/Devel/GF3.hs
deleted file mode 100644
index e6d2b1bc3..000000000
--- a/src/GF/Devel/GF3.hs
+++ /dev/null
@@ -1,79 +0,0 @@
-module Main where
-
-import GF.Command.Interpreter
-import GF.Command.Importing
-import GF.Command.Commands
-import GF.GFCC.API
-
-import GF.Devel.UseIO
-import GF.Devel.Arch
-import GF.Infra.Option ---- Haskell's option lib
-
-import System (getArgs)
-
-main :: IO ()
-main = do
-  putStrLn welcome
-  xx <- getArgs
-  env <- importInEnv emptyMultiGrammar xx
-  loop (GFEnv env [] 0)
-  return ()
-
-loop :: GFEnv -> IO GFEnv
-loop gfenv0 = do
-  let env = commandenv gfenv0
-  putStrFlush (prompt env)
-  s <- getLine
-  let gfenv = gfenv0 {history = s : history gfenv0}
-  case words s of
-
-  -- special commands, working on GFEnv
-    "i":args -> do
-      env1 <- importInEnv (multigrammar env) args
-      loopNewCPU $ gfenv {commandenv = env1}
-    "e":_ -> loopNewCPU $ gfenv {commandenv=env{multigrammar=emptyMultiGrammar}}
-    "ph":_ -> mapM_ putStrLn (reverse (history gfenv0)) >> loopNewCPU gfenv
-    "q":_  -> putStrLn "See you." >> return gfenv
-
-  -- ordinary commands, working on CommandEnv
-    _ -> do
-      interpretCommandLine env s
-      loopNewCPU gfenv
-
-loopNewCPU gfenv = do
-  cpu <- prCPU $ cputime gfenv
-  loop $ gfenv {cputime = cpu}
-
-importInEnv mgr0 xx = do
-  let (opts,files) = getOptions "-" xx
-  mgr1 <- case files of
-    [] -> return mgr0
-    _  -> importGrammar mgr0 opts files
-  let env = CommandEnv mgr1 (allCommands mgr1)
-  putStrLn $ unwords $ "\nLanguages:" : languages mgr1
-  return env
-
-welcome = unlines [
-  "                              ",
-  "         *  *  *              ",
-  "      *           *           ",
-  "    *               *         ",
-  "   *                          ",
-  "   *                          ",
-  "   *        * * * * * *       ",
-  "   *        *         *       ",
-  "    *       * * * *  *        ",
-  "      *     *      *          ",
-  "         *  *  *              ",
-  "                              ",
-  "This is GF version 3.0 alpha. ",
-  "Some things may work.         "
-  ]
-
-prompt env = abstractName (multigrammar env) ++ "> "
-
-data GFEnv = GFEnv {
-  commandenv :: CommandEnv,
-  history    :: [String],
-  cputime    :: Integer
-  }
-- 
cgit v1.2.3