1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-
+
|
/*
* tclWinPipe.c --
*
* This file implements the Windows-specific exec pipeline functions, the
* "pipe" channel driver, and the "pid" Tcl command.
*
* Copyright (c) 1996-1997 by Sun Microsystems, Inc.
*
* 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.35.2.11 2005/07/26 04:12:35 dgp Exp $
* RCS: @(#) $Id: tclWinPipe.c,v 1.35.2.12 2005/08/02 16:38:20 dgp Exp $
*/
#include "tclWinInt.h"
#include <fcntl.h>
#include <io.h>
#include <sys/stat.h>
|
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
|
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
|
-
+
|
return NULL;
}
/*
* Seek to the end of file if we are writing.
*/
if (mode & O_WRONLY) {
if (mode & (O_WRONLY|O_APPEND)) {
SetFilePointer(handle, 0, NULL, FILE_END);
}
return TclWinMakeFile(handle);
}
/*
|