The cctools-workqueue package

[Tags: gpl, library]

This package provides a high-level Haskell interface to the WorkQueue library:

Work Queue is a framework for building large master-worker applications that span many computers including clusters, clouds, and grids. Work Queue applications are written in C, Perl, or Python using a simple API that allows users to define tasks, submit them to the queue, and wait for completion. Tasks are executed by a standard worker process that can run on any available machine. Each worker calls home to the master process, arranges for data transfer, and executes the tasks. Together, the master and worker handle a wide variety of failures, allowing for dynamically scalable and robust applications.

Example usage:

By default the master listens on 9123 on the localhost host. Start a worker:

 $ work_queue_worker -d all localhost 9123

Now we can execute the following master program:

 module Main where

 import Control.Distributed.CCTools.WorkQueue

 import Control.Applicative ((<$>))
 import qualified Data.ByteString.Char8 as BS (pack, putStrLn)
 import Foreign.C.String (newCStringLen)
 import Control.Monad (forM_)

 mktask :: Show a => a -> IO Task
 mktask v = do
   let script = BS.pack . unlines $ [
               "t=$(echo $RANDOM % 10 | bc)"
             , "sleep $t"
             , "echo " ++ show v
   t <- task $ cmd "bash"
   specifyBuffer t script (remote "") False
   specifyTag    t $ show v
   return t

 printStats :: WorkQueue -> IO ()
 printStats q = do
   s <- getStats q
   print $ map ($ s) [tasksRunning, tasksWaiting, tasksComplete]

 processResult :: WorkQueue -> Task -> IO ()
 processResult q r = do
   putStrLn $ "Got: " ++ show (tag r)
   BS.putStrLn . output $ r
   delete r

 main = do
   setDebugFlags [All]
   q  <- workqueue defaultQParams
   ts <- mapM mktask [1..10]
   forM_ ts (submit q)

   eventLoop q (seconds 1) printStats processResult

   putStrLn "Done!"


Change logNone available
Dependenciesbase (>=4.5 && <4.7), bindings-cctools (==*), bytestring, lens, monad-loops, unix [details]
AuthorBadi' Abdul-Wahid
CategoryDistributed Computing
Home page
Source repositoryhead: git clone
UploadedWed Jan 2 00:14:51 UTC 2013 by BadiAbdulWahid
Downloads422 total (11 in last 30 days)
0 []
StatusDocs not available [build log]
All reported builds failed as of 2015-11-12 [all 7 reports]



warnTurn on warningsDisabledAutomatic

Use -f <flag> to enable a flag, or -f -<flag> to disable that flag. More info


Maintainers' corner

For package maintainers and hackage trustees