Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Contourner la non-delimitation des arguments dans spawn 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1884 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1998-02-27 14:07:09 +00:00
parent bef3a4317e
commit 32a7a0f2bb
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
stdlib/headernt.c
View File

@ -11,6 +11,8 @@
/* $Id$ */
#include <wtypes.h>
#include <winbase.h>
#include <process.h>
char * runtime_name = "ocamlrun.exe";
@ -19,7 +21,8 @@ char * errmsg = "Cannot find ocamlrun.exe\n";
int main(int argc, char ** argv)
{
int retcode;
retcode = spawnvp(P_WAIT, runtime_name, argv);
char * cmdline = GetCommandLine();
retcode = spawnlp(P_WAIT, runtime_name, cmdline, NULL);
/* We use P_WAIT instead of P_OVERLAY here because under NT,
P_OVERLAY returns to the command interpreter, displaying the prompt
before executing the command. */
@ -29,3 +32,8 @@ int main(int argc, char ** argv)
}
return retcode;
}
/* Prevent VC++ from linking its own _setargv function, which
performs command-line processing (we don't need it) */
static void _setargv() { }