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

Contourner les limitations de Win32 dans sys_command 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1850 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-12-10 13:27:48 +00:00
parent a70d72c04a
commit d239a741bd
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
byterun/sys.c
View File

@ -205,7 +205,11 @@ void sys_init(char **argv)
value sys_system_command(value command) /* ML */ value sys_system_command(value command) /* ML */
{ {
#ifndef _WIN32
int retcode = system(String_val(command)); int retcode = system(String_val(command));
#else
int retcode = win32_system(String_val(command));
#endif
if (retcode == -1) sys_error(command); if (retcode == -1) sys_error(command);
return Val_int(retcode); return Val_int(retcode);
} }
@ -302,3 +306,45 @@ char * searchpath(char * name)
} }
#endif /* _WIN32, macintosh, ... */ #endif /* _WIN32, macintosh, ... */
#ifdef _WIN32
#include <ctype.h>
extern char * mktemp(char *);
int win32_system(char * cmdline)
{
#define MAX_CMD_LENGTH 256
char cmd[MAX_CMD_LENGTH + 16];
char template[9];
char * tempfile;
int len, i, j, fd, retcode;
len = strlen(cmdline);
if (len < 1000) {
return system(cmdline);
} else {
/* Copy command name to buffer, stop at first blank */
for (i = 0, j = 0;
cmdline[i] != 0 && ! isspace(cmdline[i]);
i++) {
if (j < MAX_CMD_LENGTH) cmd[j++] = cmdline[i];
}
/* Save remainder of command line to temp file */
strcpy(template, "cmXXXXXX");
tempfile = mktemp(template);
fd = open(tempfile, O_WRONLY | O_CREAT | O_TRUNC | O_TEXT, 0666);
if (fd == -1) return -1;
write(fd, cmdline + i, len - i);
close(fd);
/* Add " @tempfile" to the command line */
sprintf(cmd + j, " @%s", tempfile);
/* Run command */
retcode = system(cmd);
/* Remove temp file and exit */
unlink(tempfile);
return retcode;
}
}
#endif