mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-08 03:44:13 -04:00
61 lines
1.6 KiB
Plaintext
61 lines
1.6 KiB
Plaintext
$NetBSD: patch-bg,v 1.3 2012/02/16 14:13:15 hans Exp $
|
||
|
||
--- tcl/tclCmdAH.c.orig 1995-02-24 16:19:53.000000000 -0500
|
||
+++ tcl/tclCmdAH.c 2008-12-16 20:18:00.000000000 -0500
|
||
@@ -38,9 +38,22 @@ static char rcsid[] = "$Header: /home/ag
|
||
#include <sys/wait.h>
|
||
#include "tclInt.h"
|
||
|
||
-extern int errno;
|
||
+#ifdef __NetBSD__
|
||
+#define unix
|
||
+#endif
|
||
+
|
||
+#if (defined(__unix__) || defined(unix)) && !defined(USG)
|
||
+#include <sys/param.h>
|
||
+#include <unistd.h>
|
||
+#include <fcntl.h>
|
||
+#endif
|
||
+
|
||
+#if !(defined(BSD) && BSD >= 199306)
|
||
extern long lseek();
|
||
+#endif
|
||
+#ifndef BSD4_4
|
||
extern char *mktemp();
|
||
+#endif
|
||
|
||
/*
|
||
*----------------------------------------------------------------------
|
||
@@ -430,7 +443,7 @@ Tcl_ExecCmd(dummy, interp, argc, argv)
|
||
int pid = -1; /* -1 means child process doesn't
|
||
* exist (yet). Non-zero gives its
|
||
* id (0 only in child). */
|
||
- union wait status;
|
||
+ int status;
|
||
char *cmdName, *execName;
|
||
|
||
/*
|
||
@@ -501,8 +514,13 @@ Tcl_ExecCmd(dummy, interp, argc, argv)
|
||
} else {
|
||
char tmp[sizeof(TMP_FILE_NAME) + 1];
|
||
strcpy(tmp, TMP_FILE_NAME);
|
||
+#ifdef BSD4_4
|
||
+ mkstemp(tmp);
|
||
+ stdIn[0] = mkstemp(tmp);
|
||
+#else
|
||
mktemp(tmp);
|
||
stdIn[0] = open(tmp, O_RDWR|O_CREAT, 0);
|
||
+#endif
|
||
if (stdIn[0] < 0) {
|
||
sprintf(interp->result,
|
||
"couldn't create input file for \"%.50s\" command: %.50s",
|
||
@@ -642,7 +660,7 @@ Tcl_ExecCmd(dummy, interp, argc, argv)
|
||
sprintf(interp->result, "command terminated abnormally");
|
||
result = TCL_ERROR;
|
||
}
|
||
- result = status.w_retcode;
|
||
+ result = WEXITSTATUS(status);
|
||
}
|
||
if (stdIn[0] != -1) {
|
||
close(stdIn[0]);
|