Ticket #3605: HsDllMain.c

#include <stdio.h>
#include <windows.h>
#include <Rts.h>

static void
HsDllMain(char *name, void (entry)(void))
{
  int argc = 1;
  char* argv[2];
  argv[0] = name;
  argv[1] = NULL;
  char** args = argv;
  
  printf("pre hs_init\n");
  startupHaskell(argc,args,entry);
  
  /*
  hs_init(&argc, &args);
  printf("pre hs_add_root\n");
  hs_add_root(entry);
  */
  printf("pre hs_done\n");
}

extern void __stginit_HsDemo(void);

BOOL STDCALL DllMain(
    HANDLE hModule,
    DWORD reason,
    void* reserved)
{
  if (reason == DLL_PROCESS_ATTACH) {
    HsDllMain("DsoHsDemo", __stginit_HsDemo);
  }
  return TRUE;
}