diff options
author | dkf <dkf@noemail.net> | 2002-06-28 09:56:52 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2002-06-28 09:56:52 (GMT) |
commit | 8911a04d985946e694e28b125b88d96017b30ebd (patch) | |
tree | b63c3be4e760bb55b6a54bd129b721c82b935145 /unix/tclUnixPipe.c | |
parent | 5e092d5adffea3faa69a5598f89ae072331994ec (diff) | |
download | tcl-8911a04d985946e694e28b125b88d96017b30ebd.zip tcl-8911a04d985946e694e28b125b88d96017b30ebd.tar.gz tcl-8911a04d985946e694e28b125b88d96017b30ebd.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.
FossilOrigin-Name: 049b4fa9e2b895d0b8b0426cc3ec95483f99fd29
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); } |