CAMLprim value unix_execve(value path, value args, value env)
{
char ** argv;
char ** envp;
argv = cstringvect(args);
envp = cstringvect(env);
(void) execve(String_val(path), argv, envp);
stat_free((char *) argv);
stat_free((char *) envp);
uerror("execve", path);
return Val_unit; /* never reached, but suppress warnings */
/* from smart compilers */
}
CAMLprim value unix_execvpe(value path, value args, value env)
{
char ** argv;
char ** saved_environ;
argv = cstringvect(args);
saved_environ = environ;
environ = cstringvect(env);
(void) execvp(String_val(path), argv);
stat_free((char *) argv);
stat_free((char *) environ);
environ = saved_environ;
uerror("execvp", path);
return Val_unit; /* never reached, but suppress warnings */
/* from smart compilers */
}
CAMLprim value unix_execvpe(value path, value args, value env)
{
char_os ** argv;
char_os ** envp;
char_os * wpath;
caml_unix_check_path(path, "execvpe");
argv = cstringvect(args, "execvpe");
envp = cstringvect(env, "execvpe");
wpath = caml_stat_strdup_to_os(String_val(path));
(void) execvpe_os((const char_os *)wpath, EXECV_CAST argv, EXECV_CAST envp);
caml_stat_free(wpath);
cstringvect_free(argv);
cstringvect_free(envp);
uerror("execvpe", path);
return Val_unit; /* never reached, but suppress warnings */
/* from smart compilers */
}
