* win/tclWinInt.h:

* generic/tclInt.h:
* generic/tclIntDecls.h:
* generic/tclIntPlatDecls.h:
* generic/tclIntPlatStubs.c:
* generic/tclIntStubs.c:
* generic/tclStubInit.c:
* generic/tclInt.decls: Removed initialization and finalization
routines from the stub table since these should never be called by
an extension.

9 files changed, 4041 insertions, 300 deletions

diff --git a/ChangeLog b/ChangeLog
index 0ca3aa9..204eb77 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+1999-03-08    <stanton@GASPODE>
+
+	* win/tclWinInt.h:
+	* generic/tclInt.h:
+	* generic/tclIntDecls.h:
+	* generic/tclIntPlatDecls.h:
+	* generic/tclIntPlatStubs.c:
+	* generic/tclIntStubs.c:
+	* generic/tclStubInit.c:
+	* generic/tclInt.decls: Removed initialization and finalization
+	routines from the stub table since these should never be called by
+	an extension.
+
 1999-03-06    <stanton@GASPODE>
 
 	* unix/Makefile.in: 
@@ -31,7 +44,7 @@
 	      executables have a different search strategy for dynamically
 	      loadable stub-enabled extensions than executables using
 	      shared libraries.  This effects extensions which load other
-	      libraries in turnq.
+	      libraries in turn.
 
 	* generic/tclCompile.h:
 	* generic/tclStubInit.c:
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 3b12a84..83abadd 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -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: tclInt.decls,v 1.2.2.2 1999/03/06 21:19:57 stanton Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.2.2.3 1999/03/08 22:25:29 stanton Exp $
 
 library tcl
 
@@ -99,398 +99,386 @@ declare 21 generic {
     int TclFileRenameCmd(Tcl_Interp *interp, int argc, char **argv)
 }
 declare 22 generic {
-    void TclFinalizeCompExecEnv(void)
-}
-declare 23 generic {
-    void TclFinalizeEnvironment(void)
-}
-declare 24 generic {
-    void TclFinalizeExecEnv(void)
-}
-declare 25 generic {
     int TclFindElement(Tcl_Interp *interp, char *list, int listLength, \
 	    char **elementPtr, char **nextPtr, int *sizePtr, int *bracePtr)
 }
-declare 26 generic {
+declare 23 generic {
     Proc * TclFindProc(Interp *iPtr, char *procName)
 }
-declare 27 generic {
+declare 24 generic {
     int TclFormatInt(char *buffer, long n)
 }
-declare 28 generic {
+declare 25 generic {
     void TclFreePackageInfo(Interp *iPtr)
 }
-declare 29 generic {
+declare 26 generic {
     char * TclGetCwd(Tcl_Interp *interp)
 }
-declare 30 generic {
+declare 27 generic {
     int TclGetDate(char *p, unsigned long now, long zone, \
 	    unsigned long *timePtr)
 }
-declare 31 generic {
+declare 28 generic {
     Tcl_Channel TclGetDefaultStdChannel(int type)
 }
-declare 32 generic {
+declare 29 generic {
     Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp, \
 	    int localIndex, Tcl_Obj *elemPtr, int leaveErrorMsg)
 }
-declare 33 generic {
+declare 30 generic {
     char * TclGetEnv(CONST char *name)
 }
-declare 34 generic {
+declare 31 generic {
     char * TclGetExtension(char *name)
 }
-declare 35 generic {
+declare 32 generic {
     int TclGetFrame(Tcl_Interp *interp, char *string, CallFrame **framePtrPtr)
 }
-declare 36 generic {
+declare 33 generic {
     TclCmdProcType TclGetInterpProc(void)
 }
-declare 37 generic {
+declare 34 generic {
     int TclGetIntForIndex(Tcl_Interp *interp, Tcl_Obj *objPtr, \
 	    int endValue, int *indexPtr)
 }
-declare 38 generic {
+declare 35 generic {
     Tcl_Obj * TclGetIndexedScalar(Tcl_Interp *interp, int localIndex, \
 	    int leaveErrorMsg)
 }
-declare 39 generic {
+declare 36 generic {
     int TclGetLong(Tcl_Interp *interp, char *string, long *longPtr)
 }
-declare 40 generic {
+declare 37 generic {
     int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName)
 }
-declare 41 generic {
+declare 38 generic {
     int TclGetNamespaceForQualName(Tcl_Interp *interp, char *qualName, \
 	    Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, \
 	    Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, \
 	    char **simpleNamePtr)
 }
-declare 42 generic {
+declare 39 generic {
     TclObjCmdProcType TclGetObjInterpProc(void)
 }
-declare 43 generic {
+declare 40 generic {
     int TclGetOpenMode(Tcl_Interp *interp, char *string, int *seekFlagPtr)
 }
-declare 44 generic {
+declare 41 generic {
     Tcl_Command TclGetOriginalCommand(Tcl_Command command)
 }
-declare 45 generic {
+declare 42 generic {
     char * TclGetUserHome(char *name, Tcl_DString *bufferPtr)
 }
-declare 46 generic {
+declare 43 generic {
     int TclGlobalInvoke(Tcl_Interp *interp, int argc, char **argv, int flags)
 }
-declare 47 generic {
+declare 44 generic {
     int TclGuessPackageName(char *fileName, Tcl_DString *bufPtr)
 }
-declare 48 generic {
+declare 45 generic {
     int TclHideUnsafeCommands(Tcl_Interp *interp)
 }
-declare 49 generic {
+declare 46 generic {
     int TclInExit(void)
 }
-declare 50 generic {
+declare 47 generic {
     Tcl_Obj * TclIncrElementOfIndexedArray(Tcl_Interp *interp, \
 	    int localIndex, Tcl_Obj *elemPtr, long incrAmount)
 }
-declare 51 generic {
+declare 48 generic {
     Tcl_Obj * TclIncrIndexedScalar(Tcl_Interp *interp, int localIndex, \
 	    long incrAmount)
 }
-declare 52 generic {
+declare 49 generic {
     Tcl_Obj * TclIncrVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \
 	    Tcl_Obj *part2Ptr, long incrAmount, int part1NotParsed)
 }
-declare 53 generic {
+declare 50 generic {
     void TclInitCompiledLocals(Tcl_Interp *interp, CallFrame *framePtr, \
 	    Namespace *nsPtr)
 }
-declare 54 generic {
-    void TclInitNamespaces(void)
-}
-declare 55 generic {
+declare 51 generic {
     int TclInterpInit(Tcl_Interp *interp)
 }
-declare 56 generic {
+declare 52 generic {
     int TclInvoke(Tcl_Interp *interp, int argc, char **argv, int flags)
 }
-declare 57 generic {
+declare 53 generic {
     int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp, \
 	    int argc, char **argv)
 }
-declare 58 generic {
+declare 54 generic {
     int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp, \
 	    int objc, Tcl_Obj *CONST objv[])
 }
-declare 59 generic {
+declare 55 generic {
     Proc * TclIsProc(Command *cmdPtr)
 }
-declare 60 generic {
+declare 56 generic {
     int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \
 	    char *sym2, Tcl_PackageInitProc **proc1Ptr, \
 	    Tcl_PackageInitProc **proc2Ptr)
 }
-declare 61 generic {
+declare 57 generic {
     int TclLooksLikeInt(char *p)
 }
-declare 62 generic {
+declare 58 generic {
     Var * TclLookupVar(Tcl_Interp *interp, char *part1, char *part2, \
 	    int flags, char *msg, int createPart1, int createPart2, \
 	    Var **arrayPtrPtr)
 }
-declare 63 generic {
+declare 59 generic {
     int TclMatchFiles(Tcl_Interp *interp, char *separators, \
 	    Tcl_DString *dirPtr, char *pattern, char *tail)
 }
-declare 64 generic {
+declare 60 generic {
     int TclNeedSpace(char *start, char *end)
 }
-declare 65 generic {
+declare 61 generic {
     Tcl_Obj * TclNewProcBodyObj(Proc *procPtr)
 }
-declare 66 generic {
+declare 62 generic {
     int TclObjCommandComplete(Tcl_Obj *cmdPtr)
 }
-declare 67 generic {
+declare 63 generic {
     int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp, \
 	    int objc, Tcl_Obj *CONST objv[])
 }
-declare 68 generic {
+declare 64 generic {
     int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \
 	    int flags)
 }
-declare 69 generic {
+declare 65 generic {
     int TclObjInvokeGlobal(Tcl_Interp *interp, int objc, \
 	    Tcl_Obj *CONST objv[], int flags)
 }
-declare 70 generic {
+declare 66 generic {
     int TclOpenFileChannelDeleteProc(TclOpenFileChannelProc_ *proc)
 }
-declare 71 generic {
+declare 67 generic {
     int TclOpenFileChannelInsertProc(TclOpenFileChannelProc_ *proc)
 }
-declare 72 generic {
+declare 68 generic {
     int TclpAccess(CONST char *path, int mode)
 }
-declare 73 generic {
+declare 69 generic {
     char * TclpAlloc(unsigned int size)
 }
-declare 74 generic {
+declare 70 generic {
     int TclpCopyFile(char *source, char *dest)
 }
-declare 75 generic {
+declare 71 generic {
     int TclpCopyDirectory(char *source, char *dest, Tcl_DString *errorPtr)
 }
-declare 76 generic {
+declare 72 generic {
     int TclpCreateDirectory(char *path)
 }
-declare 77 generic {
+declare 73 generic {
     int TclpDeleteFile(char *path)
 }
-declare 78 generic {
+declare 74 generic {
     void TclpFree(char *ptr)
 }
-declare 79 generic {
+declare 75 generic {
     unsigned long TclpGetClicks(void)
 }
-declare 80 generic {
+declare 76 generic {
     unsigned long TclpGetSeconds(void)
 }
-declare 81 generic {
+declare 77 generic {
     void TclpGetTime(Tcl_Time *time)
 }
-declare 82 generic {
+declare 78 generic {
     int TclpGetTimeZone(unsigned long time)
 }
-declare 83 generic {
+declare 79 generic {
     int TclpListVolumes(Tcl_Interp *interp)
 }
-declare 84 generic {
+declare 80 generic {
     Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, char *fileName, \
 	    char *modeString, int permissions)
 }
-declare 85 generic {
+declare 81 generic {
     char * TclpRealloc(char *ptr, unsigned int size)
 }
-declare 86 generic {
+declare 82 generic {
     int TclpRemoveDirectory(char *path, int recursive, Tcl_DString *errorPtr)
 }
-declare 87 generic {
+declare 83 generic {
     int TclpRenameFile(char *source, char *dest)
 }
-declare 88 generic {
+declare 84 generic {
     int TclParseBraces(Tcl_Interp *interp, char *string, char **termPtr, \
 	    ParseValue *pvPtr)
 }
-declare 89 generic {
+declare 85 generic {
     int TclParseNestedCmd(Tcl_Interp *interp, char *string, int flags, \
 	    char **termPtr, ParseValue *pvPtr)
 }
-declare 90 generic {
+declare 86 generic {
     int TclParseQuotes(Tcl_Interp *interp, char *string, int termChar, \
 	    int flags, char **termPtr, ParseValue *pvPtr)
 }
-declare 91 generic {
+declare 87 generic {
     void TclPlatformInit(Tcl_Interp *interp)
 }
-declare 92 generic {
+declare 88 generic {
     char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp, \
 	    char *name1, char *name2, int flags)
 }
-declare 93 generic {
+declare 89 generic {
     int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp, \
 	    Tcl_Command cmd)
 }
-declare 94 generic {
+declare 90 generic {
     void TclPrintByteCodeObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
 }
-declare 95 generic {
+declare 91 generic {
     void TclProcCleanupProc(Proc *procPtr)
 }
-declare 96 generic {
+declare 92 generic {
     int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, \
 	    Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, \
 	    CONST char *procName)
 }
-declare 97 generic {
+declare 93 generic {
     void TclProcDeleteProc(ClientData clientData)
 }
-declare 98 generic {
+declare 94 generic {
     int TclProcInterpProc(ClientData clientData, Tcl_Interp *interp, \
 	    int argc, char **argv)
 }
-declare 99 generic {
+declare 95 generic {
     int TclpStat(CONST char *path, struct stat *buf)
 }
-declare 100 generic {
+declare 96 generic {
     int TclRenameCommand(Tcl_Interp *interp, char *oldName, char *newName)
 }
-declare 101 generic {
+declare 97 generic {
     void TclResetShadowedCmdRefs(Tcl_Interp *interp, Command *newCmdPtr)
 }
-declare 102 generic {
+declare 98 generic {
     int TclServiceIdle(void)
 }
-declare 103 generic {
+declare 99 generic {
     Tcl_Obj * TclSetElementOfIndexedArray(Tcl_Interp *interp, \
 	    int localIndex, Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int leaveErrorMsg)
 }
-declare 104 generic {
+declare 100 generic {
     Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex, \
 	    Tcl_Obj *objPtr, int leaveErrorMsg)
 }
-declare 105 generic {
+declare 101 generic {
     char * TclSetPreInitScript(char *string)
 }
-declare 106 generic {
+declare 102 generic {
     void TclSetupEnv(Tcl_Interp *interp)
 }
-declare 107 generic {
+declare 103 generic {
     int TclSockGetPort(Tcl_Interp *interp, char *string, char *proto, \
 	    int *portPtr)
 }
-declare 108 generic {
+declare 104 generic {
     int TclSockMinimumBuffers(int sock, int size)
 }
-declare 109 generic {
+declare 105 generic {
     int TclStat(CONST char *path, TclStat_ *buf)
 }
-declare 110 generic {
+declare 106 generic {
     int TclStatDeleteProc(TclStatProc_ *proc)
 }
-declare 111 generic {
+declare 107 generic {
     int TclStatInsertProc(TclStatProc_ *proc)
 }
-declare 112 generic {
+declare 108 generic {
     void TclTeardownNamespace(Namespace *nsPtr)
 }
-declare 113 generic {
+declare 109 generic {
     int TclUpdateReturnInfo(Interp *iPtr)
 }
-declare 114 generic {
+declare 110 generic {
     char * TclWordEnd(char *start, char *lastChar, int nested, int *semiPtr)
 }
 
 # Procedures used in conjunction with Tcl namespaces. They are
 # defined here instead of in tcl.decls since they are not stable yet.
 
-declare 115 generic {
+declare 111 generic {
     void Tcl_AddInterpResolvers(Tcl_Interp *interp, char *name, \
 	    Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \
 	    Tcl_ResolveCompiledVarProc *compiledVarProc)
 }
-declare 116 generic {
+declare 112 generic {
     int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \
 	    Tcl_Obj *objPtr)
 }
-declare 117 generic {
+declare 113 generic {
     Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, char *name, \
 	    ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)
 }
-declare 118 generic {
+declare 114 generic {
     void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr)
 }
-declare 119 generic {
+declare 115 generic {
     int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, char *pattern, \
 	    int resetListFirst)
 }
-declare 120 generic {
+declare 116 generic {
     Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, char *name, \
 	    Tcl_Namespace *contextNsPtr, int flags)
 }
-declare 121 generic {
+declare 117 generic {
     Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, char *name, \
 	    Tcl_Namespace *contextNsPtr, int flags)
 }
-declare 122 generic {
+declare 118 generic {
     int Tcl_GetInterpResolvers(Tcl_Interp *interp, char *name, \
 	    Tcl_ResolverInfo *resInfo)
 }
-declare 123 generic {
+declare 119 generic {
     int Tcl_GetNamespaceResolvers(Tcl_Namespace *namespacePtr, \
 	    Tcl_ResolverInfo *resInfo)
 }
-declare 124 generic {
+declare 120 generic {
     Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, char *name, \
 	    Tcl_Namespace *contextNsPtr, int flags)
 }
-declare 125 generic {
+declare 121 generic {
     int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \
 	    char *pattern)
 }
-declare 126 generic {
+declare 122 generic {
     Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
 }
-declare 127 generic {
+declare 123 generic {
     void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command, \
 	    Tcl_Obj *objPtr)
 }
-declare 128 generic {
+declare 124 generic {
     Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp)
 }
-declare 129 generic {
+declare 125 generic {
     Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp)
 }
-declare 130 generic {
+declare 126 generic {
     void Tcl_GetVariableFullName(Tcl_Interp *interp, Tcl_Var variable, \
 	    Tcl_Obj *objPtr)
 }
-declare 131 generic {
+declare 127 generic {
     int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \
 	    char *pattern, int allowOverwrite)
 }
-declare 132 generic {
+declare 128 generic {
     void Tcl_PopCallFrame(Tcl_Interp* interp)
 }
-declare 133 generic {
+declare 129 generic {
     int Tcl_PushCallFrame(Tcl_Interp* interp, Tcl_CallFrame *framePtr, \
 	    Tcl_Namespace *nsPtr, int isProcCallFrame)
 } 
-declare 134 generic {
+declare 130 generic {
     int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, char *name)
 }
-declare 135 generic {
+declare 131 generic {
     void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr, \
 	    Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \
 	    Tcl_ResolveCompiledVarProc *compiledVarProc)
@@ -498,58 +486,58 @@ declare 135 generic {
 
 # Compilation procedures for commands in the generic core:
 
-declare 136 generic {
+declare 132 generic {
     int	TclCompileBreakCmd(Tcl_Interp *interp, char *string, char *lastChar, \
 	    int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 137 generic {
+declare 133 generic {
     int	TclCompileCatchCmd(Tcl_Interp *interp, char *string, char *lastChar, \
 	    int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 138 generic {
+declare 134 generic {
     int	TclCompileContinueCmd(Tcl_Interp *interp, char *string, \
 	    char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 139 generic {
+declare 135 generic {
     int	TclCompileExprCmd(Tcl_Interp *interp, char *string, char *lastChar, \
 	    int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 140 generic {
+declare 136 generic {
     int	TclCompileForCmd(Tcl_Interp *interp, char *string, char *lastChar, \
 	    int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 141 generic {
+declare 137 generic {
     int	TclCompileForeachCmd(Tcl_Interp *interp, char *string, \
 	    char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 142 generic {
+declare 138 generic {
     int	TclCompileIfCmd(Tcl_Interp *interp, char *string, char *lastChar, \
 	    int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 143 generic {
+declare 139 generic {
     int	TclCompileIncrCmd(Tcl_Interp *interp, char *string, char *lastChar, \
 	    int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 144 generic {
+declare 140 generic {
     int	TclCompileSetCmd(Tcl_Interp *interp, char *string, char *lastChar, \
 	    int compileFlags, struct CompileEnv *compileEnvPtr)
 }
-declare 145 generic {
+declare 141 generic {
     int	TclCompileWhileCmd(Tcl_Interp *interp, char *string, char *lastChar, \
 	    int compileFlags, struct CompileEnv *compileEnvPtr)
 }
 
-declare 146 generic {
+declare 142 generic {
     int TclHasSockets(Tcl_Interp *interp)
 }
-declare 147 generic {
+declare 143 generic {
     struct tm *	TclpGetDate(TclpTime_t time, int useGMT)
 }
-declare 148 generic {
+declare 144 generic {
     size_t TclStrftime(char *s, size_t maxsize, const char *format, \
 	    const struct tm *t)
 }
-declare 149 generic {
+declare 145 generic {
     int TclpCheckStackSpace(void)
 }
 
@@ -698,49 +686,43 @@ declare 8 win {
     unsigned long TclpGetPid(Tcl_Pid pid)
 }
 declare 9 win {
-    void TclpFinalize(void)
-}
-declare 10 win {
     int TclWinGetPlatformId(void)
 }
-declare 11 win {
-    void TclWinInit(HINSTANCE hInst)
-}
-declare 12 win {
+declare 10 win {
     int TclWinSynchSpawn(void *args, int type, void **trans, Tcl_Pid *pidPtr)
 }
 
 # Pipe channel functions
 
-declare 13 win {
+declare 11 win {
     void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan)
 }
-declare 14 win {
+declare 12 win {
     int TclpCloseFile(TclFile file)
 }
-declare 15 win {
+declare 13 win {
     Tcl_Channel TclpCreateCommandChannel(TclFile readFile, \
 	    TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)
 }
-declare 16 win {
+declare 14 win {
     int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
 }
-declare 17 win {
+declare 15 win {
     int TclpCreateProcess(Tcl_Interp *interp, int argc, char **argv, \
 	    TclFile inputFile, TclFile outputFile, TclFile errorFile, \
 	    Tcl_Pid *pidPtr)
 }
-declare 18 win {
+declare 16 win {
     TclFile TclpCreateTempFile(char *contents, 
     Tcl_DString *namePtr)
 }
-declare 19 win {
+declare 17 win {
     char * TclpGetTZName(void)
 }
-declare 20 win {
+declare 18 win {
     TclFile TclpMakeFile(Tcl_Channel channel, int direction)
 }
-declare 21 win {
+declare 19 win {
     TclFile TclpOpenFile(char *fname, int mode)
 }
 
diff --git a/generic/tclInt.h b/generic/tclInt.h
index c00dc0b..0446205 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclInt.h,v 1.23.4.3 1999/03/06 21:19:58 stanton Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.23.4.4 1999/03/08 22:25:29 stanton Exp $
  */
 
 #ifndef _TCLINT
@@ -1481,6 +1481,19 @@ extern char *		tclEmptyStringRep;
 
 /*
  *----------------------------------------------------------------
+ * Declarations of procedures that are not accessible by way of
+ * the stubs tables.
+ *----------------------------------------------------------------
+ */
+
+EXTERN void	TclFinalizeCompExecEnv _ANSI_ARGS_((void));
+EXTERN void	TclFinalizeEnvironment _ANSI_ARGS_((void));
+EXTERN void	TclFinalizeExecEnv _ANSI_ARGS_((void));
+EXTERN void	TclInitNamespaces _ANSI_ARGS_((void));
+EXTERN void	TclpFinalize _ANSI_ARGS_((void));
+
+/*
+ *----------------------------------------------------------------
  * Command procedures in the generic core:
  *----------------------------------------------------------------
  */
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
new file mode 100644
index 0000000..cbe0ceb
--- /dev/null
+++ b/generic/tclIntDecls.h
@@ -0,0 +1,1253 @@
+/*
+ * tclIntDecls.h --
+ *
+ *	This file contains the declarations for all unsupported
+ *	functions that are exported by the Tcl library.  These
+ *	interfaces are not guaranteed to remain the same between
+ *	versions.  Use at your own risk.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ *
+ * See the file "license.terms" for information on usage and redistribution
+ * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.2.4.1 1999/03/08 22:25:30 stanton Exp $
+ */
+
+#ifndef _TCLINTDECLS
+#define _TCLINTDECLS
+
+/*
+ * WARNING: This file is automatically generated by the tools/genStubs.tcl
+ * script.  Any modifications to the function declarations below should be made
+ * in the generic/tclInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported function declarations:
+ */
+
+/* 0 */
+EXTERN int		TclAccess _ANSI_ARGS_((CONST char * path, int mode));
+/* 1 */
+EXTERN int		TclAccessDeleteProc _ANSI_ARGS_((
+				TclAccessProc_ * proc));
+/* 2 */
+EXTERN int		TclAccessInsertProc _ANSI_ARGS_((
+				TclAccessProc_ * proc));
+/* 3 */
+EXTERN void		TclAllocateFreeObjects _ANSI_ARGS_((void));
+/* 4 */
+EXTERN int		TclChdir _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * dirName));
+/* 5 */
+EXTERN int		TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, 
+				int numPids, Tcl_Pid * pidPtr, 
+				Tcl_Channel errorChan));
+/* 6 */
+EXTERN void		TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
+/* 7 */
+EXTERN int		TclCopyAndCollapse _ANSI_ARGS_((int count, 
+				char * src, char * dst));
+/* 8 */
+EXTERN int		TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Channel inChan, Tcl_Channel outChan, 
+				int toRead, Tcl_Obj * cmdPtr));
+/* 9 */
+EXTERN int		TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, 
+				int argc, char ** argv, 
+				Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, 
+				TclFile * outPipePtr, TclFile * errFilePtr));
+/* 10 */
+EXTERN int		TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp, 
+				Namespace * nsPtr, char * procName, 
+				Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, 
+				Proc ** procPtrPtr));
+/* 11 */
+EXTERN void		TclDeleteCompiledLocalVars _ANSI_ARGS_((
+				Interp * iPtr, CallFrame * framePtr));
+/* 12 */
+EXTERN void		TclDeleteVars _ANSI_ARGS_((Interp * iPtr, 
+				Tcl_HashTable * tablePtr));
+/* 13 */
+EXTERN int		TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * separators, Tcl_DString * headPtr, 
+				char * tail));
+/* 14 */
+EXTERN void		TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
+/* 15 */
+EXTERN void		TclExpandParseValue _ANSI_ARGS_((ParseValue * pvPtr, 
+				int needed));
+/* 16 */
+EXTERN void		TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp, 
+				double value));
+/* 17 */
+EXTERN int		TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				int objc, Tcl_Obj *CONST objv[]));
+/* 18 */
+EXTERN int		TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				int argc, char ** argv));
+/* 19 */
+EXTERN int		TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				int argc, char ** argv));
+/* 20 */
+EXTERN int		TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				int argc, char ** argv));
+/* 21 */
+EXTERN int		TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				int argc, char ** argv));
+/* 22 */
+EXTERN int		TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * list, int listLength, 
+				char ** elementPtr, char ** nextPtr, 
+				int * sizePtr, int * bracePtr));
+/* 23 */
+EXTERN Proc *		TclFindProc _ANSI_ARGS_((Interp * iPtr, 
+				char * procName));
+/* 24 */
+EXTERN int		TclFormatInt _ANSI_ARGS_((char * buffer, long n));
+/* 25 */
+EXTERN void		TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
+/* 26 */
+EXTERN char *		TclGetCwd _ANSI_ARGS_((Tcl_Interp * interp));
+/* 27 */
+EXTERN int		TclGetDate _ANSI_ARGS_((char * p, unsigned long now, 
+				long zone, unsigned long * timePtr));
+/* 28 */
+EXTERN Tcl_Channel	TclGetDefaultStdChannel _ANSI_ARGS_((int type));
+/* 29 */
+EXTERN Tcl_Obj *	TclGetElementOfIndexedArray _ANSI_ARGS_((
+				Tcl_Interp * interp, int localIndex, 
+				Tcl_Obj * elemPtr, int leaveErrorMsg));
+/* 30 */
+EXTERN char *		TclGetEnv _ANSI_ARGS_((CONST char * name));
+/* 31 */
+EXTERN char *		TclGetExtension _ANSI_ARGS_((char * name));
+/* 32 */
+EXTERN int		TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, CallFrame ** framePtrPtr));
+/* 33 */
+EXTERN TclCmdProcType	TclGetInterpProc _ANSI_ARGS_((void));
+/* 34 */
+EXTERN int		TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Obj * objPtr, int endValue, 
+				int * indexPtr));
+/* 35 */
+EXTERN Tcl_Obj *	TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, 
+				int localIndex, int leaveErrorMsg));
+/* 36 */
+EXTERN int		TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, long * longPtr));
+/* 37 */
+EXTERN int		TclGetLoadedPackages _ANSI_ARGS_((
+				Tcl_Interp * interp, char * targetName));
+/* 38 */
+EXTERN int		TclGetNamespaceForQualName _ANSI_ARGS_((
+				Tcl_Interp * interp, char * qualName, 
+				Namespace * cxtNsPtr, int flags, 
+				Namespace ** nsPtrPtr, 
+				Namespace ** altNsPtrPtr, 
+				Namespace ** actualCxtPtrPtr, 
+				char ** simpleNamePtr));
+/* 39 */
+EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
+/* 40 */
+EXTERN int		TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, int * seekFlagPtr));
+/* 41 */
+EXTERN Tcl_Command	TclGetOriginalCommand _ANSI_ARGS_((
+				Tcl_Command command));
+/* 42 */
+EXTERN char *		TclGetUserHome _ANSI_ARGS_((char * name, 
+				Tcl_DString * bufferPtr));
+/* 43 */
+EXTERN int		TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, 
+				int argc, char ** argv, int flags));
+/* 44 */
+EXTERN int		TclGuessPackageName _ANSI_ARGS_((char * fileName, 
+				Tcl_DString * bufPtr));
+/* 45 */
+EXTERN int		TclHideUnsafeCommands _ANSI_ARGS_((
+				Tcl_Interp * interp));
+/* 46 */
+EXTERN int		TclInExit _ANSI_ARGS_((void));
+/* 47 */
+EXTERN Tcl_Obj *	TclIncrElementOfIndexedArray _ANSI_ARGS_((
+				Tcl_Interp * interp, int localIndex, 
+				Tcl_Obj * elemPtr, long incrAmount));
+/* 48 */
+EXTERN Tcl_Obj *	TclIncrIndexedScalar _ANSI_ARGS_((
+				Tcl_Interp * interp, int localIndex, 
+				long incrAmount));
+/* 49 */
+EXTERN Tcl_Obj *	TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, 
+				long incrAmount, int part1NotParsed));
+/* 50 */
+EXTERN void		TclInitCompiledLocals _ANSI_ARGS_((
+				Tcl_Interp * interp, CallFrame * framePtr, 
+				Namespace * nsPtr));
+/* 51 */
+EXTERN int		TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
+/* 52 */
+EXTERN int		TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, 
+				char ** argv, int flags));
+/* 53 */
+EXTERN int		TclInvokeObjectCommand _ANSI_ARGS_((
+				ClientData clientData, Tcl_Interp * interp, 
+				int argc, char ** argv));
+/* 54 */
+EXTERN int		TclInvokeStringCommand _ANSI_ARGS_((
+				ClientData clientData, Tcl_Interp * interp, 
+				int objc, Tcl_Obj *CONST objv[]));
+/* 55 */
+EXTERN Proc *		TclIsProc _ANSI_ARGS_((Command * cmdPtr));
+/* 56 */
+EXTERN int		TclLoadFile _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * fileName, char * sym1, char * sym2, 
+				Tcl_PackageInitProc ** proc1Ptr, 
+				Tcl_PackageInitProc ** proc2Ptr));
+/* 57 */
+EXTERN int		TclLooksLikeInt _ANSI_ARGS_((char * p));
+/* 58 */
+EXTERN Var *		TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * part1, char * part2, int flags, 
+				char * msg, int createPart1, int createPart2, 
+				Var ** arrayPtrPtr));
+/* 59 */
+EXTERN int		TclMatchFiles _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * separators, Tcl_DString * dirPtr, 
+				char * pattern, char * tail));
+/* 60 */
+EXTERN int		TclNeedSpace _ANSI_ARGS_((char * start, char * end));
+/* 61 */
+EXTERN Tcl_Obj *	TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
+/* 62 */
+EXTERN int		TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
+/* 63 */
+EXTERN int		TclObjInterpProc _ANSI_ARGS_((ClientData clientData, 
+				Tcl_Interp * interp, int objc, 
+				Tcl_Obj *CONST objv[]));
+/* 64 */
+EXTERN int		TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, 
+				int objc, Tcl_Obj *CONST objv[], int flags));
+/* 65 */
+EXTERN int		TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, 
+				int objc, Tcl_Obj *CONST objv[], int flags));
+/* 66 */
+EXTERN int		TclOpenFileChannelDeleteProc _ANSI_ARGS_((
+				TclOpenFileChannelProc_ * proc));
+/* 67 */
+EXTERN int		TclOpenFileChannelInsertProc _ANSI_ARGS_((
+				TclOpenFileChannelProc_ * proc));
+/* 68 */
+EXTERN int		TclpAccess _ANSI_ARGS_((CONST char * path, int mode));
+/* 69 */
+EXTERN char *		TclpAlloc _ANSI_ARGS_((unsigned int size));
+/* 70 */
+EXTERN int		TclpCopyFile _ANSI_ARGS_((char * source, char * dest));
+/* 71 */
+EXTERN int		TclpCopyDirectory _ANSI_ARGS_((char * source, 
+				char * dest, Tcl_DString * errorPtr));
+/* 72 */
+EXTERN int		TclpCreateDirectory _ANSI_ARGS_((char * path));
+/* 73 */
+EXTERN int		TclpDeleteFile _ANSI_ARGS_((char * path));
+/* 74 */
+EXTERN void		TclpFree _ANSI_ARGS_((char * ptr));
+/* 75 */
+EXTERN unsigned long	TclpGetClicks _ANSI_ARGS_((void));
+/* 76 */
+EXTERN unsigned long	TclpGetSeconds _ANSI_ARGS_((void));
+/* 77 */
+EXTERN void		TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
+/* 78 */
+EXTERN int		TclpGetTimeZone _ANSI_ARGS_((unsigned long time));
+/* 79 */
+EXTERN int		TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp));
+/* 80 */
+EXTERN Tcl_Channel	TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * fileName, char * modeString, 
+				int permissions));
+/* 81 */
+EXTERN char *		TclpRealloc _ANSI_ARGS_((char * ptr, 
+				unsigned int size));
+/* 82 */
+EXTERN int		TclpRemoveDirectory _ANSI_ARGS_((char * path, 
+				int recursive, Tcl_DString * errorPtr));
+/* 83 */
+EXTERN int		TclpRenameFile _ANSI_ARGS_((char * source, 
+				char * dest));
+/* 84 */
+EXTERN int		TclParseBraces _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char ** termPtr, 
+				ParseValue * pvPtr));
+/* 85 */
+EXTERN int		TclParseNestedCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, int flags, char ** termPtr, 
+				ParseValue * pvPtr));
+/* 86 */
+EXTERN int		TclParseQuotes _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, int termChar, int flags, 
+				char ** termPtr, ParseValue * pvPtr));
+/* 87 */
+EXTERN void		TclPlatformInit _ANSI_ARGS_((Tcl_Interp * interp));
+/* 88 */
+EXTERN char *		TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, 
+				Tcl_Interp * interp, char * name1, 
+				char * name2, int flags));
+/* 89 */
+EXTERN int		TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Interp * cmdInterp, Tcl_Command cmd));
+/* 90 */
+EXTERN void		TclPrintByteCodeObj _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Obj * objPtr));
+/* 91 */
+EXTERN void		TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
+/* 92 */
+EXTERN int		TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, 
+				Proc * procPtr, Tcl_Obj * bodyPtr, 
+				Namespace * nsPtr, CONST char * description, 
+				CONST char * procName));
+/* 93 */
+EXTERN void		TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
+/* 94 */
+EXTERN int		TclProcInterpProc _ANSI_ARGS_((ClientData clientData, 
+				Tcl_Interp * interp, int argc, char ** argv));
+/* 95 */
+EXTERN int		TclpStat _ANSI_ARGS_((CONST char * path, 
+				struct stat * buf));
+/* 96 */
+EXTERN int		TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * oldName, char * newName));
+/* 97 */
+EXTERN void		TclResetShadowedCmdRefs _ANSI_ARGS_((
+				Tcl_Interp * interp, Command * newCmdPtr));
+/* 98 */
+EXTERN int		TclServiceIdle _ANSI_ARGS_((void));
+/* 99 */
+EXTERN Tcl_Obj *	TclSetElementOfIndexedArray _ANSI_ARGS_((
+				Tcl_Interp * interp, int localIndex, 
+				Tcl_Obj * elemPtr, Tcl_Obj * objPtr, 
+				int leaveErrorMsg));
+/* 100 */
+EXTERN Tcl_Obj *	TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, 
+				int localIndex, Tcl_Obj * objPtr, 
+				int leaveErrorMsg));
+/* 101 */
+EXTERN char *		TclSetPreInitScript _ANSI_ARGS_((char * string));
+/* 102 */
+EXTERN void		TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
+/* 103 */
+EXTERN int		TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * proto, int * portPtr));
+/* 104 */
+EXTERN int		TclSockMinimumBuffers _ANSI_ARGS_((int sock, 
+				int size));
+/* 105 */
+EXTERN int		TclStat _ANSI_ARGS_((CONST char * path, 
+				TclStat_ * buf));
+/* 106 */
+EXTERN int		TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc));
+/* 107 */
+EXTERN int		TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc));
+/* 108 */
+EXTERN void		TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
+/* 109 */
+EXTERN int		TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
+/* 110 */
+EXTERN char *		TclWordEnd _ANSI_ARGS_((char * start, 
+				char * lastChar, int nested, int * semiPtr));
+/* 111 */
+EXTERN void		Tcl_AddInterpResolvers _ANSI_ARGS_((
+				Tcl_Interp * interp, char * name, 
+				Tcl_ResolveCmdProc * cmdProc, 
+				Tcl_ResolveVarProc * varProc, 
+				Tcl_ResolveCompiledVarProc * compiledVarProc));
+/* 112 */
+EXTERN int		Tcl_AppendExportList _ANSI_ARGS_((
+				Tcl_Interp * interp, Tcl_Namespace * nsPtr, 
+				Tcl_Obj * objPtr));
+/* 113 */
+EXTERN Tcl_Namespace *	Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * name, ClientData clientData, 
+				Tcl_NamespaceDeleteProc * deleteProc));
+/* 114 */
+EXTERN void		Tcl_DeleteNamespace _ANSI_ARGS_((
+				Tcl_Namespace * nsPtr));
+/* 115 */
+EXTERN int		Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Namespace * nsPtr, char * pattern, 
+				int resetListFirst));
+/* 116 */
+EXTERN Tcl_Command	Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * name, Tcl_Namespace * contextNsPtr, 
+				int flags));
+/* 117 */
+EXTERN Tcl_Namespace *	Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * name, Tcl_Namespace * contextNsPtr, 
+				int flags));
+/* 118 */
+EXTERN int		Tcl_GetInterpResolvers _ANSI_ARGS_((
+				Tcl_Interp * interp, char * name, 
+				Tcl_ResolverInfo * resInfo));
+/* 119 */
+EXTERN int		Tcl_GetNamespaceResolvers _ANSI_ARGS_((
+				Tcl_Namespace * namespacePtr, 
+				Tcl_ResolverInfo * resInfo));
+/* 120 */
+EXTERN Tcl_Var		Tcl_FindNamespaceVar _ANSI_ARGS_((
+				Tcl_Interp * interp, char * name, 
+				Tcl_Namespace * contextNsPtr, int flags));
+/* 121 */
+EXTERN int		Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Namespace * nsPtr, char * pattern));
+/* 122 */
+EXTERN Tcl_Command	Tcl_GetCommandFromObj _ANSI_ARGS_((
+				Tcl_Interp * interp, Tcl_Obj * objPtr));
+/* 123 */
+EXTERN void		Tcl_GetCommandFullName _ANSI_ARGS_((
+				Tcl_Interp * interp, Tcl_Command command, 
+				Tcl_Obj * objPtr));
+/* 124 */
+EXTERN Tcl_Namespace *	Tcl_GetCurrentNamespace _ANSI_ARGS_((
+				Tcl_Interp * interp));
+/* 125 */
+EXTERN Tcl_Namespace *	Tcl_GetGlobalNamespace _ANSI_ARGS_((
+				Tcl_Interp * interp));
+/* 126 */
+EXTERN void		Tcl_GetVariableFullName _ANSI_ARGS_((
+				Tcl_Interp * interp, Tcl_Var variable, 
+				Tcl_Obj * objPtr));
+/* 127 */
+EXTERN int		Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Namespace * nsPtr, char * pattern, 
+				int allowOverwrite));
+/* 128 */
+EXTERN void		Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp));
+/* 129 */
+EXTERN int		Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, 
+				Tcl_CallFrame * framePtr, 
+				Tcl_Namespace * nsPtr, int isProcCallFrame));
+/* 130 */
+EXTERN int		Tcl_RemoveInterpResolvers _ANSI_ARGS_((
+				Tcl_Interp * interp, char * name));
+/* 131 */
+EXTERN void		Tcl_SetNamespaceResolvers _ANSI_ARGS_((
+				Tcl_Namespace * namespacePtr, 
+				Tcl_ResolveCmdProc * cmdProc, 
+				Tcl_ResolveVarProc * varProc, 
+				Tcl_ResolveCompiledVarProc * compiledVarProc));
+/* 132 */
+EXTERN int		TclCompileBreakCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * lastChar, 
+				int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 133 */
+EXTERN int		TclCompileCatchCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * lastChar, 
+				int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 134 */
+EXTERN int		TclCompileContinueCmd _ANSI_ARGS_((
+				Tcl_Interp * interp, char * string, 
+				char * lastChar, int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 135 */
+EXTERN int		TclCompileExprCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * lastChar, 
+				int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 136 */
+EXTERN int		TclCompileForCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * lastChar, 
+				int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 137 */
+EXTERN int		TclCompileForeachCmd _ANSI_ARGS_((
+				Tcl_Interp * interp, char * string, 
+				char * lastChar, int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 138 */
+EXTERN int		TclCompileIfCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * lastChar, 
+				int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 139 */
+EXTERN int		TclCompileIncrCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * lastChar, 
+				int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 140 */
+EXTERN int		TclCompileSetCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * lastChar, 
+				int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 141 */
+EXTERN int		TclCompileWhileCmd _ANSI_ARGS_((Tcl_Interp * interp, 
+				char * string, char * lastChar, 
+				int compileFlags, 
+				struct CompileEnv * compileEnvPtr));
+/* 142 */
+EXTERN int		TclHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
+/* 143 */
+EXTERN struct tm *	TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT));
+/* 144 */
+EXTERN size_t		TclStrftime _ANSI_ARGS_((char * s, size_t maxsize, 
+				const char * format, const struct tm * t));
+/* 145 */
+EXTERN int		TclpCheckStackSpace _ANSI_ARGS_((void));
+
+typedef struct TclIntStubs {
+    int magic;
+    struct TclIntStubHooks *hooks;
+
+    int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 0 */
+    int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
+    int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
+    void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
+    int (*tclChdir) _ANSI_ARGS_((Tcl_Interp * interp, char * dirName)); /* 4 */
+    int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
+    void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
+    int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, char * src, char * dst)); /* 7 */
+    int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
+    int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
+    int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
+    void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
+    void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
+    int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail)); /* 13 */
+    void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
+    void (*tclExpandParseValue) _ANSI_ARGS_((ParseValue * pvPtr, int needed)); /* 15 */
+    void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
+    int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 17 */
+    int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 18 */
+    int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */
+    int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */
+    int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */
+    int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, char * list, int listLength, char ** elementPtr, char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
+    Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 23 */
+    int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
+    void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
+    char * (*tclGetCwd) _ANSI_ARGS_((Tcl_Interp * interp)); /* 26 */
+    int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */
+    Tcl_Channel (*tclGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
+    Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 29 */
+    char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name)); /* 30 */
+    char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */
+    int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 32 */
+    TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
+    int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
+    Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */
+    int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 36 */
+    int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
+    int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */
+    TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
+    int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 40 */
+    Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
+    char * (*tclGetUserHome) _ANSI_ARGS_((char * name, Tcl_DString * bufferPtr)); /* 42 */
+    int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 43 */
+    int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 44 */
+    int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
+    int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
+    Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 47 */
+    Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 48 */
+    Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
+    void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
+    int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
+    int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 52 */
+    int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 53 */
+    int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
+    Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
+    int (*tclLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr)); /* 56 */
+    int (*tclLooksLikeInt) _ANSI_ARGS_((char * p)); /* 57 */
+    Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
+    int (*tclMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 59 */
+    int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */
+    Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
+    int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
+    int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
+    int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
+    int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
+    int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
+    int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
+    int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 68 */
+    char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
+    int (*tclpCopyFile) _ANSI_ARGS_((char * source, char * dest)); /* 70 */
+    int (*tclpCopyDirectory) _ANSI_ARGS_((char * source, char * dest, Tcl_DString * errorPtr)); /* 71 */
+    int (*tclpCreateDirectory) _ANSI_ARGS_((char * path)); /* 72 */
+    int (*tclpDeleteFile) _ANSI_ARGS_((char * path)); /* 73 */
+    void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
+    unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
+    unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
+    void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
+    int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */
+    int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 79 */
+    Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 80 */
+    char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
+    int (*tclpRemoveDirectory) _ANSI_ARGS_((char * path, int recursive, Tcl_DString * errorPtr)); /* 82 */
+    int (*tclpRenameFile) _ANSI_ARGS_((char * source, char * dest)); /* 83 */
+    int (*tclParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr, ParseValue * pvPtr)); /* 84 */
+    int (*tclParseNestedCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int flags, char ** termPtr, ParseValue * pvPtr)); /* 85 */
+    int (*tclParseQuotes) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int termChar, int flags, char ** termPtr, ParseValue * pvPtr)); /* 86 */
+    void (*tclPlatformInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 87 */
+    char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 88 */
+    int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
+    void (*tclPrintByteCodeObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 90 */
+    void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
+    int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
+    void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
+    int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 94 */
+    int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 95 */
+    int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
+    void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
+    int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
+    Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */
+    Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */
+    char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
+    void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
+    int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 103 */
+    int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
+    int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 105 */
+    int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
+    int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
+    void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
+    int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
+    char * (*tclWordEnd) _ANSI_ARGS_((char * start, char * lastChar, int nested, int * semiPtr)); /* 110 */
+    void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
+    int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
+    Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
+    void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
+    int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */
+    Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
+    Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
+    int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
+    int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
+    Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
+    int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 121 */
+    Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
+    void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
+    Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
+    Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
+    void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
+    int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 127 */
+    void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */
+    int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
+    int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */
+    void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
+    int (*tclCompileBreakCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 132 */
+    int (*tclCompileCatchCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 133 */
+    int (*tclCompileContinueCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 134 */
+    int (*tclCompileExprCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 135 */
+    int (*tclCompileForCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 136 */
+    int (*tclCompileForeachCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 137 */
+    int (*tclCompileIfCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 138 */
+    int (*tclCompileIncrCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 139 */
+    int (*tclCompileSetCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 140 */
+    int (*tclCompileWhileCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 141 */
+    int (*tclHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 142 */
+    struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 143 */
+    size_t (*tclStrftime) _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); /* 144 */
+    int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 145 */
+} TclIntStubs;
+
+extern TclIntStubs *tclIntStubsPtr;
+
+#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+#ifndef TclAccess
+#define TclAccess(path, mode) \
+	(tclIntStubsPtr->tclAccess)(path, mode) /* 0 */
+#endif
+#ifndef TclAccessDeleteProc
+#define TclAccessDeleteProc(proc) \
+	(tclIntStubsPtr->tclAccessDeleteProc)(proc) /* 1 */
+#endif
+#ifndef TclAccessInsertProc
+#define TclAccessInsertProc(proc) \
+	(tclIntStubsPtr->tclAccessInsertProc)(proc) /* 2 */
+#endif
+#ifndef TclAllocateFreeObjects
+#define TclAllocateFreeObjects() \
+	(tclIntStubsPtr->tclAllocateFreeObjects)() /* 3 */
+#endif
+#ifndef TclChdir
+#define TclChdir(interp, dirName) \
+	(tclIntStubsPtr->tclChdir)(interp, dirName) /* 4 */
+#endif
+#ifndef TclCleanupChildren
+#define TclCleanupChildren(interp, numPids, pidPtr, errorChan) \
+	(tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan) /* 5 */
+#endif
+#ifndef TclCleanupCommand
+#define TclCleanupCommand(cmdPtr) \
+	(tclIntStubsPtr->tclCleanupCommand)(cmdPtr) /* 6 */
+#endif
+#ifndef TclCopyAndCollapse
+#define TclCopyAndCollapse(count, src, dst) \
+	(tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst) /* 7 */
+#endif
+#ifndef TclCopyChannel
+#define TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr) \
+	(tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr) /* 8 */
+#endif
+#ifndef TclCreatePipeline
+#define TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) \
+	(tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) /* 9 */
+#endif
+#ifndef TclCreateProc
+#define TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) \
+	(tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) /* 10 */
+#endif
+#ifndef TclDeleteCompiledLocalVars
+#define TclDeleteCompiledLocalVars(iPtr, framePtr) \
+	(tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr) /* 11 */
+#endif
+#ifndef TclDeleteVars
+#define TclDeleteVars(iPtr, tablePtr) \
+	(tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr) /* 12 */
+#endif
+#ifndef TclDoGlob
+#define TclDoGlob(interp, separators, headPtr, tail) \
+	(tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail) /* 13 */
+#endif
+#ifndef TclDumpMemoryInfo
+#define TclDumpMemoryInfo(outFile) \
+	(tclIntStubsPtr->tclDumpMemoryInfo)(outFile) /* 14 */
+#endif
+#ifndef TclExpandParseValue
+#define TclExpandParseValue(pvPtr, needed) \
+	(tclIntStubsPtr->tclExpandParseValue)(pvPtr, needed) /* 15 */
+#endif
+#ifndef TclExprFloatError
+#define TclExprFloatError(interp, value) \
+	(tclIntStubsPtr->tclExprFloatError)(interp, value) /* 16 */
+#endif
+#ifndef TclFileAttrsCmd
+#define TclFileAttrsCmd(interp, objc, objv) \
+	(tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv) /* 17 */
+#endif
+#ifndef TclFileCopyCmd
+#define TclFileCopyCmd(interp, argc, argv) \
+	(tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv) /* 18 */
+#endif
+#ifndef TclFileDeleteCmd
+#define TclFileDeleteCmd(interp, argc, argv) \
+	(tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv) /* 19 */
+#endif
+#ifndef TclFileMakeDirsCmd
+#define TclFileMakeDirsCmd(interp, argc, argv) \
+	(tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv) /* 20 */
+#endif
+#ifndef TclFileRenameCmd
+#define TclFileRenameCmd(interp, argc, argv) \
+	(tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv) /* 21 */
+#endif
+#ifndef TclFindElement
+#define TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) \
+	(tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) /* 22 */
+#endif
+#ifndef TclFindProc
+#define TclFindProc(iPtr, procName) \
+	(tclIntStubsPtr->tclFindProc)(iPtr, procName) /* 23 */
+#endif
+#ifndef TclFormatInt
+#define TclFormatInt(buffer, n) \
+	(tclIntStubsPtr->tclFormatInt)(buffer, n) /* 24 */
+#endif
+#ifndef TclFreePackageInfo
+#define TclFreePackageInfo(iPtr) \
+	(tclIntStubsPtr->tclFreePackageInfo)(iPtr) /* 25 */
+#endif
+#ifndef TclGetCwd
+#define TclGetCwd(interp) \
+	(tclIntStubsPtr->tclGetCwd)(interp) /* 26 */
+#endif
+#ifndef TclGetDate
+#define TclGetDate(p, now, zone, timePtr) \
+	(tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 27 */
+#endif
+#ifndef TclGetDefaultStdChannel
+#define TclGetDefaultStdChannel(type) \
+	(tclIntStubsPtr->tclGetDefaultStdChannel)(type) /* 28 */
+#endif
+#ifndef TclGetElementOfIndexedArray
+#define TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) \
+	(tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 29 */
+#endif
+#ifndef TclGetEnv
+#define TclGetEnv(name) \
+	(tclIntStubsPtr->tclGetEnv)(name) /* 30 */
+#endif
+#ifndef TclGetExtension
+#define TclGetExtension(name) \
+	(tclIntStubsPtr->tclGetExtension)(name) /* 31 */
+#endif
+#ifndef TclGetFrame
+#define TclGetFrame(interp, string, framePtrPtr) \
+	(tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr) /* 32 */
+#endif
+#ifndef TclGetInterpProc
+#define TclGetInterpProc() \
+	(tclIntStubsPtr->tclGetInterpProc)() /* 33 */
+#endif
+#ifndef TclGetIntForIndex
+#define TclGetIntForIndex(interp, objPtr, endValue, indexPtr) \
+	(tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 34 */
+#endif
+#ifndef TclGetIndexedScalar
+#define TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) \
+	(tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 35 */
+#endif
+#ifndef TclGetLong
+#define TclGetLong(interp, string, longPtr) \
+	(tclIntStubsPtr->tclGetLong)(interp, string, longPtr) /* 36 */
+#endif
+#ifndef TclGetLoadedPackages
+#define TclGetLoadedPackages(interp, targetName) \
+	(tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 37 */
+#endif
+#ifndef TclGetNamespaceForQualName
+#define TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) \
+	(tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 38 */
+#endif
+#ifndef TclGetObjInterpProc
+#define TclGetObjInterpProc() \
+	(tclIntStubsPtr->tclGetObjInterpProc)() /* 39 */
+#endif
+#ifndef TclGetOpenMode
+#define TclGetOpenMode(interp, string, seekFlagPtr) \
+	(tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 40 */
+#endif
+#ifndef TclGetOriginalCommand
+#define TclGetOriginalCommand(command) \
+	(tclIntStubsPtr->tclGetOriginalCommand)(command) /* 41 */
+#endif
+#ifndef TclGetUserHome
+#define TclGetUserHome(name, bufferPtr) \
+	(tclIntStubsPtr->tclGetUserHome)(name, bufferPtr) /* 42 */
+#endif
+#ifndef TclGlobalInvoke
+#define TclGlobalInvoke(interp, argc, argv, flags) \
+	(tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 43 */
+#endif
+#ifndef TclGuessPackageName
+#define TclGuessPackageName(fileName, bufPtr) \
+	(tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 44 */
+#endif
+#ifndef TclHideUnsafeCommands
+#define TclHideUnsafeCommands(interp) \
+	(tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 45 */
+#endif
+#ifndef TclInExit
+#define TclInExit() \
+	(tclIntStubsPtr->tclInExit)() /* 46 */
+#endif
+#ifndef TclIncrElementOfIndexedArray
+#define TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) \
+	(tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 47 */
+#endif
+#ifndef TclIncrIndexedScalar
+#define TclIncrIndexedScalar(interp, localIndex, incrAmount) \
+	(tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 48 */
+#endif
+#ifndef TclIncrVar2
+#define TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) \
+	(tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 49 */
+#endif
+#ifndef TclInitCompiledLocals
+#define TclInitCompiledLocals(interp, framePtr, nsPtr) \
+	(tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 50 */
+#endif
+#ifndef TclInterpInit
+#define TclInterpInit(interp) \
+	(tclIntStubsPtr->tclInterpInit)(interp) /* 51 */
+#endif
+#ifndef TclInvoke
+#define TclInvoke(interp, argc, argv, flags) \
+	(tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 52 */
+#endif
+#ifndef TclInvokeObjectCommand
+#define TclInvokeObjectCommand(clientData, interp, argc, argv) \
+	(tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 53 */
+#endif
+#ifndef TclInvokeStringCommand
+#define TclInvokeStringCommand(clientData, interp, objc, objv) \
+	(tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 54 */
+#endif
+#ifndef TclIsProc
+#define TclIsProc(cmdPtr) \
+	(tclIntStubsPtr->tclIsProc)(cmdPtr) /* 55 */
+#endif
+#ifndef TclLoadFile
+#define TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) \
+	(tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) /* 56 */
+#endif
+#ifndef TclLooksLikeInt
+#define TclLooksLikeInt(p) \
+	(tclIntStubsPtr->tclLooksLikeInt)(p) /* 57 */
+#endif
+#ifndef TclLookupVar
+#define TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) \
+	(tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 58 */
+#endif
+#ifndef TclMatchFiles
+#define TclMatchFiles(interp, separators, dirPtr, pattern, tail) \
+	(tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 59 */
+#endif
+#ifndef TclNeedSpace
+#define TclNeedSpace(start, end) \
+	(tclIntStubsPtr->tclNeedSpace)(start, end) /* 60 */
+#endif
+#ifndef TclNewProcBodyObj
+#define TclNewProcBodyObj(procPtr) \
+	(tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 61 */
+#endif
+#ifndef TclObjCommandComplete
+#define TclObjCommandComplete(cmdPtr) \
+	(tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 62 */
+#endif
+#ifndef TclObjInterpProc
+#define TclObjInterpProc(clientData, interp, objc, objv) \
+	(tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 63 */
+#endif
+#ifndef TclObjInvoke
+#define TclObjInvoke(interp, objc, objv, flags) \
+	(tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 64 */
+#endif
+#ifndef TclObjInvokeGlobal
+#define TclObjInvokeGlobal(interp, objc, objv, flags) \
+	(tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 65 */
+#endif
+#ifndef TclOpenFileChannelDeleteProc
+#define TclOpenFileChannelDeleteProc(proc) \
+	(tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 66 */
+#endif
+#ifndef TclOpenFileChannelInsertProc
+#define TclOpenFileChannelInsertProc(proc) \
+	(tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 67 */
+#endif
+#ifndef TclpAccess
+#define TclpAccess(path, mode) \
+	(tclIntStubsPtr->tclpAccess)(path, mode) /* 68 */
+#endif
+#ifndef TclpAlloc
+#define TclpAlloc(size) \
+	(tclIntStubsPtr->tclpAlloc)(size) /* 69 */
+#endif
+#ifndef TclpCopyFile
+#define TclpCopyFile(source, dest) \
+	(tclIntStubsPtr->tclpCopyFile)(source, dest) /* 70 */
+#endif
+#ifndef TclpCopyDirectory
+#define TclpCopyDirectory(source, dest, errorPtr) \
+	(tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 71 */
+#endif
+#ifndef TclpCreateDirectory
+#define TclpCreateDirectory(path) \
+	(tclIntStubsPtr->tclpCreateDirectory)(path) /* 72 */
+#endif
+#ifndef TclpDeleteFile
+#define TclpDeleteFile(path) \
+	(tclIntStubsPtr->tclpDeleteFile)(path) /* 73 */
+#endif
+#ifndef TclpFree
+#define TclpFree(ptr) \
+	(tclIntStubsPtr->tclpFree)(ptr) /* 74 */
+#endif
+#ifndef TclpGetClicks
+#define TclpGetClicks() \
+	(tclIntStubsPtr->tclpGetClicks)() /* 75 */
+#endif
+#ifndef TclpGetSeconds
+#define TclpGetSeconds() \
+	(tclIntStubsPtr->tclpGetSeconds)() /* 76 */
+#endif
+#ifndef TclpGetTime
+#define TclpGetTime(time) \
+	(tclIntStubsPtr->tclpGetTime)(time) /* 77 */
+#endif
+#ifndef TclpGetTimeZone
+#define TclpGetTimeZone(time) \
+	(tclIntStubsPtr->tclpGetTimeZone)(time) /* 78 */
+#endif
+#ifndef TclpListVolumes
+#define TclpListVolumes(interp) \
+	(tclIntStubsPtr->tclpListVolumes)(interp) /* 79 */
+#endif
+#ifndef TclpOpenFileChannel
+#define TclpOpenFileChannel(interp, fileName, modeString, permissions) \
+	(tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 80 */
+#endif
+#ifndef TclpRealloc
+#define TclpRealloc(ptr, size) \
+	(tclIntStubsPtr->tclpRealloc)(ptr, size) /* 81 */
+#endif
+#ifndef TclpRemoveDirectory
+#define TclpRemoveDirectory(path, recursive, errorPtr) \
+	(tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 82 */
+#endif
+#ifndef TclpRenameFile
+#define TclpRenameFile(source, dest) \
+	(tclIntStubsPtr->tclpRenameFile)(source, dest) /* 83 */
+#endif
+#ifndef TclParseBraces
+#define TclParseBraces(interp, string, termPtr, pvPtr) \
+	(tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr) /* 84 */
+#endif
+#ifndef TclParseNestedCmd
+#define TclParseNestedCmd(interp, string, flags, termPtr, pvPtr) \
+	(tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr) /* 85 */
+#endif
+#ifndef TclParseQuotes
+#define TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr) \
+	(tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr) /* 86 */
+#endif
+#ifndef TclPlatformInit
+#define TclPlatformInit(interp) \
+	(tclIntStubsPtr->tclPlatformInit)(interp) /* 87 */
+#endif
+#ifndef TclPrecTraceProc
+#define TclPrecTraceProc(clientData, interp, name1, name2, flags) \
+	(tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 88 */
+#endif
+#ifndef TclPreventAliasLoop
+#define TclPreventAliasLoop(interp, cmdInterp, cmd) \
+	(tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 89 */
+#endif
+#ifndef TclPrintByteCodeObj
+#define TclPrintByteCodeObj(interp, objPtr) \
+	(tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr) /* 90 */
+#endif
+#ifndef TclProcCleanupProc
+#define TclProcCleanupProc(procPtr) \
+	(tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 91 */
+#endif
+#ifndef TclProcCompileProc
+#define TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) \
+	(tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 92 */
+#endif
+#ifndef TclProcDeleteProc
+#define TclProcDeleteProc(clientData) \
+	(tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 93 */
+#endif
+#ifndef TclProcInterpProc
+#define TclProcInterpProc(clientData, interp, argc, argv) \
+	(tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 94 */
+#endif
+#ifndef TclpStat
+#define TclpStat(path, buf) \
+	(tclIntStubsPtr->tclpStat)(path, buf) /* 95 */
+#endif
+#ifndef TclRenameCommand
+#define TclRenameCommand(interp, oldName, newName) \
+	(tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 96 */
+#endif
+#ifndef TclResetShadowedCmdRefs
+#define TclResetShadowedCmdRefs(interp, newCmdPtr) \
+	(tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 97 */
+#endif
+#ifndef TclServiceIdle
+#define TclServiceIdle() \
+	(tclIntStubsPtr->tclServiceIdle)() /* 98 */
+#endif
+#ifndef TclSetElementOfIndexedArray
+#define TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) \
+	(tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 99 */
+#endif
+#ifndef TclSetIndexedScalar
+#define TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) \
+	(tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 100 */
+#endif
+#ifndef TclSetPreInitScript
+#define TclSetPreInitScript(string) \
+	(tclIntStubsPtr->tclSetPreInitScript)(string) /* 101 */
+#endif
+#ifndef TclSetupEnv
+#define TclSetupEnv(interp) \
+	(tclIntStubsPtr->tclSetupEnv)(interp) /* 102 */
+#endif
+#ifndef TclSockGetPort
+#define TclSockGetPort(interp, string, proto, portPtr) \
+	(tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr) /* 103 */
+#endif
+#ifndef TclSockMinimumBuffers
+#define TclSockMinimumBuffers(sock, size) \
+	(tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 104 */
+#endif
+#ifndef TclStat
+#define TclStat(path, buf) \
+	(tclIntStubsPtr->tclStat)(path, buf) /* 105 */
+#endif
+#ifndef TclStatDeleteProc
+#define TclStatDeleteProc(proc) \
+	(tclIntStubsPtr->tclStatDeleteProc)(proc) /* 106 */
+#endif
+#ifndef TclStatInsertProc
+#define TclStatInsertProc(proc) \
+	(tclIntStubsPtr->tclStatInsertProc)(proc) /* 107 */
+#endif
+#ifndef TclTeardownNamespace
+#define TclTeardownNamespace(nsPtr) \
+	(tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 108 */
+#endif
+#ifndef TclUpdateReturnInfo
+#define TclUpdateReturnInfo(iPtr) \
+	(tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 109 */
+#endif
+#ifndef TclWordEnd
+#define TclWordEnd(start, lastChar, nested, semiPtr) \
+	(tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr) /* 110 */
+#endif
+#ifndef Tcl_AddInterpResolvers
+#define Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) \
+	(tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 111 */
+#endif
+#ifndef Tcl_AppendExportList
+#define Tcl_AppendExportList(interp, nsPtr, objPtr) \
+	(tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 112 */
+#endif
+#ifndef Tcl_CreateNamespace
+#define Tcl_CreateNamespace(interp, name, clientData, deleteProc) \
+	(tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 113 */
+#endif
+#ifndef Tcl_DeleteNamespace
+#define Tcl_DeleteNamespace(nsPtr) \
+	(tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 114 */
+#endif
+#ifndef Tcl_Export
+#define Tcl_Export(interp, nsPtr, pattern, resetListFirst) \
+	(tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 115 */
+#endif
+#ifndef Tcl_FindCommand
+#define Tcl_FindCommand(interp, name, contextNsPtr, flags) \
+	(tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 116 */
+#endif
+#ifndef Tcl_FindNamespace
+#define Tcl_FindNamespace(interp, name, contextNsPtr, flags) \
+	(tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 117 */
+#endif
+#ifndef Tcl_GetInterpResolvers
+#define Tcl_GetInterpResolvers(interp, name, resInfo) \
+	(tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 118 */
+#endif
+#ifndef Tcl_GetNamespaceResolvers
+#define Tcl_GetNamespaceResolvers(namespacePtr, resInfo) \
+	(tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 119 */
+#endif
+#ifndef Tcl_FindNamespaceVar
+#define Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) \
+	(tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 120 */
+#endif
+#ifndef Tcl_ForgetImport
+#define Tcl_ForgetImport(interp, nsPtr, pattern) \
+	(tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 121 */
+#endif
+#ifndef Tcl_GetCommandFromObj
+#define Tcl_GetCommandFromObj(interp, objPtr) \
+	(tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 122 */
+#endif
+#ifndef Tcl_GetCommandFullName
+#define Tcl_GetCommandFullName(interp, command, objPtr) \
+	(tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 123 */
+#endif
+#ifndef Tcl_GetCurrentNamespace
+#define Tcl_GetCurrentNamespace(interp) \
+	(tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 124 */
+#endif
+#ifndef Tcl_GetGlobalNamespace
+#define Tcl_GetGlobalNamespace(interp) \
+	(tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 125 */
+#endif
+#ifndef Tcl_GetVariableFullName
+#define Tcl_GetVariableFullName(interp, variable, objPtr) \
+	(tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 126 */
+#endif
+#ifndef Tcl_Import
+#define Tcl_Import(interp, nsPtr, pattern, allowOverwrite) \
+	(tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 127 */
+#endif
+#ifndef Tcl_PopCallFrame
+#define Tcl_PopCallFrame(interp) \
+	(tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 128 */
+#endif
+#ifndef Tcl_PushCallFrame
+#define Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) \
+	(tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 129 */
+#endif
+#ifndef Tcl_RemoveInterpResolvers
+#define Tcl_RemoveInterpResolvers(interp, name) \
+	(tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 130 */
+#endif
+#ifndef Tcl_SetNamespaceResolvers
+#define Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) \
+	(tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 131 */
+#endif
+#ifndef TclCompileBreakCmd
+#define TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 132 */
+#endif
+#ifndef TclCompileCatchCmd
+#define TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 133 */
+#endif
+#ifndef TclCompileContinueCmd
+#define TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 134 */
+#endif
+#ifndef TclCompileExprCmd
+#define TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 135 */
+#endif
+#ifndef TclCompileForCmd
+#define TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 136 */
+#endif
+#ifndef TclCompileForeachCmd
+#define TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 137 */
+#endif
+#ifndef TclCompileIfCmd
+#define TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 138 */
+#endif
+#ifndef TclCompileIncrCmd
+#define TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 139 */
+#endif
+#ifndef TclCompileSetCmd
+#define TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 140 */
+#endif
+#ifndef TclCompileWhileCmd
+#define TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \
+	(tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 141 */
+#endif
+#ifndef TclHasSockets
+#define TclHasSockets(interp) \
+	(tclIntStubsPtr->tclHasSockets)(interp) /* 142 */
+#endif
+#ifndef TclpGetDate
+#define TclpGetDate(time, useGMT) \
+	(tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 143 */
+#endif
+#ifndef TclStrftime
+#define TclStrftime(s, maxsize, format, t) \
+	(tclIntStubsPtr->tclStrftime)(s, maxsize, format, t) /* 144 */
+#endif
+#ifndef TclpCheckStackSpace
+#define TclpCheckStackSpace() \
+	(tclIntStubsPtr->tclpCheckStackSpace)() /* 145 */
+#endif
+
+#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
+
+/* !END!: Do not edit above this line. */
+
+#endif /* _TCLINTDECLS */
+
diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h
new file mode 100644
index 0000000..996fc03
--- /dev/null
+++ b/generic/tclIntPlatDecls.h
@@ -0,0 +1,495 @@
+/*
+ * tclIntPlatDecls.h --
+ *
+ *	This file contains the declarations for all platform dependent
+ *	unsupported functions that are exported by the Tcl library.  These
+ *	interfaces are not guaranteed to remain the same between
+ *	versions.  Use at your own risk.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.2.4.1 1999/03/08 22:25:30 stanton Exp $
+ */
+
+#ifndef _TCLINTPLATDECLS
+#define _TCLINTPLATDECLS
+
+/*
+ * WARNING: This file is automatically generated by the tools/genStubs.tcl
+ * script.  Any modifications to the function declarations below should be made
+ * in the generic/tclInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported function declarations:
+ */
+
+#ifdef __WIN32__
+/* 0 */
+EXTERN void		TclWinConvertError _ANSI_ARGS_((DWORD errCode));
+/* 1 */
+EXTERN void		TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));
+/* 2 */
+EXTERN struct servent *	 TclWinGetServByName _ANSI_ARGS_((const char * nm, 
+				const char * proto));
+/* 3 */
+EXTERN int		TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
+				int optname, char FAR * optval, 
+				int FAR * optlen));
+/* 4 */
+EXTERN HINSTANCE	TclWinGetTclInstance _ANSI_ARGS_((void));
+/* 5 */
+EXTERN HINSTANCE	TclWinLoadLibrary _ANSI_ARGS_((char * name));
+/* 6 */
+EXTERN u_short		TclWinNToHS _ANSI_ARGS_((u_short ns));
+/* 7 */
+EXTERN int		TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
+				int optname, const char FAR * optval, 
+				int optlen));
+/* 8 */
+EXTERN unsigned long	TclpGetPid _ANSI_ARGS_((Tcl_Pid pid));
+/* 9 */
+EXTERN int		TclWinGetPlatformId _ANSI_ARGS_((void));
+/* 10 */
+EXTERN int		TclWinSynchSpawn _ANSI_ARGS_((void * args, int type, 
+				void ** trans, Tcl_Pid * pidPtr));
+/* 11 */
+EXTERN void		TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Channel chan));
+/* 12 */
+EXTERN int		TclpCloseFile _ANSI_ARGS_((TclFile file));
+/* 13 */
+EXTERN Tcl_Channel	TclpCreateCommandChannel _ANSI_ARGS_((
+				TclFile readFile, TclFile writeFile, 
+				TclFile errorFile, int numPids, 
+				Tcl_Pid * pidPtr));
+/* 14 */
+EXTERN int		TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 
+				TclFile * writePipe));
+/* 15 */
+EXTERN int		TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 
+				int argc, char ** argv, TclFile inputFile, 
+				TclFile outputFile, TclFile errorFile, 
+				Tcl_Pid * pidPtr));
+/* 16 */
+EXTERN TclFile		TclpCreateTempFile _ANSI_ARGS_((char * contents, 
+				Tcl_DString * namePtr));
+/* 17 */
+EXTERN char *		TclpGetTZName _ANSI_ARGS_((void));
+/* 18 */
+EXTERN TclFile		TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 
+				int direction));
+/* 19 */
+EXTERN TclFile		TclpOpenFile _ANSI_ARGS_((char * fname, int mode));
+#endif /* __WIN32__ */
+#if !defined(__WIN32__) && !defined(MAC_TCL)
+/* 0 */
+EXTERN void		TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, 
+				Tcl_Channel chan));
+/* 1 */
+EXTERN int		TclpCloseFile _ANSI_ARGS_((TclFile file));
+/* 2 */
+EXTERN Tcl_Channel	TclpCreateCommandChannel _ANSI_ARGS_((
+				TclFile readFile, TclFile writeFile, 
+				TclFile errorFile, int numPids, 
+				Tcl_Pid * pidPtr));
+/* 3 */
+EXTERN int		TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, 
+				TclFile * writePipe));
+/* 4 */
+EXTERN int		TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, 
+				int argc, char ** argv, TclFile inputFile, 
+				TclFile outputFile, TclFile errorFile, 
+				Tcl_Pid * pidPtr));
+/* 5 */
+EXTERN TclFile		TclpCreateTempFile _ANSI_ARGS_((char * contents, 
+				Tcl_DString * namePtr));
+/* 6 */
+EXTERN TclFile		TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, 
+				int direction));
+/* 7 */
+EXTERN TclFile		TclpOpenFile _ANSI_ARGS_((char * fname, int mode));
+/* 8 */
+EXTERN int		TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, 
+				int timeout));
+#endif /* UNIX */
+#ifdef MAC_TCL
+/* 0 */
+EXTERN VOID *		TclpSysAlloc _ANSI_ARGS_((long size, int isBin));
+/* 1 */
+EXTERN void		TclpSysFree _ANSI_ARGS_((VOID * ptr));
+/* 2 */
+EXTERN VOID *		TclpSysRealloc _ANSI_ARGS_((VOID * cp, 
+				unsigned int size));
+/* 3 */
+EXTERN void		TclPlatformExit _ANSI_ARGS_((int status));
+/* 4 */
+EXTERN int		FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
+/* 5 */
+EXTERN int		FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec));
+/* 6 */
+EXTERN OSErr		FSpFindFolder _ANSI_ARGS_((short vRefNum, 
+				OSType folderType, Boolean createFolder, 
+				FSSpec * spec));
+/* 7 */
+EXTERN void		GetGlobalMouse _ANSI_ARGS_((Point * mouse));
+/* 8 */
+EXTERN pascal OSErr	FSpGetDirectoryID _ANSI_ARGS_((const FSSpec * spec, 
+				long * theDirID, Boolean * isDirectory));
+/* 9 */
+EXTERN pascal short	FSpOpenResFileCompat _ANSI_ARGS_((
+				const FSSpec * spec, SignedByte permission));
+/* 10 */
+EXTERN pascal void	FSpCreateResFileCompat _ANSI_ARGS_((
+				const FSSpec * spec, OSType creator, 
+				OSType fileType, ScriptCode scriptTag));
+/* 11 */
+EXTERN int		FSpLocationFromPath _ANSI_ARGS_((int length, 
+				CONST char * path, FSSpecPtr theSpec));
+/* 12 */
+EXTERN OSErr		FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, 
+				int * length, Handle * fullPath));
+/* 13 */
+EXTERN void		TclMacExitHandler _ANSI_ARGS_((void));
+/* 14 */
+EXTERN void		TclMacInitExitToShell _ANSI_ARGS_((int usePatch));
+/* 15 */
+EXTERN OSErr		TclMacInstallExitToShellPatch _ANSI_ARGS_((
+				ExitToShellProcPtr newProc));
+/* 16 */
+EXTERN int		TclMacOSErrorToPosixError _ANSI_ARGS_((int error));
+/* 17 */
+EXTERN void		TclMacRemoveTimer _ANSI_ARGS_((void * timerToken));
+/* 18 */
+EXTERN void *		TclMacStartTimer _ANSI_ARGS_((long ms));
+/* 19 */
+EXTERN int		TclMacTimerExpired _ANSI_ARGS_((void * timerToken));
+/* 20 */
+EXTERN int		TclMacRegisterResourceFork _ANSI_ARGS_((
+				short fileRef, Tcl_Obj * tokenPtr, 
+				int insert));
+/* 21 */
+EXTERN short		TclMacUnRegisterResourceFork _ANSI_ARGS_((
+				char * tokenPtr, Tcl_Obj * resultPtr));
+/* 22 */
+EXTERN int		TclMacCreateEnv _ANSI_ARGS_((void));
+/* 23 */
+EXTERN FILE *		TclMacFOpenHack _ANSI_ARGS_((const char * path, 
+				const char * mode));
+/* 24 */
+EXTERN int		TclMacReadlink _ANSI_ARGS_((char * path, char * buf, 
+				int size));
+/* 25 */
+EXTERN int		TclMacChmod _ANSI_ARGS_((char * path, int mode));
+#endif /* MAC_TCL */
+
+typedef struct TclIntPlatStubs {
+    int magic;
+    struct TclIntPlatStubHooks *hooks;
+
+#ifdef __WIN32__
+    void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */
+    void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */
+    struct servent * (*tclWinGetServByName) _ANSI_ARGS_((const char * nm, const char * proto)); /* 2 */
+    int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */
+    HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */
+    HINSTANCE (*tclWinLoadLibrary) _ANSI_ARGS_((char * name)); /* 5 */
+    u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */
+    int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, const char FAR * optval, int optlen)); /* 7 */
+    unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */
+    int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */
+    int (*tclWinSynchSpawn) _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); /* 10 */
+    void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */
+    int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */
+    Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */
+    int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */
+    int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */
+    TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 16 */
+    char * (*tclpGetTZName) _ANSI_ARGS_((void)); /* 17 */
+    TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */
+    TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 19 */
+#endif /* __WIN32__ */
+#if !defined(__WIN32__) && !defined(MAC_TCL)
+    void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */
+    int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */
+    Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */
+    int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */
+    int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */
+    TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 5 */
+    TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */
+    TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 7 */
+    int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */
+#endif /* UNIX */
+#ifdef MAC_TCL
+    VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */
+    void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */
+    VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */
+    void (*tclPlatformExit) _ANSI_ARGS_((int status)); /* 3 */
+    int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */
+    int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */
+    OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */
+    void (*getGlobalMouse) _ANSI_ARGS_((Point * mouse)); /* 7 */
+    pascal OSErr (*fSpGetDirectoryID) _ANSI_ARGS_((const FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */
+    pascal short (*fSpOpenResFileCompat) _ANSI_ARGS_((const FSSpec * spec, SignedByte permission)); /* 9 */
+    pascal void (*fSpCreateResFileCompat) _ANSI_ARGS_((const FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */
+    int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */
+    OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */
+    void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */
+    void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */
+    OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */
+    int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */
+    void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */
+    void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */
+    int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */
+    int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */
+    short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */
+    int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */
+    FILE * (*tclMacFOpenHack) _ANSI_ARGS_((const char * path, const char * mode)); /* 23 */
+    int (*tclMacReadlink) _ANSI_ARGS_((char * path, char * buf, int size)); /* 24 */
+    int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */
+#endif /* MAC_TCL */
+} TclIntPlatStubs;
+
+extern TclIntPlatStubs *tclIntPlatStubsPtr;
+
+#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+#ifdef __WIN32__
+#ifndef TclWinConvertError
+#define TclWinConvertError(errCode) \
+	(tclIntPlatStubsPtr->tclWinConvertError)(errCode) /* 0 */
+#endif
+#ifndef TclWinConvertWSAError
+#define TclWinConvertWSAError(errCode) \
+	(tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode) /* 1 */
+#endif
+#ifndef TclWinGetServByName
+#define TclWinGetServByName(nm, proto) \
+	(tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto) /* 2 */
+#endif
+#ifndef TclWinGetSockOpt
+#define TclWinGetSockOpt(s, level, optname, optval, optlen) \
+	(tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen) /* 3 */
+#endif
+#ifndef TclWinGetTclInstance
+#define TclWinGetTclInstance() \
+	(tclIntPlatStubsPtr->tclWinGetTclInstance)() /* 4 */
+#endif
+#ifndef TclWinLoadLibrary
+#define TclWinLoadLibrary(name) \
+	(tclIntPlatStubsPtr->tclWinLoadLibrary)(name) /* 5 */
+#endif
+#ifndef TclWinNToHS
+#define TclWinNToHS(ns) \
+	(tclIntPlatStubsPtr->tclWinNToHS)(ns) /* 6 */
+#endif
+#ifndef TclWinSetSockOpt
+#define TclWinSetSockOpt(s, level, optname, optval, optlen) \
+	(tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen) /* 7 */
+#endif
+#ifndef TclpGetPid
+#define TclpGetPid(pid) \
+	(tclIntPlatStubsPtr->tclpGetPid)(pid) /* 8 */
+#endif
+#ifndef TclWinGetPlatformId
+#define TclWinGetPlatformId() \
+	(tclIntPlatStubsPtr->tclWinGetPlatformId)() /* 9 */
+#endif
+#ifndef TclWinSynchSpawn
+#define TclWinSynchSpawn(args, type, trans, pidPtr) \
+	(tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr) /* 10 */
+#endif
+#ifndef TclGetAndDetachPids
+#define TclGetAndDetachPids(interp, chan) \
+	(tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 11 */
+#endif
+#ifndef TclpCloseFile
+#define TclpCloseFile(file) \
+	(tclIntPlatStubsPtr->tclpCloseFile)(file) /* 12 */
+#endif
+#ifndef TclpCreateCommandChannel
+#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \
+	(tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 13 */
+#endif
+#ifndef TclpCreatePipe
+#define TclpCreatePipe(readPipe, writePipe) \
+	(tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 14 */
+#endif
+#ifndef TclpCreateProcess
+#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \
+	(tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 15 */
+#endif
+#ifndef TclpCreateTempFile
+#define TclpCreateTempFile(contents, namePtr) \
+	(tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 16 */
+#endif
+#ifndef TclpGetTZName
+#define TclpGetTZName() \
+	(tclIntPlatStubsPtr->tclpGetTZName)() /* 17 */
+#endif
+#ifndef TclpMakeFile
+#define TclpMakeFile(channel, direction) \
+	(tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 18 */
+#endif
+#ifndef TclpOpenFile
+#define TclpOpenFile(fname, mode) \
+	(tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 19 */
+#endif
+#endif /* __WIN32__ */
+#if !defined(__WIN32__) && !defined(MAC_TCL)
+#ifndef TclGetAndDetachPids
+#define TclGetAndDetachPids(interp, chan) \
+	(tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 0 */
+#endif
+#ifndef TclpCloseFile
+#define TclpCloseFile(file) \
+	(tclIntPlatStubsPtr->tclpCloseFile)(file) /* 1 */
+#endif
+#ifndef TclpCreateCommandChannel
+#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \
+	(tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 2 */
+#endif
+#ifndef TclpCreatePipe
+#define TclpCreatePipe(readPipe, writePipe) \
+	(tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 3 */
+#endif
+#ifndef TclpCreateProcess
+#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \
+	(tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 4 */
+#endif
+#ifndef TclpCreateTempFile
+#define TclpCreateTempFile(contents, namePtr) \
+	(tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 5 */
+#endif
+#ifndef TclpMakeFile
+#define TclpMakeFile(channel, direction) \
+	(tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 6 */
+#endif
+#ifndef TclpOpenFile
+#define TclpOpenFile(fname, mode) \
+	(tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 7 */
+#endif
+#ifndef TclUnixWaitForFile
+#define TclUnixWaitForFile(fd, mask, timeout) \
+	(tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout) /* 8 */
+#endif
+#endif /* UNIX */
+#ifdef MAC_TCL
+#ifndef TclpSysAlloc
+#define TclpSysAlloc(size, isBin) \
+	(tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin) /* 0 */
+#endif
+#ifndef TclpSysFree
+#define TclpSysFree(ptr) \
+	(tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 1 */
+#endif
+#ifndef TclpSysRealloc
+#define TclpSysRealloc(cp, size) \
+	(tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 2 */
+#endif
+#ifndef TclPlatformExit
+#define TclPlatformExit(status) \
+	(tclIntPlatStubsPtr->tclPlatformExit)(status) /* 3 */
+#endif
+#ifndef FSpGetDefaultDir
+#define FSpGetDefaultDir(theSpec) \
+	(tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec) /* 4 */
+#endif
+#ifndef FSpSetDefaultDir
+#define FSpSetDefaultDir(theSpec) \
+	(tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec) /* 5 */
+#endif
+#ifndef FSpFindFolder
+#define FSpFindFolder(vRefNum, folderType, createFolder, spec) \
+	(tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec) /* 6 */
+#endif
+#ifndef GetGlobalMouse
+#define GetGlobalMouse(mouse) \
+	(tclIntPlatStubsPtr->getGlobalMouse)(mouse) /* 7 */
+#endif
+#ifndef FSpGetDirectoryID
+#define FSpGetDirectoryID(spec, theDirID, isDirectory) \
+	(tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory) /* 8 */
+#endif
+#ifndef FSpOpenResFileCompat
+#define FSpOpenResFileCompat(spec, permission) \
+	(tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission) /* 9 */
+#endif
+#ifndef FSpCreateResFileCompat
+#define FSpCreateResFileCompat(spec, creator, fileType, scriptTag) \
+	(tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag) /* 10 */
+#endif
+#ifndef FSpLocationFromPath
+#define FSpLocationFromPath(length, path, theSpec) \
+	(tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec) /* 11 */
+#endif
+#ifndef FSpPathFromLocation
+#define FSpPathFromLocation(theSpec, length, fullPath) \
+	(tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath) /* 12 */
+#endif
+#ifndef TclMacExitHandler
+#define TclMacExitHandler() \
+	(tclIntPlatStubsPtr->tclMacExitHandler)() /* 13 */
+#endif
+#ifndef TclMacInitExitToShell
+#define TclMacInitExitToShell(usePatch) \
+	(tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch) /* 14 */
+#endif
+#ifndef TclMacInstallExitToShellPatch
+#define TclMacInstallExitToShellPatch(newProc) \
+	(tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc) /* 15 */
+#endif
+#ifndef TclMacOSErrorToPosixError
+#define TclMacOSErrorToPosixError(error) \
+	(tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error) /* 16 */
+#endif
+#ifndef TclMacRemoveTimer
+#define TclMacRemoveTimer(timerToken) \
+	(tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken) /* 17 */
+#endif
+#ifndef TclMacStartTimer
+#define TclMacStartTimer(ms) \
+	(tclIntPlatStubsPtr->tclMacStartTimer)(ms) /* 18 */
+#endif
+#ifndef TclMacTimerExpired
+#define TclMacTimerExpired(timerToken) \
+	(tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken) /* 19 */
+#endif
+#ifndef TclMacRegisterResourceFork
+#define TclMacRegisterResourceFork(fileRef, tokenPtr, insert) \
+	(tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert) /* 20 */
+#endif
+#ifndef TclMacUnRegisterResourceFork
+#define TclMacUnRegisterResourceFork(tokenPtr, resultPtr) \
+	(tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr) /* 21 */
+#endif
+#ifndef TclMacCreateEnv
+#define TclMacCreateEnv() \
+	(tclIntPlatStubsPtr->tclMacCreateEnv)() /* 22 */
+#endif
+#ifndef TclMacFOpenHack
+#define TclMacFOpenHack(path, mode) \
+	(tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode) /* 23 */
+#endif
+#ifndef TclMacReadlink
+#define TclMacReadlink(path, buf, size) \
+	(tclIntPlatStubsPtr->tclMacReadlink)(path, buf, size) /* 24 */
+#endif
+#ifndef TclMacChmod
+#define TclMacChmod(path, mode) \
+	(tclIntPlatStubsPtr->tclMacChmod)(path, mode) /* 25 */
+#endif
+#endif /* MAC_TCL */
+
+#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
+
+/* !END!: Do not edit above this line. */
+
+#endif /* _TCLINTPLATDECLS */
diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c
new file mode 100644
index 0000000..88d9ca2
--- /dev/null
+++ b/generic/tclIntPlatStubs.c
@@ -0,0 +1,536 @@
+/* 
+ * tclIntPlatStubs.c --
+ *
+ *	This file contains the wrapper functions for the platform dependent
+ *	unsupported Tcl API.
+ *
+ * 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 $
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ * WARNING: This file is automatically generated by the tools/genStubs.tcl
+ * script.  Any modifications to the function declarations below should be made
+ * in the generic/tclInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported stub functions:
+ */
+
+#ifdef __WIN32__
+/* Slot 0 */
+void
+TclWinConvertError(errCode)
+    DWORD errCode;
+{
+    (tclIntPlatStubsPtr->tclWinConvertError)(errCode);
+}
+
+/* Slot 1 */
+void
+TclWinConvertWSAError(errCode)
+    DWORD errCode;
+{
+    (tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode);
+}
+
+/* Slot 2 */
+struct servent *
+TclWinGetServByName(nm, proto)
+    const char * nm;
+    const char * proto;
+{
+    return (tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto);
+}
+
+/* Slot 3 */
+int
+TclWinGetSockOpt(s, level, optname, optval, optlen)
+    SOCKET s;
+    int level;
+    int optname;
+    char FAR * optval;
+    int FAR * optlen;
+{
+    return (tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen);
+}
+
+/* Slot 4 */
+HINSTANCE
+TclWinGetTclInstance()
+{
+    return (tclIntPlatStubsPtr->tclWinGetTclInstance)();
+}
+
+/* Slot 5 */
+HINSTANCE
+TclWinLoadLibrary(name)
+    char * name;
+{
+    return (tclIntPlatStubsPtr->tclWinLoadLibrary)(name);
+}
+
+/* Slot 6 */
+u_short
+TclWinNToHS(ns)
+    u_short ns;
+{
+    return (tclIntPlatStubsPtr->tclWinNToHS)(ns);
+}
+
+/* Slot 7 */
+int
+TclWinSetSockOpt(s, level, optname, optval, optlen)
+    SOCKET s;
+    int level;
+    int optname;
+    const char FAR * optval;
+    int optlen;
+{
+    return (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen);
+}
+
+/* Slot 8 */
+unsigned long
+TclpGetPid(pid)
+    Tcl_Pid pid;
+{
+    return (tclIntPlatStubsPtr->tclpGetPid)(pid);
+}
+
+/* Slot 9 */
+int
+TclWinGetPlatformId()
+{
+    return (tclIntPlatStubsPtr->tclWinGetPlatformId)();
+}
+
+/* Slot 10 */
+int
+TclWinSynchSpawn(args, type, trans, pidPtr)
+    void * args;
+    int type;
+    void ** trans;
+    Tcl_Pid * pidPtr;
+{
+    return (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr);
+}
+
+/* Slot 11 */
+void
+TclGetAndDetachPids(interp, chan)
+    Tcl_Interp * interp;
+    Tcl_Channel chan;
+{
+    (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan);
+}
+
+/* Slot 12 */
+int
+TclpCloseFile(file)
+    TclFile file;
+{
+    return (tclIntPlatStubsPtr->tclpCloseFile)(file);
+}
+
+/* Slot 13 */
+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 14 */
+int
+TclpCreatePipe(readPipe, writePipe)
+    TclFile * readPipe;
+    TclFile * writePipe;
+{
+    return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe);
+}
+
+/* Slot 15 */
+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 16 */
+TclFile
+TclpCreateTempFile(contents, namePtr)
+    char * contents;
+    Tcl_DString * namePtr;
+{
+    return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr);
+}
+
+/* Slot 17 */
+char *
+TclpGetTZName()
+{
+    return (tclIntPlatStubsPtr->tclpGetTZName)();
+}
+
+/* Slot 18 */
+TclFile
+TclpMakeFile(channel, direction)
+    Tcl_Channel channel;
+    int direction;
+{
+    return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction);
+}
+
+/* Slot 19 */
+TclFile
+TclpOpenFile(fname, mode)
+    char * fname;
+    int mode;
+{
+    return (tclIntPlatStubsPtr->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 *
+TclpSysAlloc(size, isBin)
+    long size;
+    int isBin;
+{
+    return (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin);
+}
+
+/* Slot 1 */
+void
+TclpSysFree(ptr)
+    VOID * ptr;
+{
+    (tclIntPlatStubsPtr->tclpSysFree)(ptr);
+}
+
+/* Slot 2 */
+VOID *
+TclpSysRealloc(cp, size)
+    VOID * cp;
+    unsigned int size;
+{
+    return (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size);
+}
+
+/* Slot 3 */
+void
+TclPlatformExit(status)
+    int status;
+{
+    (tclIntPlatStubsPtr->tclPlatformExit)(status);
+}
+
+/* Slot 4 */
+int
+FSpGetDefaultDir(theSpec)
+    FSSpecPtr theSpec;
+{
+    return (tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec);
+}
+
+/* Slot 5 */
+int
+FSpSetDefaultDir(theSpec)
+    FSSpecPtr theSpec;
+{
+    return (tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec);
+}
+
+/* Slot 6 */
+OSErr
+FSpFindFolder(vRefNum, folderType, createFolder, spec)
+    short vRefNum;
+    OSType folderType;
+    Boolean createFolder;
+    FSSpec * spec;
+{
+    return (tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec);
+}
+
+/* Slot 7 */
+void
+GetGlobalMouse(mouse)
+    Point * mouse;
+{
+    (tclIntPlatStubsPtr->getGlobalMouse)(mouse);
+}
+
+/* Slot 8 */
+pascal OSErr
+FSpGetDirectoryID(spec, theDirID, isDirectory)
+    const FSSpec * spec;
+    long * theDirID;
+    Boolean * isDirectory;
+{
+    return (tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory);
+}
+
+/* Slot 9 */
+pascal short
+FSpOpenResFileCompat(spec, permission)
+    const FSSpec * spec;
+    SignedByte permission;
+{
+    return (tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission);
+}
+
+/* Slot 10 */
+pascal void
+FSpCreateResFileCompat(spec, creator, fileType, scriptTag)
+    const FSSpec * spec;
+    OSType creator;
+    OSType fileType;
+    ScriptCode scriptTag;
+{
+    return (tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag);
+}
+
+/* Slot 11 */
+int
+FSpLocationFromPath(length, path, theSpec)
+    int length;
+    CONST char * path;
+    FSSpecPtr theSpec;
+{
+    return (tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec);
+}
+
+/* Slot 12 */
+OSErr
+FSpPathFromLocation(theSpec, length, fullPath)
+    FSSpecPtr theSpec;
+    int * length;
+    Handle * fullPath;
+{
+    return (tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath);
+}
+
+/* Slot 13 */
+void
+TclMacExitHandler()
+{
+    (tclIntPlatStubsPtr->tclMacExitHandler)();
+}
+
+/* Slot 14 */
+void
+TclMacInitExitToShell(usePatch)
+    int usePatch;
+{
+    (tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch);
+}
+
+/* Slot 15 */
+OSErr
+TclMacInstallExitToShellPatch(newProc)
+    ExitToShellProcPtr newProc;
+{
+    return (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc);
+}
+
+/* Slot 16 */
+int
+TclMacOSErrorToPosixError(error)
+    int error;
+{
+    return (tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error);
+}
+
+/* Slot 17 */
+void
+TclMacRemoveTimer(timerToken)
+    void * timerToken;
+{
+    (tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken);
+}
+
+/* Slot 18 */
+void *
+TclMacStartTimer(ms)
+    long ms;
+{
+    return (tclIntPlatStubsPtr->tclMacStartTimer)(ms);
+}
+
+/* Slot 19 */
+int
+TclMacTimerExpired(timerToken)
+    void * timerToken;
+{
+    return (tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken);
+}
+
+/* Slot 20 */
+int
+TclMacRegisterResourceFork(fileRef, tokenPtr, insert)
+    short fileRef;
+    Tcl_Obj * tokenPtr;
+    int insert;
+{
+    return (tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert);
+}
+
+/* Slot 21 */
+short
+TclMacUnRegisterResourceFork(tokenPtr, resultPtr)
+    char * tokenPtr;
+    Tcl_Obj * resultPtr;
+{
+    return (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr);
+}
+
+/* Slot 22 */
+int
+TclMacCreateEnv()
+{
+    return (tclIntPlatStubsPtr->tclMacCreateEnv)();
+}
+
+/* Slot 23 */
+FILE *
+TclMacFOpenHack(path, mode)
+    const char * path;
+    const char * mode;
+{
+    return (tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode);
+}
+
+/* Slot 24 */
+int
+TclMacReadlink(path, buf, size)
+    char * path;
+    char * buf;
+    int size;
+{
+    return (tclIntPlatStubsPtr->tclMacReadlink)(path, buf, size);
+}
+
+/* Slot 25 */
+int
+TclMacChmod(path, mode)
+    char * path;
+    int mode;
+{
+    return (tclIntPlatStubsPtr->tclMacChmod)(path, mode);
+}
+
+#endif /* MAC_TCL */
+
+/* !END!: Do not edit above this line. */
diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c
new file mode 100644
index 0000000..737630b
--- /dev/null
+++ b/generic/tclIntStubs.c
@@ -0,0 +1,1453 @@
+/* 
+ * tclIntStubs.c --
+ *
+ *	This file contains the wrapper functions for the platform independent
+ *	unsupported Tcl API.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tclIntStubs.c,v 1.2.4.1 1999/03/08 22:25:31 stanton Exp $
+ */
+
+#include "tclInt.h"
+
+/*
+ * WARNING: This file is automatically generated by the tools/genStubs.tcl
+ * script.  Any modifications to the function declarations below should be made
+ * in the generic/tclInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported stub functions:
+ */
+
+/* Slot 0 */
+int
+TclAccess(path, mode)
+    CONST char * path;
+    int mode;
+{
+    return (tclIntStubsPtr->tclAccess)(path, mode);
+}
+
+/* Slot 1 */
+int
+TclAccessDeleteProc(proc)
+    TclAccessProc_ * proc;
+{
+    return (tclIntStubsPtr->tclAccessDeleteProc)(proc);
+}
+
+/* Slot 2 */
+int
+TclAccessInsertProc(proc)
+    TclAccessProc_ * proc;
+{
+    return (tclIntStubsPtr->tclAccessInsertProc)(proc);
+}
+
+/* Slot 3 */
+void
+TclAllocateFreeObjects()
+{
+    (tclIntStubsPtr->tclAllocateFreeObjects)();
+}
+
+/* Slot 4 */
+int
+TclChdir(interp, dirName)
+    Tcl_Interp * interp;
+    char * dirName;
+{
+    return (tclIntStubsPtr->tclChdir)(interp, dirName);
+}
+
+/* Slot 5 */
+int
+TclCleanupChildren(interp, numPids, pidPtr, errorChan)
+    Tcl_Interp * interp;
+    int numPids;
+    Tcl_Pid * pidPtr;
+    Tcl_Channel errorChan;
+{
+    return (tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan);
+}
+
+/* Slot 6 */
+void
+TclCleanupCommand(cmdPtr)
+    Command * cmdPtr;
+{
+    (tclIntStubsPtr->tclCleanupCommand)(cmdPtr);
+}
+
+/* Slot 7 */
+int
+TclCopyAndCollapse(count, src, dst)
+    int count;
+    char * src;
+    char * dst;
+{
+    return (tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst);
+}
+
+/* Slot 8 */
+int
+TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr)
+    Tcl_Interp * interp;
+    Tcl_Channel inChan;
+    Tcl_Channel outChan;
+    int toRead;
+    Tcl_Obj * cmdPtr;
+{
+    return (tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr);
+}
+
+/* Slot 9 */
+int
+TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr)
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+    Tcl_Pid ** pidArrayPtr;
+    TclFile * inPipePtr;
+    TclFile * outPipePtr;
+    TclFile * errFilePtr;
+{
+    return (tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr);
+}
+
+/* Slot 10 */
+int
+TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr)
+    Tcl_Interp * interp;
+    Namespace * nsPtr;
+    char * procName;
+    Tcl_Obj * argsPtr;
+    Tcl_Obj * bodyPtr;
+    Proc ** procPtrPtr;
+{
+    return (tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr);
+}
+
+/* Slot 11 */
+void
+TclDeleteCompiledLocalVars(iPtr, framePtr)
+    Interp * iPtr;
+    CallFrame * framePtr;
+{
+    (tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr);
+}
+
+/* Slot 12 */
+void
+TclDeleteVars(iPtr, tablePtr)
+    Interp * iPtr;
+    Tcl_HashTable * tablePtr;
+{
+    (tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr);
+}
+
+/* Slot 13 */
+int
+TclDoGlob(interp, separators, headPtr, tail)
+    Tcl_Interp * interp;
+    char * separators;
+    Tcl_DString * headPtr;
+    char * tail;
+{
+    return (tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail);
+}
+
+/* Slot 14 */
+void
+TclDumpMemoryInfo(outFile)
+    FILE * outFile;
+{
+    (tclIntStubsPtr->tclDumpMemoryInfo)(outFile);
+}
+
+/* Slot 15 */
+void
+TclExpandParseValue(pvPtr, needed)
+    ParseValue * pvPtr;
+    int needed;
+{
+    (tclIntStubsPtr->tclExpandParseValue)(pvPtr, needed);
+}
+
+/* Slot 16 */
+void
+TclExprFloatError(interp, value)
+    Tcl_Interp * interp;
+    double value;
+{
+    (tclIntStubsPtr->tclExprFloatError)(interp, value);
+}
+
+/* Slot 17 */
+int
+TclFileAttrsCmd(interp, objc, objv)
+    Tcl_Interp * interp;
+    int objc;
+    Tcl_Obj *CONST objv[];
+{
+    return (tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv);
+}
+
+/* Slot 18 */
+int
+TclFileCopyCmd(interp, argc, argv)
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+{
+    return (tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv);
+}
+
+/* Slot 19 */
+int
+TclFileDeleteCmd(interp, argc, argv)
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+{
+    return (tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv);
+}
+
+/* Slot 20 */
+int
+TclFileMakeDirsCmd(interp, argc, argv)
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+{
+    return (tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv);
+}
+
+/* Slot 21 */
+int
+TclFileRenameCmd(interp, argc, argv)
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+{
+    return (tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv);
+}
+
+/* Slot 22 */
+int
+TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr)
+    Tcl_Interp * interp;
+    char * list;
+    int listLength;
+    char ** elementPtr;
+    char ** nextPtr;
+    int * sizePtr;
+    int * bracePtr;
+{
+    return (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr);
+}
+
+/* Slot 23 */
+Proc *
+TclFindProc(iPtr, procName)
+    Interp * iPtr;
+    char * procName;
+{
+    return (tclIntStubsPtr->tclFindProc)(iPtr, procName);
+}
+
+/* Slot 24 */
+int
+TclFormatInt(buffer, n)
+    char * buffer;
+    long n;
+{
+    return (tclIntStubsPtr->tclFormatInt)(buffer, n);
+}
+
+/* Slot 25 */
+void
+TclFreePackageInfo(iPtr)
+    Interp * iPtr;
+{
+    (tclIntStubsPtr->tclFreePackageInfo)(iPtr);
+}
+
+/* Slot 26 */
+char *
+TclGetCwd(interp)
+    Tcl_Interp * interp;
+{
+    return (tclIntStubsPtr->tclGetCwd)(interp);
+}
+
+/* Slot 27 */
+int
+TclGetDate(p, now, zone, timePtr)
+    char * p;
+    unsigned long now;
+    long zone;
+    unsigned long * timePtr;
+{
+    return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr);
+}
+
+/* Slot 28 */
+Tcl_Channel
+TclGetDefaultStdChannel(type)
+    int type;
+{
+    return (tclIntStubsPtr->tclGetDefaultStdChannel)(type);
+}
+
+/* Slot 29 */
+Tcl_Obj *
+TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg)
+    Tcl_Interp * interp;
+    int localIndex;
+    Tcl_Obj * elemPtr;
+    int leaveErrorMsg;
+{
+    return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg);
+}
+
+/* Slot 30 */
+char *
+TclGetEnv(name)
+    CONST char * name;
+{
+    return (tclIntStubsPtr->tclGetEnv)(name);
+}
+
+/* Slot 31 */
+char *
+TclGetExtension(name)
+    char * name;
+{
+    return (tclIntStubsPtr->tclGetExtension)(name);
+}
+
+/* Slot 32 */
+int
+TclGetFrame(interp, string, framePtrPtr)
+    Tcl_Interp * interp;
+    char * string;
+    CallFrame ** framePtrPtr;
+{
+    return (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr);
+}
+
+/* Slot 33 */
+TclCmdProcType
+TclGetInterpProc()
+{
+    return (tclIntStubsPtr->tclGetInterpProc)();
+}
+
+/* Slot 34 */
+int
+TclGetIntForIndex(interp, objPtr, endValue, indexPtr)
+    Tcl_Interp * interp;
+    Tcl_Obj * objPtr;
+    int endValue;
+    int * indexPtr;
+{
+    return (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr);
+}
+
+/* Slot 35 */
+Tcl_Obj *
+TclGetIndexedScalar(interp, localIndex, leaveErrorMsg)
+    Tcl_Interp * interp;
+    int localIndex;
+    int leaveErrorMsg;
+{
+    return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg);
+}
+
+/* Slot 36 */
+int
+TclGetLong(interp, string, longPtr)
+    Tcl_Interp * interp;
+    char * string;
+    long * longPtr;
+{
+    return (tclIntStubsPtr->tclGetLong)(interp, string, longPtr);
+}
+
+/* Slot 37 */
+int
+TclGetLoadedPackages(interp, targetName)
+    Tcl_Interp * interp;
+    char * targetName;
+{
+    return (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName);
+}
+
+/* Slot 38 */
+int
+TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr)
+    Tcl_Interp * interp;
+    char * qualName;
+    Namespace * cxtNsPtr;
+    int flags;
+    Namespace ** nsPtrPtr;
+    Namespace ** altNsPtrPtr;
+    Namespace ** actualCxtPtrPtr;
+    char ** simpleNamePtr;
+{
+    return (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr);
+}
+
+/* Slot 39 */
+TclObjCmdProcType
+TclGetObjInterpProc()
+{
+    return (tclIntStubsPtr->tclGetObjInterpProc)();
+}
+
+/* Slot 40 */
+int
+TclGetOpenMode(interp, string, seekFlagPtr)
+    Tcl_Interp * interp;
+    char * string;
+    int * seekFlagPtr;
+{
+    return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr);
+}
+
+/* Slot 41 */
+Tcl_Command
+TclGetOriginalCommand(command)
+    Tcl_Command command;
+{
+    return (tclIntStubsPtr->tclGetOriginalCommand)(command);
+}
+
+/* Slot 42 */
+char *
+TclGetUserHome(name, bufferPtr)
+    char * name;
+    Tcl_DString * bufferPtr;
+{
+    return (tclIntStubsPtr->tclGetUserHome)(name, bufferPtr);
+}
+
+/* Slot 43 */
+int
+TclGlobalInvoke(interp, argc, argv, flags)
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+    int flags;
+{
+    return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags);
+}
+
+/* Slot 44 */
+int
+TclGuessPackageName(fileName, bufPtr)
+    char * fileName;
+    Tcl_DString * bufPtr;
+{
+    return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr);
+}
+
+/* Slot 45 */
+int
+TclHideUnsafeCommands(interp)
+    Tcl_Interp * interp;
+{
+    return (tclIntStubsPtr->tclHideUnsafeCommands)(interp);
+}
+
+/* Slot 46 */
+int
+TclInExit()
+{
+    return (tclIntStubsPtr->tclInExit)();
+}
+
+/* Slot 47 */
+Tcl_Obj *
+TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount)
+    Tcl_Interp * interp;
+    int localIndex;
+    Tcl_Obj * elemPtr;
+    long incrAmount;
+{
+    return (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount);
+}
+
+/* Slot 48 */
+Tcl_Obj *
+TclIncrIndexedScalar(interp, localIndex, incrAmount)
+    Tcl_Interp * interp;
+    int localIndex;
+    long incrAmount;
+{
+    return (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount);
+}
+
+/* Slot 49 */
+Tcl_Obj *
+TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed)
+    Tcl_Interp * interp;
+    Tcl_Obj * part1Ptr;
+    Tcl_Obj * part2Ptr;
+    long incrAmount;
+    int part1NotParsed;
+{
+    return (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed);
+}
+
+/* Slot 50 */
+void
+TclInitCompiledLocals(interp, framePtr, nsPtr)
+    Tcl_Interp * interp;
+    CallFrame * framePtr;
+    Namespace * nsPtr;
+{
+    (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr);
+}
+
+/* Slot 51 */
+int
+TclInterpInit(interp)
+    Tcl_Interp * interp;
+{
+    return (tclIntStubsPtr->tclInterpInit)(interp);
+}
+
+/* Slot 52 */
+int
+TclInvoke(interp, argc, argv, flags)
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+    int flags;
+{
+    return (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags);
+}
+
+/* Slot 53 */
+int
+TclInvokeObjectCommand(clientData, interp, argc, argv)
+    ClientData clientData;
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+{
+    return (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv);
+}
+
+/* Slot 54 */
+int
+TclInvokeStringCommand(clientData, interp, objc, objv)
+    ClientData clientData;
+    Tcl_Interp * interp;
+    int objc;
+    Tcl_Obj *CONST objv[];
+{
+    return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv);
+}
+
+/* Slot 55 */
+Proc *
+TclIsProc(cmdPtr)
+    Command * cmdPtr;
+{
+    return (tclIntStubsPtr->tclIsProc)(cmdPtr);
+}
+
+/* Slot 56 */
+int
+TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
+    Tcl_Interp * interp;
+    char * fileName;
+    char * sym1;
+    char * sym2;
+    Tcl_PackageInitProc ** proc1Ptr;
+    Tcl_PackageInitProc ** proc2Ptr;
+{
+    return (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr);
+}
+
+/* Slot 57 */
+int
+TclLooksLikeInt(p)
+    char * p;
+{
+    return (tclIntStubsPtr->tclLooksLikeInt)(p);
+}
+
+/* Slot 58 */
+Var *
+TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr)
+    Tcl_Interp * interp;
+    char * part1;
+    char * part2;
+    int flags;
+    char * msg;
+    int createPart1;
+    int createPart2;
+    Var ** arrayPtrPtr;
+{
+    return (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr);
+}
+
+/* Slot 59 */
+int
+TclMatchFiles(interp, separators, dirPtr, pattern, tail)
+    Tcl_Interp * interp;
+    char * separators;
+    Tcl_DString * dirPtr;
+    char * pattern;
+    char * tail;
+{
+    return (tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail);
+}
+
+/* Slot 60 */
+int
+TclNeedSpace(start, end)
+    char * start;
+    char * end;
+{
+    return (tclIntStubsPtr->tclNeedSpace)(start, end);
+}
+
+/* Slot 61 */
+Tcl_Obj *
+TclNewProcBodyObj(procPtr)
+    Proc * procPtr;
+{
+    return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr);
+}
+
+/* Slot 62 */
+int
+TclObjCommandComplete(cmdPtr)
+    Tcl_Obj * cmdPtr;
+{
+    return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr);
+}
+
+/* Slot 63 */
+int
+TclObjInterpProc(clientData, interp, objc, objv)
+    ClientData clientData;
+    Tcl_Interp * interp;
+    int objc;
+    Tcl_Obj *CONST objv[];
+{
+    return (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv);
+}
+
+/* Slot 64 */
+int
+TclObjInvoke(interp, objc, objv, flags)
+    Tcl_Interp * interp;
+    int objc;
+    Tcl_Obj *CONST objv[];
+    int flags;
+{
+    return (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags);
+}
+
+/* Slot 65 */
+int
+TclObjInvokeGlobal(interp, objc, objv, flags)
+    Tcl_Interp * interp;
+    int objc;
+    Tcl_Obj *CONST objv[];
+    int flags;
+{
+    return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags);
+}
+
+/* Slot 66 */
+int
+TclOpenFileChannelDeleteProc(proc)
+    TclOpenFileChannelProc_ * proc;
+{
+    return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc);
+}
+
+/* Slot 67 */
+int
+TclOpenFileChannelInsertProc(proc)
+    TclOpenFileChannelProc_ * proc;
+{
+    return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc);
+}
+
+/* Slot 68 */
+int
+TclpAccess(path, mode)
+    CONST char * path;
+    int mode;
+{
+    return (tclIntStubsPtr->tclpAccess)(path, mode);
+}
+
+/* Slot 69 */
+char *
+TclpAlloc(size)
+    unsigned int size;
+{
+    return (tclIntStubsPtr->tclpAlloc)(size);
+}
+
+/* Slot 70 */
+int
+TclpCopyFile(source, dest)
+    char * source;
+    char * dest;
+{
+    return (tclIntStubsPtr->tclpCopyFile)(source, dest);
+}
+
+/* Slot 71 */
+int
+TclpCopyDirectory(source, dest, errorPtr)
+    char * source;
+    char * dest;
+    Tcl_DString * errorPtr;
+{
+    return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr);
+}
+
+/* Slot 72 */
+int
+TclpCreateDirectory(path)
+    char * path;
+{
+    return (tclIntStubsPtr->tclpCreateDirectory)(path);
+}
+
+/* Slot 73 */
+int
+TclpDeleteFile(path)
+    char * path;
+{
+    return (tclIntStubsPtr->tclpDeleteFile)(path);
+}
+
+/* Slot 74 */
+void
+TclpFree(ptr)
+    char * ptr;
+{
+    (tclIntStubsPtr->tclpFree)(ptr);
+}
+
+/* Slot 75 */
+unsigned long
+TclpGetClicks()
+{
+    return (tclIntStubsPtr->tclpGetClicks)();
+}
+
+/* Slot 76 */
+unsigned long
+TclpGetSeconds()
+{
+    return (tclIntStubsPtr->tclpGetSeconds)();
+}
+
+/* Slot 77 */
+void
+TclpGetTime(time)
+    Tcl_Time * time;
+{
+    (tclIntStubsPtr->tclpGetTime)(time);
+}
+
+/* Slot 78 */
+int
+TclpGetTimeZone(time)
+    unsigned long time;
+{
+    return (tclIntStubsPtr->tclpGetTimeZone)(time);
+}
+
+/* Slot 79 */
+int
+TclpListVolumes(interp)
+    Tcl_Interp * interp;
+{
+    return (tclIntStubsPtr->tclpListVolumes)(interp);
+}
+
+/* Slot 80 */
+Tcl_Channel
+TclpOpenFileChannel(interp, fileName, modeString, permissions)
+    Tcl_Interp * interp;
+    char * fileName;
+    char * modeString;
+    int permissions;
+{
+    return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions);
+}
+
+/* Slot 81 */
+char *
+TclpRealloc(ptr, size)
+    char * ptr;
+    unsigned int size;
+{
+    return (tclIntStubsPtr->tclpRealloc)(ptr, size);
+}
+
+/* Slot 82 */
+int
+TclpRemoveDirectory(path, recursive, errorPtr)
+    char * path;
+    int recursive;
+    Tcl_DString * errorPtr;
+{
+    return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr);
+}
+
+/* Slot 83 */
+int
+TclpRenameFile(source, dest)
+    char * source;
+    char * dest;
+{
+    return (tclIntStubsPtr->tclpRenameFile)(source, dest);
+}
+
+/* Slot 84 */
+int
+TclParseBraces(interp, string, termPtr, pvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char ** termPtr;
+    ParseValue * pvPtr;
+{
+    return (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr);
+}
+
+/* Slot 85 */
+int
+TclParseNestedCmd(interp, string, flags, termPtr, pvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    int flags;
+    char ** termPtr;
+    ParseValue * pvPtr;
+{
+    return (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr);
+}
+
+/* Slot 86 */
+int
+TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    int termChar;
+    int flags;
+    char ** termPtr;
+    ParseValue * pvPtr;
+{
+    return (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr);
+}
+
+/* Slot 87 */
+void
+TclPlatformInit(interp)
+    Tcl_Interp * interp;
+{
+    (tclIntStubsPtr->tclPlatformInit)(interp);
+}
+
+/* Slot 88 */
+char *
+TclPrecTraceProc(clientData, interp, name1, name2, flags)
+    ClientData clientData;
+    Tcl_Interp * interp;
+    char * name1;
+    char * name2;
+    int flags;
+{
+    return (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags);
+}
+
+/* Slot 89 */
+int
+TclPreventAliasLoop(interp, cmdInterp, cmd)
+    Tcl_Interp * interp;
+    Tcl_Interp * cmdInterp;
+    Tcl_Command cmd;
+{
+    return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd);
+}
+
+/* Slot 90 */
+void
+TclPrintByteCodeObj(interp, objPtr)
+    Tcl_Interp * interp;
+    Tcl_Obj * objPtr;
+{
+    (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr);
+}
+
+/* Slot 91 */
+void
+TclProcCleanupProc(procPtr)
+    Proc * procPtr;
+{
+    (tclIntStubsPtr->tclProcCleanupProc)(procPtr);
+}
+
+/* Slot 92 */
+int
+TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName)
+    Tcl_Interp * interp;
+    Proc * procPtr;
+    Tcl_Obj * bodyPtr;
+    Namespace * nsPtr;
+    CONST char * description;
+    CONST char * procName;
+{
+    return (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName);
+}
+
+/* Slot 93 */
+void
+TclProcDeleteProc(clientData)
+    ClientData clientData;
+{
+    (tclIntStubsPtr->tclProcDeleteProc)(clientData);
+}
+
+/* Slot 94 */
+int
+TclProcInterpProc(clientData, interp, argc, argv)
+    ClientData clientData;
+    Tcl_Interp * interp;
+    int argc;
+    char ** argv;
+{
+    return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv);
+}
+
+/* Slot 95 */
+int
+TclpStat(path, buf)
+    CONST char * path;
+    struct stat * buf;
+{
+    return (tclIntStubsPtr->tclpStat)(path, buf);
+}
+
+/* Slot 96 */
+int
+TclRenameCommand(interp, oldName, newName)
+    Tcl_Interp * interp;
+    char * oldName;
+    char * newName;
+{
+    return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName);
+}
+
+/* Slot 97 */
+void
+TclResetShadowedCmdRefs(interp, newCmdPtr)
+    Tcl_Interp * interp;
+    Command * newCmdPtr;
+{
+    (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr);
+}
+
+/* Slot 98 */
+int
+TclServiceIdle()
+{
+    return (tclIntStubsPtr->tclServiceIdle)();
+}
+
+/* Slot 99 */
+Tcl_Obj *
+TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg)
+    Tcl_Interp * interp;
+    int localIndex;
+    Tcl_Obj * elemPtr;
+    Tcl_Obj * objPtr;
+    int leaveErrorMsg;
+{
+    return (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg);
+}
+
+/* Slot 100 */
+Tcl_Obj *
+TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg)
+    Tcl_Interp * interp;
+    int localIndex;
+    Tcl_Obj * objPtr;
+    int leaveErrorMsg;
+{
+    return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg);
+}
+
+/* Slot 101 */
+char *
+TclSetPreInitScript(string)
+    char * string;
+{
+    return (tclIntStubsPtr->tclSetPreInitScript)(string);
+}
+
+/* Slot 102 */
+void
+TclSetupEnv(interp)
+    Tcl_Interp * interp;
+{
+    (tclIntStubsPtr->tclSetupEnv)(interp);
+}
+
+/* Slot 103 */
+int
+TclSockGetPort(interp, string, proto, portPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * proto;
+    int * portPtr;
+{
+    return (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr);
+}
+
+/* Slot 104 */
+int
+TclSockMinimumBuffers(sock, size)
+    int sock;
+    int size;
+{
+    return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size);
+}
+
+/* Slot 105 */
+int
+TclStat(path, buf)
+    CONST char * path;
+    TclStat_ * buf;
+{
+    return (tclIntStubsPtr->tclStat)(path, buf);
+}
+
+/* Slot 106 */
+int
+TclStatDeleteProc(proc)
+    TclStatProc_ * proc;
+{
+    return (tclIntStubsPtr->tclStatDeleteProc)(proc);
+}
+
+/* Slot 107 */
+int
+TclStatInsertProc(proc)
+    TclStatProc_ * proc;
+{
+    return (tclIntStubsPtr->tclStatInsertProc)(proc);
+}
+
+/* Slot 108 */
+void
+TclTeardownNamespace(nsPtr)
+    Namespace * nsPtr;
+{
+    (tclIntStubsPtr->tclTeardownNamespace)(nsPtr);
+}
+
+/* Slot 109 */
+int
+TclUpdateReturnInfo(iPtr)
+    Interp * iPtr;
+{
+    return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr);
+}
+
+/* Slot 110 */
+char *
+TclWordEnd(start, lastChar, nested, semiPtr)
+    char * start;
+    char * lastChar;
+    int nested;
+    int * semiPtr;
+{
+    return (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr);
+}
+
+/* Slot 111 */
+void
+Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc)
+    Tcl_Interp * interp;
+    char * name;
+    Tcl_ResolveCmdProc * cmdProc;
+    Tcl_ResolveVarProc * varProc;
+    Tcl_ResolveCompiledVarProc * compiledVarProc;
+{
+    (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc);
+}
+
+/* Slot 112 */
+int
+Tcl_AppendExportList(interp, nsPtr, objPtr)
+    Tcl_Interp * interp;
+    Tcl_Namespace * nsPtr;
+    Tcl_Obj * objPtr;
+{
+    return (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr);
+}
+
+/* Slot 113 */
+Tcl_Namespace *
+Tcl_CreateNamespace(interp, name, clientData, deleteProc)
+    Tcl_Interp * interp;
+    char * name;
+    ClientData clientData;
+    Tcl_NamespaceDeleteProc * deleteProc;
+{
+    return (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc);
+}
+
+/* Slot 114 */
+void
+Tcl_DeleteNamespace(nsPtr)
+    Tcl_Namespace * nsPtr;
+{
+    (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr);
+}
+
+/* Slot 115 */
+int
+Tcl_Export(interp, nsPtr, pattern, resetListFirst)
+    Tcl_Interp * interp;
+    Tcl_Namespace * nsPtr;
+    char * pattern;
+    int resetListFirst;
+{
+    return (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst);
+}
+
+/* Slot 116 */
+Tcl_Command
+Tcl_FindCommand(interp, name, contextNsPtr, flags)
+    Tcl_Interp * interp;
+    char * name;
+    Tcl_Namespace * contextNsPtr;
+    int flags;
+{
+    return (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags);
+}
+
+/* Slot 117 */
+Tcl_Namespace *
+Tcl_FindNamespace(interp, name, contextNsPtr, flags)
+    Tcl_Interp * interp;
+    char * name;
+    Tcl_Namespace * contextNsPtr;
+    int flags;
+{
+    return (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags);
+}
+
+/* Slot 118 */
+int
+Tcl_GetInterpResolvers(interp, name, resInfo)
+    Tcl_Interp * interp;
+    char * name;
+    Tcl_ResolverInfo * resInfo;
+{
+    return (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo);
+}
+
+/* Slot 119 */
+int
+Tcl_GetNamespaceResolvers(namespacePtr, resInfo)
+    Tcl_Namespace * namespacePtr;
+    Tcl_ResolverInfo * resInfo;
+{
+    return (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo);
+}
+
+/* Slot 120 */
+Tcl_Var
+Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags)
+    Tcl_Interp * interp;
+    char * name;
+    Tcl_Namespace * contextNsPtr;
+    int flags;
+{
+    return (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags);
+}
+
+/* Slot 121 */
+int
+Tcl_ForgetImport(interp, nsPtr, pattern)
+    Tcl_Interp * interp;
+    Tcl_Namespace * nsPtr;
+    char * pattern;
+{
+    return (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern);
+}
+
+/* Slot 122 */
+Tcl_Command
+Tcl_GetCommandFromObj(interp, objPtr)
+    Tcl_Interp * interp;
+    Tcl_Obj * objPtr;
+{
+    return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr);
+}
+
+/* Slot 123 */
+void
+Tcl_GetCommandFullName(interp, command, objPtr)
+    Tcl_Interp * interp;
+    Tcl_Command command;
+    Tcl_Obj * objPtr;
+{
+    (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr);
+}
+
+/* Slot 124 */
+Tcl_Namespace *
+Tcl_GetCurrentNamespace(interp)
+    Tcl_Interp * interp;
+{
+    return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp);
+}
+
+/* Slot 125 */
+Tcl_Namespace *
+Tcl_GetGlobalNamespace(interp)
+    Tcl_Interp * interp;
+{
+    return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp);
+}
+
+/* Slot 126 */
+void
+Tcl_GetVariableFullName(interp, variable, objPtr)
+    Tcl_Interp * interp;
+    Tcl_Var variable;
+    Tcl_Obj * objPtr;
+{
+    (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr);
+}
+
+/* Slot 127 */
+int
+Tcl_Import(interp, nsPtr, pattern, allowOverwrite)
+    Tcl_Interp * interp;
+    Tcl_Namespace * nsPtr;
+    char * pattern;
+    int allowOverwrite;
+{
+    return (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite);
+}
+
+/* Slot 128 */
+void
+Tcl_PopCallFrame(interp)
+    Tcl_Interp* interp;
+{
+    (tclIntStubsPtr->tcl_PopCallFrame)(interp);
+}
+
+/* Slot 129 */
+int
+Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)
+    Tcl_Interp* interp;
+    Tcl_CallFrame * framePtr;
+    Tcl_Namespace * nsPtr;
+    int isProcCallFrame;
+{
+    return (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame);
+}
+
+/* Slot 130 */
+int
+Tcl_RemoveInterpResolvers(interp, name)
+    Tcl_Interp * interp;
+    char * name;
+{
+    return (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name);
+}
+
+/* Slot 131 */
+void
+Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc)
+    Tcl_Namespace * namespacePtr;
+    Tcl_ResolveCmdProc * cmdProc;
+    Tcl_ResolveVarProc * varProc;
+    Tcl_ResolveCompiledVarProc * compiledVarProc;
+{
+    (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc);
+}
+
+/* Slot 132 */
+int
+TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 133 */
+int
+TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 134 */
+int
+TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 135 */
+int
+TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 136 */
+int
+TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 137 */
+int
+TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 138 */
+int
+TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 139 */
+int
+TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 140 */
+int
+TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 141 */
+int
+TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
+    Tcl_Interp * interp;
+    char * string;
+    char * lastChar;
+    int compileFlags;
+    struct CompileEnv * compileEnvPtr;
+{
+    return (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
+}
+
+/* Slot 142 */
+int
+TclHasSockets(interp)
+    Tcl_Interp * interp;
+{
+    return (tclIntStubsPtr->tclHasSockets)(interp);
+}
+
+/* Slot 143 */
+struct tm *
+TclpGetDate(time, useGMT)
+    TclpTime_t time;
+    int useGMT;
+{
+    return (tclIntStubsPtr->tclpGetDate)(time, useGMT);
+}
+
+/* Slot 144 */
+size_t
+TclStrftime(s, maxsize, format, t)
+    char * s;
+    size_t maxsize;
+    const char * format;
+    const struct tm * t;
+{
+    return (tclIntStubsPtr->tclStrftime)(s, maxsize, format, t);
+}
+
+/* Slot 145 */
+int
+TclpCheckStackSpace()
+{
+    return (tclIntStubsPtr->tclpCheckStackSpace)();
+}
+
+
+/* !END!: Do not edit above this line. */
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 01d18f4..edc914d 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStubInit.c,v 1.2.2.2 1999/03/06 21:19:58 stanton Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.2.2.3 1999/03/08 22:25:31 stanton Exp $
  */
 
 #include "tclInt.h"
@@ -351,134 +351,130 @@ TclIntStubs tclIntStubs = {
     TclFileDeleteCmd, /* 19 */
     TclFileMakeDirsCmd, /* 20 */
     TclFileRenameCmd, /* 21 */
-    TclFinalizeCompExecEnv, /* 22 */
-    TclFinalizeEnvironment, /* 23 */
-    TclFinalizeExecEnv, /* 24 */
-    TclFindElement, /* 25 */
-    TclFindProc, /* 26 */
-    TclFormatInt, /* 27 */
-    TclFreePackageInfo, /* 28 */
-    TclGetCwd, /* 29 */
-    TclGetDate, /* 30 */
-    TclGetDefaultStdChannel, /* 31 */
-    TclGetElementOfIndexedArray, /* 32 */
-    TclGetEnv, /* 33 */
-    TclGetExtension, /* 34 */
-    TclGetFrame, /* 35 */
-    TclGetInterpProc, /* 36 */
-    TclGetIntForIndex, /* 37 */
-    TclGetIndexedScalar, /* 38 */
-    TclGetLong, /* 39 */
-    TclGetLoadedPackages, /* 40 */
-    TclGetNamespaceForQualName, /* 41 */
-    TclGetObjInterpProc, /* 42 */
-    TclGetOpenMode, /* 43 */
-    TclGetOriginalCommand, /* 44 */
-    TclGetUserHome, /* 45 */
-    TclGlobalInvoke, /* 46 */
-    TclGuessPackageName, /* 47 */
-    TclHideUnsafeCommands, /* 48 */
-    TclInExit, /* 49 */
-    TclIncrElementOfIndexedArray, /* 50 */
-    TclIncrIndexedScalar, /* 51 */
-    TclIncrVar2, /* 52 */
-    TclInitCompiledLocals, /* 53 */
-    TclInitNamespaces, /* 54 */
-    TclInterpInit, /* 55 */
-    TclInvoke, /* 56 */
-    TclInvokeObjectCommand, /* 57 */
-    TclInvokeStringCommand, /* 58 */
-    TclIsProc, /* 59 */
-    TclLoadFile, /* 60 */
-    TclLooksLikeInt, /* 61 */
-    TclLookupVar, /* 62 */
-    TclMatchFiles, /* 63 */
-    TclNeedSpace, /* 64 */
-    TclNewProcBodyObj, /* 65 */
-    TclObjCommandComplete, /* 66 */
-    TclObjInterpProc, /* 67 */
-    TclObjInvoke, /* 68 */
-    TclObjInvokeGlobal, /* 69 */
-    TclOpenFileChannelDeleteProc, /* 70 */
-    TclOpenFileChannelInsertProc, /* 71 */
-    TclpAccess, /* 72 */
-    TclpAlloc, /* 73 */
-    TclpCopyFile, /* 74 */
-    TclpCopyDirectory, /* 75 */
-    TclpCreateDirectory, /* 76 */
-    TclpDeleteFile, /* 77 */
-    TclpFree, /* 78 */
-    TclpGetClicks, /* 79 */
-    TclpGetSeconds, /* 80 */
-    TclpGetTime, /* 81 */
-    TclpGetTimeZone, /* 82 */
-    TclpListVolumes, /* 83 */
-    TclpOpenFileChannel, /* 84 */
-    TclpRealloc, /* 85 */
-    TclpRemoveDirectory, /* 86 */
-    TclpRenameFile, /* 87 */
-    TclParseBraces, /* 88 */
-    TclParseNestedCmd, /* 89 */
-    TclParseQuotes, /* 90 */
-    TclPlatformInit, /* 91 */
-    TclPrecTraceProc, /* 92 */
-    TclPreventAliasLoop, /* 93 */
-    TclPrintByteCodeObj, /* 94 */
-    TclProcCleanupProc, /* 95 */
-    TclProcCompileProc, /* 96 */
-    TclProcDeleteProc, /* 97 */
-    TclProcInterpProc, /* 98 */
-    TclpStat, /* 99 */
-    TclRenameCommand, /* 100 */
-    TclResetShadowedCmdRefs, /* 101 */
-    TclServiceIdle, /* 102 */
-    TclSetElementOfIndexedArray, /* 103 */
-    TclSetIndexedScalar, /* 104 */
-    TclSetPreInitScript, /* 105 */
-    TclSetupEnv, /* 106 */
-    TclSockGetPort, /* 107 */
-    TclSockMinimumBuffers, /* 108 */
-    TclStat, /* 109 */
-    TclStatDeleteProc, /* 110 */
-    TclStatInsertProc, /* 111 */
-    TclTeardownNamespace, /* 112 */
-    TclUpdateReturnInfo, /* 113 */
-    TclWordEnd, /* 114 */
-    Tcl_AddInterpResolvers, /* 115 */
-    Tcl_AppendExportList, /* 116 */
-    Tcl_CreateNamespace, /* 117 */
-    Tcl_DeleteNamespace, /* 118 */
-    Tcl_Export, /* 119 */
-    Tcl_FindCommand, /* 120 */
-    Tcl_FindNamespace, /* 121 */
-    Tcl_GetInterpResolvers, /* 122 */
-    Tcl_GetNamespaceResolvers, /* 123 */
-    Tcl_FindNamespaceVar, /* 124 */
-    Tcl_ForgetImport, /* 125 */
-    Tcl_GetCommandFromObj, /* 126 */
-    Tcl_GetCommandFullName, /* 127 */
-    Tcl_GetCurrentNamespace, /* 128 */
-    Tcl_GetGlobalNamespace, /* 129 */
-    Tcl_GetVariableFullName, /* 130 */
-    Tcl_Import, /* 131 */
-    Tcl_PopCallFrame, /* 132 */
-    Tcl_PushCallFrame, /* 133 */
-    Tcl_RemoveInterpResolvers, /* 134 */
-    Tcl_SetNamespaceResolvers, /* 135 */
-    TclCompileBreakCmd, /* 136 */
-    TclCompileCatchCmd, /* 137 */
-    TclCompileContinueCmd, /* 138 */
-    TclCompileExprCmd, /* 139 */
-    TclCompileForCmd, /* 140 */
-    TclCompileForeachCmd, /* 141 */
-    TclCompileIfCmd, /* 142 */
-    TclCompileIncrCmd, /* 143 */
-    TclCompileSetCmd, /* 144 */
-    TclCompileWhileCmd, /* 145 */
-    TclHasSockets, /* 146 */
-    TclpGetDate, /* 147 */
-    TclStrftime, /* 148 */
-    TclpCheckStackSpace, /* 149 */
+    TclFindElement, /* 22 */
+    TclFindProc, /* 23 */
+    TclFormatInt, /* 24 */
+    TclFreePackageInfo, /* 25 */
+    TclGetCwd, /* 26 */
+    TclGetDate, /* 27 */
+    TclGetDefaultStdChannel, /* 28 */
+    TclGetElementOfIndexedArray, /* 29 */
+    TclGetEnv, /* 30 */
+    TclGetExtension, /* 31 */
+    TclGetFrame, /* 32 */
+    TclGetInterpProc, /* 33 */
+    TclGetIntForIndex, /* 34 */
+    TclGetIndexedScalar, /* 35 */
+    TclGetLong, /* 36 */
+    TclGetLoadedPackages, /* 37 */
+    TclGetNamespaceForQualName, /* 38 */
+    TclGetObjInterpProc, /* 39 */
+    TclGetOpenMode, /* 40 */
+    TclGetOriginalCommand, /* 41 */
+    TclGetUserHome, /* 42 */
+    TclGlobalInvoke, /* 43 */
+    TclGuessPackageName, /* 44 */
+    TclHideUnsafeCommands, /* 45 */
+    TclInExit, /* 46 */
+    TclIncrElementOfIndexedArray, /* 47 */
+    TclIncrIndexedScalar, /* 48 */
+    TclIncrVar2, /* 49 */
+    TclInitCompiledLocals, /* 50 */
+    TclInterpInit, /* 51 */
+    TclInvoke, /* 52 */
+    TclInvokeObjectCommand, /* 53 */
+    TclInvokeStringCommand, /* 54 */
+    TclIsProc, /* 55 */
+    TclLoadFile, /* 56 */
+    TclLooksLikeInt, /* 57 */
+    TclLookupVar, /* 58 */
+    TclMatchFiles, /* 59 */
+    TclNeedSpace, /* 60 */
+    TclNewProcBodyObj, /* 61 */
+    TclObjCommandComplete, /* 62 */
+    TclObjInterpProc, /* 63 */
+    TclObjInvoke, /* 64 */
+    TclObjInvokeGlobal, /* 65 */
+    TclOpenFileChannelDeleteProc, /* 66 */
+    TclOpenFileChannelInsertProc, /* 67 */
+    TclpAccess, /* 68 */
+    TclpAlloc, /* 69 */
+    TclpCopyFile, /* 70 */
+    TclpCopyDirectory, /* 71 */
+    TclpCreateDirectory, /* 72 */
+    TclpDeleteFile, /* 73 */
+    TclpFree, /* 74 */
+    TclpGetClicks, /* 75 */
+    TclpGetSeconds, /* 76 */
+    TclpGetTime, /* 77 */
+    TclpGetTimeZone, /* 78 */
+    TclpListVolumes, /* 79 */
+    TclpOpenFileChannel, /* 80 */
+    TclpRealloc, /* 81 */
+    TclpRemoveDirectory, /* 82 */
+    TclpRenameFile, /* 83 */
+    TclParseBraces, /* 84 */
+    TclParseNestedCmd, /* 85 */
+    TclParseQuotes, /* 86 */
+    TclPlatformInit, /* 87 */
+    TclPrecTraceProc, /* 88 */
+    TclPreventAliasLoop, /* 89 */
+    TclPrintByteCodeObj, /* 90 */
+    TclProcCleanupProc, /* 91 */
+    TclProcCompileProc, /* 92 */
+    TclProcDeleteProc, /* 93 */
+    TclProcInterpProc, /* 94 */
+    TclpStat, /* 95 */
+    TclRenameCommand, /* 96 */
+    TclResetShadowedCmdRefs, /* 97 */
+    TclServiceIdle, /* 98 */
+    TclSetElementOfIndexedArray, /* 99 */
+    TclSetIndexedScalar, /* 100 */
+    TclSetPreInitScript, /* 101 */
+    TclSetupEnv, /* 102 */
+    TclSockGetPort, /* 103 */
+    TclSockMinimumBuffers, /* 104 */
+    TclStat, /* 105 */
+    TclStatDeleteProc, /* 106 */
+    TclStatInsertProc, /* 107 */
+    TclTeardownNamespace, /* 108 */
+    TclUpdateReturnInfo, /* 109 */
+    TclWordEnd, /* 110 */
+    Tcl_AddInterpResolvers, /* 111 */
+    Tcl_AppendExportList, /* 112 */
+    Tcl_CreateNamespace, /* 113 */
+    Tcl_DeleteNamespace, /* 114 */
+    Tcl_Export, /* 115 */
+    Tcl_FindCommand, /* 116 */
+    Tcl_FindNamespace, /* 117 */
+    Tcl_GetInterpResolvers, /* 118 */
+    Tcl_GetNamespaceResolvers, /* 119 */
+    Tcl_FindNamespaceVar, /* 120 */
+    Tcl_ForgetImport, /* 121 */
+    Tcl_GetCommandFromObj, /* 122 */
+    Tcl_GetCommandFullName, /* 123 */
+    Tcl_GetCurrentNamespace, /* 124 */
+    Tcl_GetGlobalNamespace, /* 125 */
+    Tcl_GetVariableFullName, /* 126 */
+    Tcl_Import, /* 127 */
+    Tcl_PopCallFrame, /* 128 */
+    Tcl_PushCallFrame, /* 129 */
+    Tcl_RemoveInterpResolvers, /* 130 */
+    Tcl_SetNamespaceResolvers, /* 131 */
+    TclCompileBreakCmd, /* 132 */
+    TclCompileCatchCmd, /* 133 */
+    TclCompileContinueCmd, /* 134 */
+    TclCompileExprCmd, /* 135 */
+    TclCompileForCmd, /* 136 */
+    TclCompileForeachCmd, /* 137 */
+    TclCompileIfCmd, /* 138 */
+    TclCompileIncrCmd, /* 139 */
+    TclCompileSetCmd, /* 140 */
+    TclCompileWhileCmd, /* 141 */
+    TclHasSockets, /* 142 */
+    TclpGetDate, /* 143 */
+    TclStrftime, /* 144 */
+    TclpCheckStackSpace, /* 145 */
 };
 
 TclIntStubs *tclIntStubsPtr = &tclIntStubs;
@@ -496,19 +492,17 @@ TclIntPlatStubs tclIntPlatStubs = {
     TclWinNToHS, /* 6 */
     TclWinSetSockOpt, /* 7 */
     TclpGetPid, /* 8 */
-    TclpFinalize, /* 9 */
-    TclWinGetPlatformId, /* 10 */
-    TclWinInit, /* 11 */
-    TclWinSynchSpawn, /* 12 */
-    TclGetAndDetachPids, /* 13 */
-    TclpCloseFile, /* 14 */
-    TclpCreateCommandChannel, /* 15 */
-    TclpCreatePipe, /* 16 */
-    TclpCreateProcess, /* 17 */
-    TclpCreateTempFile, /* 18 */
-    TclpGetTZName, /* 19 */
-    TclpMakeFile, /* 20 */
-    TclpOpenFile, /* 21 */
+    TclWinGetPlatformId, /* 9 */
+    TclWinSynchSpawn, /* 10 */
+    TclGetAndDetachPids, /* 11 */
+    TclpCloseFile, /* 12 */
+    TclpCreateCommandChannel, /* 13 */
+    TclpCreatePipe, /* 14 */
+    TclpCreateProcess, /* 15 */
+    TclpCreateTempFile, /* 16 */
+    TclpGetTZName, /* 17 */
+    TclpMakeFile, /* 18 */
+    TclpOpenFile, /* 19 */
 #endif /* __WIN32__ */
 #if !defined(__WIN32__) && !defined(MAC_TCL)
     TclGetAndDetachPids, /* 0 */
diff --git a/win/tclWinInt.h b/win/tclWinInt.h
index 64c43f7..122ccc8 100644
--- a/win/tclWinInt.h
+++ b/win/tclWinInt.h
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinInt.h,v 1.5.4.1 1999/03/04 00:59:04 stanton Exp $
+ * RCS: @(#) $Id: tclWinInt.h,v 1.5.4.2 1999/03/08 22:25:31 stanton Exp $
  */
 
 #ifndef _TCLWININT
@@ -43,10 +43,12 @@
 #define VER_PLATFORM_WIN32_WINDOWS 1
 #endif
 
-EXTERN int		TclWinGetPlatformId(void);
+/*
+ * Declarations of functions that are not accessible by way of the
+ * stubs table.
+ */
+
 EXTERN void		TclWinInit(HINSTANCE hInst);
-EXTERN int		TclWinSynchSpawn(void *args, int type, void **trans,
-				      Tcl_Pid *pidPtr);
 
 # undef TCL_STORAGE_CLASS
 # define TCL_STORAGE_CLASS DLLIMPORT