#ifndef RLD
#include <libc.h>
#include <mach/mach.h>
#include "stdio.h"
#include <signal.h>
#include <sys/wait.h>
#include <sys/file.h>
#include "stuff/errors.h"
#include "stuff/allocate.h"
#include "stuff/execute.h"
#include "mach-o/dyld.h"
__private_extern__
int
execute(
char **argv,
int verbose)
{
char *name, **p;
int forkpid, waitpid, termsig;
#ifndef __OPENSTEP__
int waitstatus;
#else
union wait waitstatus;
#endif
name = argv[0];
if(verbose){
fprintf(stderr, "+ %s ", name);
p = &(argv[1]);
while(*p != (char *)0)
fprintf(stderr, "%s ", *p++);
fprintf(stderr, "\n");
}
forkpid = fork();
if(forkpid == -1)
system_fatal("can't fork a new process to execute: %s", name);
if(forkpid == 0){
if(execvp(name, argv) == -1)
system_fatal("can't find or exec: %s", name);
return(1);
}
else{
waitpid = wait(&waitstatus);
if(waitpid == -1)
system_fatal("wait on forked process %d failed", forkpid);
#ifndef __OPENSTEP__
termsig = WTERMSIG(waitstatus);
#else
termsig = waitstatus.w_termsig;
#endif
if(termsig != 0 && termsig != SIGINT)
fatal("fatal error in %s", name);
return(
#ifndef __OPENSTEP__
WEXITSTATUS(waitstatus) == 0 &&
#else
waitstatus.w_retcode == 0 &&
#endif
termsig == 0);
}
}
static struct {
int size;
int next;
char **strings;
} runlist;
__private_extern__
void
add_execute_list(
char *str)
{
if(runlist.strings == (char **)0){
runlist.next = 0;
runlist.size = 128;
runlist.strings = allocate(runlist.size * sizeof(char **));
}
if(runlist.next + 1 >= runlist.size){
runlist.strings = reallocate(runlist.strings,
(runlist.size * 2) * sizeof(char **));
runlist.size *= 2;
}
runlist.strings[runlist.next++] = str;
runlist.strings[runlist.next] = (char *)0;
}
__private_extern__
void
add_execute_list_with_prefix(
char *str)
{
add_execute_list(cmd_with_prefix(str));
}
__private_extern__
char *
cmd_with_prefix(
char *str)
{
int i;
char *p;
char *prefix, buf[MAXPATHLEN], resolved_name[PATH_MAX];
unsigned long bufsize;
bufsize = MAXPATHLEN;
p = buf;
i = _NSGetExecutablePath(p, &bufsize);
if(i == -1){
p = allocate(bufsize);
_NSGetExecutablePath(p, &bufsize);
}
prefix = realpath(p, resolved_name);
p = rindex(prefix, '/');
if(p != NULL)
p[1] = '\0';
return(makestr(prefix, str, NULL));
}
__private_extern__
void
reset_execute_list(void)
{
runlist.next = 0;
}
__private_extern__
int
execute_list(
int verbose)
{
return(execute(runlist.strings, verbose));
}
#endif