int main (int argc, char** argv)
{
(void)argc;
caml_main (argv);
return 0;
}
int main(int argc, char **argv)
{
#ifdef DEBUG
caml_gc_log ("### OCaml runtime: debug mode ###");
#if 0
{
int i;
char *ocp;
char *cp;
ocp = getenv ("OCAMLRUNPARAM");
caml_gc_log ("### OCAMLRUNPARAM=%s", ocp == NULL ? "" : ocp);
cp = getenv ("CAMLRUNPARAM");
caml_gc_log ("### CAMLRUNPARAM=%s", cp == NULL ? "" : cp);
caml_gc_log ("### working dir: %s", getcwd (NULL, 0));
}
#endif
#endif
#ifdef _WIN32
/* Expand wildcards and diversions in command line */
caml_expand_command_line(&argc, &argv);
#endif
caml_main(argv);
caml_sys_exit(Val_int(0));
return 0; /* not reached */
}
int main(int argc, char **argv)
{
#ifdef DEBUG
{
char *ocp;
char *cp;
int i;
caml_gc_message (-1, "### OCaml runtime: debug mode ###\n", 0);
#if 0
caml_gc_message (-1, "### command line:", 0);
for (i = 0; i < argc; i++){
caml_gc_message (-1, " %s", argv[i]);
}
caml_gc_message (-1, "\n", 0);
ocp = getenv ("OCAMLRUNPARAM");
caml_gc_message (-1, "### OCAMLRUNPARAM=%s\n", ocp == NULL ? "" : ocp);
cp = getenv ("CAMLRUNPARAM");
caml_gc_message (-1, "### CAMLRUNPARAM=%s\n", cp == NULL ? "" : cp);
caml_gc_message (-1, "### working dir: %s\n", getcwd (NULL, 0));
#endif
}
#endif
#ifdef _WIN32
/* Expand wildcards and diversions in command line */
caml_expand_command_line(&argc, &argv);
#endif
caml_main(argv);
caml_sys_exit(Val_int(0));
return 0; /* not reached */
}
int main(int argc, char *argv[])
{
QApplication app(argc, argv);
caml_main(argv);
QDeclarativeView viewer;
Gamemap map;
viewer.rootContext() -> setContextProperty("gameMap",&map);
viewer.setSource(QUrl("qml/main.qml"));
viewer.show();
return app.exec();
}
int main(int argc, char **argv)
#endif
{
#ifdef _WIN32
/* Expand wildcards and diversions in command line */
caml_expand_command_line(&argc, &argv);
#endif
caml_main(argv);
caml_sys_exit(Val_int(0));
return 0; /* not reached */
}
int main(int argc, char ** argv)
{
printf("Initializing OCaml code...\n");
#ifdef NO_BYTECODE_FILE
caml_startup(argv);
#else
caml_main(argv);
#endif
printf("Back in C code...\n");
printf("Computing fib(20)...\n");
printf("%s\n", format_result(fib(20)));
return 0;
}
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;
}
int main(int argc, char *argv[])
{
int ncmxs = 0;
int i, j;
char **new_argv;
if (strstr(argv[0], "ld_ocaml")) {
for (i = 1; i < argc; i++) {
int len = strlen(argv[i]);
if(len > 5 && !strcmp(argv[i] + len - 5, ".cmxs"))
ncmxs++;
else
break;
}
/* overallocate for convenience, it's ok */
new_argv = malloc(argc * sizeof(char *));
ld_cmxs_to_load = malloc((ncmxs + 1) * sizeof(char *));
for(i = ncmxs, j = 0; i <= argc; ) /* <= to copy final NULL */
new_argv[j++] = argv[i] ? strdup(argv[i++]) : argv[i++];
for(i = 1, j = 0; i <= ncmxs; )
ld_cmxs_to_load[j++] = argv[i++];
ld_cmxs_to_load[ncmxs] = NULL;
} else {
/* append .cmxs to argv[0] after PATH expansion if needed,
* load that cmxs, don't modify argv */
char *cmxs, *tmp;
tmp = chop_extension(argv[0]);
cmxs = malloc(strlen(tmp) + 5 + 1);
sprintf(cmxs, "%s.cmxs", tmp);
free(tmp);
new_argv = argv;
ld_cmxs_to_load = malloc(2 * sizeof(char *));
ld_cmxs_to_load[0] = strstr(cmxs, "/") ? cmxs : find_in_path(cmxs);
ld_cmxs_to_load[1] = NULL;
if(!ld_cmxs_to_load[0]) {
fprintf(stderr, "Could not find %s in PATH.\n", cmxs);
exit(1);
}
}
/* Initialize Caml code */
caml_main(new_argv);
return 0;
}
int main(int argc, char * argv[])
{
return caml_main(argc, argv);
}
void caml_startup(char **argv)
{
caml_main(argv);
}
int main(int argc, char *argv[])
{
caml_main(argv);
return 0;
}
