Merged stubs changes into mainline for 8.0

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 *