System.Posix.DynamicLinker

module System.Posix.DynamicLinker where

data FunPtr a -- from Foreign.Ptr

data DL = Null | Next | Default | DLHandle Int deriving (Show,Read)

data RTLDFlags = RTLD_LAZY | RTLD_NOW | RTLD_GLOBAL | RTLD_LOCAL
               deriving (Show,Read)

dlopen :: FilePath -> [RTLDFlags] -> IO DL
dlopen path flags = fail "dlopen not implemented yet!!!"

dlclose :: DL -> IO ()
dlclose dl = return () -- !!!

dlsym :: DL -> String -> IO (FunPtr a)
dlsym dl sym = fail "dlsym not implemented yet!!!"

dlerror :: IO String
dlerror = return "dlerror not implemented yet!!!"