diff options
Diffstat (limited to 'generic/tclIntPlatStubs.c')
-rw-r--r-- | generic/tclIntPlatStubs.c | 184 |
1 files changed, 92 insertions, 92 deletions
diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c index 88d9ca2..8ff0e46 100644 --- a/generic/tclIntPlatStubs.c +++ b/generic/tclIntPlatStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.2.4.1 1999/03/08 22:25:30 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.2.4.2 1999/03/10 05:50:27 stanton Exp $ */ #include "tclInt.h" @@ -25,6 +25,97 @@ * Exported stub functions: */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 0 */ +void +TclGetAndDetachPids(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan); +} + +/* Slot 1 */ +int +TclpCloseFile(file) + TclFile file; +{ + return (tclIntPlatStubsPtr->tclpCloseFile)(file); +} + +/* Slot 2 */ +Tcl_Channel +TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) + TclFile readFile; + TclFile writeFile; + TclFile errorFile; + int numPids; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr); +} + +/* Slot 3 */ +int +TclpCreatePipe(readPipe, writePipe) + TclFile * readPipe; + TclFile * writePipe; +{ + return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe); +} + +/* Slot 4 */ +int +TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) + Tcl_Interp * interp; + int argc; + char ** argv; + TclFile inputFile; + TclFile outputFile; + TclFile errorFile; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); +} + +/* Slot 5 */ +TclFile +TclpCreateTempFile(contents, namePtr) + char * contents; + Tcl_DString * namePtr; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr); +} + +/* Slot 6 */ +TclFile +TclpMakeFile(channel, direction) + Tcl_Channel channel; + int direction; +{ + return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); +} + +/* Slot 7 */ +TclFile +TclpOpenFile(fname, mode) + char * fname; + int mode; +{ + return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); +} + +/* Slot 8 */ +int +TclUnixWaitForFile(fd, mask, timeout) + int fd; + int mask; + int timeout; +{ + return (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout); +} + +#endif /* UNIX */ #ifdef __WIN32__ /* Slot 0 */ void @@ -211,97 +302,6 @@ TclpOpenFile(fname, mode) } #endif /* __WIN32__ */ -#if !defined(__WIN32__) && !defined(MAC_TCL) -/* Slot 0 */ -void -TclGetAndDetachPids(interp, chan) - Tcl_Interp * interp; - Tcl_Channel chan; -{ - (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan); -} - -/* Slot 1 */ -int -TclpCloseFile(file) - TclFile file; -{ - return (tclIntPlatStubsPtr->tclpCloseFile)(file); -} - -/* Slot 2 */ -Tcl_Channel -TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) - TclFile readFile; - TclFile writeFile; - TclFile errorFile; - int numPids; - Tcl_Pid * pidPtr; -{ - return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr); -} - -/* Slot 3 */ -int -TclpCreatePipe(readPipe, writePipe) - TclFile * readPipe; - TclFile * writePipe; -{ - return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe); -} - -/* Slot 4 */ -int -TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) - Tcl_Interp * interp; - int argc; - char ** argv; - TclFile inputFile; - TclFile outputFile; - TclFile errorFile; - Tcl_Pid * pidPtr; -{ - return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); -} - -/* Slot 5 */ -TclFile -TclpCreateTempFile(contents, namePtr) - char * contents; - Tcl_DString * namePtr; -{ - return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr); -} - -/* Slot 6 */ -TclFile -TclpMakeFile(channel, direction) - Tcl_Channel channel; - int direction; -{ - return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); -} - -/* Slot 7 */ -TclFile -TclpOpenFile(fname, mode) - char * fname; - int mode; -{ - return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); -} - -/* Slot 8 */ -int -TclUnixWaitForFile(fd, mask, timeout) - int fd; - int mask; - int timeout; -{ - return (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout); -} - -#endif /* UNIX */ #ifdef MAC_TCL /* Slot 0 */ VOID * |