int caml_parse_command_line(char_os **argv)
{
int i, j;
for(i = 1; argv[i] != NULL && argv[i][0] == _T('-'); i++) {
switch(argv[i][1]) {
case _T('t'):
params.trace_level++; /* ignored unless DEBUG mode */
break;
case _T('v'):
if (!strcmp_os (argv[i], _T("-version"))){
printf ("The OCaml runtime, version " OCAML_VERSION_STRING "\n");
exit (0);
}else if (!strcmp_os (argv[i], _T("-vnum"))){
printf (OCAML_VERSION_STRING "\n");
exit (0);
}else{
params.verb_gc = 0x001+0x004+0x008+0x010+0x020;
}
break;
case _T('p'):
for (j = 0; caml_names_of_builtin_cprim[j] != NULL; j++)
printf("%s\n", caml_names_of_builtin_cprim[j]);
exit(0);
break;
case _T('b'):
params.backtrace_enabled_init = 1;
break;
case _T('I'):
if (argv[i + 1] != NULL) {
caml_ext_table_add(&caml_shared_libs_path, argv[i + 1]);
i++;
}
break;
default:
caml_fatal_error_arg("Unknown option %s.\n", caml_stat_strdup_of_os(argv[i]));
}
}
return i;
}
static void file_arg_cleanup()
{
int cur_arg;
unsigned int cur_file;
char *tmp_name;
for(cur_arg=0; cur_arg<file_args; cur_arg++)
{
if(order[cur_arg]==0&&strcmp_os(f_arg_array[cur_arg], nonexist_name))
{
msg_cprintf(H_ERR, M_CANT_FIND, f_arg_array[cur_arg]);
if(errorlevel==ARJ_ERL_SUCCESS)
errorlevel=ARJ_ERL_WARNING;
errors++;
}
}
}
