vim/hs-irc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

some progress on the plugin system

Browse Source
This commit is contained in:
Tiago Carvalho 2020-07-22 23:22:44 +01:00
parent c07bc5eda0
commit cc6c634c82
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
IRC/Plugins/Loader.hs
View File

@ -1,15 +1,23 @@
{-# LANGUAGE MagicHash #-} {-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-} {-# LANGUAGE UnboxedTuples #-}
module IRC.Plugins.Loader where module IRC.Plugins.Loader ( load ) where
import qualified Data.HashMap.Lazy as M
import Control.Exception ( catch, ErrorCall )
import GHC.Exts ( addrToAny# ) import GHC.Exts ( addrToAny# )
import GHC.Ptr ( Ptr(..) ) import GHC.Ptr ( Ptr(..) )
import System.Info ( os, arch ) import System.Info ( os, arch )
import GHCi.ObjLink import GHCi.ObjLink
import Encoding import Encoding
load :: IO (Either String (IO ())) type PluginSet = M.HashMap String Plugin
data Plugin = Plugin { wew :: Int,
lad :: Int }
load :: PluginSet -> IO (Either String (IO PluginSet))
load = do initObjLinker RetainCAFs load = do initObjLinker RetainCAFs
loadObj "Plugin.o" loadObj "Plugin.o"
_ret <- resolveObjs _ret <- resolveObjs
@ -19,6 +27,12 @@ load = do initObjLinker RetainCAFs
Just (Ptr addr) -> case addrToAny# addr of Just (Ptr addr) -> case addrToAny# addr of
(# f #) -> return $ Right f (# f #) -> return $ Right f
unload :: String -> IO PluginSet
unload plugin = catch (unloadObj $ plugin <> ".o") exceptionHandler
exceptionHandler :: ErrorCall -> IO PluginSet
exceptionHandler _ = return ()
mangleSymbol :: Maybe String -> String -> String -> String mangleSymbol :: Maybe String -> String -> String -> String
mangleSymbol pkg module' valsym = mangleSymbol pkg module' valsym =
prefixUnderscore <> prefixUnderscore <>