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

DietHEP demo program wurble

diff --git a/ghc/interpreter/Dh_Demo.hs b/ghc/interpreter/Dh_Demo.hs
new file mode 100644 (file)
index 0000000..fb6d6d0
--- /dev/null
+++ b/ghc/interpreter/Dh_Demo.hs
@@ -0,0 +1,6 @@
+
+module Dh_Demo where
+
+wurble :: Int -> IO ()
+wurble x = putStr ( "Hello Erik && Daan, today's magic number is: " 
+                    ++ show x ++ "\n")

diff --git a/ghc/interpreter/dh_demo.c b/ghc/interpreter/dh_demo.c
index 86c41f0..53ba464 100644 (file)
--- a/ghc/interpreter/dh_demo.c
+++ b/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);