wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A bit more documentation for unloadAll

Browse Source
This commit is contained in:
lemmih 2005-05-20 01:56:48 +00:00
parent 640a91e7a9
commit 537ffc4630
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/plugins/System/Plugins/Env.hs
View File

@ -48,14 +48,14 @@ module System.Plugins.Env (
#include "../../../../config.h" #include "../../../../config.h"
import System.Plugins.LoadTypes import System.Plugins.LoadTypes (Module)
import System.Plugins.PackageAPI {- everything -} import System.Plugins.PackageAPI {- everything -}
#if CABAL == 1 || __GLASGOW_HASKELL__ >= 604 #if CABAL == 1 || __GLASGOW_HASKELL__ >= 604
import System.Plugins.ParsePkgConfCabal( parsePkgConf ) import System.Plugins.ParsePkgConfCabal( parsePkgConf )
#else #else
import System.Plugins.ParsePkgConfLite ( parsePkgConf ) import System.Plugins.ParsePkgConfLite ( parsePkgConf )
#endif #endif
import System.Plugins.Consts ( ghcLibraryPath, sysPkgConf, sysPkgSuffix, dllSuf ) import System.Plugins.Consts ( ghcLibraryPath, sysPkgConf, sysPkgSuffix )
import Data.IORef ( writeIORef, readIORef, newIORef, IORef() ) import Data.IORef ( writeIORef, readIORef, newIORef, IORef() )
import Data.Maybe ( isJust, isNothing ) import Data.Maybe ( isJust, isNothing )
@ -102,8 +102,8 @@ lookupFM = flip M.lookup
-- safely ignore that request. We're in the IO monad anyway, so we can -- safely ignore that request. We're in the IO monad anyway, so we can
-- add some extra state of our own. -- add some extra state of our own.
-- --
-- The state is a FiniteMap String Bool (a hash of package/object names -- The state is a FiniteMap String (Module,Int) (a hash of package/object names
-- to whether they have been loaded or not). -- to Modules and how many times they've been loaded).
-- --
-- It also contains the package.conf information, so that if there is a -- It also contains the package.conf information, so that if there is a
-- package dependency we can find it correctly, even if it has a -- package dependency we can find it correctly, even if it has a

7
src/plugins/System/Plugins/Load.hs
View File

@ -289,7 +289,7 @@ dynload2 obj incpath pkgconfs sym = do
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- --
-- | unload a module (not it's dependencies) -- | unload a module (not its dependencies)
-- we have the dependencies, so cascaded unloading is possible -- we have the dependencies, so cascaded unloading is possible
-- --
-- once you unload it, you can't 'load' it again, you have to 'reload' -- once you unload it, you can't 'load' it again, you have to 'reload'
@ -298,6 +298,11 @@ dynload2 obj incpath pkgconfs sym = do
unload :: Module -> IO () unload :: Module -> IO ()
unload m = rmModuleDeps m >> unloadObj m unload m = rmModuleDeps m >> unloadObj m
------------------------------------------------------------------------
--
-- | unload a module and its dependencies
-- we have the dependencies, so cascaded unloading is possible
--
unloadAll :: Module -> IO () unloadAll :: Module -> IO ()
unloadAll m = do moduleDeps <- fmap (fromMaybe []) (getModuleDeps m) unloadAll m = do moduleDeps <- fmap (fromMaybe []) (getModuleDeps m)
rmModuleDeps m rmModuleDeps m