l4/pkg/ocaml/ocaml/contrib/otherlibs/labltk/browser/winmain.c

   1 #include <windows.h>
   2 #include <mlvalues.h>
   3 #include <callback.h>
   4 #include <sys.h>
   5
   6 /*CAMLextern int __argc; */
   7 /* CAMLextern char **__argv; */
   8 /* CAMLextern void caml_expand_command_line(int * argcp, char *** argvp); */
   9 /* extern void caml_main (char **); */
  10
  11 int WINAPI WinMain(HINSTANCE h, HINSTANCE HPrevInstance,
  12                    LPSTR lpCmdLine, int nCmdShow)
  13 {
  14   char exe_name[1024];
  15   char * argv[2];
  16
  17   GetModuleFileName(NULL, exe_name, sizeof(exe_name) - 1);
  18   exe_name[sizeof(exe_name) - 1] = '0';
  19   argv[0] = exe_name;
  20   argv[1] = NULL;
  21   caml_main(argv);
  22   sys_exit(Val_int(0));
  23   return 0;
  24 }