From fd8d5faf5f4ab085b01316e15403779ca30cf3f9 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 4 Feb 2010 21:05:37 +0100
Subject: Began a complete rewrite of command and plugin management.

Wrote a command routing statement, added an IrcPlugin monad.
---
 Hsbot/Plugin.hs | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

(limited to 'Hsbot/Plugin.hs')

diff --git a/Hsbot/Plugin.hs b/Hsbot/Plugin.hs
index 7d4f0ca..e6f425a 100644
--- a/Hsbot/Plugin.hs
+++ b/Hsbot/Plugin.hs
@@ -13,7 +13,7 @@ import System.Plugins
 import Hsbot.Types
 import Hsbot.Utils
 
--- TODO : unload plugin, reload plugin, list plugins, etc
+-- TODO : reload plugin, list plugins, etc
 
 -- | Loads a plugin into an ircBot
 loadPlugin :: String -> IrcBot ()
@@ -21,7 +21,7 @@ loadPlugin name = do
     bot <- get
     let oldPlugins = botPlugins bot
     if name `M.member` oldPlugins
-      then traceM $ inColor ("Can't load plugin \"" ++ name ++ "\", this identifier has already been registered.") [31]
+      then traceM $ inColor ("Can't load plugin \"" ++ name ++ "\", this identifier has already been registered.") [31] -- or a wait, smthg like that?
       else do
         plugin <- liftIO $ effectivelyLoadPlugin name (botChannel bot)
         case plugin of
@@ -33,7 +33,6 @@ loadPlugin name = do
 effectivelyLoadPlugin :: String -> Chan BotMsg -> IO (Maybe Plugin)
 effectivelyLoadPlugin name serverChan = do
     -- TODO : test if Plugins/ ++ name ++ .hs exists
-    --        Just load, do not compile if .o already present
     m <- liftIO $ makeAll ("Plugins/" ++ name ++ ".hs") []
     plugin <- case m of
         MakeSuccess _ _ -> do
@@ -54,6 +53,25 @@ effectivelyLoadPlugin name serverChan = do
             return Nothing
     return plugin
 
+-- | Unloads a plugin
+unloadPlugin :: String -> IrcBot ()
+unloadPlugin name = do
+    bot <- get
+    let oldPlugins = botPlugins bot
+    case M.lookup name oldPlugins of
+        Just plugin -> do
+            let newPlugins = M.delete name oldPlugins
+            liftIO $ killPlugin plugin -- TODO : forkIO to get this asynchronous and non blocking
+            -- or let's see if closing one's chan kills him.
+            unloadAll $ pluginModule $ M.lookup name oldPlugins
+            put $ bot { botPlugins = newPlugins }
+        Nothing -> return ()
+
+-- | stop a plugin
+killPlugin :: Plugin -> IO ()
+killPlugin plugin = do
+            -- TODO : send stop, sleep and kill thread (if necessary) and remove its commands
+
 -- | Sends a msg to a plugin
 sendToPlugin :: BotMsg -> Plugin -> IrcBot ()
 sendToPlugin msg plugin = do
-- 
cgit v1.2.3