summaryrefslogtreecommitdiffstats
path: root/generic/tclIntPlatStubs.c
diff options
context:
space:
mode:
authorstanton <stanton>1999-03-10 05:52:45 (GMT)
committerstanton <stanton>1999-03-10 05:52:45 (GMT)
commit0b4be24161f5971f3181adec27a32becf7cb8870 (patch)
tree92131df26a09a5f7b28f854fb7c0a62ba26cb8ac /generic/tclIntPlatStubs.c
parenta5bface5b6607af37870fc5f5ee5019f6d5fb3f1 (diff)
downloadtcl-0b4be24161f5971f3181adec27a32becf7cb8870.zip
tcl-0b4be24161f5971f3181adec27a32becf7cb8870.tar.gz
tcl-0b4be24161f5971f3181adec27a32becf7cb8870.tar.bz2
Merged stubs changes into mainline for 8.0
Diffstat (limited to 'generic/tclIntPlatStubs.c')
-rw-r--r--generic/tclIntPlatStubs.c219
1 files changed, 102 insertions, 117 deletions
diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c
index 6140fc6..43bc4e5 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 1999/03/04 01:01:58 stanton Exp $
+ * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.3 1999/03/10 05:52:49 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
@@ -107,28 +198,13 @@ TclpGetPid(pid)
}
/* Slot 9 */
-void
-TclpFinalize()
-{
- (tclIntPlatStubsPtr->tclpFinalize)();
-}
-
-/* Slot 10 */
int
TclWinGetPlatformId()
{
return (tclIntPlatStubsPtr->tclWinGetPlatformId)();
}
-/* Slot 11 */
-void
-TclWinInit(hInst)
- HINSTANCE hInst;
-{
- (tclIntPlatStubsPtr->tclWinInit)(hInst);
-}
-
-/* Slot 12 */
+/* Slot 10 */
int
TclWinSynchSpawn(args, type, trans, pidPtr)
void * args;
@@ -139,7 +215,7 @@ TclWinSynchSpawn(args, type, trans, pidPtr)
return (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr);
}
-/* Slot 13 */
+/* Slot 11 */
void
TclGetAndDetachPids(interp, chan)
Tcl_Interp * interp;
@@ -148,7 +224,7 @@ TclGetAndDetachPids(interp, chan)
(tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan);
}
-/* Slot 14 */
+/* Slot 12 */
int
TclpCloseFile(file)
TclFile file;
@@ -156,7 +232,7 @@ TclpCloseFile(file)
return (tclIntPlatStubsPtr->tclpCloseFile)(file);
}
-/* Slot 15 */
+/* Slot 13 */
Tcl_Channel
TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr)
TclFile readFile;
@@ -168,7 +244,7 @@ TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr)
return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr);
}
-/* Slot 16 */
+/* Slot 14 */
int
TclpCreatePipe(readPipe, writePipe)
TclFile * readPipe;
@@ -177,7 +253,7 @@ TclpCreatePipe(readPipe, writePipe)
return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe);
}
-/* Slot 17 */
+/* Slot 15 */
int
TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr)
Tcl_Interp * interp;
@@ -191,7 +267,7 @@ TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr)
return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr);
}
-/* Slot 18 */
+/* Slot 16 */
TclFile
TclpCreateTempFile(contents, namePtr)
char * contents;
@@ -200,14 +276,14 @@ TclpCreateTempFile(contents, namePtr)
return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr);
}
-/* Slot 19 */
+/* Slot 17 */
char *
TclpGetTZName()
{
return (tclIntPlatStubsPtr->tclpGetTZName)();
}
-/* Slot 20 */
+/* Slot 18 */
TclFile
TclpMakeFile(channel, direction)
Tcl_Channel channel;
@@ -216,7 +292,7 @@ TclpMakeFile(channel, direction)
return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction);
}
-/* Slot 21 */
+/* Slot 19 */
TclFile
TclpOpenFile(fname, mode)
char * fname;
@@ -226,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 *