diff options
Diffstat (limited to 'unix/tclUnixPipe.c')
| -rw-r--r-- | unix/tclUnixPipe.c | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index 6d4ac4e..a243889 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixPipe.c,v 1.43 2008/07/21 21:02:20 ferrieux Exp $ + * RCS: @(#) $Id: tclUnixPipe.c,v 1.44 2008/07/21 21:46:47 das Exp $ */ #include "tclInt.h" @@ -784,27 +784,26 @@ TclpCreateCommandChannel( *---------------------------------------------------------------------- */ int -Tcl_CreatePipe ( - Tcl_Interp *interp, - Tcl_Channel *rchan, - Tcl_Channel *wchan, - int flags - ) +Tcl_CreatePipe( + Tcl_Interp *interp, + Tcl_Channel *rchan, + Tcl_Channel *wchan, + int flags) { - int fileNums [2]; + int fileNums[2]; - if (pipe (fileNums) < 0) { - Tcl_AppendResult (interp, "pipe creation failed: ", - Tcl_PosixError (interp), (char *) NULL); - return TCL_ERROR; + if (pipe(fileNums) < 0) { + Tcl_AppendResult(interp, "pipe creation failed: ", + Tcl_PosixError(interp), NULL); + return TCL_ERROR; } - *rchan = Tcl_MakeFileChannel ((ClientData) fileNums [0], - TCL_READABLE); - Tcl_RegisterChannel (interp, *rchan); - *wchan = Tcl_MakeFileChannel ((ClientData) fileNums [1], - TCL_WRITABLE); - Tcl_RegisterChannel (interp, *wchan); + *rchan = Tcl_MakeFileChannel((ClientData) INT2PTR(fileNums[0]), + TCL_READABLE); + Tcl_RegisterChannel(interp, *rchan); + *wchan = Tcl_MakeFileChannel((ClientData) INT2PTR(fileNums[1]), + TCL_WRITABLE); + Tcl_RegisterChannel(interp, *wchan); return TCL_OK; } |