[project @ 2000-05-12 16:03:04 by sewardj]

DietHEP demo program wurble

ghc/interpreter/Dh_Demo.hs

+
+module Dh_Demo where
+
+wurble :: Int -> IO ()
+wurble x = putStr ( "Hello Erik && Daan, today's magic number is: " 
+                    ++ show x ++ "\n")

ghc/interpreter/dh_demo.c

@@ -11,7 +11,7 @@ int main ( int argc, char** argv )
    DH_MODULE hModule;
    void(*proc)(int);
 
-   hModule = DH_LoadLibrary("FooBar");   /* note no .hs */
+   hModule = DH_LoadLibrary("Dh_Demo");   /* note no .hs */
    assert(hModule != 0);
    proc = DH_GetProcAddress ( dh_ccall, hModule, "wurble" );
    assert(proc);