From 11c2c16835b3e8368be77ccc5b7ddf949021eccd Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sat, 3 Jul 2010 21:26:00 +0200
Subject: Moved files around as a preliminary for architectural changes.

---
 Hsbot/Irc/Plugin.hs | 97 -----------------------------------------------------
 1 file changed, 97 deletions(-)
 delete mode 100644 Hsbot/Irc/Plugin.hs

(limited to 'Hsbot/Irc/Plugin.hs')

diff --git a/Hsbot/Irc/Plugin.hs b/Hsbot/Irc/Plugin.hs
deleted file mode 100644
index 2c8e84b..0000000
--- a/Hsbot/Irc/Plugin.hs
+++ /dev/null
@@ -1,97 +0,0 @@
-module Hsbot.Irc.Plugin
-    ( IrcPlugin
-    , IrcPluginState (..)
-    , killIrcPlugin
-    , listPlugins
-    , loadIrcPlugin
-    , sendToPlugin
-    , spawnIrcPlugins
-    , unloadIrcPlugin
-    ) where
-
-import Control.Concurrent
-import Control.Concurrent.Chan ()
-import Control.Exception
-import Control.Monad.State
-import qualified Data.Map as M
-
-import Hsbot.Irc.Config
-import Hsbot.Irc.Message
-import Hsbot.Irc.Plugin.Core
-import Hsbot.Irc.Plugin.Dummy
-import Hsbot.Irc.Plugin.Ping
-import Hsbot.Irc.Plugin.Quote
-import Hsbot.Irc.Plugin.Utils
-import Hsbot.Irc.Types
-
--- | Sends a msg to a plugin
-sendToPlugin :: IrcBotMsg -> IrcPluginState -> IrcBot ()
-sendToPlugin ircBotMsg plugin = do
-    liftIO $ writeChan (ircPluginChan plugin) ircBotMsg
-
--- | spawns IrcPlugins
-spawnIrcPlugins :: IrcBot ()
-spawnIrcPlugins = do
-    config <- gets ircBotConfig
-    mapM_ (loadIrcPlugin) (ircConfigPlugins config)
-
--- | loads an ircbot plugin
-loadIrcPlugin :: String -> IrcBot ()
-loadIrcPlugin pluginName = do
-    ircbot <- get
-    let masterChan  = ircBotChan ircbot
-    pluginChan <- liftIO (newChan :: IO (Chan IrcBotMsg))
-    let entryPoint = case pluginName of
-                        "Core"  -> ircBotPluginCore
-                        "Ping"  -> ircBotPluginPing
-                        "Quote" -> ircBotPluginQuote
-                        _       -> ircBotPluginDummy
-    let oldPlugins    = ircBotPlugins ircbot
-        oldResumeData = ircBotResumeData ircbot
-    -- We check for unicity
-    case M.lookup pluginName oldPlugins of
-        Just _  -> return ()
-        Nothing -> do
-            mvar <- liftIO newEmptyMVar
-            threadId <- liftIO . forkIO $ finally (entryPoint pluginChan masterChan) (putMVar mvar ())
-            let plugin        = IrcPluginState { ircPluginName       = pluginName
-                                               , ircPluginChan       = pluginChan
-                                               , ircPluginMasterChan = masterChan }
-                newPlugins    = M.insert pluginName (plugin, mvar, threadId) oldPlugins
-                newResumeData = M.insert "PLUGINS" (show $ M.keys newPlugins) oldResumeData
-            put $ ircbot { ircBotPlugins    = newPlugins
-                         , ircBotResumeData = newResumeData }
-
--- | Sends a list of loaded plugins
-listPlugins :: IrcMsg -> String -> IrcBot ()
-listPlugins originalRequest dest = do
-    plugins <- gets ircBotPlugins
-    let listing = unwords $ M.keys plugins
-    case M.lookup dest plugins of
-        Just (plugin, _, _) -> sendToPlugin (IntIrcCmd $ IrcCmd "ANSWER" "CORE" dest listing originalRequest) plugin
-        Nothing          -> return ()
-
--- | Unloads a plugin
-unloadIrcPlugin :: String -> IrcBot ()
-unloadIrcPlugin name = do
-    killIrcPlugin name
-    ircbot <- get
-    let oldResumeData = ircBotResumeData ircbot
-        newPlugins    = M.keys $ ircBotPlugins ircbot
-        newResumeData = M.insert "PLUGINS" (show newPlugins) oldResumeData
-    put $ ircbot { ircBotResumeData = newResumeData }
-
--- | kills a plugin
-killIrcPlugin :: String -> IrcBot ()
-killIrcPlugin name = do
-    ircbot <- get
-    let oldPlugins = ircBotPlugins ircbot
-    -- We check if the plugin exists
-    case M.lookup name oldPlugins of
-        Just (_, mvar, threadId) -> do
-            let newPlugins = M.delete name oldPlugins
-            liftIO $ throwTo threadId UserInterrupt
-            put $ ircbot { ircBotPlugins = newPlugins }
-            liftIO $ takeMVar mvar
-        Nothing            -> return ()
-
-- 
cgit v1.2.3