From f4a28c94aabfdef6011294db3d36860dcb5badb3 Mon Sep 17 00:00:00 2001 From: bringert Date: Mon, 5 Dec 2005 16:53:27 +0000 Subject: Renamed transfer compiler and interpreter. --- transfer/run_core.hs | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 transfer/run_core.hs (limited to 'transfer/run_core.hs') diff --git a/transfer/run_core.hs b/transfer/run_core.hs deleted file mode 100644 index 0bb7f1aa8..000000000 --- a/transfer/run_core.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: run_core [-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