--  Threads.hs: threads accounting
--
--  Author : Jens-Ulrik Petersen
--  Created: May 2003
--
--  Version: $Revision: 1.2 $ from $Date: 2006/12/08 12:06:24 $
--
--  Copyright (c) 2003, 2008-2010 Jens-Ulrik Holger Petersen
--
--  This program is free software; you can redistribute it and/or
--  modify it under the terms of the GNU General Public
--  License as published by the Free Software Foundation; either
--  version 2 of the License, or (at your option) any later version.
--
--  This program is distributed in the hope that it will be useful,
--  but WITHOUT ANY WARRANTY; without even the implied warranty of
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
--  General Public License for more details.

module Hircules.Threads (killThreads, newThread, shutDown) where

import Control.Concurrent
import System.IO.Unsafe (unsafePerformIO)

import Graphics.UI.Gtk (mainQuit)

threads :: MVar [ThreadId]
threads = unsafePerformIO $ newMVar []

newThread :: IO () -> IO ThreadId
newThread io = do
    t <- forkIO io
    modifyMVar_ threads (\ ts -> return (t:ts))
    return t

killThreads :: IO ()
killThreads = do
    ts <- takeMVar threads
    mapM_ killThread ts

shutDown :: IO ()
shutDown = do
  mainQuit
  killThreads