1 files changed, 26 insertions, 0 deletions
diff --git a/ocaml-binary-annot/otherlibs/labltk/browser/winmain.c b/ocaml-binary-annot/otherlibs/labltk/browser/winmain.c
new file mode 100644
index 0000000000..dd9146fcce
--- /dev/null
+++ b/ocaml-binary-annot/otherlibs/labltk/browser/winmain.c
@@ -0,0 +1,26 @@
+/* $Id$ */
+
+#include <windows.h>
+#include <mlvalues.h>
+#include <callback.h>
+#include <sys.h>
+
+/*CAMLextern int __argc; */
+/* CAMLextern char **__argv; */
+/* CAMLextern void caml_expand_command_line(int * argcp, char *** argvp); */
+/* extern void caml_main (char **); */
+
+int WINAPI WinMain(HINSTANCE h, HINSTANCE HPrevInstance,
+                   LPSTR lpCmdLine, int nCmdShow)
+{
+  char exe_name[1024];
+  char * argv[2];
+
+  GetModuleFileName(NULL, exe_name, sizeof(exe_name) - 1);
+  exe_name[sizeof(exe_name) - 1] = '0';
+  argv[0] = exe_name;
+  argv[1] = NULL;
+  caml_main(argv);
+  sys_exit(Val_int(0));
+  return 0;
+}