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/trci.hs | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 transfer/trci.hs (limited to 'transfer/trci.hs') diff --git a/transfer/trci.hs b/transfer/trci.hs new file mode 100644 index 000000000..3cfd02bd6 --- /dev/null +++ b/transfer/trci.hs @@ -0,0 +1,37 @@ +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