From dbe8e61acc616b8f5ac07e8df89eb98a7997c29d Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 25 Nov 2005 16:36:19 +0000 Subject: Move transfer into the GF repo. --- transfer/run_core.hs | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 transfer/run_core.hs (limited to 'transfer/run_core.hs') diff --git a/transfer/run_core.hs b/transfer/run_core.hs new file mode 100644 index 000000000..1d0457acd --- /dev/null +++ b/transfer/run_core.hs @@ -0,0 +1,26 @@ +import Transfer.InterpreterAPI + +import Data.List (partition, isPrefixOf) +import System.Environment (getArgs) + +interpretLoop :: Env -> IO () +interpretLoop env = 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] " + if "-i" `elem` flags + then interpretLoop env + else runMain env -- cgit v1.2.3