1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
/* ----------------------------------------------------------------------------
(c) The University of Glasgow 2004
Interface for code in runProcess.c (providing support for System.Process)
------------------------------------------------------------------------- */
#include "HsProcessConfig.h"
// Otherwise these clash with similar definitions from other packages:
#undef PACKAGE_BUGREPORT
#undef PACKAGE_NAME
#undef PACKAGE_STRING
#undef PACKAGE_TARNAME
#undef PACKAGE_VERSION
#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
#define UNICODE
#include <windows.h>
#include <stdlib.h>
#endif
#include <unistd.h>
#include <sys/types.h>
#ifdef HAVE_FCNTL_H
#include <fcntl.h>
#endif
#ifdef HAVE_VFORK_H
#include <vfork.h>
#endif
#if defined(HAVE_WORKING_VFORK)
#define myfork vfork
#elif defined(HAVE_WORKING_FORK)
#define myfork fork
// We don't need a fork command on Windows
#elif !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32))
#error Cannot find a working fork command
#endif
#ifdef HAVE_SIGNAL_H
#include <signal.h>
#endif
#if !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32))
typedef pid_t ProcHandle;
#else
// Should really be intptr_t, but we don't have that type on the Haskell side
typedef PHANDLE ProcHandle;
#endif
#include "processFlags.h"
#if !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32))
extern ProcHandle runInteractiveProcess( char *const args[],
char *workingDirectory,
char **environment,
int fdStdIn,
int fdStdOut,
int fdStdErr,
int *pfdStdInput,
int *pfdStdOutput,
int *pfdStdError,
gid_t *childGroup,
uid_t *childUser,
int reset_int_quit_handlers,
int flags,
char **failed_doing);
#else
extern ProcHandle runInteractiveProcess( wchar_t *cmd,
wchar_t *workingDirectory,
wchar_t *environment,
int fdStdIn,
int fdStdOut,
int fdStdErr,
int *pfdStdInput,
int *pfdStdOutput,
int *pfdStdError,
int flags);
#endif
extern int terminateProcess( ProcHandle handle );
extern int getProcessExitCode( ProcHandle handle, int *pExitCode );
extern int waitForProcess( ProcHandle handle, int *ret );
|
