2005-05-19 03:23:30 +00:00
|
|
|
|
|
|
|
import System.Plugins
|
|
|
|
import API
|
|
|
|
|
|
|
|
-- an example where we just want to load an object and run it
|
|
|
|
|
|
|
|
main = do
|
|
|
|
m_v <- load_ "../Null.o" ["../api",".."] "resource"
|
|
|
|
t <- load_ "../Dep.o" ["../api"] "resource"
|
|
|
|
case m_v of
|
|
|
|
LoadFailure err -> error (unlines err)
|
2005-05-20 02:02:14 +00:00
|
|
|
LoadSuccess m v -> do putStrLn ( show (a v) ) ; unloadAll m -- unloads Null.o but not Dep.o since we're still using it.
|
2005-05-19 03:23:30 +00:00
|
|
|
case t of
|
|
|
|
LoadFailure err -> error (unlines err)
|
|
|
|
LoadSuccess m v -> do putStrLn ( show (a v) ) ; unloadAll m
|