new subtree for tcl/tk

1 files changed, 0 insertions, 1370 deletions

diff --git a/tcl8.6/generic/tclIntDecls.h b/tcl8.6/generic/tclIntDecls.h
deleted file mode 100644
index f95f999..0000000
--- a/tcl8.6/generic/tclIntDecls.h
+++ /dev/null
@@ -1,1370 +0,0 @@
-/*
- * 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.
- */
-
-#ifndef _TCLINTDECLS
-#define _TCLINTDECLS
-
-#include "tclPort.h"
-
-#undef TCL_STORAGE_CLASS
-#ifdef BUILD_tcl
-#   define TCL_STORAGE_CLASS DLLEXPORT
-#else
-#   ifdef USE_TCL_STUBS
-#      define TCL_STORAGE_CLASS
-#   else
-#      define TCL_STORAGE_CLASS DLLIMPORT
-#   endif
-#endif
-
-/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */
-#undef Tcl_CreateNamespace
-#undef Tcl_DeleteNamespace
-#undef Tcl_AppendExportList
-#undef Tcl_Export
-#undef Tcl_Import
-#undef Tcl_ForgetImport
-#undef Tcl_GetCurrentNamespace
-#undef Tcl_GetGlobalNamespace
-#undef Tcl_FindNamespace
-#undef Tcl_FindCommand
-#undef Tcl_GetCommandFromObj
-#undef Tcl_GetCommandFullName
-#undef Tcl_SetStartupScript
-#undef Tcl_GetStartupScript
-
-/*
- * 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. */
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/*
- * Exported function declarations:
- */
-
-/* Slot 0 is reserved */
-/* Slot 1 is reserved */
-/* Slot 2 is reserved */
-/* 3 */
-EXTERN void		TclAllocateFreeObjects(void);
-/* Slot 4 is reserved */
-/* 5 */
-EXTERN int		TclCleanupChildren(Tcl_Interp *interp, int numPids,
-				Tcl_Pid *pidPtr, Tcl_Channel errorChan);
-/* 6 */
-EXTERN void		TclCleanupCommand(Command *cmdPtr);
-/* 7 */
-EXTERN int		TclCopyAndCollapse(int count, const char *src,
-				char *dst);
-/* 8 */
-EXTERN int		TclCopyChannelOld(Tcl_Interp *interp,
-				Tcl_Channel inChan, Tcl_Channel outChan,
-				int toRead, Tcl_Obj *cmdPtr);
-/* 9 */
-EXTERN int		TclCreatePipeline(Tcl_Interp *interp, int argc,
-				const char **argv, Tcl_Pid **pidArrayPtr,
-				TclFile *inPipePtr, TclFile *outPipePtr,
-				TclFile *errFilePtr);
-/* 10 */
-EXTERN int		TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
-				const char *procName, Tcl_Obj *argsPtr,
-				Tcl_Obj *bodyPtr, Proc **procPtrPtr);
-/* 11 */
-EXTERN void		TclDeleteCompiledLocalVars(Interp *iPtr,
-				CallFrame *framePtr);
-/* 12 */
-EXTERN void		TclDeleteVars(Interp *iPtr,
-				TclVarHashTable *tablePtr);
-/* Slot 13 is reserved */
-/* 14 */
-EXTERN int		TclDumpMemoryInfo(ClientData clientData, int flags);
-/* Slot 15 is reserved */
-/* 16 */
-EXTERN void		TclExprFloatError(Tcl_Interp *interp, double value);
-/* Slot 17 is reserved */
-/* Slot 18 is reserved */
-/* Slot 19 is reserved */
-/* Slot 20 is reserved */
-/* Slot 21 is reserved */
-/* 22 */
-EXTERN int		TclFindElement(Tcl_Interp *interp,
-				const char *listStr, int listLength,
-				const char **elementPtr,
-				const char **nextPtr, int *sizePtr,
-				int *bracePtr);
-/* 23 */
-EXTERN Proc *		TclFindProc(Interp *iPtr, const char *procName);
-/* 24 */
-EXTERN int		TclFormatInt(char *buffer, long n);
-/* 25 */
-EXTERN void		TclFreePackageInfo(Interp *iPtr);
-/* Slot 26 is reserved */
-/* Slot 27 is reserved */
-/* 28 */
-EXTERN Tcl_Channel	TclpGetDefaultStdChannel(int type);
-/* Slot 29 is reserved */
-/* Slot 30 is reserved */
-/* 31 */
-EXTERN const char *	TclGetExtension(const char *name);
-/* 32 */
-EXTERN int		TclGetFrame(Tcl_Interp *interp, const char *str,
-				CallFrame **framePtrPtr);
-/* Slot 33 is reserved */
-/* 34 */
-EXTERN int		TclGetIntForIndex(Tcl_Interp *interp,
-				Tcl_Obj *objPtr, int endValue, int *indexPtr);
-/* Slot 35 is reserved */
-/* Slot 36 is reserved */
-/* 37 */
-EXTERN int		TclGetLoadedPackages(Tcl_Interp *interp,
-				const char *targetName);
-/* 38 */
-EXTERN int		TclGetNamespaceForQualName(Tcl_Interp *interp,
-				const char *qualName, Namespace *cxtNsPtr,
-				int flags, Namespace **nsPtrPtr,
-				Namespace **altNsPtrPtr,
-				Namespace **actualCxtPtrPtr,
-				const char **simpleNamePtr);
-/* 39 */
-EXTERN TclObjCmdProcType TclGetObjInterpProc(void);
-/* 40 */
-EXTERN int		TclGetOpenMode(Tcl_Interp *interp, const char *str,
-				int *seekFlagPtr);
-/* 41 */
-EXTERN Tcl_Command	TclGetOriginalCommand(Tcl_Command command);
-/* 42 */
-EXTERN CONST86 char *	TclpGetUserHome(const char *name,
-				Tcl_DString *bufferPtr);
-/* Slot 43 is reserved */
-/* 44 */
-EXTERN int		TclGuessPackageName(const char *fileName,
-				Tcl_DString *bufPtr);
-/* 45 */
-EXTERN int		TclHideUnsafeCommands(Tcl_Interp *interp);
-/* 46 */
-EXTERN int		TclInExit(void);
-/* Slot 47 is reserved */
-/* Slot 48 is reserved */
-/* Slot 49 is reserved */
-/* 50 */
-EXTERN void		TclInitCompiledLocals(Tcl_Interp *interp,
-				CallFrame *framePtr, Namespace *nsPtr);
-/* 51 */
-EXTERN int		TclInterpInit(Tcl_Interp *interp);
-/* Slot 52 is reserved */
-/* 53 */
-EXTERN int		TclInvokeObjectCommand(ClientData clientData,
-				Tcl_Interp *interp, int argc,
-				CONST84 char **argv);
-/* 54 */
-EXTERN int		TclInvokeStringCommand(ClientData clientData,
-				Tcl_Interp *interp, int objc,
-				Tcl_Obj *const objv[]);
-/* 55 */
-EXTERN Proc *		TclIsProc(Command *cmdPtr);
-/* Slot 56 is reserved */
-/* Slot 57 is reserved */
-/* 58 */
-EXTERN Var *		TclLookupVar(Tcl_Interp *interp, const char *part1,
-				const char *part2, int flags,
-				const char *msg, int createPart1,
-				int createPart2, Var **arrayPtrPtr);
-/* Slot 59 is reserved */
-/* 60 */
-EXTERN int		TclNeedSpace(const char *start, const char *end);
-/* 61 */
-EXTERN Tcl_Obj *	TclNewProcBodyObj(Proc *procPtr);
-/* 62 */
-EXTERN int		TclObjCommandComplete(Tcl_Obj *cmdPtr);
-/* 63 */
-EXTERN int		TclObjInterpProc(ClientData clientData,
-				Tcl_Interp *interp, int objc,
-				Tcl_Obj *const objv[]);
-/* 64 */
-EXTERN int		TclObjInvoke(Tcl_Interp *interp, int objc,
-				Tcl_Obj *const objv[], int flags);
-/* Slot 65 is reserved */
-/* Slot 66 is reserved */
-/* Slot 67 is reserved */
-/* Slot 68 is reserved */
-/* 69 */
-EXTERN char *		TclpAlloc(unsigned int size);
-/* Slot 70 is reserved */
-/* Slot 71 is reserved */
-/* Slot 72 is reserved */
-/* Slot 73 is reserved */
-/* 74 */
-EXTERN void		TclpFree(char *ptr);
-/* 75 */
-EXTERN unsigned long	TclpGetClicks(void);
-/* 76 */
-EXTERN unsigned long	TclpGetSeconds(void);
-/* 77 */
-EXTERN void		TclpGetTime(Tcl_Time *time);
-/* Slot 78 is reserved */
-/* Slot 79 is reserved */
-/* Slot 80 is reserved */
-/* 81 */
-EXTERN char *		TclpRealloc(char *ptr, unsigned int size);
-/* Slot 82 is reserved */
-/* Slot 83 is reserved */
-/* Slot 84 is reserved */
-/* Slot 85 is reserved */
-/* Slot 86 is reserved */
-/* Slot 87 is reserved */
-/* 88 */
-EXTERN char *		TclPrecTraceProc(ClientData clientData,
-				Tcl_Interp *interp, const char *name1,
-				const char *name2, int flags);
-/* 89 */
-EXTERN int		TclPreventAliasLoop(Tcl_Interp *interp,
-				Tcl_Interp *cmdInterp, Tcl_Command cmd);
-/* Slot 90 is reserved */
-/* 91 */
-EXTERN void		TclProcCleanupProc(Proc *procPtr);
-/* 92 */
-EXTERN int		TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
-				Tcl_Obj *bodyPtr, Namespace *nsPtr,
-				const char *description,
-				const char *procName);
-/* 93 */
-EXTERN void		TclProcDeleteProc(ClientData clientData);
-/* Slot 94 is reserved */
-/* Slot 95 is reserved */
-/* 96 */
-EXTERN int		TclRenameCommand(Tcl_Interp *interp,
-				const char *oldName, const char *newName);
-/* 97 */
-EXTERN void		TclResetShadowedCmdRefs(Tcl_Interp *interp,
-				Command *newCmdPtr);
-/* 98 */
-EXTERN int		TclServiceIdle(void);
-/* Slot 99 is reserved */
-/* Slot 100 is reserved */
-/* 101 */
-EXTERN CONST86 char *	TclSetPreInitScript(const char *string);
-/* 102 */
-EXTERN void		TclSetupEnv(Tcl_Interp *interp);
-/* 103 */
-EXTERN int		TclSockGetPort(Tcl_Interp *interp, const char *str,
-				const char *proto, int *portPtr);
-/* 104 */
-EXTERN int		TclSockMinimumBuffersOld(int sock, int size);
-/* Slot 105 is reserved */
-/* Slot 106 is reserved */
-/* Slot 107 is reserved */
-/* 108 */
-EXTERN void		TclTeardownNamespace(Namespace *nsPtr);
-/* 109 */
-EXTERN int		TclUpdateReturnInfo(Interp *iPtr);
-/* 110 */
-EXTERN int		TclSockMinimumBuffers(void *sock, int size);
-/* 111 */
-EXTERN void		Tcl_AddInterpResolvers(Tcl_Interp *interp,
-				const char *name,
-				Tcl_ResolveCmdProc *cmdProc,
-				Tcl_ResolveVarProc *varProc,
-				Tcl_ResolveCompiledVarProc *compiledVarProc);
-/* 112 */
-EXTERN int		Tcl_AppendExportList(Tcl_Interp *interp,
-				Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
-/* 113 */
-EXTERN Tcl_Namespace *	Tcl_CreateNamespace(Tcl_Interp *interp,
-				const char *name, ClientData clientData,
-				Tcl_NamespaceDeleteProc *deleteProc);
-/* 114 */
-EXTERN void		Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
-/* 115 */
-EXTERN int		Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
-				const char *pattern, int resetListFirst);
-/* 116 */
-EXTERN Tcl_Command	Tcl_FindCommand(Tcl_Interp *interp, const char *name,
-				Tcl_Namespace *contextNsPtr, int flags);
-/* 117 */
-EXTERN Tcl_Namespace *	Tcl_FindNamespace(Tcl_Interp *interp,
-				const char *name,
-				Tcl_Namespace *contextNsPtr, int flags);
-/* 118 */
-EXTERN int		Tcl_GetInterpResolvers(Tcl_Interp *interp,
-				const char *name, Tcl_ResolverInfo *resInfo);
-/* 119 */
-EXTERN int		Tcl_GetNamespaceResolvers(
-				Tcl_Namespace *namespacePtr,
-				Tcl_ResolverInfo *resInfo);
-/* 120 */
-EXTERN Tcl_Var		Tcl_FindNamespaceVar(Tcl_Interp *interp,
-				const char *name,
-				Tcl_Namespace *contextNsPtr, int flags);
-/* 121 */
-EXTERN int		Tcl_ForgetImport(Tcl_Interp *interp,
-				Tcl_Namespace *nsPtr, const char *pattern);
-/* 122 */
-EXTERN Tcl_Command	Tcl_GetCommandFromObj(Tcl_Interp *interp,
-				Tcl_Obj *objPtr);
-/* 123 */
-EXTERN void		Tcl_GetCommandFullName(Tcl_Interp *interp,
-				Tcl_Command command, Tcl_Obj *objPtr);
-/* 124 */
-EXTERN Tcl_Namespace *	Tcl_GetCurrentNamespace(Tcl_Interp *interp);
-/* 125 */
-EXTERN Tcl_Namespace *	Tcl_GetGlobalNamespace(Tcl_Interp *interp);
-/* 126 */
-EXTERN void		Tcl_GetVariableFullName(Tcl_Interp *interp,
-				Tcl_Var variable, Tcl_Obj *objPtr);
-/* 127 */
-EXTERN int		Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
-				const char *pattern, int allowOverwrite);
-/* 128 */
-EXTERN void		Tcl_PopCallFrame(Tcl_Interp *interp);
-/* 129 */
-EXTERN int		Tcl_PushCallFrame(Tcl_Interp *interp,
-				Tcl_CallFrame *framePtr,
-				Tcl_Namespace *nsPtr, int isProcCallFrame);
-/* 130 */
-EXTERN int		Tcl_RemoveInterpResolvers(Tcl_Interp *interp,
-				const char *name);
-/* 131 */
-EXTERN void		Tcl_SetNamespaceResolvers(
-				Tcl_Namespace *namespacePtr,
-				Tcl_ResolveCmdProc *cmdProc,
-				Tcl_ResolveVarProc *varProc,
-				Tcl_ResolveCompiledVarProc *compiledVarProc);
-/* 132 */
-EXTERN int		TclpHasSockets(Tcl_Interp *interp);
-/* 133 */
-EXTERN struct tm *	TclpGetDate(const time_t *time, int useGMT);
-/* Slot 134 is reserved */
-/* Slot 135 is reserved */
-/* Slot 136 is reserved */
-/* Slot 137 is reserved */
-/* 138 */
-EXTERN CONST84_RETURN char * TclGetEnv(const char *name,
-				Tcl_DString *valuePtr);
-/* Slot 139 is reserved */
-/* Slot 140 is reserved */
-/* 141 */
-EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp,
-				Tcl_DString *cwdPtr);
-/* 142 */
-EXTERN int		TclSetByteCodeFromAny(Tcl_Interp *interp,
-				Tcl_Obj *objPtr, CompileHookProc *hookProc,
-				ClientData clientData);
-/* 143 */
-EXTERN int		TclAddLiteralObj(struct CompileEnv *envPtr,
-				Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
-/* 144 */
-EXTERN void		TclHideLiteral(Tcl_Interp *interp,
-				struct CompileEnv *envPtr, int index);
-/* 145 */
-EXTERN const struct AuxDataType * TclGetAuxDataType(const char *typeName);
-/* 146 */
-EXTERN TclHandle	TclHandleCreate(void *ptr);
-/* 147 */
-EXTERN void		TclHandleFree(TclHandle handle);
-/* 148 */
-EXTERN TclHandle	TclHandlePreserve(TclHandle handle);
-/* 149 */
-EXTERN void		TclHandleRelease(TclHandle handle);
-/* 150 */
-EXTERN int		TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re);
-/* 151 */
-EXTERN void		TclRegExpRangeUniChar(Tcl_RegExp re, int index,
-				int *startPtr, int *endPtr);
-/* 152 */
-EXTERN void		TclSetLibraryPath(Tcl_Obj *pathPtr);
-/* 153 */
-EXTERN Tcl_Obj *	TclGetLibraryPath(void);
-/* Slot 154 is reserved */
-/* Slot 155 is reserved */
-/* 156 */
-EXTERN void		TclRegError(Tcl_Interp *interp, const char *msg,
-				int status);
-/* 157 */
-EXTERN Var *		TclVarTraceExists(Tcl_Interp *interp,
-				const char *varName);
-/* 158 */
-EXTERN void		TclSetStartupScriptFileName(const char *filename);
-/* 159 */
-EXTERN const char *	TclGetStartupScriptFileName(void);
-/* Slot 160 is reserved */
-/* 161 */
-EXTERN int		TclChannelTransform(Tcl_Interp *interp,
-				Tcl_Channel chan, Tcl_Obj *cmdObjPtr);
-/* 162 */
-EXTERN void		TclChannelEventScriptInvoker(ClientData clientData,
-				int flags);
-/* 163 */
-EXTERN const void *	TclGetInstructionTable(void);
-/* 164 */
-EXTERN void		TclExpandCodeArray(void *envPtr);
-/* 165 */
-EXTERN void		TclpSetInitialEncodings(void);
-/* 166 */
-EXTERN int		TclListObjSetElement(Tcl_Interp *interp,
-				Tcl_Obj *listPtr, int index,
-				Tcl_Obj *valuePtr);
-/* 167 */
-EXTERN void		TclSetStartupScriptPath(Tcl_Obj *pathPtr);
-/* 168 */
-EXTERN Tcl_Obj *	TclGetStartupScriptPath(void);
-/* 169 */
-EXTERN int		TclpUtfNcmp2(const char *s1, const char *s2,
-				unsigned long n);
-/* 170 */
-EXTERN int		TclCheckInterpTraces(Tcl_Interp *interp,
-				const char *command, int numChars,
-				Command *cmdPtr, int result, int traceFlags,
-				int objc, Tcl_Obj *const objv[]);
-/* 171 */
-EXTERN int		TclCheckExecutionTraces(Tcl_Interp *interp,
-				const char *command, int numChars,
-				Command *cmdPtr, int result, int traceFlags,
-				int objc, Tcl_Obj *const objv[]);
-/* 172 */
-EXTERN int		TclInThreadExit(void);
-/* 173 */
-EXTERN int		TclUniCharMatch(const Tcl_UniChar *string,
-				int strLen, const Tcl_UniChar *pattern,
-				int ptnLen, int flags);
-/* Slot 174 is reserved */
-/* 175 */
-EXTERN int		TclCallVarTraces(Interp *iPtr, Var *arrayPtr,
-				Var *varPtr, const char *part1,
-				const char *part2, int flags,
-				int leaveErrMsg);
-/* 176 */
-EXTERN void		TclCleanupVar(Var *varPtr, Var *arrayPtr);
-/* 177 */
-EXTERN void		TclVarErrMsg(Tcl_Interp *interp, const char *part1,
-				const char *part2, const char *operation,
-				const char *reason);
-/* 178 */
-EXTERN void		Tcl_SetStartupScript(Tcl_Obj *pathPtr,
-				const char *encodingName);
-/* 179 */
-EXTERN Tcl_Obj *	Tcl_GetStartupScript(const char **encodingNamePtr);
-/* Slot 180 is reserved */
-/* Slot 181 is reserved */
-/* 182 */
-EXTERN struct tm *	TclpLocaltime(const time_t *clock);
-/* 183 */
-EXTERN struct tm *	TclpGmtime(const time_t *clock);
-/* Slot 184 is reserved */
-/* Slot 185 is reserved */
-/* Slot 186 is reserved */
-/* Slot 187 is reserved */
-/* Slot 188 is reserved */
-/* Slot 189 is reserved */
-/* Slot 190 is reserved */
-/* Slot 191 is reserved */
-/* Slot 192 is reserved */
-/* Slot 193 is reserved */
-/* Slot 194 is reserved */
-/* Slot 195 is reserved */
-/* Slot 196 is reserved */
-/* Slot 197 is reserved */
-/* 198 */
-EXTERN int		TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr,
-				CallFrame **framePtrPtr);
-/* Slot 199 is reserved */
-/* 200 */
-EXTERN int		TclpObjRemoveDirectory(Tcl_Obj *pathPtr,
-				int recursive, Tcl_Obj **errorPtr);
-/* 201 */
-EXTERN int		TclpObjCopyDirectory(Tcl_Obj *srcPathPtr,
-				Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
-/* 202 */
-EXTERN int		TclpObjCreateDirectory(Tcl_Obj *pathPtr);
-/* 203 */
-EXTERN int		TclpObjDeleteFile(Tcl_Obj *pathPtr);
-/* 204 */
-EXTERN int		TclpObjCopyFile(Tcl_Obj *srcPathPtr,
-				Tcl_Obj *destPathPtr);
-/* 205 */
-EXTERN int		TclpObjRenameFile(Tcl_Obj *srcPathPtr,
-				Tcl_Obj *destPathPtr);
-/* 206 */
-EXTERN int		TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
-/* 207 */
-EXTERN int		TclpObjAccess(Tcl_Obj *pathPtr, int mode);
-/* 208 */
-EXTERN Tcl_Channel	TclpOpenFileChannel(Tcl_Interp *interp,
-				Tcl_Obj *pathPtr, int mode, int permissions);
-/* Slot 209 is reserved */
-/* Slot 210 is reserved */
-/* Slot 211 is reserved */
-/* 212 */
-EXTERN void		TclpFindExecutable(const char *argv0);
-/* 213 */
-EXTERN Tcl_Obj *	TclGetObjNameOfExecutable(void);
-/* 214 */
-EXTERN void		TclSetObjNameOfExecutable(Tcl_Obj *name,
-				Tcl_Encoding encoding);
-/* 215 */
-EXTERN void *		TclStackAlloc(Tcl_Interp *interp, int numBytes);
-/* 216 */
-EXTERN void		TclStackFree(Tcl_Interp *interp, void *freePtr);
-/* 217 */
-EXTERN int		TclPushStackFrame(Tcl_Interp *interp,
-				Tcl_CallFrame **framePtrPtr,
-				Tcl_Namespace *namespacePtr,
-				int isProcCallFrame);
-/* 218 */
-EXTERN void		TclPopStackFrame(Tcl_Interp *interp);
-/* Slot 219 is reserved */
-/* Slot 220 is reserved */
-/* Slot 221 is reserved */
-/* Slot 222 is reserved */
-/* Slot 223 is reserved */
-/* 224 */
-EXTERN TclPlatformType * TclGetPlatform(void);
-/* 225 */
-EXTERN Tcl_Obj *	TclTraceDictPath(Tcl_Interp *interp,
-				Tcl_Obj *rootPtr, int keyc,
-				Tcl_Obj *const keyv[], int flags);
-/* 226 */
-EXTERN int		TclObjBeingDeleted(Tcl_Obj *objPtr);
-/* 227 */
-EXTERN void		TclSetNsPath(Namespace *nsPtr, int pathLength,
-				Tcl_Namespace *pathAry[]);
-/* Slot 228 is reserved */
-/* 229 */
-EXTERN int		TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
-				const char *myName, int myFlags, int index);
-/* 230 */
-EXTERN Var *		TclObjLookupVar(Tcl_Interp *interp,
-				Tcl_Obj *part1Ptr, const char *part2,
-				int flags, const char *msg,
-				const int createPart1, const int createPart2,
-				Var **arrayPtrPtr);
-/* 231 */
-EXTERN int		TclGetNamespaceFromObj(Tcl_Interp *interp,
-				Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr);
-/* 232 */
-EXTERN int		TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
-				int flags, const CmdFrame *invoker, int word);
-/* 233 */
-EXTERN void		TclGetSrcInfoForPc(CmdFrame *contextPtr);
-/* 234 */
-EXTERN Var *		TclVarHashCreateVar(TclVarHashTable *tablePtr,
-				const char *key, int *newPtr);
-/* 235 */
-EXTERN void		TclInitVarHashTable(TclVarHashTable *tablePtr,
-				Namespace *nsPtr);
-/* 236 */
-EXTERN void		TclBackgroundException(Tcl_Interp *interp, int code);
-/* 237 */
-EXTERN int		TclResetCancellation(Tcl_Interp *interp, int force);
-/* 238 */
-EXTERN int		TclNRInterpProc(ClientData clientData,
-				Tcl_Interp *interp, int objc,
-				Tcl_Obj *const objv[]);
-/* 239 */
-EXTERN int		TclNRInterpProcCore(Tcl_Interp *interp,
-				Tcl_Obj *procNameObj, int skip,
-				ProcErrorProc *errorProc);
-/* 240 */
-EXTERN int		TclNRRunCallbacks(Tcl_Interp *interp, int result,
-				struct NRE_callback *rootPtr);
-/* 241 */
-EXTERN int		TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
-				int flags, const CmdFrame *invoker, int word);
-/* 242 */
-EXTERN int		TclNREvalObjv(Tcl_Interp *interp, int objc,
-				Tcl_Obj *const objv[], int flags,
-				Command *cmdPtr);
-/* 243 */
-EXTERN void		TclDbDumpActiveObjects(FILE *outFile);
-/* 244 */
-EXTERN Tcl_HashTable *	TclGetNamespaceChildTable(Tcl_Namespace *nsPtr);
-/* 245 */
-EXTERN Tcl_HashTable *	TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr);
-/* 246 */
-EXTERN int		TclInitRewriteEnsemble(Tcl_Interp *interp,
-				int numRemoved, int numInserted,
-				Tcl_Obj *const *objv);
-/* 247 */
-EXTERN void		TclResetRewriteEnsemble(Tcl_Interp *interp,
-				int isRootEnsemble);
-/* 248 */
-EXTERN int		TclCopyChannel(Tcl_Interp *interp,
-				Tcl_Channel inChan, Tcl_Channel outChan,
-				Tcl_WideInt toRead, Tcl_Obj *cmdPtr);
-/* 249 */
-EXTERN char *		TclDoubleDigits(double dv, int ndigits, int flags,
-				int *decpt, int *signum, char **endPtr);
-/* 250 */
-EXTERN void		TclSetSlaveCancelFlags(Tcl_Interp *interp, int flags,
-				int force);
-/* 251 */
-EXTERN int		TclRegisterLiteral(void *envPtr, char *bytes,
-				int length, int flags);
-
-typedef struct TclIntStubs {
-    int magic;
-    void *hooks;
-
-    void (*reserved0)(void);
-    void (*reserved1)(void);
-    void (*reserved2)(void);
-    void (*tclAllocateFreeObjects) (void); /* 3 */
-    void (*reserved4)(void);
-    int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */
-    void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */
-    int (*tclCopyAndCollapse) (int count, const char *src, char *dst); /* 7 */
-    int (*tclCopyChannelOld) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */
-    int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, const char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */
-    int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */
-    void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */
-    void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */
-    void (*reserved13)(void);
-    int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */
-    void (*reserved15)(void);
-    void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */
-    void (*reserved17)(void);
-    void (*reserved18)(void);
-    void (*reserved19)(void);
-    void (*reserved20)(void);
-    void (*reserved21)(void);
-    int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */
-    Proc * (*tclFindProc) (Interp *iPtr, const char *procName); /* 23 */
-    int (*tclFormatInt) (char *buffer, long n); /* 24 */
-    void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */
-    void (*reserved26)(void);
-    void (*reserved27)(void);
-    Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */
-    void (*reserved29)(void);
-    void (*reserved30)(void);
-    const char * (*tclGetExtension) (const char *name); /* 31 */
-    int (*tclGetFrame) (Tcl_Interp *interp, const char *str, CallFrame **framePtrPtr); /* 32 */
-    void (*reserved33)(void);
-    int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */
-    void (*reserved35)(void);
-    void (*reserved36)(void);
-    int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName); /* 37 */
-    int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */
-    TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */
-    int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */
-    Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */
-    CONST86 char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */
-    void (*reserved43)(void);
-    int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr); /* 44 */
-    int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */
-    int (*tclInExit) (void); /* 46 */
-    void (*reserved47)(void);
-    void (*reserved48)(void);
-    void (*reserved49)(void);
-    void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */
-    int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */
-    void (*reserved52)(void);
-    int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */
-    int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 54 */
-    Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */
-    void (*reserved56)(void);
-    void (*reserved57)(void);
-    Var * (*tclLookupVar) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, const char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */
-    void (*reserved59)(void);
-    int (*tclNeedSpace) (const char *start, const char *end); /* 60 */
-    Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */
-    int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */
-    int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 63 */
-    int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 64 */
-    void (*reserved65)(void);
-    void (*reserved66)(void);
-    void (*reserved67)(void);
-    void (*reserved68)(void);
-    char * (*tclpAlloc) (unsigned int size); /* 69 */
-    void (*reserved70)(void);
-    void (*reserved71)(void);
-    void (*reserved72)(void);
-    void (*reserved73)(void);
-    void (*tclpFree) (char *ptr); /* 74 */
-    unsigned long (*tclpGetClicks) (void); /* 75 */
-    unsigned long (*tclpGetSeconds) (void); /* 76 */
-    void (*tclpGetTime) (Tcl_Time *time); /* 77 */
-    void (*reserved78)(void);
-    void (*reserved79)(void);
-    void (*reserved80)(void);
-    char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */
-    void (*reserved82)(void);
-    void (*reserved83)(void);
-    void (*reserved84)(void);
-    void (*reserved85)(void);
-    void (*reserved86)(void);
-    void (*reserved87)(void);
-    char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *name1, const char *name2, int flags); /* 88 */
-    int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */
-    void (*reserved90)(void);
-    void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */
-    int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName); /* 92 */
-    void (*tclProcDeleteProc) (ClientData clientData); /* 93 */
-    void (*reserved94)(void);
-    void (*reserved95)(void);
-    int (*tclRenameCommand) (Tcl_Interp *interp, const char *oldName, const char *newName); /* 96 */
-    void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */
-    int (*tclServiceIdle) (void); /* 98 */
-    void (*reserved99)(void);
-    void (*reserved100)(void);
-    CONST86 char * (*tclSetPreInitScript) (const char *string); /* 101 */
-    void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */
-    int (*tclSockGetPort) (Tcl_Interp *interp, const char *str, const char *proto, int *portPtr); /* 103 */
-    int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */
-    void (*reserved105)(void);
-    void (*reserved106)(void);
-    void (*reserved107)(void);
-    void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */
-    int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */
-    int (*tclSockMinimumBuffers) (void *sock, int size); /* 110 */
-    void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */
-    int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */
-    Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */
-    void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */
-    int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 115 */
-    Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */
-    Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */
-    int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolverInfo *resInfo); /* 118 */
-    int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */
-    Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */
-    int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 121 */
-    Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */
-    void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */
-    Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */
-    Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */
-    void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */
-    int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 127 */
-    void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */
-    int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */
-    int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, const char *name); /* 130 */
-    void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */
-    int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */
-    struct tm * (*tclpGetDate) (const time_t *time, int useGMT); /* 133 */
-    void (*reserved134)(void);
-    void (*reserved135)(void);
-    void (*reserved136)(void);
-    void (*reserved137)(void);
-    CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr); /* 138 */
-    void (*reserved139)(void);
-    void (*reserved140)(void);
-    CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */
-    int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */
-    int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */
-    void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */
-    const struct AuxDataType * (*tclGetAuxDataType) (const char *typeName); /* 145 */
-    TclHandle (*tclHandleCreate) (void *ptr); /* 146 */
-    void (*tclHandleFree) (TclHandle handle); /* 147 */
-    TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */
-    void (*tclHandleRelease) (TclHandle handle); /* 149 */
-    int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */
-    void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */
-    void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */
-    Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */
-    void (*reserved154)(void);
-    void (*reserved155)(void);
-    void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status); /* 156 */
-    Var * (*tclVarTraceExists) (Tcl_Interp *interp, const char *varName); /* 157 */
-    void (*tclSetStartupScriptFileName) (const char *filename); /* 158 */
-    const char * (*tclGetStartupScriptFileName) (void); /* 159 */
-    void (*reserved160)(void);
-    int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */
-    void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */
-    const void * (*tclGetInstructionTable) (void); /* 163 */
-    void (*tclExpandCodeArray) (void *envPtr); /* 164 */
-    void (*tclpSetInitialEncodings) (void); /* 165 */
-    int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */
-    void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */
-    Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */
-    int (*tclpUtfNcmp2) (const char *s1, const char *s2, unsigned long n); /* 169 */
-    int (*tclCheckInterpTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 170 */
-    int (*tclCheckExecutionTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 171 */
-    int (*tclInThreadExit) (void); /* 172 */
-    int (*tclUniCharMatch) (const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */
-    void (*reserved174)(void);
-    int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg); /* 175 */
-    void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */
-    void (*tclVarErrMsg) (Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason); /* 177 */
-    void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, const char *encodingName); /* 178 */
-    Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingNamePtr); /* 179 */
-    void (*reserved180)(void);
-    void (*reserved181)(void);
-    struct tm * (*tclpLocaltime) (const time_t *clock); /* 182 */
-    struct tm * (*tclpGmtime) (const time_t *clock); /* 183 */
-    void (*reserved184)(void);
-    void (*reserved185)(void);
-    void (*reserved186)(void);
-    void (*reserved187)(void);
-    void (*reserved188)(void);
-    void (*reserved189)(void);
-    void (*reserved190)(void);
-    void (*reserved191)(void);
-    void (*reserved192)(void);
-    void (*reserved193)(void);
-    void (*reserved194)(void);
-    void (*reserved195)(void);
-    void (*reserved196)(void);
-    void (*reserved197)(void);
-    int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */
-    void (*reserved199)(void);
-    int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */
-    int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */
-    int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */
-    int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */
-    int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */
-    int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */
-    int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */
-    int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */
-    Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */
-    void (*reserved209)(void);
-    void (*reserved210)(void);
-    void (*reserved211)(void);
-    void (*tclpFindExecutable) (const char *argv0); /* 212 */
-    Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */
-    void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */
-    void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */
-    void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */
-    int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */
-    void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */
-    void (*reserved219)(void);
-    void (*reserved220)(void);
-    void (*reserved221)(void);
-    void (*reserved222)(void);
-    void (*reserved223)(void);
-    TclPlatformType * (*tclGetPlatform) (void); /* 224 */
-    Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags); /* 225 */
-    int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */
-    void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */
-    void (*reserved228)(void);
-    int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, const char *myName, int myFlags, int index); /* 229 */
-    Var * (*tclObjLookupVar) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, const char *part2, int flags, const char *msg, const int createPart1, const int createPart2, Var **arrayPtrPtr); /* 230 */
-    int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */
-    int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 232 */
-    void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */
-    Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, const char *key, int *newPtr); /* 234 */
-    void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */
-    void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */
-    int (*tclResetCancellation) (Tcl_Interp *interp, int force); /* 237 */
-    int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 238 */
-    int (*tclNRInterpProcCore) (Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc); /* 239 */
-    int (*tclNRRunCallbacks) (Tcl_Interp *interp, int result, struct NRE_callback *rootPtr); /* 240 */
-    int (*tclNREvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 241 */
-    int (*tclNREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr); /* 242 */
-    void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */
-    Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace *nsPtr); /* 244 */
-    Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace *nsPtr); /* 245 */
-    int (*tclInitRewriteEnsemble) (Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv); /* 246 */
-    void (*tclResetRewriteEnsemble) (Tcl_Interp *interp, int isRootEnsemble); /* 247 */
-    int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); /* 248 */
-    char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */
-    void (*tclSetSlaveCancelFlags) (Tcl_Interp *interp, int flags, int force); /* 250 */
-    int (*tclRegisterLiteral) (void *envPtr, char *bytes, int length, int flags); /* 251 */
-} TclIntStubs;
-
-extern const TclIntStubs *tclIntStubsPtr;
-
-#ifdef __cplusplus
-}
-#endif
-
-#if defined(USE_TCL_STUBS)
-
-/*
- * Inline function declarations:
- */
-
-/* Slot 0 is reserved */
-/* Slot 1 is reserved */
-/* Slot 2 is reserved */
-#define TclAllocateFreeObjects \
-	(tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
-/* Slot 4 is reserved */
-#define TclCleanupChildren \
-	(tclIntStubsPtr->tclCleanupChildren) /* 5 */
-#define TclCleanupCommand \
-	(tclIntStubsPtr->tclCleanupCommand) /* 6 */
-#define TclCopyAndCollapse \
-	(tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
-#define TclCopyChannelOld \
-	(tclIntStubsPtr->tclCopyChannelOld) /* 8 */
-#define TclCreatePipeline \
-	(tclIntStubsPtr->tclCreatePipeline) /* 9 */
-#define TclCreateProc \
-	(tclIntStubsPtr->tclCreateProc) /* 10 */
-#define TclDeleteCompiledLocalVars \
-	(tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
-#define TclDeleteVars \
-	(tclIntStubsPtr->tclDeleteVars) /* 12 */
-/* Slot 13 is reserved */
-#define TclDumpMemoryInfo \
-	(tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
-/* Slot 15 is reserved */
-#define TclExprFloatError \
-	(tclIntStubsPtr->tclExprFloatError) /* 16 */
-/* Slot 17 is reserved */
-/* Slot 18 is reserved */
-/* Slot 19 is reserved */
-/* Slot 20 is reserved */
-/* Slot 21 is reserved */
-#define TclFindElement \
-	(tclIntStubsPtr->tclFindElement) /* 22 */
-#define TclFindProc \
-	(tclIntStubsPtr->tclFindProc) /* 23 */
-#define TclFormatInt \
-	(tclIntStubsPtr->tclFormatInt) /* 24 */
-#define TclFreePackageInfo \
-	(tclIntStubsPtr->tclFreePackageInfo) /* 25 */
-/* Slot 26 is reserved */
-/* Slot 27 is reserved */
-#define TclpGetDefaultStdChannel \
-	(tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
-/* Slot 29 is reserved */
-/* Slot 30 is reserved */
-#define TclGetExtension \
-	(tclIntStubsPtr->tclGetExtension) /* 31 */
-#define TclGetFrame \
-	(tclIntStubsPtr->tclGetFrame) /* 32 */
-/* Slot 33 is reserved */
-#define TclGetIntForIndex \
-	(tclIntStubsPtr->tclGetIntForIndex) /* 34 */
-/* Slot 35 is reserved */
-/* Slot 36 is reserved */
-#define TclGetLoadedPackages \
-	(tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
-#define TclGetNamespaceForQualName \
-	(tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
-#define TclGetObjInterpProc \
-	(tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
-#define TclGetOpenMode \
-	(tclIntStubsPtr->tclGetOpenMode) /* 40 */
-#define TclGetOriginalCommand \
-	(tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
-#define TclpGetUserHome \
-	(tclIntStubsPtr->tclpGetUserHome) /* 42 */
-/* Slot 43 is reserved */
-#define TclGuessPackageName \
-	(tclIntStubsPtr->tclGuessPackageName) /* 44 */
-#define TclHideUnsafeCommands \
-	(tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
-#define TclInExit \
-	(tclIntStubsPtr->tclInExit) /* 46 */
-/* Slot 47 is reserved */
-/* Slot 48 is reserved */
-/* Slot 49 is reserved */
-#define TclInitCompiledLocals \
-	(tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
-#define TclInterpInit \
-	(tclIntStubsPtr->tclInterpInit) /* 51 */
-/* Slot 52 is reserved */
-#define TclInvokeObjectCommand \
-	(tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
-#define TclInvokeStringCommand \
-	(tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
-#define TclIsProc \
-	(tclIntStubsPtr->tclIsProc) /* 55 */
-/* Slot 56 is reserved */
-/* Slot 57 is reserved */
-#define TclLookupVar \
-	(tclIntStubsPtr->tclLookupVar) /* 58 */
-/* Slot 59 is reserved */
-#define TclNeedSpace \
-	(tclIntStubsPtr->tclNeedSpace) /* 60 */
-#define TclNewProcBodyObj \
-	(tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
-#define TclObjCommandComplete \
-	(tclIntStubsPtr->tclObjCommandComplete) /* 62 */
-#define TclObjInterpProc \
-	(tclIntStubsPtr->tclObjInterpProc) /* 63 */
-#define TclObjInvoke \
-	(tclIntStubsPtr->tclObjInvoke) /* 64 */
-/* Slot 65 is reserved */
-/* Slot 66 is reserved */
-/* Slot 67 is reserved */
-/* Slot 68 is reserved */
-#define TclpAlloc \
-	(tclIntStubsPtr->tclpAlloc) /* 69 */
-/* Slot 70 is reserved */
-/* Slot 71 is reserved */
-/* Slot 72 is reserved */
-/* Slot 73 is reserved */
-#define TclpFree \
-	(tclIntStubsPtr->tclpFree) /* 74 */
-#define TclpGetClicks \
-	(tclIntStubsPtr->tclpGetClicks) /* 75 */
-#define TclpGetSeconds \
-	(tclIntStubsPtr->tclpGetSeconds) /* 76 */
-#define TclpGetTime \
-	(tclIntStubsPtr->tclpGetTime) /* 77 */
-/* Slot 78 is reserved */
-/* Slot 79 is reserved */
-/* Slot 80 is reserved */
-#define TclpRealloc \
-	(tclIntStubsPtr->tclpRealloc) /* 81 */
-/* Slot 82 is reserved */
-/* Slot 83 is reserved */
-/* Slot 84 is reserved */
-/* Slot 85 is reserved */
-/* Slot 86 is reserved */
-/* Slot 87 is reserved */
-#define TclPrecTraceProc \
-	(tclIntStubsPtr->tclPrecTraceProc) /* 88 */
-#define TclPreventAliasLoop \
-	(tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
-/* Slot 90 is reserved */
-#define TclProcCleanupProc \
-	(tclIntStubsPtr->tclProcCleanupProc) /* 91 */
-#define TclProcCompileProc \
-	(tclIntStubsPtr->tclProcCompileProc) /* 92 */
-#define TclProcDeleteProc \
-	(tclIntStubsPtr->tclProcDeleteProc) /* 93 */
-/* Slot 94 is reserved */
-/* Slot 95 is reserved */
-#define TclRenameCommand \
-	(tclIntStubsPtr->tclRenameCommand) /* 96 */
-#define TclResetShadowedCmdRefs \
-	(tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
-#define TclServiceIdle \
-	(tclIntStubsPtr->tclServiceIdle) /* 98 */
-/* Slot 99 is reserved */
-/* Slot 100 is reserved */
-#define TclSetPreInitScript \
-	(tclIntStubsPtr->tclSetPreInitScript) /* 101 */
-#define TclSetupEnv \
-	(tclIntStubsPtr->tclSetupEnv) /* 102 */
-#define TclSockGetPort \
-	(tclIntStubsPtr->tclSockGetPort) /* 103 */
-#define TclSockMinimumBuffersOld \
-	(tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */
-/* Slot 105 is reserved */
-/* Slot 106 is reserved */
-/* Slot 107 is reserved */
-#define TclTeardownNamespace \
-	(tclIntStubsPtr->tclTeardownNamespace) /* 108 */
-#define TclUpdateReturnInfo \
-	(tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
-#define TclSockMinimumBuffers \
-	(tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */
-#define Tcl_AddInterpResolvers \
-	(tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
-#define Tcl_AppendExportList \
-	(tclIntStubsPtr->tcl_AppendExportList) /* 112 */
-#define Tcl_CreateNamespace \
-	(tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
-#define Tcl_DeleteNamespace \
-	(tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
-#define Tcl_Export \
-	(tclIntStubsPtr->tcl_Export) /* 115 */
-#define Tcl_FindCommand \
-	(tclIntStubsPtr->tcl_FindCommand) /* 116 */
-#define Tcl_FindNamespace \
-	(tclIntStubsPtr->tcl_FindNamespace) /* 117 */
-#define Tcl_GetInterpResolvers \
-	(tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
-#define Tcl_GetNamespaceResolvers \
-	(tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
-#define Tcl_FindNamespaceVar \
-	(tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
-#define Tcl_ForgetImport \
-	(tclIntStubsPtr->tcl_ForgetImport) /* 121 */
-#define Tcl_GetCommandFromObj \
-	(tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
-#define Tcl_GetCommandFullName \
-	(tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
-#define Tcl_GetCurrentNamespace \
-	(tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
-#define Tcl_GetGlobalNamespace \
-	(tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
-#define Tcl_GetVariableFullName \
-	(tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
-#define Tcl_Import \
-	(tclIntStubsPtr->tcl_Import) /* 127 */
-#define Tcl_PopCallFrame \
-	(tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
-#define Tcl_PushCallFrame \
-	(tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
-#define Tcl_RemoveInterpResolvers \
-	(tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
-#define Tcl_SetNamespaceResolvers \
-	(tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
-#define TclpHasSockets \
-	(tclIntStubsPtr->tclpHasSockets) /* 132 */
-#define TclpGetDate \
-	(tclIntStubsPtr->tclpGetDate) /* 133 */
-/* Slot 134 is reserved */
-/* Slot 135 is reserved */
-/* Slot 136 is reserved */
-/* Slot 137 is reserved */
-#define TclGetEnv \
-	(tclIntStubsPtr->tclGetEnv) /* 138 */
-/* Slot 139 is reserved */
-/* Slot 140 is reserved */
-#define TclpGetCwd \
-	(tclIntStubsPtr->tclpGetCwd) /* 141 */
-#define TclSetByteCodeFromAny \
-	(tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
-#define TclAddLiteralObj \
-	(tclIntStubsPtr->tclAddLiteralObj) /* 143 */
-#define TclHideLiteral \
-	(tclIntStubsPtr->tclHideLiteral) /* 144 */
-#define TclGetAuxDataType \
-	(tclIntStubsPtr->tclGetAuxDataType) /* 145 */
-#define TclHandleCreate \
-	(tclIntStubsPtr->tclHandleCreate) /* 146 */
-#define TclHandleFree \
-	(tclIntStubsPtr->tclHandleFree) /* 147 */
-#define TclHandlePreserve \
-	(tclIntStubsPtr->tclHandlePreserve) /* 148 */
-#define TclHandleRelease \
-	(tclIntStubsPtr->tclHandleRelease) /* 149 */
-#define TclRegAbout \
-	(tclIntStubsPtr->tclRegAbout) /* 150 */
-#define TclRegExpRangeUniChar \
-	(tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
-#define TclSetLibraryPath \
-	(tclIntStubsPtr->tclSetLibraryPath) /* 152 */
-#define TclGetLibraryPath \
-	(tclIntStubsPtr->tclGetLibraryPath) /* 153 */
-/* Slot 154 is reserved */
-/* Slot 155 is reserved */
-#define TclRegError \
-	(tclIntStubsPtr->tclRegError) /* 156 */
-#define TclVarTraceExists \
-	(tclIntStubsPtr->tclVarTraceExists) /* 157 */
-#define TclSetStartupScriptFileName \
-	(tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
-#define TclGetStartupScriptFileName \
-	(tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
-/* Slot 160 is reserved */
-#define TclChannelTransform \
-	(tclIntStubsPtr->tclChannelTransform) /* 161 */
-#define TclChannelEventScriptInvoker \
-	(tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
-#define TclGetInstructionTable \
-	(tclIntStubsPtr->tclGetInstructionTable) /* 163 */
-#define TclExpandCodeArray \
-	(tclIntStubsPtr->tclExpandCodeArray) /* 164 */
-#define TclpSetInitialEncodings \
-	(tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
-#define TclListObjSetElement \
-	(tclIntStubsPtr->tclListObjSetElement) /* 166 */
-#define TclSetStartupScriptPath \
-	(tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
-#define TclGetStartupScriptPath \
-	(tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
-#define TclpUtfNcmp2 \
-	(tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
-#define TclCheckInterpTraces \
-	(tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
-#define TclCheckExecutionTraces \
-	(tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
-#define TclInThreadExit \
-	(tclIntStubsPtr->tclInThreadExit) /* 172 */
-#define TclUniCharMatch \
-	(tclIntStubsPtr->tclUniCharMatch) /* 173 */
-/* Slot 174 is reserved */
-#define TclCallVarTraces \
-	(tclIntStubsPtr->tclCallVarTraces) /* 175 */
-#define TclCleanupVar \
-	(tclIntStubsPtr->tclCleanupVar) /* 176 */
-#define TclVarErrMsg \
-	(tclIntStubsPtr->tclVarErrMsg) /* 177 */
-#define Tcl_SetStartupScript \
-	(tclIntStubsPtr->tcl_SetStartupScript) /* 178 */
-#define Tcl_GetStartupScript \
-	(tclIntStubsPtr->tcl_GetStartupScript) /* 179 */
-/* Slot 180 is reserved */
-/* Slot 181 is reserved */
-#define TclpLocaltime \
-	(tclIntStubsPtr->tclpLocaltime) /* 182 */
-#define TclpGmtime \
-	(tclIntStubsPtr->tclpGmtime) /* 183 */
-/* Slot 184 is reserved */
-/* Slot 185 is reserved */
-/* Slot 186 is reserved */
-/* Slot 187 is reserved */
-/* Slot 188 is reserved */
-/* Slot 189 is reserved */
-/* Slot 190 is reserved */
-/* Slot 191 is reserved */
-/* Slot 192 is reserved */
-/* Slot 193 is reserved */
-/* Slot 194 is reserved */
-/* Slot 195 is reserved */
-/* Slot 196 is reserved */
-/* Slot 197 is reserved */
-#define TclObjGetFrame \
-	(tclIntStubsPtr->tclObjGetFrame) /* 198 */
-/* Slot 199 is reserved */
-#define TclpObjRemoveDirectory \
-	(tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */
-#define TclpObjCopyDirectory \
-	(tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */
-#define TclpObjCreateDirectory \
-	(tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */
-#define TclpObjDeleteFile \
-	(tclIntStubsPtr->tclpObjDeleteFile) /* 203 */
-#define TclpObjCopyFile \
-	(tclIntStubsPtr->tclpObjCopyFile) /* 204 */
-#define TclpObjRenameFile \
-	(tclIntStubsPtr->tclpObjRenameFile) /* 205 */
-#define TclpObjStat \
-	(tclIntStubsPtr->tclpObjStat) /* 206 */
-#define TclpObjAccess \
-	(tclIntStubsPtr->tclpObjAccess) /* 207 */
-#define TclpOpenFileChannel \
-	(tclIntStubsPtr->tclpOpenFileChannel) /* 208 */
-/* Slot 209 is reserved */
-/* Slot 210 is reserved */
-/* Slot 211 is reserved */
-#define TclpFindExecutable \
-	(tclIntStubsPtr->tclpFindExecutable) /* 212 */
-#define TclGetObjNameOfExecutable \
-	(tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */
-#define TclSetObjNameOfExecutable \
-	(tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */
-#define TclStackAlloc \
-	(tclIntStubsPtr->tclStackAlloc) /* 215 */
-#define TclStackFree \
-	(tclIntStubsPtr->tclStackFree) /* 216 */
-#define TclPushStackFrame \
-	(tclIntStubsPtr->tclPushStackFrame) /* 217 */
-#define TclPopStackFrame \
-	(tclIntStubsPtr->tclPopStackFrame) /* 218 */
-/* Slot 219 is reserved */
-/* Slot 220 is reserved */
-/* Slot 221 is reserved */
-/* Slot 222 is reserved */
-/* Slot 223 is reserved */
-#define TclGetPlatform \
-	(tclIntStubsPtr->tclGetPlatform) /* 224 */
-#define TclTraceDictPath \
-	(tclIntStubsPtr->tclTraceDictPath) /* 225 */
-#define TclObjBeingDeleted \
-	(tclIntStubsPtr->tclObjBeingDeleted) /* 226 */
-#define TclSetNsPath \
-	(tclIntStubsPtr->tclSetNsPath) /* 227 */
-/* Slot 228 is reserved */
-#define TclPtrMakeUpvar \
-	(tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */
-#define TclObjLookupVar \
-	(tclIntStubsPtr->tclObjLookupVar) /* 230 */
-#define TclGetNamespaceFromObj \
-	(tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */
-#define TclEvalObjEx \
-	(tclIntStubsPtr->tclEvalObjEx) /* 232 */
-#define TclGetSrcInfoForPc \
-	(tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */
-#define TclVarHashCreateVar \
-	(tclIntStubsPtr->tclVarHashCreateVar) /* 234 */
-#define TclInitVarHashTable \
-	(tclIntStubsPtr->tclInitVarHashTable) /* 235 */
-#define TclBackgroundException \
-	(tclIntStubsPtr->tclBackgroundException) /* 236 */
-#define TclResetCancellation \
-	(tclIntStubsPtr->tclResetCancellation) /* 237 */
-#define TclNRInterpProc \
-	(tclIntStubsPtr->tclNRInterpProc) /* 238 */
-#define TclNRInterpProcCore \
-	(tclIntStubsPtr->tclNRInterpProcCore) /* 239 */
-#define TclNRRunCallbacks \
-	(tclIntStubsPtr->tclNRRunCallbacks) /* 240 */
-#define TclNREvalObjEx \
-	(tclIntStubsPtr->tclNREvalObjEx) /* 241 */
-#define TclNREvalObjv \
-	(tclIntStubsPtr->tclNREvalObjv) /* 242 */
-#define TclDbDumpActiveObjects \
-	(tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */
-#define TclGetNamespaceChildTable \
-	(tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */
-#define TclGetNamespaceCommandTable \
-	(tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */
-#define TclInitRewriteEnsemble \
-	(tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */
-#define TclResetRewriteEnsemble \
-	(tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */
-#define TclCopyChannel \
-	(tclIntStubsPtr->tclCopyChannel) /* 248 */
-#define TclDoubleDigits \
-	(tclIntStubsPtr->tclDoubleDigits) /* 249 */
-#define TclSetSlaveCancelFlags \
-	(tclIntStubsPtr->tclSetSlaveCancelFlags) /* 250 */
-#define TclRegisterLiteral \
-	(tclIntStubsPtr->tclRegisterLiteral) /* 251 */
-
-#endif /* defined(USE_TCL_STUBS) */
-
-/* !END!: Do not edit above this line. */
-
-#undef TCL_STORAGE_CLASS
-#define TCL_STORAGE_CLASS DLLIMPORT
-
-#undef TclGetStartupScriptFileName
-#undef TclSetStartupScriptFileName
-#undef TclGetStartupScriptPath
-#undef TclSetStartupScriptPath
-#undef TclBackgroundException
-
-#if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED)
-#   undef Tcl_SetStartupScript
-#   define Tcl_SetStartupScript \
-	    (tclStubsPtr->tcl_SetStartupScript) /* 622 */
-#   undef Tcl_GetStartupScript
-#   define Tcl_GetStartupScript \
-	    (tclStubsPtr->tcl_GetStartupScript) /* 623 */
-#   undef Tcl_CreateNamespace
-#   define Tcl_CreateNamespace \
-	   (tclStubsPtr->tcl_CreateNamespace) /* 506 */
-#   undef Tcl_DeleteNamespace
-#   define Tcl_DeleteNamespace \
-	   (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
-#   undef Tcl_AppendExportList
-#   define Tcl_AppendExportList \
-	   (tclStubsPtr->tcl_AppendExportList) /* 508 */
-#   undef Tcl_Export
-#   define Tcl_Export \
-	   (tclStubsPtr->tcl_Export) /* 509 */
-#   undef Tcl_Import
-#   define Tcl_Import \
-	   (tclStubsPtr->tcl_Import) /* 510 */
-#   undef Tcl_ForgetImport
-#   define Tcl_ForgetImport \
-	   (tclStubsPtr->tcl_ForgetImport) /* 511 */
-#   undef Tcl_GetCurrentNamespace
-#   define Tcl_GetCurrentNamespace \
-	   (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
-#   undef Tcl_GetGlobalNamespace
-#   define Tcl_GetGlobalNamespace \
-	   (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
-#   undef Tcl_FindNamespace
-#   define Tcl_FindNamespace \
-	   (tclStubsPtr->tcl_FindNamespace) /* 514 */
-#   undef Tcl_FindCommand
-#   define Tcl_FindCommand \
-	   (tclStubsPtr->tcl_FindCommand) /* 515 */
-#   undef Tcl_GetCommandFromObj
-#   define Tcl_GetCommandFromObj \
-	   (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
-#   undef Tcl_GetCommandFullName
-#   define Tcl_GetCommandFullName \
-	   (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
-#endif
-
-#undef TclCopyChannelOld
-#undef TclSockMinimumBuffersOld
-
-#endif /* _TCLINTDECLS */