Move transfer into the GF repo.

1 files changed, 26 insertions, 0 deletions

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] <file>"
+          if "-i" `elem` flags 
+            then interpretLoop env
+            else runMain env