mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 04:11:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed and extended the implementation of RUN-PROGRAM.

Browse source
This commit is contained in:
jjgarcia 2004-06-13 08:53:36 +00:00
parent 90fd78202c
commit 8659e4e4e7
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/unixsys.d
View file

@ -100,7 +100,9 @@ si_close_pipe(cl_object stream)
} else {
child_stdout = open("/dev/null", O_WRONLY);
}
if (error == @'t') {
if (error == @':output') {
child_stderr = dup(child_stdout);
} else if (error == @'t') {
child_stderr = dup(2);
} else {
child_stderr = open("/dev/null", O_WRONLY);
@ -130,7 +132,9 @@ si_close_pipe(cl_object stream)
argv_ptr[j] = arg->string.self;
}
}
execv(command->string.self, (const char **)argv_ptr);
if (execvp(command->string.self, (const char **)argv_ptr) < 0) {
abort();
}
} else {
/* Parent */
close(child_stdin);
@ -155,6 +159,6 @@ si_close_pipe(cl_object stream)
}
}
@(return ((parent_read || parent_write)?
make_two_way_stream(stream_write, stream_read) :
make_two_way_stream(stream_read, stream_write) :
Cnil))
@)