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!!!"