/*************************************************************************/

/*                                                                       */

/*                         OCaml LablTk library                          */

/*                                                                       */

/*            Jacques Garrigue, Kyoto University RIMS                    */

/*                                                                       */

/*   Copyright 2001 Institut National de Recherche en Informatique et    */

/*   en Automatique and Kyoto University.  All rights reserved.          */

/*   This file is distributed under the terms of the GNU Library         */

/*   General Public License, with the special exception on linking       */

/*   described in file ../../../LICENSE.                                 */

/*                                                                       */

/*************************************************************************/

/* $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;

}