Commit 8dc12860 authored by Aggelos Giantsios's avatar Aggelos Giantsios

Add arguments to run sequential orbit

parent 9ee48813
...@@ -83,6 +83,14 @@ main :: IO () ...@@ -83,6 +83,14 @@ main :: IO ()
main = do main = do
args <- getArgs args <- getArgs
case args of case args of
-- Sequential Orbit
["seq", version, host, port] -> do
let (gnrt, n) = bench_args version
Right t <- createTransport host port defaultTCPParameters
node <- newLocalNode t rtable
runProcess node $ do
res <- seq gnrt n
liftIO $ print res
-- Parallel Orbit -- Parallel Orbit
["par", iwp, version, w, host, port] -> do ["par", iwp, version, w, host, port] -> do
let (gnrt, n) = bench_args version let (gnrt, n) = bench_args version
...@@ -109,10 +117,12 @@ main = do ...@@ -109,10 +117,12 @@ main = do
SLN.startSlave b SLN.startSlave b
-- Invalid configuration -- Invalid configuration
_ -> do _ -> do
putStrLn "Sequential Version"
putStrLn "Usage: ./orbit seq [short|intermediate|long] host port"
putStrLn "Paraller Version" putStrLn "Paraller Version"
putStrLn "Usage: ./orbit par [True|False] [short|intermediat|long] nWorkers host port" putStrLn "Usage: ./orbit par [True|False] [short|intermediate|long] nWorkers host port"
putStrLn "Distributed Version [Master Node]" putStrLn "Distributed Version [Master Node]"
putStrLn "Usage: ./orbit dist master [True|False] [short|intermediat|long] nWorkers host port" putStrLn "Usage: ./orbit dist master [True|False] [short|intermediate|long] nWorkers host port"
putStrLn "Distributed Version [Slave Node]" putStrLn "Distributed Version [Slave Node]"
putStrLn "Usage: ./orbit dist slave host port" putStrLn "Usage: ./orbit dist slave host port"
where rtable :: RemoteTable where rtable :: RemoteTable
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment