diff options
| -rw-r--r-- | Source/kwsys/ProcessUNIX.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/Source/kwsys/ProcessUNIX.c b/Source/kwsys/ProcessUNIX.c index 845fd31..2d70fa3 100644 --- a/Source/kwsys/ProcessUNIX.c +++ b/Source/kwsys/ProcessUNIX.c @@ -176,7 +176,9 @@ static void kwsysProcessRestoreDefaultSignalHandlers(void); static pid_t kwsysProcessFork(kwsysProcess* cp, kwsysProcessCreateInformation* si); static void kwsysProcessKill(pid_t process_id); +#if defined(__VMS) static int kwsysProcessSetVMSFeature(const char* name, int value); +#endif static int kwsysProcessesAdd(kwsysProcess* cp); static void kwsysProcessesRemove(kwsysProcess* cp); #if KWSYSPE_USE_SIGINFO @@ -727,12 +729,14 @@ void kwsysProcess_Execute(kwsysProcess* cp) return; } +#if defined(__VMS) /* Make sure pipes behave like streams on VMS. */ if(!kwsysProcessSetVMSFeature("DECC$STREAM_PIPE", 1)) { kwsysProcessCleanup(cp, 1); return; } +#endif /* Save the real working directory of this process and change to the working directory for the child processes. This is needed @@ -2309,6 +2313,7 @@ static void kwsysProcessExit(void) } /*--------------------------------------------------------------------------*/ +#if !defined(__VMS) static pid_t kwsysProcessFork(kwsysProcess* cp, kwsysProcessCreateInformation* si) { @@ -2363,6 +2368,7 @@ static pid_t kwsysProcessFork(kwsysProcess* cp, return fork(); } } +#endif /*--------------------------------------------------------------------------*/ /* We try to obtain process information by invoking the ps command. @@ -2485,7 +2491,7 @@ static void kwsysProcessKill(pid_t process_id) /*--------------------------------------------------------------------------*/ #if defined(__VMS) -int decc$feature_get_index(char *name); +int decc$feature_get_index(const char* name); int decc$feature_set_value(int index, int mode, int value); static int kwsysProcessSetVMSFeature(const char* name, int value) { @@ -2494,13 +2500,6 @@ static int kwsysProcessSetVMSFeature(const char* name, int value) i = decc$feature_get_index(name); return i >= 0 && (decc$feature_set_value(i, 1, value) >= 0 || errno == 0); } -#else -static int kwsysProcessSetVMSFeature(const char* name, int value) -{ - (void)name; - (void)value; - return 1; -} #endif /*--------------------------------------------------------------------------*/ |