summaryrefslogtreecommitdiffstats
path: root/win/tclWinPipe.c
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2008-07-21 21:02:11 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2008-07-21 21:02:11 (GMT)
commit4ca6151924c3e7338fb1cdca30d81430477673f8 (patch)
tree5a49a31553d209c8b45882a0b0716544c8bf918e /win/tclWinPipe.c
parent24289b9502c809549472c1edc7398415f51f578e (diff)
downloadtcl-4ca6151924c3e7338fb1cdca30d81430477673f8.zip
tcl-4ca6151924c3e7338fb1cdca30d81430477673f8.tar.gz
tcl-4ca6151924c3e7338fb1cdca30d81430477673f8.tar.bz2
TIP #304 implementation
Diffstat (limited to 'win/tclWinPipe.c')
-rw-r--r--win/tclWinPipe.c53
1 files changed, 52 insertions, 1 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c
index b27a762..c24875f 100644
--- a/win/tclWinPipe.c
+++ b/win/tclWinPipe.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinPipe.c,v 1.65 2007/02/20 23:24:07 nijtmans Exp $
+ * RCS: @(#) $Id: tclWinPipe.c,v 1.66 2008/07/21 21:02:20 ferrieux Exp $
*/
#include "tclWinInt.h"
@@ -1750,6 +1750,57 @@ TclpCreateCommandChannel(
/*
*----------------------------------------------------------------------
*
+ * Tcl_CreatePipe --
+ *
+ * System dependent interface to create a pipe for the [chan pipe]
+ * command. Stolen from TclX.
+ *
+ * Parameters:
+ * o interp - Errors returned in result.
+ * o rchan, wchan - Returned read and write side.
+ * o flags - Reserved for future use.
+ * Results:
+ * TCL_OK or TCL_ERROR.
+ *
+ *----------------------------------------------------------------------
+ */
+int
+Tcl_CreatePipe (
+ Tcl_Interp *interp,
+ Tcl_Channel *rchan,
+ Tcl_Channel *wchan,
+ int flags
+ )
+{
+ HANDLE readHandle, writeHandle;
+ SECURITY_ATTRIBUTES sec;
+
+ sec.nLength = sizeof(SECURITY_ATTRIBUTES);
+ sec.lpSecurityDescriptor = NULL;
+ sec.bInheritHandle = FALSE;
+
+ if (!CreatePipe (&readHandle, &writeHandle, &sec, 0)) {
+ TclWinConvertError (GetLastError ());
+ Tcl_AppendResult (interp, "pipe creation failed: ",
+ Tcl_PosixError (interp), (char *) NULL);
+ return TCL_ERROR;
+ }
+
+ *rchan = Tcl_MakeFileChannel ((ClientData) readHandle,
+ TCL_READABLE);
+ Tcl_RegisterChannel (interp, *rchan);
+
+ *wchan = Tcl_MakeFileChannel ((ClientData) writeHandle,
+ TCL_WRITABLE);
+ Tcl_RegisterChannel (interp, *wchan);
+
+ return TCL_OK;
+}
+
+
+/*
+ *----------------------------------------------------------------------
+ *
* TclGetAndDetachPids --
*
* Stores a list of the command PIDs for a command channel in the