diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2002-06-28 09:56:53 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2002-06-28 09:56:53 (GMT) |
| commit | ed910161cf648c3aaa529cb8876c4aecfcf8768a (patch) | |
| tree | b63c3be4e760bb55b6a54bd129b721c82b935145 /unix/tclUnixPipe.c | |
| parent | f60207082277b04c6338a60bfc8f0a3debdc1bcd (diff) | |
| download | tcl-ed910161cf648c3aaa529cb8876c4aecfcf8768a.zip tcl-ed910161cf648c3aaa529cb8876c4aecfcf8768a.tar.gz tcl-ed910161cf648c3aaa529cb8876c4aecfcf8768a.tar.bz2 | |
Changed all the Tcl_Platform* symbols to TclOS*; they weren't public so their
names were really badly chosen. Also prevented a double-#def.
Diffstat (limited to 'unix/tclUnixPipe.c')
| -rw-r--r-- | unix/tclUnixPipe.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index f3f67f5..4c17c17 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.21 2002/02/15 14:28:50 dkf Exp $ + * RCS: @(#) $Id: tclUnixPipe.c,v 1.22 2002/06/28 09:56:54 dkf Exp $ */ #include "tclInt.h" @@ -140,7 +140,7 @@ TclpOpenFile(fname, mode) Tcl_DString ds; native = Tcl_UtfToExternalDString(NULL, fname, -1, &ds); - fd = Tcl_PlatformOpen(native, mode, 0666); /* INTL: Native. */ + fd = TclOSopen(native, mode, 0666); /* INTL: Native. */ Tcl_DStringFree(&ds); if (fd != -1) { fcntl(fd, F_SETFD, FD_CLOEXEC); @@ -151,7 +151,7 @@ TclpOpenFile(fname, mode) */ if (mode & O_WRONLY) { - Tcl_PlatformSeek(fd, (Tcl_SeekOffset) 0, SEEK_END); + TclOSseek(fd, (Tcl_SeekOffset) 0, SEEK_END); } /* @@ -215,7 +215,7 @@ TclpCreateTempFile(contents) return NULL; } Tcl_DStringFree(&dstring); - Tcl_PlatformSeek(fd, (Tcl_SeekOffset) 0, SEEK_SET); + TclOSseek(fd, (Tcl_SeekOffset) 0, SEEK_SET); } return MakeFile(fd); } |