[Haskell-cafe] Threads talking back to parent
chrisk at MIT.EDU
Mon Oct 31 17:08:44 EST 2005
Or perhaps a TChan, if that is more appropriate:
I like the curried command idiom:
do chan <- newChan
let logToParent = writeChan chan
do tChan <- newTChan
let logToParentSTM = writeTChan tChan
let logToParent = atomically.logToParentSTM
do mVar <- newEmptyMVar
let logToParent = putMVar mVar
logToParentSTM :: a -> STM a
logToParent :: a -> IO a
Then pass logToParent/STM to the child threads, which never need to know
the details of how data is being passed back to the parent thread. Log
to parent could do all kinds of book-keeping, logging, synchronizaion,
etc, while keeping the same a->IO a type and without modifying the client.
Sebastian Sylvan wrote:
> On 10/31/05, Joel Reymont <joelr1 at gmail.com> wrote:
>>I'm launching thousands of threads that send and receive commands. I
>>would like the launching thread to keep a log of all the commands
>>sent and received, in proper order.
>>This would mean that each time a command is sent and received in the
>>child thread it would need to be sent back to parent who would log
>>the command on a first-come first-serve basis.
>>How would I implement this in Haskell?
> How about using a Chan?
> Send the Chan to all of the forked off processesses (so they take a
> Chan as an argument). Whenever they need to send something back to the
> server they write it to the Chan.
> The main thread can then just read off the Chan and log it.
> Sebastian Sylvan
> UIN: 44640862
> Haskell-Cafe mailing list
> Haskell-Cafe at haskell.org
More information about the Haskell-Cafe