DietHEP demo program wurble
--- /dev/null
+
+module Dh_Demo where
+
+wurble :: Int -> IO ()
+wurble x = putStr ( "Hello Erik && Daan, today's magic number is: "
+ ++ show x ++ "\n")
DH_MODULE hModule;
void(*proc)(int);
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);
assert(hModule != 0);
proc = DH_GetProcAddress ( dh_ccall, hModule, "wurble" );
assert(proc);