ghc/interpreter/dh_demo.c

   1
   2
   3 #include <stdio.h>
   4 #include <assert.h>
   5 #include <windows.h>
   6 #include "../includes/DietHEP.h"
   7
   8 int main ( int argc, char** argv )
   9 {
  10    {
  11    DH_MODULE hModule;
  12    void(*proc)(int);
  13
  14    hModule = DH_LoadLibrary("Dh_Demo");   /* note no .hs */
  15    assert(hModule != 0);
  16    proc = DH_GetProcAddress ( dh_ccall, hModule, "wurble" );
  17    assert(proc);
  18
  19    proc(44);
  20    proc(45);
  21    proc(46);
  22    }
  23    return 0;
  24 }