From f4a28c94aabfdef6011294db3d36860dcb5badb3 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Mon, 5 Dec 2005 16:53:27 +0000
Subject: Renamed transfer compiler and interpreter.

---
 transfer/transferc.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 transfer/transferc.hs

(limited to 'transfer/transferc.hs')

diff --git a/transfer/transferc.hs b/transfer/transferc.hs
new file mode 100644
index 000000000..a363ff75c
--- /dev/null
+++ b/transfer/transferc.hs
@@ -0,0 +1,25 @@
+module Main where
+
+import Transfer.CompilerAPI
+
+import Data.List (partition, isPrefixOf)
+import System.Environment
+import System.Exit
+import System.IO
+
+die :: String -> IO a
+die s = do
+        hPutStrLn stderr s
+        exitFailure
+
+main :: IO ()
+main = do 
+       args <- getArgs
+       let (flags,files) = partition ("-" `isPrefixOf`) args
+           path = [ p | ('-':'i':p) <- flags ]
+       case files of
+         [f] -> do
+                cf <- compileFile path f
+                putStrLn $ "Wrote " ++ cf
+                return ()
+         _   -> die "Usage: transferc [-i<path> [-i<path> ... ]] <file>"
-- 
cgit v1.2.3