Documentation fix for unloadAll and example for loading of a shared library (called loadCLib).

examples/loadCLib/null/Makefile

@@ -0,0 +1,4 @@
+TEST=   unloadAll/null
+EXTRA_OBJS=Null.o Dep.o
+TOP=../../..
+include ../../build.mk

examples/loadCLib/null/Null.hs

@@ -0,0 +1,12 @@
+module Null ( resource )  where
+
+import API
+import Data.Dynamic
+import Prelude hiding (null)
+import Graphics.Rendering.OpenGL
+
+resource = null
+
+-- ! this has to be special: it can't be overridden by the user.
+resource_dyn :: Dynamic
+resource_dyn = toDyn resource

examples/loadCLib/null/api/API.hs

@@ -0,0 +1,12 @@
+{-# OPTIONS -fglasgow-exts #-}
+
+module API where
+
+import Data.Dynamic
+
+data Null = Null { a, b :: Int }
+   deriving (Typeable, Show)
+
+null :: Null
+null = Null { a = 42 , b = 1 }
+

examples/loadCLib/null/prog/Main.hs

@@ -0,0 +1,11 @@
+
+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"
+    case m_v of
+        LoadFailure err -> error (unlines err)
+        LoadSuccess m v -> do putStrLn ( show (a v) ) ; unload m

examples/loadCLib/null/prog/expected

@@ -0,0 +1 @@
+42

examples/unloadAll/null/prog/Main.hs

@@ -9,7 +9,7 @@ main = do
     t     <- load_ "../Dep.o" ["../api"] "resource"
     case m_v of
         LoadFailure err -> error (unlines err)
-        LoadSuccess m v -> do putStrLn ( show (a v) ) ; unloadAll m
+        LoadSuccess m v -> do putStrLn ( show (a v) ) ; unloadAll m -- unloads Null.o but not Dep.o since we're still using it.
     case t of
         LoadFailure err -> error (unlines err)
         LoadSuccess m v -> do putStrLn ( show (a v) ) ; unloadAll m