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++; } } }