summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclInt.decls286
-rw-r--r--generic/tclInt.h15
-rw-r--r--generic/tclIntDecls.h1253
-rw-r--r--generic/tclIntPlatDecls.h495
-rw-r--r--generic/tclIntPlatStubs.c536
-rw-r--r--generic/tclIntStubs.c1453
-rw-r--r--generic/tclStubInit.c278
7 files changed, 4021 insertions, 295 deletions
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 */
generated by cgit v0.12 at 2024-11-22 03:27:06 (GMT)