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

run-program: process passed arguments properly

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-17 16:49:32 +01:00
parent d8c4da22fc
commit 2fb64f6d82
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/c/unixsys.d
View file

@ -568,9 +568,9 @@ si_run_program_internal(cl_object command, cl_object argv,
cl_object env_buffer;
char *env = NULL;
/* Enclose each argument, as well as the file name
in double quotes, to avoid problems when these
arguments or file names have spaces */
/* Command is passed as is from argv. It is responsibility of
higher level interface to decide, whenever arguments should be
quoted or left as-is.*/
command = ecl_null_terminated_base_string(argv);
if (!Null(environ)) {
@ -628,10 +628,11 @@ si_run_program_internal(cl_object command, cl_object argv,
if (child_stdout) CloseHandle(child_stdout);
if (child_stderr) CloseHandle(child_stderr);
}
#elif !defined(NACL) /* mingw */
#elif !defined(NACL) /* All POSIX but NaCL/pNaCL */
{
int child_stdin, child_stdout, child_stderr;
int pipe_fd[2];
argv = ecl_nconc(argv, ecl_list1(ECL_NIL));
argv = _ecl_funcall3(@'coerce', argv, @'vector');
create_descriptor(input, @':input', &child_stdin, &parent_write);

5
src/lsp/process.lsp
View file

@ -104,8 +104,9 @@
:direction :output
:if-exists if-error-exists)))
(let ((args (prepare-args (cons command argv))))
(si:run-program-internal (si:copy-to-simple-base-string command) args
(let* ((args (prepare-args (cons command argv)))
(progname (car args)))
(si:run-program-internal progname args
input output error
wait environ external-format))))