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

run-program: windows: args

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-17 19:03:08 +01:00
parent a26791e9fb
commit d07fbcb9fd
1 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/unixsys.d
View file

@ -574,11 +574,6 @@ si_run_program_internal(cl_object command, cl_object argv,
cl_object env_buffer;
char *env = NULL;
/* 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)) {
env_buffer = from_list_to_execve_argument(environ, NULL);
env = env_buffer->base_string.self;
@ -605,7 +600,10 @@ si_run_program_internal(cl_object command, cl_object argv,
st_info.hStdOutput = child_stdout;
st_info.hStdError = child_stderr;
ZeroMemory(&pr_info, sizeof(PROCESS_INFORMATION));
ok = CreateProcess(NULL, command->base_string.self,
/* 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. */
ok = CreateProcess(NULL, argv->base_string.self,
NULL, NULL, /* lpProcess/ThreadAttributes */
TRUE, /* Inherit handles (for files) */
/*CREATE_NEW_CONSOLE |*/