From fb1d9b7d2c3c8261fc5a2ce3698e6749458b207a Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 26 Jun 2008 21:05:01 +0000 Subject: removed transfer from gf3 --- transfer/trci.hs | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 transfer/trci.hs (limited to 'transfer/trci.hs') diff --git a/transfer/trci.hs b/transfer/trci.hs deleted file mode 100644 index 3cfd02bd6..000000000 --- a/transfer/trci.hs +++ /dev/null @@ -1,37 +0,0 @@ -import Transfer.InterpreterAPI -import Transfer.Interpreter (prEnv) - -import Control.Monad (when) -import Data.List (partition, isPrefixOf) -import System.Environment (getArgs) -import System.IO (isEOF) - -interpretLoop :: Env -> IO () -interpretLoop env = - do - eof <- isEOF - if eof - then return () - else do - line <- getLine - r <- evaluateString env line - putStrLn r - interpretLoop env - -runMain :: Env -> IO () -runMain env = do - r <- evaluateString env "main" - putStrLn r - -main :: IO () -main = do args <- getArgs - let (flags,files) = partition ("-" `isPrefixOf`) args - env <- case files of - [f] -> loadFile f - _ -> fail "Usage: trci [-i] " - when ("-v" `elem` flags) $ do - putStrLn "Top-level environment:" - putStrLn (prEnv env) - if "-i" `elem` flags - then interpretLoop env - else runMain env -- cgit v1.2.3