util/src/TclTk/tcl8.6.12/generic/tclIntDecls.h

   1 /*
   2  * tclIntDecls.h --
   3  *
   4  *      This file contains the declarations for all unsupported
   5  *      functions that are exported by the Tcl library.  These
   6  *      interfaces are not guaranteed to remain the same between
   7  *      versions.  Use at your own risk.
   8  *
   9  * Copyright (c) 1998-1999 by Scriptics Corporation.
  10  *
  11  * See the file "license.terms" for information on usage and redistribution
  12  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13  */
  14
  15 #ifndef _TCLINTDECLS
  16 #define _TCLINTDECLS
  17
  18
  19 #undef TCL_STORAGE_CLASS
  20 #ifdef BUILD_tcl
  21 #   define TCL_STORAGE_CLASS DLLEXPORT
  22 #else
  23 #   ifdef USE_TCL_STUBS
  24 #      define TCL_STORAGE_CLASS
  25 #   else
  26 #      define TCL_STORAGE_CLASS DLLIMPORT
  27 #   endif
  28 #endif
  29
  30 /* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */
  31 #undef Tcl_CreateNamespace
  32 #undef Tcl_DeleteNamespace
  33 #undef Tcl_AppendExportList
  34 #undef Tcl_Export
  35 #undef Tcl_Import
  36 #undef Tcl_ForgetImport
  37 #undef Tcl_GetCurrentNamespace
  38 #undef Tcl_GetGlobalNamespace
  39 #undef Tcl_FindNamespace
  40 #undef Tcl_FindCommand
  41 #undef Tcl_GetCommandFromObj
  42 #undef Tcl_GetCommandFullName
  43 #undef Tcl_SetStartupScript
  44 #undef Tcl_GetStartupScript
  45
  46 /*
  47  * WARNING: This file is automatically generated by the tools/genStubs.tcl
  48  * script.  Any modifications to the function declarations below should be made
  49  * in the generic/tclInt.decls script.
  50  */
  51
  52 /* !BEGIN!: Do not edit below this line. */
  53
  54 #ifdef __cplusplus
  55 extern "C" {
  56 #endif
  57
  58 /*
  59  * Exported function declarations:
  60  */
  61
  62 /* Slot 0 is reserved */
  63 /* Slot 1 is reserved */
  64 /* Slot 2 is reserved */
  65 /* 3 */
  66 EXTERN void             TclAllocateFreeObjects(void);
  67 /* Slot 4 is reserved */
  68 /* 5 */
  69 EXTERN int              TclCleanupChildren(Tcl_Interp *interp, int numPids,
  70                                 Tcl_Pid *pidPtr, Tcl_Channel errorChan);
  71 /* 6 */
  72 EXTERN void             TclCleanupCommand(Command *cmdPtr);
  73 /* 7 */
  74 EXTERN int              TclCopyAndCollapse(int count, const char *src,
  75                                 char *dst);
  76 /* 8 */
  77 EXTERN int              TclCopyChannelOld(Tcl_Interp *interp,
  78                                 Tcl_Channel inChan, Tcl_Channel outChan,
  79                                 int toRead, Tcl_Obj *cmdPtr);
  80 /* 9 */
  81 EXTERN int              TclCreatePipeline(Tcl_Interp *interp, int argc,
  82                                 const char **argv, Tcl_Pid **pidArrayPtr,
  83                                 TclFile *inPipePtr, TclFile *outPipePtr,
  84                                 TclFile *errFilePtr);
  85 /* 10 */
  86 EXTERN int              TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
  87                                 const char *procName, Tcl_Obj *argsPtr,
  88                                 Tcl_Obj *bodyPtr, Proc **procPtrPtr);
  89 /* 11 */
  90 EXTERN void             TclDeleteCompiledLocalVars(Interp *iPtr,
  91                                 CallFrame *framePtr);
  92 /* 12 */
  93 EXTERN void             TclDeleteVars(Interp *iPtr,
  94                                 TclVarHashTable *tablePtr);
  95 /* Slot 13 is reserved */
  96 /* 14 */
  97 EXTERN int              TclDumpMemoryInfo(ClientData clientData, int flags);
  98 /* Slot 15 is reserved */
  99 /* 16 */
 100 EXTERN void             TclExprFloatError(Tcl_Interp *interp, double value);
 101 /* Slot 17 is reserved */
 102 /* Slot 18 is reserved */
 103 /* Slot 19 is reserved */
 104 /* Slot 20 is reserved */
 105 /* Slot 21 is reserved */
 106 /* 22 */
 107 EXTERN int              TclFindElement(Tcl_Interp *interp,
 108                                 const char *listStr, int listLength,
 109                                 const char **elementPtr,
 110                                 const char **nextPtr, int *sizePtr,
 111                                 int *bracePtr);
 112 /* 23 */
 113 EXTERN Proc *           TclFindProc(Interp *iPtr, const char *procName);
 114 /* 24 */
 115 EXTERN int              TclFormatInt(char *buffer, long n);
 116 /* 25 */
 117 EXTERN void             TclFreePackageInfo(Interp *iPtr);
 118 /* Slot 26 is reserved */
 119 /* Slot 27 is reserved */
 120 /* 28 */
 121 EXTERN Tcl_Channel      TclpGetDefaultStdChannel(int type);
 122 /* Slot 29 is reserved */
 123 /* Slot 30 is reserved */
 124 /* 31 */
 125 EXTERN const char *     TclGetExtension(const char *name);
 126 /* 32 */
 127 EXTERN int              TclGetFrame(Tcl_Interp *interp, const char *str,
 128                                 CallFrame **framePtrPtr);
 129 /* Slot 33 is reserved */
 130 /* 34 */
 131 EXTERN int              TclGetIntForIndex(Tcl_Interp *interp,
 132                                 Tcl_Obj *objPtr, int endValue, int *indexPtr);
 133 /* Slot 35 is reserved */
 134 /* Slot 36 is reserved */
 135 /* 37 */
 136 EXTERN int              TclGetLoadedPackages(Tcl_Interp *interp,
 137                                 const char *targetName);
 138 /* 38 */
 139 EXTERN int              TclGetNamespaceForQualName(Tcl_Interp *interp,
 140                                 const char *qualName, Namespace *cxtNsPtr,
 141                                 int flags, Namespace **nsPtrPtr,
 142                                 Namespace **altNsPtrPtr,
 143                                 Namespace **actualCxtPtrPtr,
 144                                 const char **simpleNamePtr);
 145 /* 39 */
 146 EXTERN TclObjCmdProcType TclGetObjInterpProc(void);
 147 /* 40 */
 148 EXTERN int              TclGetOpenMode(Tcl_Interp *interp, const char *str,
 149                                 int *seekFlagPtr);
 150 /* 41 */
 151 EXTERN Tcl_Command      TclGetOriginalCommand(Tcl_Command command);
 152 /* 42 */
 153 EXTERN CONST86 char *   TclpGetUserHome(const char *name,
 154                                 Tcl_DString *bufferPtr);
 155 /* Slot 43 is reserved */
 156 /* 44 */
 157 EXTERN int              TclGuessPackageName(const char *fileName,
 158                                 Tcl_DString *bufPtr);
 159 /* 45 */
 160 EXTERN int              TclHideUnsafeCommands(Tcl_Interp *interp);
 161 /* 46 */
 162 EXTERN int              TclInExit(void);
 163 /* Slot 47 is reserved */
 164 /* Slot 48 is reserved */
 165 /* Slot 49 is reserved */
 166 /* 50 */
 167 EXTERN void             TclInitCompiledLocals(Tcl_Interp *interp,
 168                                 CallFrame *framePtr, Namespace *nsPtr);
 169 /* 51 */
 170 EXTERN int              TclInterpInit(Tcl_Interp *interp);
 171 /* Slot 52 is reserved */
 172 /* 53 */
 173 EXTERN int              TclInvokeObjectCommand(ClientData clientData,
 174                                 Tcl_Interp *interp, int argc,
 175                                 CONST84 char **argv);
 176 /* 54 */
 177 EXTERN int              TclInvokeStringCommand(ClientData clientData,
 178                                 Tcl_Interp *interp, int objc,
 179                                 Tcl_Obj *const objv[]);
 180 /* 55 */
 181 EXTERN Proc *           TclIsProc(Command *cmdPtr);
 182 /* Slot 56 is reserved */
 183 /* Slot 57 is reserved */
 184 /* 58 */
 185 EXTERN Var *            TclLookupVar(Tcl_Interp *interp, const char *part1,
 186                                 const char *part2, int flags,
 187                                 const char *msg, int createPart1,
 188                                 int createPart2, Var **arrayPtrPtr);
 189 /* Slot 59 is reserved */
 190 /* 60 */
 191 EXTERN int              TclNeedSpace(const char *start, const char *end);
 192 /* 61 */
 193 EXTERN Tcl_Obj *        TclNewProcBodyObj(Proc *procPtr);
 194 /* 62 */
 195 EXTERN int              TclObjCommandComplete(Tcl_Obj *cmdPtr);
 196 /* 63 */
 197 EXTERN int              TclObjInterpProc(ClientData clientData,
 198                                 Tcl_Interp *interp, int objc,
 199                                 Tcl_Obj *const objv[]);
 200 /* 64 */
 201 EXTERN int              TclObjInvoke(Tcl_Interp *interp, int objc,
 202                                 Tcl_Obj *const objv[], int flags);
 203 /* Slot 65 is reserved */
 204 /* Slot 66 is reserved */
 205 /* Slot 67 is reserved */
 206 /* Slot 68 is reserved */
 207 /* 69 */
 208 EXTERN char *           TclpAlloc(unsigned int size);
 209 /* Slot 70 is reserved */
 210 /* Slot 71 is reserved */
 211 /* Slot 72 is reserved */
 212 /* Slot 73 is reserved */
 213 /* 74 */
 214 EXTERN void             TclpFree(char *ptr);
 215 /* 75 */
 216 EXTERN unsigned long    TclpGetClicks(void);
 217 /* 76 */
 218 EXTERN unsigned long    TclpGetSeconds(void);
 219 /* 77 */
 220 EXTERN void             TclpGetTime(Tcl_Time *time);
 221 /* Slot 78 is reserved */
 222 /* Slot 79 is reserved */
 223 /* Slot 80 is reserved */
 224 /* 81 */
 225 EXTERN char *           TclpRealloc(char *ptr, unsigned int size);
 226 /* Slot 82 is reserved */
 227 /* Slot 83 is reserved */
 228 /* Slot 84 is reserved */
 229 /* Slot 85 is reserved */
 230 /* Slot 86 is reserved */
 231 /* Slot 87 is reserved */
 232 /* 88 */
 233 EXTERN char *           TclPrecTraceProc(ClientData clientData,
 234                                 Tcl_Interp *interp, const char *name1,
 235                                 const char *name2, int flags);
 236 /* 89 */
 237 EXTERN int              TclPreventAliasLoop(Tcl_Interp *interp,
 238                                 Tcl_Interp *cmdInterp, Tcl_Command cmd);
 239 /* Slot 90 is reserved */
 240 /* 91 */
 241 EXTERN void             TclProcCleanupProc(Proc *procPtr);
 242 /* 92 */
 243 EXTERN int              TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
 244                                 Tcl_Obj *bodyPtr, Namespace *nsPtr,
 245                                 const char *description,
 246                                 const char *procName);
 247 /* 93 */
 248 EXTERN void             TclProcDeleteProc(ClientData clientData);
 249 /* Slot 94 is reserved */
 250 /* Slot 95 is reserved */
 251 /* 96 */
 252 EXTERN int              TclRenameCommand(Tcl_Interp *interp,
 253                                 const char *oldName, const char *newName);
 254 /* 97 */
 255 EXTERN void             TclResetShadowedCmdRefs(Tcl_Interp *interp,
 256                                 Command *newCmdPtr);
 257 /* 98 */
 258 EXTERN int              TclServiceIdle(void);
 259 /* Slot 99 is reserved */
 260 /* Slot 100 is reserved */
 261 /* 101 */
 262 EXTERN CONST86 char *   TclSetPreInitScript(const char *string);
 263 /* 102 */
 264 EXTERN void             TclSetupEnv(Tcl_Interp *interp);
 265 /* 103 */
 266 EXTERN int              TclSockGetPort(Tcl_Interp *interp, const char *str,
 267                                 const char *proto, int *portPtr);
 268 /* 104 */
 269 EXTERN int              TclSockMinimumBuffersOld(int sock, int size);
 270 /* Slot 105 is reserved */
 271 /* Slot 106 is reserved */
 272 /* Slot 107 is reserved */
 273 /* 108 */
 274 EXTERN void             TclTeardownNamespace(Namespace *nsPtr);
 275 /* 109 */
 276 EXTERN int              TclUpdateReturnInfo(Interp *iPtr);
 277 /* 110 */
 278 EXTERN int              TclSockMinimumBuffers(void *sock, int size);
 279 /* 111 */
 280 EXTERN void             Tcl_AddInterpResolvers(Tcl_Interp *interp,
 281                                 const char *name,
 282                                 Tcl_ResolveCmdProc *cmdProc,
 283                                 Tcl_ResolveVarProc *varProc,
 284                                 Tcl_ResolveCompiledVarProc *compiledVarProc);
 285 /* 112 */
 286 EXTERN int              Tcl_AppendExportList(Tcl_Interp *interp,
 287                                 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
 288 /* 113 */
 289 EXTERN Tcl_Namespace *  Tcl_CreateNamespace(Tcl_Interp *interp,
 290                                 const char *name, ClientData clientData,
 291                                 Tcl_NamespaceDeleteProc *deleteProc);
 292 /* 114 */
 293 EXTERN void             Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
 294 /* 115 */
 295 EXTERN int              Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
 296                                 const char *pattern, int resetListFirst);
 297 /* 116 */
 298 EXTERN Tcl_Command      Tcl_FindCommand(Tcl_Interp *interp, const char *name,
 299                                 Tcl_Namespace *contextNsPtr, int flags);
 300 /* 117 */
 301 EXTERN Tcl_Namespace *  Tcl_FindNamespace(Tcl_Interp *interp,
 302                                 const char *name,
 303                                 Tcl_Namespace *contextNsPtr, int flags);
 304 /* 118 */
 305 EXTERN int              Tcl_GetInterpResolvers(Tcl_Interp *interp,
 306                                 const char *name, Tcl_ResolverInfo *resInfo);
 307 /* 119 */
 308 EXTERN int              Tcl_GetNamespaceResolvers(
 309                                 Tcl_Namespace *namespacePtr,
 310                                 Tcl_ResolverInfo *resInfo);
 311 /* 120 */
 312 EXTERN Tcl_Var          Tcl_FindNamespaceVar(Tcl_Interp *interp,
 313                                 const char *name,
 314                                 Tcl_Namespace *contextNsPtr, int flags);
 315 /* 121 */
 316 EXTERN int              Tcl_ForgetImport(Tcl_Interp *interp,
 317                                 Tcl_Namespace *nsPtr, const char *pattern);
 318 /* 122 */
 319 EXTERN Tcl_Command      Tcl_GetCommandFromObj(Tcl_Interp *interp,
 320                                 Tcl_Obj *objPtr);
 321 /* 123 */
 322 EXTERN void             Tcl_GetCommandFullName(Tcl_Interp *interp,
 323                                 Tcl_Command command, Tcl_Obj *objPtr);
 324 /* 124 */
 325 EXTERN Tcl_Namespace *  Tcl_GetCurrentNamespace(Tcl_Interp *interp);
 326 /* 125 */
 327 EXTERN Tcl_Namespace *  Tcl_GetGlobalNamespace(Tcl_Interp *interp);
 328 /* 126 */
 329 EXTERN void             Tcl_GetVariableFullName(Tcl_Interp *interp,
 330                                 Tcl_Var variable, Tcl_Obj *objPtr);
 331 /* 127 */
 332 EXTERN int              Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
 333                                 const char *pattern, int allowOverwrite);
 334 /* 128 */
 335 EXTERN void             Tcl_PopCallFrame(Tcl_Interp *interp);
 336 /* 129 */
 337 EXTERN int              Tcl_PushCallFrame(Tcl_Interp *interp,
 338                                 Tcl_CallFrame *framePtr,
 339                                 Tcl_Namespace *nsPtr, int isProcCallFrame);
 340 /* 130 */
 341 EXTERN int              Tcl_RemoveInterpResolvers(Tcl_Interp *interp,
 342                                 const char *name);
 343 /* 131 */
 344 EXTERN void             Tcl_SetNamespaceResolvers(
 345                                 Tcl_Namespace *namespacePtr,
 346                                 Tcl_ResolveCmdProc *cmdProc,
 347                                 Tcl_ResolveVarProc *varProc,
 348                                 Tcl_ResolveCompiledVarProc *compiledVarProc);
 349 /* 132 */
 350 EXTERN int              TclpHasSockets(Tcl_Interp *interp);
 351 /* 133 */
 352 EXTERN struct tm *      TclpGetDate(const time_t *time, int useGMT);
 353 /* Slot 134 is reserved */
 354 /* Slot 135 is reserved */
 355 /* Slot 136 is reserved */
 356 /* Slot 137 is reserved */
 357 /* 138 */
 358 EXTERN CONST84_RETURN char * TclGetEnv(const char *name,
 359                                 Tcl_DString *valuePtr);
 360 /* Slot 139 is reserved */
 361 /* Slot 140 is reserved */
 362 /* 141 */
 363 EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp,
 364                                 Tcl_DString *cwdPtr);
 365 /* 142 */
 366 EXTERN int              TclSetByteCodeFromAny(Tcl_Interp *interp,
 367                                 Tcl_Obj *objPtr, CompileHookProc *hookProc,
 368                                 ClientData clientData);
 369 /* 143 */
 370 EXTERN int              TclAddLiteralObj(struct CompileEnv *envPtr,
 371                                 Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
 372 /* 144 */
 373 EXTERN void             TclHideLiteral(Tcl_Interp *interp,
 374                                 struct CompileEnv *envPtr, int index);
 375 /* 145 */
 376 EXTERN const struct AuxDataType * TclGetAuxDataType(const char *typeName);
 377 /* 146 */
 378 EXTERN TclHandle        TclHandleCreate(void *ptr);
 379 /* 147 */
 380 EXTERN void             TclHandleFree(TclHandle handle);
 381 /* 148 */
 382 EXTERN TclHandle        TclHandlePreserve(TclHandle handle);
 383 /* 149 */
 384 EXTERN void             TclHandleRelease(TclHandle handle);
 385 /* 150 */
 386 EXTERN int              TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re);
 387 /* 151 */
 388 EXTERN void             TclRegExpRangeUniChar(Tcl_RegExp re, int index,
 389                                 int *startPtr, int *endPtr);
 390 /* 152 */
 391 EXTERN void             TclSetLibraryPath(Tcl_Obj *pathPtr);
 392 /* 153 */
 393 EXTERN Tcl_Obj *        TclGetLibraryPath(void);
 394 /* Slot 154 is reserved */
 395 /* Slot 155 is reserved */
 396 /* 156 */
 397 EXTERN void             TclRegError(Tcl_Interp *interp, const char *msg,
 398                                 int status);
 399 /* 157 */
 400 EXTERN Var *            TclVarTraceExists(Tcl_Interp *interp,
 401                                 const char *varName);
 402 /* 158 */
 403 EXTERN void             TclSetStartupScriptFileName(const char *filename);
 404 /* 159 */
 405 EXTERN const char *     TclGetStartupScriptFileName(void);
 406 /* Slot 160 is reserved */
 407 /* 161 */
 408 EXTERN int              TclChannelTransform(Tcl_Interp *interp,
 409                                 Tcl_Channel chan, Tcl_Obj *cmdObjPtr);
 410 /* 162 */
 411 EXTERN void             TclChannelEventScriptInvoker(ClientData clientData,
 412                                 int flags);
 413 /* 163 */
 414 EXTERN const void *     TclGetInstructionTable(void);
 415 /* 164 */
 416 EXTERN void             TclExpandCodeArray(void *envPtr);
 417 /* 165 */
 418 EXTERN void             TclpSetInitialEncodings(void);
 419 /* 166 */
 420 EXTERN int              TclListObjSetElement(Tcl_Interp *interp,
 421                                 Tcl_Obj *listPtr, int index,
 422                                 Tcl_Obj *valuePtr);
 423 /* 167 */
 424 EXTERN void             TclSetStartupScriptPath(Tcl_Obj *pathPtr);
 425 /* 168 */
 426 EXTERN Tcl_Obj *        TclGetStartupScriptPath(void);
 427 /* 169 */
 428 EXTERN int              TclpUtfNcmp2(const char *s1, const char *s2,
 429                                 unsigned long n);
 430 /* 170 */
 431 EXTERN int              TclCheckInterpTraces(Tcl_Interp *interp,
 432                                 const char *command, int numChars,
 433                                 Command *cmdPtr, int result, int traceFlags,
 434                                 int objc, Tcl_Obj *const objv[]);
 435 /* 171 */
 436 EXTERN int              TclCheckExecutionTraces(Tcl_Interp *interp,
 437                                 const char *command, int numChars,
 438                                 Command *cmdPtr, int result, int traceFlags,
 439                                 int objc, Tcl_Obj *const objv[]);
 440 /* 172 */
 441 EXTERN int              TclInThreadExit(void);
 442 /* 173 */
 443 EXTERN int              TclUniCharMatch(const Tcl_UniChar *string,
 444                                 int strLen, const Tcl_UniChar *pattern,
 445                                 int ptnLen, int flags);
 446 /* Slot 174 is reserved */
 447 /* 175 */
 448 EXTERN int              TclCallVarTraces(Interp *iPtr, Var *arrayPtr,
 449                                 Var *varPtr, const char *part1,
 450                                 const char *part2, int flags,
 451                                 int leaveErrMsg);
 452 /* 176 */
 453 EXTERN void             TclCleanupVar(Var *varPtr, Var *arrayPtr);
 454 /* 177 */
 455 EXTERN void             TclVarErrMsg(Tcl_Interp *interp, const char *part1,
 456                                 const char *part2, const char *operation,
 457                                 const char *reason);
 458 /* 178 */
 459 EXTERN void             Tcl_SetStartupScript(Tcl_Obj *pathPtr,
 460                                 const char *encodingName);
 461 /* 179 */
 462 EXTERN Tcl_Obj *        Tcl_GetStartupScript(const char **encodingNamePtr);
 463 /* Slot 180 is reserved */
 464 /* Slot 181 is reserved */
 465 /* 182 */
 466 EXTERN struct tm *      TclpLocaltime(const time_t *clock);
 467 /* 183 */
 468 EXTERN struct tm *      TclpGmtime(const time_t *clock);
 469 /* Slot 184 is reserved */
 470 /* Slot 185 is reserved */
 471 /* Slot 186 is reserved */
 472 /* Slot 187 is reserved */
 473 /* Slot 188 is reserved */
 474 /* Slot 189 is reserved */
 475 /* Slot 190 is reserved */
 476 /* Slot 191 is reserved */
 477 /* Slot 192 is reserved */
 478 /* Slot 193 is reserved */
 479 /* Slot 194 is reserved */
 480 /* Slot 195 is reserved */
 481 /* Slot 196 is reserved */
 482 /* Slot 197 is reserved */
 483 /* 198 */
 484 EXTERN int              TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr,
 485                                 CallFrame **framePtrPtr);
 486 /* Slot 199 is reserved */
 487 /* 200 */
 488 EXTERN int              TclpObjRemoveDirectory(Tcl_Obj *pathPtr,
 489                                 int recursive, Tcl_Obj **errorPtr);
 490 /* 201 */
 491 EXTERN int              TclpObjCopyDirectory(Tcl_Obj *srcPathPtr,
 492                                 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
 493 /* 202 */
 494 EXTERN int              TclpObjCreateDirectory(Tcl_Obj *pathPtr);
 495 /* 203 */
 496 EXTERN int              TclpObjDeleteFile(Tcl_Obj *pathPtr);
 497 /* 204 */
 498 EXTERN int              TclpObjCopyFile(Tcl_Obj *srcPathPtr,
 499                                 Tcl_Obj *destPathPtr);
 500 /* 205 */
 501 EXTERN int              TclpObjRenameFile(Tcl_Obj *srcPathPtr,
 502                                 Tcl_Obj *destPathPtr);
 503 /* 206 */
 504 EXTERN int              TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
 505 /* 207 */
 506 EXTERN int              TclpObjAccess(Tcl_Obj *pathPtr, int mode);
 507 /* 208 */
 508 EXTERN Tcl_Channel      TclpOpenFileChannel(Tcl_Interp *interp,
 509                                 Tcl_Obj *pathPtr, int mode, int permissions);
 510 /* Slot 209 is reserved */
 511 /* Slot 210 is reserved */
 512 /* Slot 211 is reserved */
 513 /* 212 */
 514 EXTERN void             TclpFindExecutable(const char *argv0);
 515 /* 213 */
 516 EXTERN Tcl_Obj *        TclGetObjNameOfExecutable(void);
 517 /* 214 */
 518 EXTERN void             TclSetObjNameOfExecutable(Tcl_Obj *name,
 519                                 Tcl_Encoding encoding);
 520 /* 215 */
 521 EXTERN void *           TclStackAlloc(Tcl_Interp *interp, int numBytes);
 522 /* 216 */
 523 EXTERN void             TclStackFree(Tcl_Interp *interp, void *freePtr);
 524 /* 217 */
 525 EXTERN int              TclPushStackFrame(Tcl_Interp *interp,
 526                                 Tcl_CallFrame **framePtrPtr,
 527                                 Tcl_Namespace *namespacePtr,
 528                                 int isProcCallFrame);
 529 /* 218 */
 530 EXTERN void             TclPopStackFrame(Tcl_Interp *interp);
 531 /* Slot 219 is reserved */
 532 /* Slot 220 is reserved */
 533 /* Slot 221 is reserved */
 534 /* Slot 222 is reserved */
 535 /* Slot 223 is reserved */
 536 /* 224 */
 537 EXTERN TclPlatformType * TclGetPlatform(void);
 538 /* 225 */
 539 EXTERN Tcl_Obj *        TclTraceDictPath(Tcl_Interp *interp,
 540                                 Tcl_Obj *rootPtr, int keyc,
 541                                 Tcl_Obj *const keyv[], int flags);
 542 /* 226 */
 543 EXTERN int              TclObjBeingDeleted(Tcl_Obj *objPtr);
 544 /* 227 */
 545 EXTERN void             TclSetNsPath(Namespace *nsPtr, int pathLength,
 546                                 Tcl_Namespace *pathAry[]);
 547 /* Slot 228 is reserved */
 548 /* 229 */
 549 EXTERN int              TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
 550                                 const char *myName, int myFlags, int index);
 551 /* 230 */
 552 EXTERN Var *            TclObjLookupVar(Tcl_Interp *interp,
 553                                 Tcl_Obj *part1Ptr, const char *part2,
 554                                 int flags, const char *msg,
 555                                 const int createPart1, const int createPart2,
 556                                 Var **arrayPtrPtr);
 557 /* 231 */
 558 EXTERN int              TclGetNamespaceFromObj(Tcl_Interp *interp,
 559                                 Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr);
 560 /* 232 */
 561 EXTERN int              TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
 562                                 int flags, const CmdFrame *invoker, int word);
 563 /* 233 */
 564 EXTERN void             TclGetSrcInfoForPc(CmdFrame *contextPtr);
 565 /* 234 */
 566 EXTERN Var *            TclVarHashCreateVar(TclVarHashTable *tablePtr,
 567                                 const char *key, int *newPtr);
 568 /* 235 */
 569 EXTERN void             TclInitVarHashTable(TclVarHashTable *tablePtr,
 570                                 Namespace *nsPtr);
 571 /* 236 */
 572 EXTERN void             TclBackgroundException(Tcl_Interp *interp, int code);
 573 /* 237 */
 574 EXTERN int              TclResetCancellation(Tcl_Interp *interp, int force);
 575 /* 238 */
 576 EXTERN int              TclNRInterpProc(ClientData clientData,
 577                                 Tcl_Interp *interp, int objc,
 578                                 Tcl_Obj *const objv[]);
 579 /* 239 */
 580 EXTERN int              TclNRInterpProcCore(Tcl_Interp *interp,
 581                                 Tcl_Obj *procNameObj, int skip,
 582                                 ProcErrorProc *errorProc);
 583 /* 240 */
 584 EXTERN int              TclNRRunCallbacks(Tcl_Interp *interp, int result,
 585                                 struct NRE_callback *rootPtr);
 586 /* 241 */
 587 EXTERN int              TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
 588                                 int flags, const CmdFrame *invoker, int word);
 589 /* 242 */
 590 EXTERN int              TclNREvalObjv(Tcl_Interp *interp, int objc,
 591                                 Tcl_Obj *const objv[], int flags,
 592                                 Command *cmdPtr);
 593 /* 243 */
 594 EXTERN void             TclDbDumpActiveObjects(FILE *outFile);
 595 /* 244 */
 596 EXTERN Tcl_HashTable *  TclGetNamespaceChildTable(Tcl_Namespace *nsPtr);
 597 /* 245 */
 598 EXTERN Tcl_HashTable *  TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr);
 599 /* 246 */
 600 EXTERN int              TclInitRewriteEnsemble(Tcl_Interp *interp,
 601                                 int numRemoved, int numInserted,
 602                                 Tcl_Obj *const *objv);
 603 /* 247 */
 604 EXTERN void             TclResetRewriteEnsemble(Tcl_Interp *interp,
 605                                 int isRootEnsemble);
 606 /* 248 */
 607 EXTERN int              TclCopyChannel(Tcl_Interp *interp,
 608                                 Tcl_Channel inChan, Tcl_Channel outChan,
 609                                 Tcl_WideInt toRead, Tcl_Obj *cmdPtr);
 610 /* 249 */
 611 EXTERN char *           TclDoubleDigits(double dv, int ndigits, int flags,
 612                                 int *decpt, int *signum, char **endPtr);
 613 /* 250 */
 614 EXTERN void             TclSetSlaveCancelFlags(Tcl_Interp *interp, int flags,
 615                                 int force);
 616 /* 251 */
 617 EXTERN int              TclRegisterLiteral(void *envPtr, char *bytes,
 618                                 int length, int flags);
 619 /* 252 */
 620 EXTERN Tcl_Obj *        TclPtrGetVar(Tcl_Interp *interp, Tcl_Var varPtr,
 621                                 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
 622                                 Tcl_Obj *part2Ptr, const int flags);
 623 /* 253 */
 624 EXTERN Tcl_Obj *        TclPtrSetVar(Tcl_Interp *interp, Tcl_Var varPtr,
 625                                 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
 626                                 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
 627                                 const int flags);
 628 /* 254 */
 629 EXTERN Tcl_Obj *        TclPtrIncrObjVar(Tcl_Interp *interp, Tcl_Var varPtr,
 630                                 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
 631                                 Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr,
 632                                 const int flags);
 633 /* 255 */
 634 EXTERN int              TclPtrObjMakeUpvar(Tcl_Interp *interp,
 635                                 Tcl_Var otherPtr, Tcl_Obj *myNamePtr,
 636                                 int myFlags);
 637 /* 256 */
 638 EXTERN int              TclPtrUnsetVar(Tcl_Interp *interp, Tcl_Var varPtr,
 639                                 Tcl_Var arrayPtr, Tcl_Obj *part1Ptr,
 640                                 Tcl_Obj *part2Ptr, const int flags);
 641 /* 257 */
 642 EXTERN void             TclStaticPackage(Tcl_Interp *interp,
 643                                 const char *prefix,
 644                                 Tcl_PackageInitProc *initProc,
 645                                 Tcl_PackageInitProc *safeInitProc);
 646 /* Slot 258 is reserved */
 647 /* Slot 259 is reserved */
 648 /* 260 */
 649 EXTERN void             TclUnusedStubEntry(void);
 650
 651 typedef struct TclIntStubs {
 652     int magic;
 653     void *hooks;
 654
 655     void (*reserved0)(void);
 656     void (*reserved1)(void);
 657     void (*reserved2)(void);
 658     void (*tclAllocateFreeObjects) (void); /* 3 */
 659     void (*reserved4)(void);
 660     int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */
 661     void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */
 662     int (*tclCopyAndCollapse) (int count, const char *src, char *dst); /* 7 */
 663     int (*tclCopyChannelOld) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */
 664     int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, const char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */
 665     int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, const char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */
 666     void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */
 667     void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */
 668     void (*reserved13)(void);
 669     int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */
 670     void (*reserved15)(void);
 671     void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */
 672     void (*reserved17)(void);
 673     void (*reserved18)(void);
 674     void (*reserved19)(void);
 675     void (*reserved20)(void);
 676     void (*reserved21)(void);
 677     int (*tclFindElement) (Tcl_Interp *interp, const char *listStr, int listLength, const char **elementPtr, const char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */
 678     Proc * (*tclFindProc) (Interp *iPtr, const char *procName); /* 23 */
 679     int (*tclFormatInt) (char *buffer, long n); /* 24 */
 680     void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */
 681     void (*reserved26)(void);
 682     void (*reserved27)(void);
 683     Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */
 684     void (*reserved29)(void);
 685     void (*reserved30)(void);
 686     const char * (*tclGetExtension) (const char *name); /* 31 */
 687     int (*tclGetFrame) (Tcl_Interp *interp, const char *str, CallFrame **framePtrPtr); /* 32 */
 688     void (*reserved33)(void);
 689     int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */
 690     void (*reserved35)(void);
 691     void (*reserved36)(void);
 692     int (*tclGetLoadedPackages) (Tcl_Interp *interp, const char *targetName); /* 37 */
 693     int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */
 694     TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */
 695     int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */
 696     Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */
 697     CONST86 char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */
 698     void (*reserved43)(void);
 699     int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr); /* 44 */
 700     int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */
 701     int (*tclInExit) (void); /* 46 */
 702     void (*reserved47)(void);
 703     void (*reserved48)(void);
 704     void (*reserved49)(void);
 705     void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */
 706     int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */
 707     void (*reserved52)(void);
 708     int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */
 709     int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 54 */
 710     Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */
 711     void (*reserved56)(void);
 712     void (*reserved57)(void);
 713     Var * (*tclLookupVar) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, const char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */
 714     void (*reserved59)(void);
 715     int (*tclNeedSpace) (const char *start, const char *end); /* 60 */
 716     Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */
 717     int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */
 718     int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 63 */
 719     int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 64 */
 720     void (*reserved65)(void);
 721     void (*reserved66)(void);
 722     void (*reserved67)(void);
 723     void (*reserved68)(void);
 724     char * (*tclpAlloc) (unsigned int size); /* 69 */
 725     void (*reserved70)(void);
 726     void (*reserved71)(void);
 727     void (*reserved72)(void);
 728     void (*reserved73)(void);
 729     void (*tclpFree) (char *ptr); /* 74 */
 730     unsigned long (*tclpGetClicks) (void); /* 75 */
 731     unsigned long (*tclpGetSeconds) (void); /* 76 */
 732     void (*tclpGetTime) (Tcl_Time *time); /* 77 */
 733     void (*reserved78)(void);
 734     void (*reserved79)(void);
 735     void (*reserved80)(void);
 736     char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */
 737     void (*reserved82)(void);
 738     void (*reserved83)(void);
 739     void (*reserved84)(void);
 740     void (*reserved85)(void);
 741     void (*reserved86)(void);
 742     void (*reserved87)(void);
 743     char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, const char *name1, const char *name2, int flags); /* 88 */
 744     int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */
 745     void (*reserved90)(void);
 746     void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */
 747     int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description, const char *procName); /* 92 */
 748     void (*tclProcDeleteProc) (ClientData clientData); /* 93 */
 749     void (*reserved94)(void);
 750     void (*reserved95)(void);
 751     int (*tclRenameCommand) (Tcl_Interp *interp, const char *oldName, const char *newName); /* 96 */
 752     void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */
 753     int (*tclServiceIdle) (void); /* 98 */
 754     void (*reserved99)(void);
 755     void (*reserved100)(void);
 756     CONST86 char * (*tclSetPreInitScript) (const char *string); /* 101 */
 757     void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */
 758     int (*tclSockGetPort) (Tcl_Interp *interp, const char *str, const char *proto, int *portPtr); /* 103 */
 759     int (*tclSockMinimumBuffersOld) (int sock, int size); /* 104 */
 760     void (*reserved105)(void);
 761     void (*reserved106)(void);
 762     void (*reserved107)(void);
 763     void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */
 764     int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */
 765     int (*tclSockMinimumBuffers) (void *sock, int size); /* 110 */
 766     void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */
 767     int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */
 768     Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */
 769     void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */
 770     int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 115 */
 771     Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */
 772     Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */
 773     int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, const char *name, Tcl_ResolverInfo *resInfo); /* 118 */
 774     int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */
 775     Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */
 776     int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 121 */
 777     Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */
 778     void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */
 779     Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */
 780     Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */
 781     void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */
 782     int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 127 */
 783     void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */
 784     int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */
 785     int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, const char *name); /* 130 */
 786     void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */
 787     int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */
 788     struct tm * (*tclpGetDate) (const time_t *time, int useGMT); /* 133 */
 789     void (*reserved134)(void);
 790     void (*reserved135)(void);
 791     void (*reserved136)(void);
 792     void (*reserved137)(void);
 793     CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr); /* 138 */
 794     void (*reserved139)(void);
 795     void (*reserved140)(void);
 796     CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */
 797     int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */
 798     int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */
 799     void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */
 800     const struct AuxDataType * (*tclGetAuxDataType) (const char *typeName); /* 145 */
 801     TclHandle (*tclHandleCreate) (void *ptr); /* 146 */
 802     void (*tclHandleFree) (TclHandle handle); /* 147 */
 803     TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */
 804     void (*tclHandleRelease) (TclHandle handle); /* 149 */
 805     int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */
 806     void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */
 807     void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */
 808     Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */
 809     void (*reserved154)(void);
 810     void (*reserved155)(void);
 811     void (*tclRegError) (Tcl_Interp *interp, const char *msg, int status); /* 156 */
 812     Var * (*tclVarTraceExists) (Tcl_Interp *interp, const char *varName); /* 157 */
 813     void (*tclSetStartupScriptFileName) (const char *filename); /* 158 */
 814     const char * (*tclGetStartupScriptFileName) (void); /* 159 */
 815     void (*reserved160)(void);
 816     int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */
 817     void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */
 818     const void * (*tclGetInstructionTable) (void); /* 163 */
 819     void (*tclExpandCodeArray) (void *envPtr); /* 164 */
 820     void (*tclpSetInitialEncodings) (void); /* 165 */
 821     int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */
 822     void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */
 823     Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */
 824     int (*tclpUtfNcmp2) (const char *s1, const char *s2, unsigned long n); /* 169 */
 825     int (*tclCheckInterpTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 170 */
 826     int (*tclCheckExecutionTraces) (Tcl_Interp *interp, const char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]); /* 171 */
 827     int (*tclInThreadExit) (void); /* 172 */
 828     int (*tclUniCharMatch) (const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */
 829     void (*reserved174)(void);
 830     int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, const char *part1, const char *part2, int flags, int leaveErrMsg); /* 175 */
 831     void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */
 832     void (*tclVarErrMsg) (Tcl_Interp *interp, const char *part1, const char *part2, const char *operation, const char *reason); /* 177 */
 833     void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, const char *encodingName); /* 178 */
 834     Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingNamePtr); /* 179 */
 835     void (*reserved180)(void);
 836     void (*reserved181)(void);
 837     struct tm * (*tclpLocaltime) (const time_t *clock); /* 182 */
 838     struct tm * (*tclpGmtime) (const time_t *clock); /* 183 */
 839     void (*reserved184)(void);
 840     void (*reserved185)(void);
 841     void (*reserved186)(void);
 842     void (*reserved187)(void);
 843     void (*reserved188)(void);
 844     void (*reserved189)(void);
 845     void (*reserved190)(void);
 846     void (*reserved191)(void);
 847     void (*reserved192)(void);
 848     void (*reserved193)(void);
 849     void (*reserved194)(void);
 850     void (*reserved195)(void);
 851     void (*reserved196)(void);
 852     void (*reserved197)(void);
 853     int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */
 854     void (*reserved199)(void);
 855     int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */
 856     int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */
 857     int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */
 858     int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */
 859     int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */
 860     int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */
 861     int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */
 862     int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */
 863     Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */
 864     void (*reserved209)(void);
 865     void (*reserved210)(void);
 866     void (*reserved211)(void);
 867     void (*tclpFindExecutable) (const char *argv0); /* 212 */
 868     Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */
 869     void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */
 870     void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */
 871     void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */
 872     int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */
 873     void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */
 874     void (*reserved219)(void);
 875     void (*reserved220)(void);
 876     void (*reserved221)(void);
 877     void (*reserved222)(void);
 878     void (*reserved223)(void);
 879     TclPlatformType * (*tclGetPlatform) (void); /* 224 */
 880     Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *const keyv[], int flags); /* 225 */
 881     int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */
 882     void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */
 883     void (*reserved228)(void);
 884     int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, const char *myName, int myFlags, int index); /* 229 */
 885     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 */
 886     int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */
 887     int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 232 */
 888     void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */
 889     Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, const char *key, int *newPtr); /* 234 */
 890     void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */
 891     void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */
 892     int (*tclResetCancellation) (Tcl_Interp *interp, int force); /* 237 */
 893     int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 238 */
 894     int (*tclNRInterpProcCore) (Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc); /* 239 */
 895     int (*tclNRRunCallbacks) (Tcl_Interp *interp, int result, struct NRE_callback *rootPtr); /* 240 */
 896     int (*tclNREvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); /* 241 */
 897     int (*tclNREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr); /* 242 */
 898     void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */
 899     Tcl_HashTable * (*tclGetNamespaceChildTable) (Tcl_Namespace *nsPtr); /* 244 */
 900     Tcl_HashTable * (*tclGetNamespaceCommandTable) (Tcl_Namespace *nsPtr); /* 245 */
 901     int (*tclInitRewriteEnsemble) (Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv); /* 246 */
 902     void (*tclResetRewriteEnsemble) (Tcl_Interp *interp, int isRootEnsemble); /* 247 */
 903     int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); /* 248 */
 904     char * (*tclDoubleDigits) (double dv, int ndigits, int flags, int *decpt, int *signum, char **endPtr); /* 249 */
 905     void (*tclSetSlaveCancelFlags) (Tcl_Interp *interp, int flags, int force); /* 250 */
 906     int (*tclRegisterLiteral) (void *envPtr, char *bytes, int length, int flags); /* 251 */
 907     Tcl_Obj * (*tclPtrGetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 252 */
 908     Tcl_Obj * (*tclPtrSetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, const int flags); /* 253 */
 909     Tcl_Obj * (*tclPtrIncrObjVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, const int flags); /* 254 */
 910     int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */
 911     int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, const int flags); /* 256 */
 912     void (*tclStaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 257 */
 913     void (*reserved258)(void);
 914     void (*reserved259)(void);
 915     void (*tclUnusedStubEntry) (void); /* 260 */
 916 } TclIntStubs;
 917
 918 extern const TclIntStubs *tclIntStubsPtr;
 919
 920 #ifdef __cplusplus
 921 }
 922 #endif
 923
 924 #if defined(USE_TCL_STUBS)
 925
 926 /*
 927  * Inline function declarations:
 928  */
 929
 930 /* Slot 0 is reserved */
 931 /* Slot 1 is reserved */
 932 /* Slot 2 is reserved */
 933 #define TclAllocateFreeObjects \
 934         (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
 935 /* Slot 4 is reserved */
 936 #define TclCleanupChildren \
 937         (tclIntStubsPtr->tclCleanupChildren) /* 5 */
 938 #define TclCleanupCommand \
 939         (tclIntStubsPtr->tclCleanupCommand) /* 6 */
 940 #define TclCopyAndCollapse \
 941         (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
 942 #define TclCopyChannelOld \
 943         (tclIntStubsPtr->tclCopyChannelOld) /* 8 */
 944 #define TclCreatePipeline \
 945         (tclIntStubsPtr->tclCreatePipeline) /* 9 */
 946 #define TclCreateProc \
 947         (tclIntStubsPtr->tclCreateProc) /* 10 */
 948 #define TclDeleteCompiledLocalVars \
 949         (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
 950 #define TclDeleteVars \
 951         (tclIntStubsPtr->tclDeleteVars) /* 12 */
 952 /* Slot 13 is reserved */
 953 #define TclDumpMemoryInfo \
 954         (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
 955 /* Slot 15 is reserved */
 956 #define TclExprFloatError \
 957         (tclIntStubsPtr->tclExprFloatError) /* 16 */
 958 /* Slot 17 is reserved */
 959 /* Slot 18 is reserved */
 960 /* Slot 19 is reserved */
 961 /* Slot 20 is reserved */
 962 /* Slot 21 is reserved */
 963 #define TclFindElement \
 964         (tclIntStubsPtr->tclFindElement) /* 22 */
 965 #define TclFindProc \
 966         (tclIntStubsPtr->tclFindProc) /* 23 */
 967 #define TclFormatInt \
 968         (tclIntStubsPtr->tclFormatInt) /* 24 */
 969 #define TclFreePackageInfo \
 970         (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
 971 /* Slot 26 is reserved */
 972 /* Slot 27 is reserved */
 973 #define TclpGetDefaultStdChannel \
 974         (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
 975 /* Slot 29 is reserved */
 976 /* Slot 30 is reserved */
 977 #define TclGetExtension \
 978         (tclIntStubsPtr->tclGetExtension) /* 31 */
 979 #define TclGetFrame \
 980         (tclIntStubsPtr->tclGetFrame) /* 32 */
 981 /* Slot 33 is reserved */
 982 #define TclGetIntForIndex \
 983         (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
 984 /* Slot 35 is reserved */
 985 /* Slot 36 is reserved */
 986 #define TclGetLoadedPackages \
 987         (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
 988 #define TclGetNamespaceForQualName \
 989         (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
 990 #define TclGetObjInterpProc \
 991         (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
 992 #define TclGetOpenMode \
 993         (tclIntStubsPtr->tclGetOpenMode) /* 40 */
 994 #define TclGetOriginalCommand \
 995         (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
 996 #define TclpGetUserHome \
 997         (tclIntStubsPtr->tclpGetUserHome) /* 42 */
 998 /* Slot 43 is reserved */
 999 #define TclGuessPackageName \
1000         (tclIntStubsPtr->tclGuessPackageName) /* 44 */
1001 #define TclHideUnsafeCommands \
1002         (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
1003 #define TclInExit \
1004         (tclIntStubsPtr->tclInExit) /* 46 */
1005 /* Slot 47 is reserved */
1006 /* Slot 48 is reserved */
1007 /* Slot 49 is reserved */
1008 #define TclInitCompiledLocals \
1009         (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
1010 #define TclInterpInit \
1011         (tclIntStubsPtr->tclInterpInit) /* 51 */
1012 /* Slot 52 is reserved */
1013 #define TclInvokeObjectCommand \
1014         (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
1015 #define TclInvokeStringCommand \
1016         (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
1017 #define TclIsProc \
1018         (tclIntStubsPtr->tclIsProc) /* 55 */
1019 /* Slot 56 is reserved */
1020 /* Slot 57 is reserved */
1021 #define TclLookupVar \
1022         (tclIntStubsPtr->tclLookupVar) /* 58 */
1023 /* Slot 59 is reserved */
1024 #define TclNeedSpace \
1025         (tclIntStubsPtr->tclNeedSpace) /* 60 */
1026 #define TclNewProcBodyObj \
1027         (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
1028 #define TclObjCommandComplete \
1029         (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
1030 #define TclObjInterpProc \
1031         (tclIntStubsPtr->tclObjInterpProc) /* 63 */
1032 #define TclObjInvoke \
1033         (tclIntStubsPtr->tclObjInvoke) /* 64 */
1034 /* Slot 65 is reserved */
1035 /* Slot 66 is reserved */
1036 /* Slot 67 is reserved */
1037 /* Slot 68 is reserved */
1038 #define TclpAlloc \
1039         (tclIntStubsPtr->tclpAlloc) /* 69 */
1040 /* Slot 70 is reserved */
1041 /* Slot 71 is reserved */
1042 /* Slot 72 is reserved */
1043 /* Slot 73 is reserved */
1044 #define TclpFree \
1045         (tclIntStubsPtr->tclpFree) /* 74 */
1046 #define TclpGetClicks \
1047         (tclIntStubsPtr->tclpGetClicks) /* 75 */
1048 #define TclpGetSeconds \
1049         (tclIntStubsPtr->tclpGetSeconds) /* 76 */
1050 #define TclpGetTime \
1051         (tclIntStubsPtr->tclpGetTime) /* 77 */
1052 /* Slot 78 is reserved */
1053 /* Slot 79 is reserved */
1054 /* Slot 80 is reserved */
1055 #define TclpRealloc \
1056         (tclIntStubsPtr->tclpRealloc) /* 81 */
1057 /* Slot 82 is reserved */
1058 /* Slot 83 is reserved */
1059 /* Slot 84 is reserved */
1060 /* Slot 85 is reserved */
1061 /* Slot 86 is reserved */
1062 /* Slot 87 is reserved */
1063 #define TclPrecTraceProc \
1064         (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
1065 #define TclPreventAliasLoop \
1066         (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
1067 /* Slot 90 is reserved */
1068 #define TclProcCleanupProc \
1069         (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
1070 #define TclProcCompileProc \
1071         (tclIntStubsPtr->tclProcCompileProc) /* 92 */
1072 #define TclProcDeleteProc \
1073         (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
1074 /* Slot 94 is reserved */
1075 /* Slot 95 is reserved */
1076 #define TclRenameCommand \
1077         (tclIntStubsPtr->tclRenameCommand) /* 96 */
1078 #define TclResetShadowedCmdRefs \
1079         (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
1080 #define TclServiceIdle \
1081         (tclIntStubsPtr->tclServiceIdle) /* 98 */
1082 /* Slot 99 is reserved */
1083 /* Slot 100 is reserved */
1084 #define TclSetPreInitScript \
1085         (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
1086 #define TclSetupEnv \
1087         (tclIntStubsPtr->tclSetupEnv) /* 102 */
1088 #define TclSockGetPort \
1089         (tclIntStubsPtr->tclSockGetPort) /* 103 */
1090 #define TclSockMinimumBuffersOld \
1091         (tclIntStubsPtr->tclSockMinimumBuffersOld) /* 104 */
1092 /* Slot 105 is reserved */
1093 /* Slot 106 is reserved */
1094 /* Slot 107 is reserved */
1095 #define TclTeardownNamespace \
1096         (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
1097 #define TclUpdateReturnInfo \
1098         (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
1099 #define TclSockMinimumBuffers \
1100         (tclIntStubsPtr->tclSockMinimumBuffers) /* 110 */
1101 #define Tcl_AddInterpResolvers \
1102         (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
1103 #define Tcl_AppendExportList \
1104         (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
1105 #define Tcl_CreateNamespace \
1106         (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
1107 #define Tcl_DeleteNamespace \
1108         (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
1109 #define Tcl_Export \
1110         (tclIntStubsPtr->tcl_Export) /* 115 */
1111 #define Tcl_FindCommand \
1112         (tclIntStubsPtr->tcl_FindCommand) /* 116 */
1113 #define Tcl_FindNamespace \
1114         (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
1115 #define Tcl_GetInterpResolvers \
1116         (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
1117 #define Tcl_GetNamespaceResolvers \
1118         (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
1119 #define Tcl_FindNamespaceVar \
1120         (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
1121 #define Tcl_ForgetImport \
1122         (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
1123 #define Tcl_GetCommandFromObj \
1124         (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
1125 #define Tcl_GetCommandFullName \
1126         (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
1127 #define Tcl_GetCurrentNamespace \
1128         (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
1129 #define Tcl_GetGlobalNamespace \
1130         (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
1131 #define Tcl_GetVariableFullName \
1132         (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
1133 #define Tcl_Import \
1134         (tclIntStubsPtr->tcl_Import) /* 127 */
1135 #define Tcl_PopCallFrame \
1136         (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
1137 #define Tcl_PushCallFrame \
1138         (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
1139 #define Tcl_RemoveInterpResolvers \
1140         (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
1141 #define Tcl_SetNamespaceResolvers \
1142         (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
1143 #define TclpHasSockets \
1144         (tclIntStubsPtr->tclpHasSockets) /* 132 */
1145 #define TclpGetDate \
1146         (tclIntStubsPtr->tclpGetDate) /* 133 */
1147 /* Slot 134 is reserved */
1148 /* Slot 135 is reserved */
1149 /* Slot 136 is reserved */
1150 /* Slot 137 is reserved */
1151 #define TclGetEnv \
1152         (tclIntStubsPtr->tclGetEnv) /* 138 */
1153 /* Slot 139 is reserved */
1154 /* Slot 140 is reserved */
1155 #define TclpGetCwd \
1156         (tclIntStubsPtr->tclpGetCwd) /* 141 */
1157 #define TclSetByteCodeFromAny \
1158         (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
1159 #define TclAddLiteralObj \
1160         (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
1161 #define TclHideLiteral \
1162         (tclIntStubsPtr->tclHideLiteral) /* 144 */
1163 #define TclGetAuxDataType \
1164         (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
1165 #define TclHandleCreate \
1166         (tclIntStubsPtr->tclHandleCreate) /* 146 */
1167 #define TclHandleFree \
1168         (tclIntStubsPtr->tclHandleFree) /* 147 */
1169 #define TclHandlePreserve \
1170         (tclIntStubsPtr->tclHandlePreserve) /* 148 */
1171 #define TclHandleRelease \
1172         (tclIntStubsPtr->tclHandleRelease) /* 149 */
1173 #define TclRegAbout \
1174         (tclIntStubsPtr->tclRegAbout) /* 150 */
1175 #define TclRegExpRangeUniChar \
1176         (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
1177 #define TclSetLibraryPath \
1178         (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
1179 #define TclGetLibraryPath \
1180         (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
1181 /* Slot 154 is reserved */
1182 /* Slot 155 is reserved */
1183 #define TclRegError \
1184         (tclIntStubsPtr->tclRegError) /* 156 */
1185 #define TclVarTraceExists \
1186         (tclIntStubsPtr->tclVarTraceExists) /* 157 */
1187 #define TclSetStartupScriptFileName \
1188         (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
1189 #define TclGetStartupScriptFileName \
1190         (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
1191 /* Slot 160 is reserved */
1192 #define TclChannelTransform \
1193         (tclIntStubsPtr->tclChannelTransform) /* 161 */
1194 #define TclChannelEventScriptInvoker \
1195         (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
1196 #define TclGetInstructionTable \
1197         (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
1198 #define TclExpandCodeArray \
1199         (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
1200 #define TclpSetInitialEncodings \
1201         (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
1202 #define TclListObjSetElement \
1203         (tclIntStubsPtr->tclListObjSetElement) /* 166 */
1204 #define TclSetStartupScriptPath \
1205         (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
1206 #define TclGetStartupScriptPath \
1207         (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
1208 #define TclpUtfNcmp2 \
1209         (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
1210 #define TclCheckInterpTraces \
1211         (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
1212 #define TclCheckExecutionTraces \
1213         (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
1214 #define TclInThreadExit \
1215         (tclIntStubsPtr->tclInThreadExit) /* 172 */
1216 #define TclUniCharMatch \
1217         (tclIntStubsPtr->tclUniCharMatch) /* 173 */
1218 /* Slot 174 is reserved */
1219 #define TclCallVarTraces \
1220         (tclIntStubsPtr->tclCallVarTraces) /* 175 */
1221 #define TclCleanupVar \
1222         (tclIntStubsPtr->tclCleanupVar) /* 176 */
1223 #define TclVarErrMsg \
1224         (tclIntStubsPtr->tclVarErrMsg) /* 177 */
1225 #define Tcl_SetStartupScript \
1226         (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */
1227 #define Tcl_GetStartupScript \
1228         (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */
1229 /* Slot 180 is reserved */
1230 /* Slot 181 is reserved */
1231 #define TclpLocaltime \
1232         (tclIntStubsPtr->tclpLocaltime) /* 182 */
1233 #define TclpGmtime \
1234         (tclIntStubsPtr->tclpGmtime) /* 183 */
1235 /* Slot 184 is reserved */
1236 /* Slot 185 is reserved */
1237 /* Slot 186 is reserved */
1238 /* Slot 187 is reserved */
1239 /* Slot 188 is reserved */
1240 /* Slot 189 is reserved */
1241 /* Slot 190 is reserved */
1242 /* Slot 191 is reserved */
1243 /* Slot 192 is reserved */
1244 /* Slot 193 is reserved */
1245 /* Slot 194 is reserved */
1246 /* Slot 195 is reserved */
1247 /* Slot 196 is reserved */
1248 /* Slot 197 is reserved */
1249 #define TclObjGetFrame \
1250         (tclIntStubsPtr->tclObjGetFrame) /* 198 */
1251 /* Slot 199 is reserved */
1252 #define TclpObjRemoveDirectory \
1253         (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */
1254 #define TclpObjCopyDirectory \
1255         (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */
1256 #define TclpObjCreateDirectory \
1257         (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */
1258 #define TclpObjDeleteFile \
1259         (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */
1260 #define TclpObjCopyFile \
1261         (tclIntStubsPtr->tclpObjCopyFile) /* 204 */
1262 #define TclpObjRenameFile \
1263         (tclIntStubsPtr->tclpObjRenameFile) /* 205 */
1264 #define TclpObjStat \
1265         (tclIntStubsPtr->tclpObjStat) /* 206 */
1266 #define TclpObjAccess \
1267         (tclIntStubsPtr->tclpObjAccess) /* 207 */
1268 #define TclpOpenFileChannel \
1269         (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */
1270 /* Slot 209 is reserved */
1271 /* Slot 210 is reserved */
1272 /* Slot 211 is reserved */
1273 #define TclpFindExecutable \
1274         (tclIntStubsPtr->tclpFindExecutable) /* 212 */
1275 #define TclGetObjNameOfExecutable \
1276         (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */
1277 #define TclSetObjNameOfExecutable \
1278         (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */
1279 #define TclStackAlloc \
1280         (tclIntStubsPtr->tclStackAlloc) /* 215 */
1281 #define TclStackFree \
1282         (tclIntStubsPtr->tclStackFree) /* 216 */
1283 #define TclPushStackFrame \
1284         (tclIntStubsPtr->tclPushStackFrame) /* 217 */
1285 #define TclPopStackFrame \
1286         (tclIntStubsPtr->tclPopStackFrame) /* 218 */
1287 /* Slot 219 is reserved */
1288 /* Slot 220 is reserved */
1289 /* Slot 221 is reserved */
1290 /* Slot 222 is reserved */
1291 /* Slot 223 is reserved */
1292 #define TclGetPlatform \
1293         (tclIntStubsPtr->tclGetPlatform) /* 224 */
1294 #define TclTraceDictPath \
1295         (tclIntStubsPtr->tclTraceDictPath) /* 225 */
1296 #define TclObjBeingDeleted \
1297         (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */
1298 #define TclSetNsPath \
1299         (tclIntStubsPtr->tclSetNsPath) /* 227 */
1300 /* Slot 228 is reserved */
1301 #define TclPtrMakeUpvar \
1302         (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */
1303 #define TclObjLookupVar \
1304         (tclIntStubsPtr->tclObjLookupVar) /* 230 */
1305 #define TclGetNamespaceFromObj \
1306         (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */
1307 #define TclEvalObjEx \
1308         (tclIntStubsPtr->tclEvalObjEx) /* 232 */
1309 #define TclGetSrcInfoForPc \
1310         (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */
1311 #define TclVarHashCreateVar \
1312         (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */
1313 #define TclInitVarHashTable \
1314         (tclIntStubsPtr->tclInitVarHashTable) /* 235 */
1315 #define TclBackgroundException \
1316         (tclIntStubsPtr->tclBackgroundException) /* 236 */
1317 #define TclResetCancellation \
1318         (tclIntStubsPtr->tclResetCancellation) /* 237 */
1319 #define TclNRInterpProc \
1320         (tclIntStubsPtr->tclNRInterpProc) /* 238 */
1321 #define TclNRInterpProcCore \
1322         (tclIntStubsPtr->tclNRInterpProcCore) /* 239 */
1323 #define TclNRRunCallbacks \
1324         (tclIntStubsPtr->tclNRRunCallbacks) /* 240 */
1325 #define TclNREvalObjEx \
1326         (tclIntStubsPtr->tclNREvalObjEx) /* 241 */
1327 #define TclNREvalObjv \
1328         (tclIntStubsPtr->tclNREvalObjv) /* 242 */
1329 #define TclDbDumpActiveObjects \
1330         (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */
1331 #define TclGetNamespaceChildTable \
1332         (tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */
1333 #define TclGetNamespaceCommandTable \
1334         (tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */
1335 #define TclInitRewriteEnsemble \
1336         (tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */
1337 #define TclResetRewriteEnsemble \
1338         (tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */
1339 #define TclCopyChannel \
1340         (tclIntStubsPtr->tclCopyChannel) /* 248 */
1341 #define TclDoubleDigits \
1342         (tclIntStubsPtr->tclDoubleDigits) /* 249 */
1343 #define TclSetSlaveCancelFlags \
1344         (tclIntStubsPtr->tclSetSlaveCancelFlags) /* 250 */
1345 #define TclRegisterLiteral \
1346         (tclIntStubsPtr->tclRegisterLiteral) /* 251 */
1347 #define TclPtrGetVar \
1348         (tclIntStubsPtr->tclPtrGetVar) /* 252 */
1349 #define TclPtrSetVar \
1350         (tclIntStubsPtr->tclPtrSetVar) /* 253 */
1351 #define TclPtrIncrObjVar \
1352         (tclIntStubsPtr->tclPtrIncrObjVar) /* 254 */
1353 #define TclPtrObjMakeUpvar \
1354         (tclIntStubsPtr->tclPtrObjMakeUpvar) /* 255 */
1355 #define TclPtrUnsetVar \
1356         (tclIntStubsPtr->tclPtrUnsetVar) /* 256 */
1357 #define TclStaticPackage \
1358         (tclIntStubsPtr->tclStaticPackage) /* 257 */
1359 /* Slot 258 is reserved */
1360 /* Slot 259 is reserved */
1361 #define TclUnusedStubEntry \
1362         (tclIntStubsPtr->tclUnusedStubEntry) /* 260 */
1363
1364 #endif /* defined(USE_TCL_STUBS) */
1365
1366 /* !END!: Do not edit above this line. */
1367
1368 #undef TCL_STORAGE_CLASS
1369 #define TCL_STORAGE_CLASS DLLIMPORT
1370
1371 #undef TclGetStartupScriptFileName
1372 #undef TclSetStartupScriptFileName
1373 #undef TclGetStartupScriptPath
1374 #undef TclSetStartupScriptPath
1375 #undef TclBackgroundException
1376 #undef TclUnusedStubEntry
1377
1378 #if defined(USE_TCL_STUBS) && defined(TCL_NO_DEPRECATED)
1379 #   undef Tcl_SetStartupScript
1380 #   define Tcl_SetStartupScript \
1381             (tclStubsPtr->tcl_SetStartupScript) /* 622 */
1382 #   undef Tcl_GetStartupScript
1383 #   define Tcl_GetStartupScript \
1384             (tclStubsPtr->tcl_GetStartupScript) /* 623 */
1385 #   undef Tcl_CreateNamespace
1386 #   define Tcl_CreateNamespace \
1387            (tclStubsPtr->tcl_CreateNamespace) /* 506 */
1388 #   undef Tcl_DeleteNamespace
1389 #   define Tcl_DeleteNamespace \
1390            (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
1391 #   undef Tcl_AppendExportList
1392 #   define Tcl_AppendExportList \
1393            (tclStubsPtr->tcl_AppendExportList) /* 508 */
1394 #   undef Tcl_Export
1395 #   define Tcl_Export \
1396            (tclStubsPtr->tcl_Export) /* 509 */
1397 #   undef Tcl_Import
1398 #   define Tcl_Import \
1399            (tclStubsPtr->tcl_Import) /* 510 */
1400 #   undef Tcl_ForgetImport
1401 #   define Tcl_ForgetImport \
1402            (tclStubsPtr->tcl_ForgetImport) /* 511 */
1403 #   undef Tcl_GetCurrentNamespace
1404 #   define Tcl_GetCurrentNamespace \
1405            (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
1406 #   undef Tcl_GetGlobalNamespace
1407 #   define Tcl_GetGlobalNamespace \
1408            (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
1409 #   undef Tcl_FindNamespace
1410 #   define Tcl_FindNamespace \
1411            (tclStubsPtr->tcl_FindNamespace) /* 514 */
1412 #   undef Tcl_FindCommand
1413 #   define Tcl_FindCommand \
1414            (tclStubsPtr->tcl_FindCommand) /* 515 */
1415 #   undef Tcl_GetCommandFromObj
1416 #   define Tcl_GetCommandFromObj \
1417            (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
1418 #   undef Tcl_GetCommandFullName
1419 #   define Tcl_GetCommandFullName \
1420            (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
1421 #endif
1422
1423 #undef TclCopyChannelOld
1424 #undef TclSockMinimumBuffersOld
1425
1426 #define TclSetChildCancelFlags TclSetSlaveCancelFlags
1427
1428 #endif /* _TCLINTDECLS */