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 * RCS: @(#) $Id: tclIntDecls.h,v 1.112.2.3 2010/07/02 20:49:47 nijtmans Exp $ 15 */ 16 17#ifndef _TCLINTDECLS 18#define _TCLINTDECLS 19 20#include "tclPort.h" 21 22#undef TCL_STORAGE_CLASS 23#ifdef BUILD_tcl 24# define TCL_STORAGE_CLASS DLLEXPORT 25#else 26# ifdef USE_TCL_STUBS 27# define TCL_STORAGE_CLASS 28# else 29# define TCL_STORAGE_CLASS DLLIMPORT 30# endif 31#endif 32 33/* [Bug #803489] Tcl_FindNamespace problem in the Stubs table */ 34#undef Tcl_AppendExportList 35#undef Tcl_CreateNamespace 36#undef Tcl_DeleteNamespace 37#undef Tcl_Export 38#undef Tcl_FindCommand 39#undef Tcl_FindNamespace 40#undef Tcl_FindNamespaceVar 41#undef Tcl_ForgetImport 42#undef Tcl_GetCommandFromObj 43#undef Tcl_GetCommandFullName 44#undef Tcl_GetCurrentNamespace 45#undef Tcl_GetGlobalNamespace 46#undef Tcl_Import 47 48/* 49 * WARNING: This file is automatically generated by the tools/genStubs.tcl 50 * script. Any modifications to the function declarations below should be made 51 * in the generic/tclInt.decls script. 52 */ 53 54/* !BEGIN!: Do not edit below this line. */ 55 56/* 57 * Exported function declarations: 58 */ 59 60/* Slot 0 is reserved */ 61/* Slot 1 is reserved */ 62/* Slot 2 is reserved */ 63#ifndef TclAllocateFreeObjects_TCL_DECLARED 64#define TclAllocateFreeObjects_TCL_DECLARED 65/* 3 */ 66EXTERN void TclAllocateFreeObjects(void); 67#endif 68/* Slot 4 is reserved */ 69#ifndef TclCleanupChildren_TCL_DECLARED 70#define TclCleanupChildren_TCL_DECLARED 71/* 5 */ 72EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids, 73 Tcl_Pid *pidPtr, Tcl_Channel errorChan); 74#endif 75#ifndef TclCleanupCommand_TCL_DECLARED 76#define TclCleanupCommand_TCL_DECLARED 77/* 6 */ 78EXTERN void TclCleanupCommand(Command *cmdPtr); 79#endif 80#ifndef TclCopyAndCollapse_TCL_DECLARED 81#define TclCopyAndCollapse_TCL_DECLARED 82/* 7 */ 83EXTERN int TclCopyAndCollapse(int count, CONST char *src, 84 char *dst); 85#endif 86#ifndef TclCopyChannel_TCL_DECLARED 87#define TclCopyChannel_TCL_DECLARED 88/* 8 */ 89EXTERN int TclCopyChannel(Tcl_Interp *interp, 90 Tcl_Channel inChan, Tcl_Channel outChan, 91 int toRead, Tcl_Obj *cmdPtr); 92#endif 93#ifndef TclCreatePipeline_TCL_DECLARED 94#define TclCreatePipeline_TCL_DECLARED 95/* 9 */ 96EXTERN int TclCreatePipeline(Tcl_Interp *interp, int argc, 97 CONST char **argv, Tcl_Pid **pidArrayPtr, 98 TclFile *inPipePtr, TclFile *outPipePtr, 99 TclFile *errFilePtr); 100#endif 101#ifndef TclCreateProc_TCL_DECLARED 102#define TclCreateProc_TCL_DECLARED 103/* 10 */ 104EXTERN int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, 105 CONST char *procName, Tcl_Obj *argsPtr, 106 Tcl_Obj *bodyPtr, Proc **procPtrPtr); 107#endif 108#ifndef TclDeleteCompiledLocalVars_TCL_DECLARED 109#define TclDeleteCompiledLocalVars_TCL_DECLARED 110/* 11 */ 111EXTERN void TclDeleteCompiledLocalVars(Interp *iPtr, 112 CallFrame *framePtr); 113#endif 114#ifndef TclDeleteVars_TCL_DECLARED 115#define TclDeleteVars_TCL_DECLARED 116/* 12 */ 117EXTERN void TclDeleteVars(Interp *iPtr, 118 TclVarHashTable *tablePtr); 119#endif 120/* Slot 13 is reserved */ 121#ifndef TclDumpMemoryInfo_TCL_DECLARED 122#define TclDumpMemoryInfo_TCL_DECLARED 123/* 14 */ 124EXTERN void TclDumpMemoryInfo(FILE *outFile); 125#endif 126/* Slot 15 is reserved */ 127#ifndef TclExprFloatError_TCL_DECLARED 128#define TclExprFloatError_TCL_DECLARED 129/* 16 */ 130EXTERN void TclExprFloatError(Tcl_Interp *interp, double value); 131#endif 132/* Slot 17 is reserved */ 133/* Slot 18 is reserved */ 134/* Slot 19 is reserved */ 135/* Slot 20 is reserved */ 136/* Slot 21 is reserved */ 137#ifndef TclFindElement_TCL_DECLARED 138#define TclFindElement_TCL_DECLARED 139/* 22 */ 140EXTERN int TclFindElement(Tcl_Interp *interp, 141 CONST char *listStr, int listLength, 142 CONST char **elementPtr, 143 CONST char **nextPtr, int *sizePtr, 144 int *bracePtr); 145#endif 146#ifndef TclFindProc_TCL_DECLARED 147#define TclFindProc_TCL_DECLARED 148/* 23 */ 149EXTERN Proc * TclFindProc(Interp *iPtr, CONST char *procName); 150#endif 151/* Slot 24 is reserved */ 152#ifndef TclFreePackageInfo_TCL_DECLARED 153#define TclFreePackageInfo_TCL_DECLARED 154/* 25 */ 155EXTERN void TclFreePackageInfo(Interp *iPtr); 156#endif 157/* Slot 26 is reserved */ 158/* Slot 27 is reserved */ 159#ifndef TclpGetDefaultStdChannel_TCL_DECLARED 160#define TclpGetDefaultStdChannel_TCL_DECLARED 161/* 28 */ 162EXTERN Tcl_Channel TclpGetDefaultStdChannel(int type); 163#endif 164/* Slot 29 is reserved */ 165/* Slot 30 is reserved */ 166#ifndef TclGetExtension_TCL_DECLARED 167#define TclGetExtension_TCL_DECLARED 168/* 31 */ 169EXTERN CONST char * TclGetExtension(CONST char *name); 170#endif 171#ifndef TclGetFrame_TCL_DECLARED 172#define TclGetFrame_TCL_DECLARED 173/* 32 */ 174EXTERN int TclGetFrame(Tcl_Interp *interp, CONST char *str, 175 CallFrame **framePtrPtr); 176#endif 177/* Slot 33 is reserved */ 178#ifndef TclGetIntForIndex_TCL_DECLARED 179#define TclGetIntForIndex_TCL_DECLARED 180/* 34 */ 181EXTERN int TclGetIntForIndex(Tcl_Interp *interp, 182 Tcl_Obj *objPtr, int endValue, int *indexPtr); 183#endif 184/* Slot 35 is reserved */ 185#ifndef TclGetLong_TCL_DECLARED 186#define TclGetLong_TCL_DECLARED 187/* 36 */ 188EXTERN int TclGetLong(Tcl_Interp *interp, CONST char *str, 189 long *longPtr); 190#endif 191#ifndef TclGetLoadedPackages_TCL_DECLARED 192#define TclGetLoadedPackages_TCL_DECLARED 193/* 37 */ 194EXTERN int TclGetLoadedPackages(Tcl_Interp *interp, 195 char *targetName); 196#endif 197#ifndef TclGetNamespaceForQualName_TCL_DECLARED 198#define TclGetNamespaceForQualName_TCL_DECLARED 199/* 38 */ 200EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp, 201 CONST char *qualName, Namespace *cxtNsPtr, 202 int flags, Namespace **nsPtrPtr, 203 Namespace **altNsPtrPtr, 204 Namespace **actualCxtPtrPtr, 205 CONST char **simpleNamePtr); 206#endif 207#ifndef TclGetObjInterpProc_TCL_DECLARED 208#define TclGetObjInterpProc_TCL_DECLARED 209/* 39 */ 210EXTERN TclObjCmdProcType TclGetObjInterpProc(void); 211#endif 212#ifndef TclGetOpenMode_TCL_DECLARED 213#define TclGetOpenMode_TCL_DECLARED 214/* 40 */ 215EXTERN int TclGetOpenMode(Tcl_Interp *interp, CONST char *str, 216 int *seekFlagPtr); 217#endif 218#ifndef TclGetOriginalCommand_TCL_DECLARED 219#define TclGetOriginalCommand_TCL_DECLARED 220/* 41 */ 221EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command); 222#endif 223#ifndef TclpGetUserHome_TCL_DECLARED 224#define TclpGetUserHome_TCL_DECLARED 225/* 42 */ 226EXTERN char * TclpGetUserHome(CONST char *name, 227 Tcl_DString *bufferPtr); 228#endif 229/* Slot 43 is reserved */ 230#ifndef TclGuessPackageName_TCL_DECLARED 231#define TclGuessPackageName_TCL_DECLARED 232/* 44 */ 233EXTERN int TclGuessPackageName(CONST char *fileName, 234 Tcl_DString *bufPtr); 235#endif 236#ifndef TclHideUnsafeCommands_TCL_DECLARED 237#define TclHideUnsafeCommands_TCL_DECLARED 238/* 45 */ 239EXTERN int TclHideUnsafeCommands(Tcl_Interp *interp); 240#endif 241#ifndef TclInExit_TCL_DECLARED 242#define TclInExit_TCL_DECLARED 243/* 46 */ 244EXTERN int TclInExit(void); 245#endif 246/* Slot 47 is reserved */ 247/* Slot 48 is reserved */ 248/* Slot 49 is reserved */ 249#ifndef TclInitCompiledLocals_TCL_DECLARED 250#define TclInitCompiledLocals_TCL_DECLARED 251/* 50 */ 252EXTERN void TclInitCompiledLocals(Tcl_Interp *interp, 253 CallFrame *framePtr, Namespace *nsPtr); 254#endif 255#ifndef TclInterpInit_TCL_DECLARED 256#define TclInterpInit_TCL_DECLARED 257/* 51 */ 258EXTERN int TclInterpInit(Tcl_Interp *interp); 259#endif 260/* Slot 52 is reserved */ 261#ifndef TclInvokeObjectCommand_TCL_DECLARED 262#define TclInvokeObjectCommand_TCL_DECLARED 263/* 53 */ 264EXTERN int TclInvokeObjectCommand(ClientData clientData, 265 Tcl_Interp *interp, int argc, 266 CONST84 char **argv); 267#endif 268#ifndef TclInvokeStringCommand_TCL_DECLARED 269#define TclInvokeStringCommand_TCL_DECLARED 270/* 54 */ 271EXTERN int TclInvokeStringCommand(ClientData clientData, 272 Tcl_Interp *interp, int objc, 273 Tcl_Obj *CONST objv[]); 274#endif 275#ifndef TclIsProc_TCL_DECLARED 276#define TclIsProc_TCL_DECLARED 277/* 55 */ 278EXTERN Proc * TclIsProc(Command *cmdPtr); 279#endif 280/* Slot 56 is reserved */ 281/* Slot 57 is reserved */ 282#ifndef TclLookupVar_TCL_DECLARED 283#define TclLookupVar_TCL_DECLARED 284/* 58 */ 285EXTERN Var * TclLookupVar(Tcl_Interp *interp, CONST char *part1, 286 CONST char *part2, int flags, 287 CONST char *msg, int createPart1, 288 int createPart2, Var **arrayPtrPtr); 289#endif 290/* Slot 59 is reserved */ 291#ifndef TclNeedSpace_TCL_DECLARED 292#define TclNeedSpace_TCL_DECLARED 293/* 60 */ 294EXTERN int TclNeedSpace(CONST char *start, CONST char *end); 295#endif 296#ifndef TclNewProcBodyObj_TCL_DECLARED 297#define TclNewProcBodyObj_TCL_DECLARED 298/* 61 */ 299EXTERN Tcl_Obj * TclNewProcBodyObj(Proc *procPtr); 300#endif 301#ifndef TclObjCommandComplete_TCL_DECLARED 302#define TclObjCommandComplete_TCL_DECLARED 303/* 62 */ 304EXTERN int TclObjCommandComplete(Tcl_Obj *cmdPtr); 305#endif 306#ifndef TclObjInterpProc_TCL_DECLARED 307#define TclObjInterpProc_TCL_DECLARED 308/* 63 */ 309EXTERN int TclObjInterpProc(ClientData clientData, 310 Tcl_Interp *interp, int objc, 311 Tcl_Obj *CONST objv[]); 312#endif 313#ifndef TclObjInvoke_TCL_DECLARED 314#define TclObjInvoke_TCL_DECLARED 315/* 64 */ 316EXTERN int TclObjInvoke(Tcl_Interp *interp, int objc, 317 Tcl_Obj *CONST objv[], int flags); 318#endif 319/* Slot 65 is reserved */ 320/* Slot 66 is reserved */ 321/* Slot 67 is reserved */ 322/* Slot 68 is reserved */ 323#ifndef TclpAlloc_TCL_DECLARED 324#define TclpAlloc_TCL_DECLARED 325/* 69 */ 326EXTERN char * TclpAlloc(unsigned int size); 327#endif 328/* Slot 70 is reserved */ 329/* Slot 71 is reserved */ 330/* Slot 72 is reserved */ 331/* Slot 73 is reserved */ 332#ifndef TclpFree_TCL_DECLARED 333#define TclpFree_TCL_DECLARED 334/* 74 */ 335EXTERN void TclpFree(char *ptr); 336#endif 337#ifndef TclpGetClicks_TCL_DECLARED 338#define TclpGetClicks_TCL_DECLARED 339/* 75 */ 340EXTERN unsigned long TclpGetClicks(void); 341#endif 342#ifndef TclpGetSeconds_TCL_DECLARED 343#define TclpGetSeconds_TCL_DECLARED 344/* 76 */ 345EXTERN unsigned long TclpGetSeconds(void); 346#endif 347#ifndef TclpGetTime_TCL_DECLARED 348#define TclpGetTime_TCL_DECLARED 349/* 77 */ 350EXTERN void TclpGetTime(Tcl_Time *time); 351#endif 352#ifndef TclpGetTimeZone_TCL_DECLARED 353#define TclpGetTimeZone_TCL_DECLARED 354/* 78 */ 355EXTERN int TclpGetTimeZone(unsigned long time); 356#endif 357/* Slot 79 is reserved */ 358/* Slot 80 is reserved */ 359#ifndef TclpRealloc_TCL_DECLARED 360#define TclpRealloc_TCL_DECLARED 361/* 81 */ 362EXTERN char * TclpRealloc(char *ptr, unsigned int size); 363#endif 364/* Slot 82 is reserved */ 365/* Slot 83 is reserved */ 366/* Slot 84 is reserved */ 367/* Slot 85 is reserved */ 368/* Slot 86 is reserved */ 369/* Slot 87 is reserved */ 370#ifndef TclPrecTraceProc_TCL_DECLARED 371#define TclPrecTraceProc_TCL_DECLARED 372/* 88 */ 373EXTERN char * TclPrecTraceProc(ClientData clientData, 374 Tcl_Interp *interp, CONST char *name1, 375 CONST char *name2, int flags); 376#endif 377#ifndef TclPreventAliasLoop_TCL_DECLARED 378#define TclPreventAliasLoop_TCL_DECLARED 379/* 89 */ 380EXTERN int TclPreventAliasLoop(Tcl_Interp *interp, 381 Tcl_Interp *cmdInterp, Tcl_Command cmd); 382#endif 383/* Slot 90 is reserved */ 384#ifndef TclProcCleanupProc_TCL_DECLARED 385#define TclProcCleanupProc_TCL_DECLARED 386/* 91 */ 387EXTERN void TclProcCleanupProc(Proc *procPtr); 388#endif 389#ifndef TclProcCompileProc_TCL_DECLARED 390#define TclProcCompileProc_TCL_DECLARED 391/* 92 */ 392EXTERN int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, 393 Tcl_Obj *bodyPtr, Namespace *nsPtr, 394 CONST char *description, 395 CONST char *procName); 396#endif 397#ifndef TclProcDeleteProc_TCL_DECLARED 398#define TclProcDeleteProc_TCL_DECLARED 399/* 93 */ 400EXTERN void TclProcDeleteProc(ClientData clientData); 401#endif 402/* Slot 94 is reserved */ 403/* Slot 95 is reserved */ 404#ifndef TclRenameCommand_TCL_DECLARED 405#define TclRenameCommand_TCL_DECLARED 406/* 96 */ 407EXTERN int TclRenameCommand(Tcl_Interp *interp, 408 CONST char *oldName, CONST char *newName); 409#endif 410#ifndef TclResetShadowedCmdRefs_TCL_DECLARED 411#define TclResetShadowedCmdRefs_TCL_DECLARED 412/* 97 */ 413EXTERN void TclResetShadowedCmdRefs(Tcl_Interp *interp, 414 Command *newCmdPtr); 415#endif 416#ifndef TclServiceIdle_TCL_DECLARED 417#define TclServiceIdle_TCL_DECLARED 418/* 98 */ 419EXTERN int TclServiceIdle(void); 420#endif 421/* Slot 99 is reserved */ 422/* Slot 100 is reserved */ 423#ifndef TclSetPreInitScript_TCL_DECLARED 424#define TclSetPreInitScript_TCL_DECLARED 425/* 101 */ 426EXTERN char * TclSetPreInitScript(char *string); 427#endif 428#ifndef TclSetupEnv_TCL_DECLARED 429#define TclSetupEnv_TCL_DECLARED 430/* 102 */ 431EXTERN void TclSetupEnv(Tcl_Interp *interp); 432#endif 433#ifndef TclSockGetPort_TCL_DECLARED 434#define TclSockGetPort_TCL_DECLARED 435/* 103 */ 436EXTERN int TclSockGetPort(Tcl_Interp *interp, CONST char *str, 437 CONST char *proto, int *portPtr); 438#endif 439#ifndef TclSockMinimumBuffers_TCL_DECLARED 440#define TclSockMinimumBuffers_TCL_DECLARED 441/* 104 */ 442EXTERN int TclSockMinimumBuffers(int sock, int size); 443#endif 444/* Slot 105 is reserved */ 445/* Slot 106 is reserved */ 446/* Slot 107 is reserved */ 447#ifndef TclTeardownNamespace_TCL_DECLARED 448#define TclTeardownNamespace_TCL_DECLARED 449/* 108 */ 450EXTERN void TclTeardownNamespace(Namespace *nsPtr); 451#endif 452#ifndef TclUpdateReturnInfo_TCL_DECLARED 453#define TclUpdateReturnInfo_TCL_DECLARED 454/* 109 */ 455EXTERN int TclUpdateReturnInfo(Interp *iPtr); 456#endif 457/* Slot 110 is reserved */ 458#ifndef Tcl_AddInterpResolvers_TCL_DECLARED 459#define Tcl_AddInterpResolvers_TCL_DECLARED 460/* 111 */ 461EXTERN void Tcl_AddInterpResolvers(Tcl_Interp *interp, 462 CONST char *name, 463 Tcl_ResolveCmdProc *cmdProc, 464 Tcl_ResolveVarProc *varProc, 465 Tcl_ResolveCompiledVarProc *compiledVarProc); 466#endif 467#ifndef Tcl_AppendExportList_TCL_DECLARED 468#define Tcl_AppendExportList_TCL_DECLARED 469/* 112 */ 470EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, 471 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); 472#endif 473#ifndef Tcl_CreateNamespace_TCL_DECLARED 474#define Tcl_CreateNamespace_TCL_DECLARED 475/* 113 */ 476EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, 477 CONST char *name, ClientData clientData, 478 Tcl_NamespaceDeleteProc *deleteProc); 479#endif 480#ifndef Tcl_DeleteNamespace_TCL_DECLARED 481#define Tcl_DeleteNamespace_TCL_DECLARED 482/* 114 */ 483EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); 484#endif 485#ifndef Tcl_Export_TCL_DECLARED 486#define Tcl_Export_TCL_DECLARED 487/* 115 */ 488EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, 489 CONST char *pattern, int resetListFirst); 490#endif 491#ifndef Tcl_FindCommand_TCL_DECLARED 492#define Tcl_FindCommand_TCL_DECLARED 493/* 116 */ 494EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, 495 Tcl_Namespace *contextNsPtr, int flags); 496#endif 497#ifndef Tcl_FindNamespace_TCL_DECLARED 498#define Tcl_FindNamespace_TCL_DECLARED 499/* 117 */ 500EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, 501 CONST char *name, 502 Tcl_Namespace *contextNsPtr, int flags); 503#endif 504#ifndef Tcl_GetInterpResolvers_TCL_DECLARED 505#define Tcl_GetInterpResolvers_TCL_DECLARED 506/* 118 */ 507EXTERN int Tcl_GetInterpResolvers(Tcl_Interp *interp, 508 CONST char *name, Tcl_ResolverInfo *resInfo); 509#endif 510#ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED 511#define Tcl_GetNamespaceResolvers_TCL_DECLARED 512/* 119 */ 513EXTERN int Tcl_GetNamespaceResolvers( 514 Tcl_Namespace *namespacePtr, 515 Tcl_ResolverInfo *resInfo); 516#endif 517#ifndef Tcl_FindNamespaceVar_TCL_DECLARED 518#define Tcl_FindNamespaceVar_TCL_DECLARED 519/* 120 */ 520EXTERN Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, 521 CONST char *name, 522 Tcl_Namespace *contextNsPtr, int flags); 523#endif 524#ifndef Tcl_ForgetImport_TCL_DECLARED 525#define Tcl_ForgetImport_TCL_DECLARED 526/* 121 */ 527EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, 528 Tcl_Namespace *nsPtr, CONST char *pattern); 529#endif 530#ifndef Tcl_GetCommandFromObj_TCL_DECLARED 531#define Tcl_GetCommandFromObj_TCL_DECLARED 532/* 122 */ 533EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, 534 Tcl_Obj *objPtr); 535#endif 536#ifndef Tcl_GetCommandFullName_TCL_DECLARED 537#define Tcl_GetCommandFullName_TCL_DECLARED 538/* 123 */ 539EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, 540 Tcl_Command command, Tcl_Obj *objPtr); 541#endif 542#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED 543#define Tcl_GetCurrentNamespace_TCL_DECLARED 544/* 124 */ 545EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); 546#endif 547#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED 548#define Tcl_GetGlobalNamespace_TCL_DECLARED 549/* 125 */ 550EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); 551#endif 552#ifndef Tcl_GetVariableFullName_TCL_DECLARED 553#define Tcl_GetVariableFullName_TCL_DECLARED 554/* 126 */ 555EXTERN void Tcl_GetVariableFullName(Tcl_Interp *interp, 556 Tcl_Var variable, Tcl_Obj *objPtr); 557#endif 558#ifndef Tcl_Import_TCL_DECLARED 559#define Tcl_Import_TCL_DECLARED 560/* 127 */ 561EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, 562 CONST char *pattern, int allowOverwrite); 563#endif 564#ifndef Tcl_PopCallFrame_TCL_DECLARED 565#define Tcl_PopCallFrame_TCL_DECLARED 566/* 128 */ 567EXTERN void Tcl_PopCallFrame(Tcl_Interp *interp); 568#endif 569#ifndef Tcl_PushCallFrame_TCL_DECLARED 570#define Tcl_PushCallFrame_TCL_DECLARED 571/* 129 */ 572EXTERN int Tcl_PushCallFrame(Tcl_Interp *interp, 573 Tcl_CallFrame *framePtr, 574 Tcl_Namespace *nsPtr, int isProcCallFrame); 575#endif 576#ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED 577#define Tcl_RemoveInterpResolvers_TCL_DECLARED 578/* 130 */ 579EXTERN int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, 580 CONST char *name); 581#endif 582#ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED 583#define Tcl_SetNamespaceResolvers_TCL_DECLARED 584/* 131 */ 585EXTERN void Tcl_SetNamespaceResolvers( 586 Tcl_Namespace *namespacePtr, 587 Tcl_ResolveCmdProc *cmdProc, 588 Tcl_ResolveVarProc *varProc, 589 Tcl_ResolveCompiledVarProc *compiledVarProc); 590#endif 591#ifndef TclpHasSockets_TCL_DECLARED 592#define TclpHasSockets_TCL_DECLARED 593/* 132 */ 594EXTERN int TclpHasSockets(Tcl_Interp *interp); 595#endif 596#ifndef TclpGetDate_TCL_DECLARED 597#define TclpGetDate_TCL_DECLARED 598/* 133 */ 599EXTERN struct tm * TclpGetDate(CONST time_t *time, int useGMT); 600#endif 601/* Slot 134 is reserved */ 602/* Slot 135 is reserved */ 603/* Slot 136 is reserved */ 604/* Slot 137 is reserved */ 605#ifndef TclGetEnv_TCL_DECLARED 606#define TclGetEnv_TCL_DECLARED 607/* 138 */ 608EXTERN CONST84_RETURN char * TclGetEnv(CONST char *name, 609 Tcl_DString *valuePtr); 610#endif 611/* Slot 139 is reserved */ 612/* Slot 140 is reserved */ 613#ifndef TclpGetCwd_TCL_DECLARED 614#define TclpGetCwd_TCL_DECLARED 615/* 141 */ 616EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp, 617 Tcl_DString *cwdPtr); 618#endif 619#ifndef TclSetByteCodeFromAny_TCL_DECLARED 620#define TclSetByteCodeFromAny_TCL_DECLARED 621/* 142 */ 622EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp, 623 Tcl_Obj *objPtr, CompileHookProc *hookProc, 624 ClientData clientData); 625#endif 626#ifndef TclAddLiteralObj_TCL_DECLARED 627#define TclAddLiteralObj_TCL_DECLARED 628/* 143 */ 629EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr, 630 Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); 631#endif 632#ifndef TclHideLiteral_TCL_DECLARED 633#define TclHideLiteral_TCL_DECLARED 634/* 144 */ 635EXTERN void TclHideLiteral(Tcl_Interp *interp, 636 struct CompileEnv *envPtr, int index); 637#endif 638#ifndef TclGetAuxDataType_TCL_DECLARED 639#define TclGetAuxDataType_TCL_DECLARED 640/* 145 */ 641EXTERN struct AuxDataType * TclGetAuxDataType(char *typeName); 642#endif 643#ifndef TclHandleCreate_TCL_DECLARED 644#define TclHandleCreate_TCL_DECLARED 645/* 146 */ 646EXTERN TclHandle TclHandleCreate(VOID *ptr); 647#endif 648#ifndef TclHandleFree_TCL_DECLARED 649#define TclHandleFree_TCL_DECLARED 650/* 147 */ 651EXTERN void TclHandleFree(TclHandle handle); 652#endif 653#ifndef TclHandlePreserve_TCL_DECLARED 654#define TclHandlePreserve_TCL_DECLARED 655/* 148 */ 656EXTERN TclHandle TclHandlePreserve(TclHandle handle); 657#endif 658#ifndef TclHandleRelease_TCL_DECLARED 659#define TclHandleRelease_TCL_DECLARED 660/* 149 */ 661EXTERN void TclHandleRelease(TclHandle handle); 662#endif 663#ifndef TclRegAbout_TCL_DECLARED 664#define TclRegAbout_TCL_DECLARED 665/* 150 */ 666EXTERN int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re); 667#endif 668#ifndef TclRegExpRangeUniChar_TCL_DECLARED 669#define TclRegExpRangeUniChar_TCL_DECLARED 670/* 151 */ 671EXTERN void TclRegExpRangeUniChar(Tcl_RegExp re, int index, 672 int *startPtr, int *endPtr); 673#endif 674#ifndef TclSetLibraryPath_TCL_DECLARED 675#define TclSetLibraryPath_TCL_DECLARED 676/* 152 */ 677EXTERN void TclSetLibraryPath(Tcl_Obj *pathPtr); 678#endif 679#ifndef TclGetLibraryPath_TCL_DECLARED 680#define TclGetLibraryPath_TCL_DECLARED 681/* 153 */ 682EXTERN Tcl_Obj * TclGetLibraryPath(void); 683#endif 684/* Slot 154 is reserved */ 685/* Slot 155 is reserved */ 686#ifndef TclRegError_TCL_DECLARED 687#define TclRegError_TCL_DECLARED 688/* 156 */ 689EXTERN void TclRegError(Tcl_Interp *interp, CONST char *msg, 690 int status); 691#endif 692#ifndef TclVarTraceExists_TCL_DECLARED 693#define TclVarTraceExists_TCL_DECLARED 694/* 157 */ 695EXTERN Var * TclVarTraceExists(Tcl_Interp *interp, 696 CONST char *varName); 697#endif 698#ifndef TclSetStartupScriptFileName_TCL_DECLARED 699#define TclSetStartupScriptFileName_TCL_DECLARED 700/* 158 */ 701EXTERN void TclSetStartupScriptFileName(CONST char *filename); 702#endif 703#ifndef TclGetStartupScriptFileName_TCL_DECLARED 704#define TclGetStartupScriptFileName_TCL_DECLARED 705/* 159 */ 706EXTERN CONST84_RETURN char * TclGetStartupScriptFileName(void); 707#endif 708/* Slot 160 is reserved */ 709#ifndef TclChannelTransform_TCL_DECLARED 710#define TclChannelTransform_TCL_DECLARED 711/* 161 */ 712EXTERN int TclChannelTransform(Tcl_Interp *interp, 713 Tcl_Channel chan, Tcl_Obj *cmdObjPtr); 714#endif 715#ifndef TclChannelEventScriptInvoker_TCL_DECLARED 716#define TclChannelEventScriptInvoker_TCL_DECLARED 717/* 162 */ 718EXTERN void TclChannelEventScriptInvoker(ClientData clientData, 719 int flags); 720#endif 721#ifndef TclGetInstructionTable_TCL_DECLARED 722#define TclGetInstructionTable_TCL_DECLARED 723/* 163 */ 724EXTERN void * TclGetInstructionTable(void); 725#endif 726#ifndef TclExpandCodeArray_TCL_DECLARED 727#define TclExpandCodeArray_TCL_DECLARED 728/* 164 */ 729EXTERN void TclExpandCodeArray(void *envPtr); 730#endif 731#ifndef TclpSetInitialEncodings_TCL_DECLARED 732#define TclpSetInitialEncodings_TCL_DECLARED 733/* 165 */ 734EXTERN void TclpSetInitialEncodings(void); 735#endif 736#ifndef TclListObjSetElement_TCL_DECLARED 737#define TclListObjSetElement_TCL_DECLARED 738/* 166 */ 739EXTERN int TclListObjSetElement(Tcl_Interp *interp, 740 Tcl_Obj *listPtr, int index, 741 Tcl_Obj *valuePtr); 742#endif 743#ifndef TclSetStartupScriptPath_TCL_DECLARED 744#define TclSetStartupScriptPath_TCL_DECLARED 745/* 167 */ 746EXTERN void TclSetStartupScriptPath(Tcl_Obj *pathPtr); 747#endif 748#ifndef TclGetStartupScriptPath_TCL_DECLARED 749#define TclGetStartupScriptPath_TCL_DECLARED 750/* 168 */ 751EXTERN Tcl_Obj * TclGetStartupScriptPath(void); 752#endif 753#ifndef TclpUtfNcmp2_TCL_DECLARED 754#define TclpUtfNcmp2_TCL_DECLARED 755/* 169 */ 756EXTERN int TclpUtfNcmp2(CONST char *s1, CONST char *s2, 757 unsigned long n); 758#endif 759#ifndef TclCheckInterpTraces_TCL_DECLARED 760#define TclCheckInterpTraces_TCL_DECLARED 761/* 170 */ 762EXTERN int TclCheckInterpTraces(Tcl_Interp *interp, 763 CONST char *command, int numChars, 764 Command *cmdPtr, int result, int traceFlags, 765 int objc, Tcl_Obj *CONST objv[]); 766#endif 767#ifndef TclCheckExecutionTraces_TCL_DECLARED 768#define TclCheckExecutionTraces_TCL_DECLARED 769/* 171 */ 770EXTERN int TclCheckExecutionTraces(Tcl_Interp *interp, 771 CONST char *command, int numChars, 772 Command *cmdPtr, int result, int traceFlags, 773 int objc, Tcl_Obj *CONST objv[]); 774#endif 775#ifndef TclInThreadExit_TCL_DECLARED 776#define TclInThreadExit_TCL_DECLARED 777/* 172 */ 778EXTERN int TclInThreadExit(void); 779#endif 780#ifndef TclUniCharMatch_TCL_DECLARED 781#define TclUniCharMatch_TCL_DECLARED 782/* 173 */ 783EXTERN int TclUniCharMatch(CONST Tcl_UniChar *string, 784 int strLen, CONST Tcl_UniChar *pattern, 785 int ptnLen, int flags); 786#endif 787/* Slot 174 is reserved */ 788#ifndef TclCallVarTraces_TCL_DECLARED 789#define TclCallVarTraces_TCL_DECLARED 790/* 175 */ 791EXTERN int TclCallVarTraces(Interp *iPtr, Var *arrayPtr, 792 Var *varPtr, CONST char *part1, 793 CONST char *part2, int flags, 794 int leaveErrMsg); 795#endif 796#ifndef TclCleanupVar_TCL_DECLARED 797#define TclCleanupVar_TCL_DECLARED 798/* 176 */ 799EXTERN void TclCleanupVar(Var *varPtr, Var *arrayPtr); 800#endif 801#ifndef TclVarErrMsg_TCL_DECLARED 802#define TclVarErrMsg_TCL_DECLARED 803/* 177 */ 804EXTERN void TclVarErrMsg(Tcl_Interp *interp, CONST char *part1, 805 CONST char *part2, CONST char *operation, 806 CONST char *reason); 807#endif 808#ifndef Tcl_SetStartupScript_TCL_DECLARED 809#define Tcl_SetStartupScript_TCL_DECLARED 810/* 178 */ 811EXTERN void Tcl_SetStartupScript(Tcl_Obj *pathPtr, 812 CONST char*encodingName); 813#endif 814#ifndef Tcl_GetStartupScript_TCL_DECLARED 815#define Tcl_GetStartupScript_TCL_DECLARED 816/* 179 */ 817EXTERN Tcl_Obj * Tcl_GetStartupScript(CONST char **encodingNamePtr); 818#endif 819/* Slot 180 is reserved */ 820/* Slot 181 is reserved */ 821#ifndef TclpLocaltime_TCL_DECLARED 822#define TclpLocaltime_TCL_DECLARED 823/* 182 */ 824EXTERN struct tm * TclpLocaltime(CONST time_t *clock); 825#endif 826#ifndef TclpGmtime_TCL_DECLARED 827#define TclpGmtime_TCL_DECLARED 828/* 183 */ 829EXTERN struct tm * TclpGmtime(CONST time_t *clock); 830#endif 831/* Slot 184 is reserved */ 832/* Slot 185 is reserved */ 833/* Slot 186 is reserved */ 834/* Slot 187 is reserved */ 835/* Slot 188 is reserved */ 836/* Slot 189 is reserved */ 837/* Slot 190 is reserved */ 838/* Slot 191 is reserved */ 839/* Slot 192 is reserved */ 840/* Slot 193 is reserved */ 841/* Slot 194 is reserved */ 842/* Slot 195 is reserved */ 843/* Slot 196 is reserved */ 844/* Slot 197 is reserved */ 845#ifndef TclObjGetFrame_TCL_DECLARED 846#define TclObjGetFrame_TCL_DECLARED 847/* 198 */ 848EXTERN int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr, 849 CallFrame **framePtrPtr); 850#endif 851/* Slot 199 is reserved */ 852#ifndef TclpObjRemoveDirectory_TCL_DECLARED 853#define TclpObjRemoveDirectory_TCL_DECLARED 854/* 200 */ 855EXTERN int TclpObjRemoveDirectory(Tcl_Obj *pathPtr, 856 int recursive, Tcl_Obj **errorPtr); 857#endif 858#ifndef TclpObjCopyDirectory_TCL_DECLARED 859#define TclpObjCopyDirectory_TCL_DECLARED 860/* 201 */ 861EXTERN int TclpObjCopyDirectory(Tcl_Obj *srcPathPtr, 862 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); 863#endif 864#ifndef TclpObjCreateDirectory_TCL_DECLARED 865#define TclpObjCreateDirectory_TCL_DECLARED 866/* 202 */ 867EXTERN int TclpObjCreateDirectory(Tcl_Obj *pathPtr); 868#endif 869#ifndef TclpObjDeleteFile_TCL_DECLARED 870#define TclpObjDeleteFile_TCL_DECLARED 871/* 203 */ 872EXTERN int TclpObjDeleteFile(Tcl_Obj *pathPtr); 873#endif 874#ifndef TclpObjCopyFile_TCL_DECLARED 875#define TclpObjCopyFile_TCL_DECLARED 876/* 204 */ 877EXTERN int TclpObjCopyFile(Tcl_Obj *srcPathPtr, 878 Tcl_Obj *destPathPtr); 879#endif 880#ifndef TclpObjRenameFile_TCL_DECLARED 881#define TclpObjRenameFile_TCL_DECLARED 882/* 205 */ 883EXTERN int TclpObjRenameFile(Tcl_Obj *srcPathPtr, 884 Tcl_Obj *destPathPtr); 885#endif 886#ifndef TclpObjStat_TCL_DECLARED 887#define TclpObjStat_TCL_DECLARED 888/* 206 */ 889EXTERN int TclpObjStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); 890#endif 891#ifndef TclpObjAccess_TCL_DECLARED 892#define TclpObjAccess_TCL_DECLARED 893/* 207 */ 894EXTERN int TclpObjAccess(Tcl_Obj *pathPtr, int mode); 895#endif 896#ifndef TclpOpenFileChannel_TCL_DECLARED 897#define TclpOpenFileChannel_TCL_DECLARED 898/* 208 */ 899EXTERN Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, 900 Tcl_Obj *pathPtr, int mode, int permissions); 901#endif 902/* Slot 209 is reserved */ 903/* Slot 210 is reserved */ 904/* Slot 211 is reserved */ 905#ifndef TclpFindExecutable_TCL_DECLARED 906#define TclpFindExecutable_TCL_DECLARED 907/* 212 */ 908EXTERN void TclpFindExecutable(CONST char *argv0); 909#endif 910#ifndef TclGetObjNameOfExecutable_TCL_DECLARED 911#define TclGetObjNameOfExecutable_TCL_DECLARED 912/* 213 */ 913EXTERN Tcl_Obj * TclGetObjNameOfExecutable(void); 914#endif 915#ifndef TclSetObjNameOfExecutable_TCL_DECLARED 916#define TclSetObjNameOfExecutable_TCL_DECLARED 917/* 214 */ 918EXTERN void TclSetObjNameOfExecutable(Tcl_Obj *name, 919 Tcl_Encoding encoding); 920#endif 921#ifndef TclStackAlloc_TCL_DECLARED 922#define TclStackAlloc_TCL_DECLARED 923/* 215 */ 924EXTERN void * TclStackAlloc(Tcl_Interp *interp, int numBytes); 925#endif 926#ifndef TclStackFree_TCL_DECLARED 927#define TclStackFree_TCL_DECLARED 928/* 216 */ 929EXTERN void TclStackFree(Tcl_Interp *interp, void *freePtr); 930#endif 931#ifndef TclPushStackFrame_TCL_DECLARED 932#define TclPushStackFrame_TCL_DECLARED 933/* 217 */ 934EXTERN int TclPushStackFrame(Tcl_Interp *interp, 935 Tcl_CallFrame **framePtrPtr, 936 Tcl_Namespace *namespacePtr, 937 int isProcCallFrame); 938#endif 939#ifndef TclPopStackFrame_TCL_DECLARED 940#define TclPopStackFrame_TCL_DECLARED 941/* 218 */ 942EXTERN void TclPopStackFrame(Tcl_Interp *interp); 943#endif 944/* Slot 219 is reserved */ 945/* Slot 220 is reserved */ 946/* Slot 221 is reserved */ 947/* Slot 222 is reserved */ 948/* Slot 223 is reserved */ 949#ifndef TclGetPlatform_TCL_DECLARED 950#define TclGetPlatform_TCL_DECLARED 951/* 224 */ 952EXTERN TclPlatformType * TclGetPlatform(void); 953#endif 954#ifndef TclTraceDictPath_TCL_DECLARED 955#define TclTraceDictPath_TCL_DECLARED 956/* 225 */ 957EXTERN Tcl_Obj * TclTraceDictPath(Tcl_Interp *interp, 958 Tcl_Obj *rootPtr, int keyc, 959 Tcl_Obj *CONST keyv[], int flags); 960#endif 961#ifndef TclObjBeingDeleted_TCL_DECLARED 962#define TclObjBeingDeleted_TCL_DECLARED 963/* 226 */ 964EXTERN int TclObjBeingDeleted(Tcl_Obj *objPtr); 965#endif 966#ifndef TclSetNsPath_TCL_DECLARED 967#define TclSetNsPath_TCL_DECLARED 968/* 227 */ 969EXTERN void TclSetNsPath(Namespace *nsPtr, int pathLength, 970 Tcl_Namespace *pathAry[]); 971#endif 972#ifndef TclObjInterpProcCore_TCL_DECLARED 973#define TclObjInterpProcCore_TCL_DECLARED 974/* 228 */ 975EXTERN int TclObjInterpProcCore(register Tcl_Interp *interp, 976 Tcl_Obj *procNameObj, int skip, 977 ProcErrorProc errorProc); 978#endif 979#ifndef TclPtrMakeUpvar_TCL_DECLARED 980#define TclPtrMakeUpvar_TCL_DECLARED 981/* 229 */ 982EXTERN int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr, 983 CONST char *myName, int myFlags, int index); 984#endif 985#ifndef TclObjLookupVar_TCL_DECLARED 986#define TclObjLookupVar_TCL_DECLARED 987/* 230 */ 988EXTERN Var * TclObjLookupVar(Tcl_Interp *interp, 989 Tcl_Obj *part1Ptr, CONST char *part2, 990 int flags, CONST char *msg, 991 CONST int createPart1, CONST int createPart2, 992 Var **arrayPtrPtr); 993#endif 994#ifndef TclGetNamespaceFromObj_TCL_DECLARED 995#define TclGetNamespaceFromObj_TCL_DECLARED 996/* 231 */ 997EXTERN int TclGetNamespaceFromObj(Tcl_Interp *interp, 998 Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); 999#endif 1000#ifndef TclEvalObjEx_TCL_DECLARED 1001#define TclEvalObjEx_TCL_DECLARED 1002/* 232 */ 1003EXTERN int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, 1004 int flags, CONST CmdFrame *invoker, int word); 1005#endif 1006#ifndef TclGetSrcInfoForPc_TCL_DECLARED 1007#define TclGetSrcInfoForPc_TCL_DECLARED 1008/* 233 */ 1009EXTERN void TclGetSrcInfoForPc(CmdFrame *contextPtr); 1010#endif 1011#ifndef TclVarHashCreateVar_TCL_DECLARED 1012#define TclVarHashCreateVar_TCL_DECLARED 1013/* 234 */ 1014EXTERN Var * TclVarHashCreateVar(TclVarHashTable *tablePtr, 1015 CONST char *key, int *newPtr); 1016#endif 1017#ifndef TclInitVarHashTable_TCL_DECLARED 1018#define TclInitVarHashTable_TCL_DECLARED 1019/* 235 */ 1020EXTERN void TclInitVarHashTable(TclVarHashTable *tablePtr, 1021 Namespace *nsPtr); 1022#endif 1023#ifndef TclBackgroundException_TCL_DECLARED 1024#define TclBackgroundException_TCL_DECLARED 1025/* 236 */ 1026EXTERN void TclBackgroundException(Tcl_Interp *interp, int code); 1027#endif 1028/* Slot 237 is reserved */ 1029/* Slot 238 is reserved */ 1030/* Slot 239 is reserved */ 1031/* Slot 240 is reserved */ 1032/* Slot 241 is reserved */ 1033/* Slot 242 is reserved */ 1034#ifndef TclDbDumpActiveObjects_TCL_DECLARED 1035#define TclDbDumpActiveObjects_TCL_DECLARED 1036/* 243 */ 1037EXTERN void TclDbDumpActiveObjects(FILE *outFile); 1038#endif 1039 1040typedef struct TclIntStubs { 1041 int magic; 1042 struct TclIntStubHooks *hooks; 1043 1044 void *reserved0; 1045 void *reserved1; 1046 void *reserved2; 1047 void (*tclAllocateFreeObjects) (void); /* 3 */ 1048 void *reserved4; 1049 int (*tclCleanupChildren) (Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); /* 5 */ 1050 void (*tclCleanupCommand) (Command *cmdPtr); /* 6 */ 1051 int (*tclCopyAndCollapse) (int count, CONST char *src, char *dst); /* 7 */ 1052 int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); /* 8 */ 1053 int (*tclCreatePipeline) (Tcl_Interp *interp, int argc, CONST char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr); /* 9 */ 1054 int (*tclCreateProc) (Tcl_Interp *interp, Namespace *nsPtr, CONST char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr); /* 10 */ 1055 void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */ 1056 void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */ 1057 void *reserved13; 1058 void (*tclDumpMemoryInfo) (FILE *outFile); /* 14 */ 1059 void *reserved15; 1060 void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */ 1061 void *reserved17; 1062 void *reserved18; 1063 void *reserved19; 1064 void *reserved20; 1065 void *reserved21; 1066 int (*tclFindElement) (Tcl_Interp *interp, CONST char *listStr, int listLength, CONST char **elementPtr, CONST char **nextPtr, int *sizePtr, int *bracePtr); /* 22 */ 1067 Proc * (*tclFindProc) (Interp *iPtr, CONST char *procName); /* 23 */ 1068 void *reserved24; 1069 void (*tclFreePackageInfo) (Interp *iPtr); /* 25 */ 1070 void *reserved26; 1071 void *reserved27; 1072 Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */ 1073 void *reserved29; 1074 void *reserved30; 1075 CONST char * (*tclGetExtension) (CONST char *name); /* 31 */ 1076 int (*tclGetFrame) (Tcl_Interp *interp, CONST char *str, CallFrame **framePtrPtr); /* 32 */ 1077 void *reserved33; 1078 int (*tclGetIntForIndex) (Tcl_Interp *interp, Tcl_Obj *objPtr, int endValue, int *indexPtr); /* 34 */ 1079 void *reserved35; 1080 int (*tclGetLong) (Tcl_Interp *interp, CONST char *str, long *longPtr); /* 36 */ 1081 int (*tclGetLoadedPackages) (Tcl_Interp *interp, char *targetName); /* 37 */ 1082 int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, CONST char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, CONST char **simpleNamePtr); /* 38 */ 1083 TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */ 1084 int (*tclGetOpenMode) (Tcl_Interp *interp, CONST char *str, int *seekFlagPtr); /* 40 */ 1085 Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ 1086 char * (*tclpGetUserHome) (CONST char *name, Tcl_DString *bufferPtr); /* 42 */ 1087 void *reserved43; 1088 int (*tclGuessPackageName) (CONST char *fileName, Tcl_DString *bufPtr); /* 44 */ 1089 int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */ 1090 int (*tclInExit) (void); /* 46 */ 1091 void *reserved47; 1092 void *reserved48; 1093 void *reserved49; 1094 void (*tclInitCompiledLocals) (Tcl_Interp *interp, CallFrame *framePtr, Namespace *nsPtr); /* 50 */ 1095 int (*tclInterpInit) (Tcl_Interp *interp); /* 51 */ 1096 void *reserved52; 1097 int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp *interp, int argc, CONST84 char **argv); /* 53 */ 1098 int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 54 */ 1099 Proc * (*tclIsProc) (Command *cmdPtr); /* 55 */ 1100 void *reserved56; 1101 void *reserved57; 1102 Var * (*tclLookupVar) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, int flags, CONST char *msg, int createPart1, int createPart2, Var **arrayPtrPtr); /* 58 */ 1103 void *reserved59; 1104 int (*tclNeedSpace) (CONST char *start, CONST char *end); /* 60 */ 1105 Tcl_Obj * (*tclNewProcBodyObj) (Proc *procPtr); /* 61 */ 1106 int (*tclObjCommandComplete) (Tcl_Obj *cmdPtr); /* 62 */ 1107 int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 63 */ 1108 int (*tclObjInvoke) (Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 64 */ 1109 void *reserved65; 1110 void *reserved66; 1111 void *reserved67; 1112 void *reserved68; 1113 char * (*tclpAlloc) (unsigned int size); /* 69 */ 1114 void *reserved70; 1115 void *reserved71; 1116 void *reserved72; 1117 void *reserved73; 1118 void (*tclpFree) (char *ptr); /* 74 */ 1119 unsigned long (*tclpGetClicks) (void); /* 75 */ 1120 unsigned long (*tclpGetSeconds) (void); /* 76 */ 1121 void (*tclpGetTime) (Tcl_Time *time); /* 77 */ 1122 int (*tclpGetTimeZone) (unsigned long time); /* 78 */ 1123 void *reserved79; 1124 void *reserved80; 1125 char * (*tclpRealloc) (char *ptr, unsigned int size); /* 81 */ 1126 void *reserved82; 1127 void *reserved83; 1128 void *reserved84; 1129 void *reserved85; 1130 void *reserved86; 1131 void *reserved87; 1132 char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp *interp, CONST char *name1, CONST char *name2, int flags); /* 88 */ 1133 int (*tclPreventAliasLoop) (Tcl_Interp *interp, Tcl_Interp *cmdInterp, Tcl_Command cmd); /* 89 */ 1134 void *reserved90; 1135 void (*tclProcCleanupProc) (Proc *procPtr); /* 91 */ 1136 int (*tclProcCompileProc) (Tcl_Interp *interp, Proc *procPtr, Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, CONST char *procName); /* 92 */ 1137 void (*tclProcDeleteProc) (ClientData clientData); /* 93 */ 1138 void *reserved94; 1139 void *reserved95; 1140 int (*tclRenameCommand) (Tcl_Interp *interp, CONST char *oldName, CONST char *newName); /* 96 */ 1141 void (*tclResetShadowedCmdRefs) (Tcl_Interp *interp, Command *newCmdPtr); /* 97 */ 1142 int (*tclServiceIdle) (void); /* 98 */ 1143 void *reserved99; 1144 void *reserved100; 1145 char * (*tclSetPreInitScript) (char *string); /* 101 */ 1146 void (*tclSetupEnv) (Tcl_Interp *interp); /* 102 */ 1147 int (*tclSockGetPort) (Tcl_Interp *interp, CONST char *str, CONST char *proto, int *portPtr); /* 103 */ 1148 int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */ 1149 void *reserved105; 1150 void *reserved106; 1151 void *reserved107; 1152 void (*tclTeardownNamespace) (Namespace *nsPtr); /* 108 */ 1153 int (*tclUpdateReturnInfo) (Interp *iPtr); /* 109 */ 1154 void *reserved110; 1155 void (*tcl_AddInterpResolvers) (Tcl_Interp *interp, CONST char *name, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 111 */ 1156 int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 112 */ 1157 Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 113 */ 1158 void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 114 */ 1159 int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int resetListFirst); /* 115 */ 1160 Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 116 */ 1161 Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 117 */ 1162 int (*tcl_GetInterpResolvers) (Tcl_Interp *interp, CONST char *name, Tcl_ResolverInfo *resInfo); /* 118 */ 1163 int (*tcl_GetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolverInfo *resInfo); /* 119 */ 1164 Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp *interp, CONST char *name, Tcl_Namespace *contextNsPtr, int flags); /* 120 */ 1165 int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern); /* 121 */ 1166 Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 122 */ 1167 void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 123 */ 1168 Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 124 */ 1169 Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 125 */ 1170 void (*tcl_GetVariableFullName) (Tcl_Interp *interp, Tcl_Var variable, Tcl_Obj *objPtr); /* 126 */ 1171 int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, CONST char *pattern, int allowOverwrite); /* 127 */ 1172 void (*tcl_PopCallFrame) (Tcl_Interp *interp); /* 128 */ 1173 int (*tcl_PushCallFrame) (Tcl_Interp *interp, Tcl_CallFrame *framePtr, Tcl_Namespace *nsPtr, int isProcCallFrame); /* 129 */ 1174 int (*tcl_RemoveInterpResolvers) (Tcl_Interp *interp, CONST char *name); /* 130 */ 1175 void (*tcl_SetNamespaceResolvers) (Tcl_Namespace *namespacePtr, Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, Tcl_ResolveCompiledVarProc *compiledVarProc); /* 131 */ 1176 int (*tclpHasSockets) (Tcl_Interp *interp); /* 132 */ 1177 struct tm * (*tclpGetDate) (CONST time_t *time, int useGMT); /* 133 */ 1178 void *reserved134; 1179 void *reserved135; 1180 void *reserved136; 1181 void *reserved137; 1182 CONST84_RETURN char * (*tclGetEnv) (CONST char *name, Tcl_DString *valuePtr); /* 138 */ 1183 void *reserved139; 1184 void *reserved140; 1185 CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 141 */ 1186 int (*tclSetByteCodeFromAny) (Tcl_Interp *interp, Tcl_Obj *objPtr, CompileHookProc *hookProc, ClientData clientData); /* 142 */ 1187 int (*tclAddLiteralObj) (struct CompileEnv *envPtr, Tcl_Obj *objPtr, LiteralEntry **litPtrPtr); /* 143 */ 1188 void (*tclHideLiteral) (Tcl_Interp *interp, struct CompileEnv *envPtr, int index); /* 144 */ 1189 struct AuxDataType * (*tclGetAuxDataType) (char *typeName); /* 145 */ 1190 TclHandle (*tclHandleCreate) (VOID *ptr); /* 146 */ 1191 void (*tclHandleFree) (TclHandle handle); /* 147 */ 1192 TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */ 1193 void (*tclHandleRelease) (TclHandle handle); /* 149 */ 1194 int (*tclRegAbout) (Tcl_Interp *interp, Tcl_RegExp re); /* 150 */ 1195 void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int *startPtr, int *endPtr); /* 151 */ 1196 void (*tclSetLibraryPath) (Tcl_Obj *pathPtr); /* 152 */ 1197 Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */ 1198 void *reserved154; 1199 void *reserved155; 1200 void (*tclRegError) (Tcl_Interp *interp, CONST char *msg, int status); /* 156 */ 1201 Var * (*tclVarTraceExists) (Tcl_Interp *interp, CONST char *varName); /* 157 */ 1202 void (*tclSetStartupScriptFileName) (CONST char *filename); /* 158 */ 1203 CONST84_RETURN char * (*tclGetStartupScriptFileName) (void); /* 159 */ 1204 void *reserved160; 1205 int (*tclChannelTransform) (Tcl_Interp *interp, Tcl_Channel chan, Tcl_Obj *cmdObjPtr); /* 161 */ 1206 void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */ 1207 void * (*tclGetInstructionTable) (void); /* 163 */ 1208 void (*tclExpandCodeArray) (void *envPtr); /* 164 */ 1209 void (*tclpSetInitialEncodings) (void); /* 165 */ 1210 int (*tclListObjSetElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj *valuePtr); /* 166 */ 1211 void (*tclSetStartupScriptPath) (Tcl_Obj *pathPtr); /* 167 */ 1212 Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */ 1213 int (*tclpUtfNcmp2) (CONST char *s1, CONST char *s2, unsigned long n); /* 169 */ 1214 int (*tclCheckInterpTraces) (Tcl_Interp *interp, CONST char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 170 */ 1215 int (*tclCheckExecutionTraces) (Tcl_Interp *interp, CONST char *command, int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 171 */ 1216 int (*tclInThreadExit) (void); /* 172 */ 1217 int (*tclUniCharMatch) (CONST Tcl_UniChar *string, int strLen, CONST Tcl_UniChar *pattern, int ptnLen, int flags); /* 173 */ 1218 void *reserved174; 1219 int (*tclCallVarTraces) (Interp *iPtr, Var *arrayPtr, Var *varPtr, CONST char *part1, CONST char *part2, int flags, int leaveErrMsg); /* 175 */ 1220 void (*tclCleanupVar) (Var *varPtr, Var *arrayPtr); /* 176 */ 1221 void (*tclVarErrMsg) (Tcl_Interp *interp, CONST char *part1, CONST char *part2, CONST char *operation, CONST char *reason); /* 177 */ 1222 void (*tcl_SetStartupScript) (Tcl_Obj *pathPtr, CONST char*encodingName); /* 178 */ 1223 Tcl_Obj * (*tcl_GetStartupScript) (CONST char **encodingNamePtr); /* 179 */ 1224 void *reserved180; 1225 void *reserved181; 1226 struct tm * (*tclpLocaltime) (CONST time_t *clock); /* 182 */ 1227 struct tm * (*tclpGmtime) (CONST time_t *clock); /* 183 */ 1228 void *reserved184; 1229 void *reserved185; 1230 void *reserved186; 1231 void *reserved187; 1232 void *reserved188; 1233 void *reserved189; 1234 void *reserved190; 1235 void *reserved191; 1236 void *reserved192; 1237 void *reserved193; 1238 void *reserved194; 1239 void *reserved195; 1240 void *reserved196; 1241 void *reserved197; 1242 int (*tclObjGetFrame) (Tcl_Interp *interp, Tcl_Obj *objPtr, CallFrame **framePtrPtr); /* 198 */ 1243 void *reserved199; 1244 int (*tclpObjRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 200 */ 1245 int (*tclpObjCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 201 */ 1246 int (*tclpObjCreateDirectory) (Tcl_Obj *pathPtr); /* 202 */ 1247 int (*tclpObjDeleteFile) (Tcl_Obj *pathPtr); /* 203 */ 1248 int (*tclpObjCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 204 */ 1249 int (*tclpObjRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 205 */ 1250 int (*tclpObjStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 206 */ 1251 int (*tclpObjAccess) (Tcl_Obj *pathPtr, int mode); /* 207 */ 1252 Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, int mode, int permissions); /* 208 */ 1253 void *reserved209; 1254 void *reserved210; 1255 void *reserved211; 1256 void (*tclpFindExecutable) (CONST char *argv0); /* 212 */ 1257 Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */ 1258 void (*tclSetObjNameOfExecutable) (Tcl_Obj *name, Tcl_Encoding encoding); /* 214 */ 1259 void * (*tclStackAlloc) (Tcl_Interp *interp, int numBytes); /* 215 */ 1260 void (*tclStackFree) (Tcl_Interp *interp, void *freePtr); /* 216 */ 1261 int (*tclPushStackFrame) (Tcl_Interp *interp, Tcl_CallFrame **framePtrPtr, Tcl_Namespace *namespacePtr, int isProcCallFrame); /* 217 */ 1262 void (*tclPopStackFrame) (Tcl_Interp *interp); /* 218 */ 1263 void *reserved219; 1264 void *reserved220; 1265 void *reserved221; 1266 void *reserved222; 1267 void *reserved223; 1268 TclPlatformType * (*tclGetPlatform) (void); /* 224 */ 1269 Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp *interp, Tcl_Obj *rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags); /* 225 */ 1270 int (*tclObjBeingDeleted) (Tcl_Obj *objPtr); /* 226 */ 1271 void (*tclSetNsPath) (Namespace *nsPtr, int pathLength, Tcl_Namespace *pathAry[]); /* 227 */ 1272 int (*tclObjInterpProcCore) (register Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc errorProc); /* 228 */ 1273 int (*tclPtrMakeUpvar) (Tcl_Interp *interp, Var *otherP1Ptr, CONST char *myName, int myFlags, int index); /* 229 */ 1274 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 */ 1275 int (*tclGetNamespaceFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Namespace **nsPtrPtr); /* 231 */ 1276 int (*tclEvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, CONST CmdFrame *invoker, int word); /* 232 */ 1277 void (*tclGetSrcInfoForPc) (CmdFrame *contextPtr); /* 233 */ 1278 Var * (*tclVarHashCreateVar) (TclVarHashTable *tablePtr, CONST char *key, int *newPtr); /* 234 */ 1279 void (*tclInitVarHashTable) (TclVarHashTable *tablePtr, Namespace *nsPtr); /* 235 */ 1280 void (*tclBackgroundException) (Tcl_Interp *interp, int code); /* 236 */ 1281 void *reserved237; 1282 void *reserved238; 1283 void *reserved239; 1284 void *reserved240; 1285 void *reserved241; 1286 void *reserved242; 1287 void (*tclDbDumpActiveObjects) (FILE *outFile); /* 243 */ 1288} TclIntStubs; 1289 1290#ifdef __cplusplus 1291extern "C" { 1292#endif 1293extern TclIntStubs *tclIntStubsPtr; 1294#ifdef __cplusplus 1295} 1296#endif 1297 1298#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) 1299 1300/* 1301 * Inline function declarations: 1302 */ 1303 1304/* Slot 0 is reserved */ 1305/* Slot 1 is reserved */ 1306/* Slot 2 is reserved */ 1307#ifndef TclAllocateFreeObjects 1308#define TclAllocateFreeObjects \ 1309 (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ 1310#endif 1311/* Slot 4 is reserved */ 1312#ifndef TclCleanupChildren 1313#define TclCleanupChildren \ 1314 (tclIntStubsPtr->tclCleanupChildren) /* 5 */ 1315#endif 1316#ifndef TclCleanupCommand 1317#define TclCleanupCommand \ 1318 (tclIntStubsPtr->tclCleanupCommand) /* 6 */ 1319#endif 1320#ifndef TclCopyAndCollapse 1321#define TclCopyAndCollapse \ 1322 (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */ 1323#endif 1324#ifndef TclCopyChannel 1325#define TclCopyChannel \ 1326 (tclIntStubsPtr->tclCopyChannel) /* 8 */ 1327#endif 1328#ifndef TclCreatePipeline 1329#define TclCreatePipeline \ 1330 (tclIntStubsPtr->tclCreatePipeline) /* 9 */ 1331#endif 1332#ifndef TclCreateProc 1333#define TclCreateProc \ 1334 (tclIntStubsPtr->tclCreateProc) /* 10 */ 1335#endif 1336#ifndef TclDeleteCompiledLocalVars 1337#define TclDeleteCompiledLocalVars \ 1338 (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */ 1339#endif 1340#ifndef TclDeleteVars 1341#define TclDeleteVars \ 1342 (tclIntStubsPtr->tclDeleteVars) /* 12 */ 1343#endif 1344/* Slot 13 is reserved */ 1345#ifndef TclDumpMemoryInfo 1346#define TclDumpMemoryInfo \ 1347 (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */ 1348#endif 1349/* Slot 15 is reserved */ 1350#ifndef TclExprFloatError 1351#define TclExprFloatError \ 1352 (tclIntStubsPtr->tclExprFloatError) /* 16 */ 1353#endif 1354/* Slot 17 is reserved */ 1355/* Slot 18 is reserved */ 1356/* Slot 19 is reserved */ 1357/* Slot 20 is reserved */ 1358/* Slot 21 is reserved */ 1359#ifndef TclFindElement 1360#define TclFindElement \ 1361 (tclIntStubsPtr->tclFindElement) /* 22 */ 1362#endif 1363#ifndef TclFindProc 1364#define TclFindProc \ 1365 (tclIntStubsPtr->tclFindProc) /* 23 */ 1366#endif 1367/* Slot 24 is reserved */ 1368#ifndef TclFreePackageInfo 1369#define TclFreePackageInfo \ 1370 (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ 1371#endif 1372/* Slot 26 is reserved */ 1373/* Slot 27 is reserved */ 1374#ifndef TclpGetDefaultStdChannel 1375#define TclpGetDefaultStdChannel \ 1376 (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */ 1377#endif 1378/* Slot 29 is reserved */ 1379/* Slot 30 is reserved */ 1380#ifndef TclGetExtension 1381#define TclGetExtension \ 1382 (tclIntStubsPtr->tclGetExtension) /* 31 */ 1383#endif 1384#ifndef TclGetFrame 1385#define TclGetFrame \ 1386 (tclIntStubsPtr->tclGetFrame) /* 32 */ 1387#endif 1388/* Slot 33 is reserved */ 1389#ifndef TclGetIntForIndex 1390#define TclGetIntForIndex \ 1391 (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ 1392#endif 1393/* Slot 35 is reserved */ 1394#ifndef TclGetLong 1395#define TclGetLong \ 1396 (tclIntStubsPtr->tclGetLong) /* 36 */ 1397#endif 1398#ifndef TclGetLoadedPackages 1399#define TclGetLoadedPackages \ 1400 (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */ 1401#endif 1402#ifndef TclGetNamespaceForQualName 1403#define TclGetNamespaceForQualName \ 1404 (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */ 1405#endif 1406#ifndef TclGetObjInterpProc 1407#define TclGetObjInterpProc \ 1408 (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */ 1409#endif 1410#ifndef TclGetOpenMode 1411#define TclGetOpenMode \ 1412 (tclIntStubsPtr->tclGetOpenMode) /* 40 */ 1413#endif 1414#ifndef TclGetOriginalCommand 1415#define TclGetOriginalCommand \ 1416 (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ 1417#endif 1418#ifndef TclpGetUserHome 1419#define TclpGetUserHome \ 1420 (tclIntStubsPtr->tclpGetUserHome) /* 42 */ 1421#endif 1422/* Slot 43 is reserved */ 1423#ifndef TclGuessPackageName 1424#define TclGuessPackageName \ 1425 (tclIntStubsPtr->tclGuessPackageName) /* 44 */ 1426#endif 1427#ifndef TclHideUnsafeCommands 1428#define TclHideUnsafeCommands \ 1429 (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ 1430#endif 1431#ifndef TclInExit 1432#define TclInExit \ 1433 (tclIntStubsPtr->tclInExit) /* 46 */ 1434#endif 1435/* Slot 47 is reserved */ 1436/* Slot 48 is reserved */ 1437/* Slot 49 is reserved */ 1438#ifndef TclInitCompiledLocals 1439#define TclInitCompiledLocals \ 1440 (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ 1441#endif 1442#ifndef TclInterpInit 1443#define TclInterpInit \ 1444 (tclIntStubsPtr->tclInterpInit) /* 51 */ 1445#endif 1446/* Slot 52 is reserved */ 1447#ifndef TclInvokeObjectCommand 1448#define TclInvokeObjectCommand \ 1449 (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */ 1450#endif 1451#ifndef TclInvokeStringCommand 1452#define TclInvokeStringCommand \ 1453 (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */ 1454#endif 1455#ifndef TclIsProc 1456#define TclIsProc \ 1457 (tclIntStubsPtr->tclIsProc) /* 55 */ 1458#endif 1459/* Slot 56 is reserved */ 1460/* Slot 57 is reserved */ 1461#ifndef TclLookupVar 1462#define TclLookupVar \ 1463 (tclIntStubsPtr->tclLookupVar) /* 58 */ 1464#endif 1465/* Slot 59 is reserved */ 1466#ifndef TclNeedSpace 1467#define TclNeedSpace \ 1468 (tclIntStubsPtr->tclNeedSpace) /* 60 */ 1469#endif 1470#ifndef TclNewProcBodyObj 1471#define TclNewProcBodyObj \ 1472 (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */ 1473#endif 1474#ifndef TclObjCommandComplete 1475#define TclObjCommandComplete \ 1476 (tclIntStubsPtr->tclObjCommandComplete) /* 62 */ 1477#endif 1478#ifndef TclObjInterpProc 1479#define TclObjInterpProc \ 1480 (tclIntStubsPtr->tclObjInterpProc) /* 63 */ 1481#endif 1482#ifndef TclObjInvoke 1483#define TclObjInvoke \ 1484 (tclIntStubsPtr->tclObjInvoke) /* 64 */ 1485#endif 1486/* Slot 65 is reserved */ 1487/* Slot 66 is reserved */ 1488/* Slot 67 is reserved */ 1489/* Slot 68 is reserved */ 1490#ifndef TclpAlloc 1491#define TclpAlloc \ 1492 (tclIntStubsPtr->tclpAlloc) /* 69 */ 1493#endif 1494/* Slot 70 is reserved */ 1495/* Slot 71 is reserved */ 1496/* Slot 72 is reserved */ 1497/* Slot 73 is reserved */ 1498#ifndef TclpFree 1499#define TclpFree \ 1500 (tclIntStubsPtr->tclpFree) /* 74 */ 1501#endif 1502#ifndef TclpGetClicks 1503#define TclpGetClicks \ 1504 (tclIntStubsPtr->tclpGetClicks) /* 75 */ 1505#endif 1506#ifndef TclpGetSeconds 1507#define TclpGetSeconds \ 1508 (tclIntStubsPtr->tclpGetSeconds) /* 76 */ 1509#endif 1510#ifndef TclpGetTime 1511#define TclpGetTime \ 1512 (tclIntStubsPtr->tclpGetTime) /* 77 */ 1513#endif 1514#ifndef TclpGetTimeZone 1515#define TclpGetTimeZone \ 1516 (tclIntStubsPtr->tclpGetTimeZone) /* 78 */ 1517#endif 1518/* Slot 79 is reserved */ 1519/* Slot 80 is reserved */ 1520#ifndef TclpRealloc 1521#define TclpRealloc \ 1522 (tclIntStubsPtr->tclpRealloc) /* 81 */ 1523#endif 1524/* Slot 82 is reserved */ 1525/* Slot 83 is reserved */ 1526/* Slot 84 is reserved */ 1527/* Slot 85 is reserved */ 1528/* Slot 86 is reserved */ 1529/* Slot 87 is reserved */ 1530#ifndef TclPrecTraceProc 1531#define TclPrecTraceProc \ 1532 (tclIntStubsPtr->tclPrecTraceProc) /* 88 */ 1533#endif 1534#ifndef TclPreventAliasLoop 1535#define TclPreventAliasLoop \ 1536 (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */ 1537#endif 1538/* Slot 90 is reserved */ 1539#ifndef TclProcCleanupProc 1540#define TclProcCleanupProc \ 1541 (tclIntStubsPtr->tclProcCleanupProc) /* 91 */ 1542#endif 1543#ifndef TclProcCompileProc 1544#define TclProcCompileProc \ 1545 (tclIntStubsPtr->tclProcCompileProc) /* 92 */ 1546#endif 1547#ifndef TclProcDeleteProc 1548#define TclProcDeleteProc \ 1549 (tclIntStubsPtr->tclProcDeleteProc) /* 93 */ 1550#endif 1551/* Slot 94 is reserved */ 1552/* Slot 95 is reserved */ 1553#ifndef TclRenameCommand 1554#define TclRenameCommand \ 1555 (tclIntStubsPtr->tclRenameCommand) /* 96 */ 1556#endif 1557#ifndef TclResetShadowedCmdRefs 1558#define TclResetShadowedCmdRefs \ 1559 (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */ 1560#endif 1561#ifndef TclServiceIdle 1562#define TclServiceIdle \ 1563 (tclIntStubsPtr->tclServiceIdle) /* 98 */ 1564#endif 1565/* Slot 99 is reserved */ 1566/* Slot 100 is reserved */ 1567#ifndef TclSetPreInitScript 1568#define TclSetPreInitScript \ 1569 (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ 1570#endif 1571#ifndef TclSetupEnv 1572#define TclSetupEnv \ 1573 (tclIntStubsPtr->tclSetupEnv) /* 102 */ 1574#endif 1575#ifndef TclSockGetPort 1576#define TclSockGetPort \ 1577 (tclIntStubsPtr->tclSockGetPort) /* 103 */ 1578#endif 1579#ifndef TclSockMinimumBuffers 1580#define TclSockMinimumBuffers \ 1581 (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ 1582#endif 1583/* Slot 105 is reserved */ 1584/* Slot 106 is reserved */ 1585/* Slot 107 is reserved */ 1586#ifndef TclTeardownNamespace 1587#define TclTeardownNamespace \ 1588 (tclIntStubsPtr->tclTeardownNamespace) /* 108 */ 1589#endif 1590#ifndef TclUpdateReturnInfo 1591#define TclUpdateReturnInfo \ 1592 (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */ 1593#endif 1594/* Slot 110 is reserved */ 1595#ifndef Tcl_AddInterpResolvers 1596#define Tcl_AddInterpResolvers \ 1597 (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */ 1598#endif 1599#ifndef Tcl_AppendExportList 1600#define Tcl_AppendExportList \ 1601 (tclIntStubsPtr->tcl_AppendExportList) /* 112 */ 1602#endif 1603#ifndef Tcl_CreateNamespace 1604#define Tcl_CreateNamespace \ 1605 (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */ 1606#endif 1607#ifndef Tcl_DeleteNamespace 1608#define Tcl_DeleteNamespace \ 1609 (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */ 1610#endif 1611#ifndef Tcl_Export 1612#define Tcl_Export \ 1613 (tclIntStubsPtr->tcl_Export) /* 115 */ 1614#endif 1615#ifndef Tcl_FindCommand 1616#define Tcl_FindCommand \ 1617 (tclIntStubsPtr->tcl_FindCommand) /* 116 */ 1618#endif 1619#ifndef Tcl_FindNamespace 1620#define Tcl_FindNamespace \ 1621 (tclIntStubsPtr->tcl_FindNamespace) /* 117 */ 1622#endif 1623#ifndef Tcl_GetInterpResolvers 1624#define Tcl_GetInterpResolvers \ 1625 (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */ 1626#endif 1627#ifndef Tcl_GetNamespaceResolvers 1628#define Tcl_GetNamespaceResolvers \ 1629 (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */ 1630#endif 1631#ifndef Tcl_FindNamespaceVar 1632#define Tcl_FindNamespaceVar \ 1633 (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */ 1634#endif 1635#ifndef Tcl_ForgetImport 1636#define Tcl_ForgetImport \ 1637 (tclIntStubsPtr->tcl_ForgetImport) /* 121 */ 1638#endif 1639#ifndef Tcl_GetCommandFromObj 1640#define Tcl_GetCommandFromObj \ 1641 (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */ 1642#endif 1643#ifndef Tcl_GetCommandFullName 1644#define Tcl_GetCommandFullName \ 1645 (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */ 1646#endif 1647#ifndef Tcl_GetCurrentNamespace 1648#define Tcl_GetCurrentNamespace \ 1649 (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */ 1650#endif 1651#ifndef Tcl_GetGlobalNamespace 1652#define Tcl_GetGlobalNamespace \ 1653 (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */ 1654#endif 1655#ifndef Tcl_GetVariableFullName 1656#define Tcl_GetVariableFullName \ 1657 (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */ 1658#endif 1659#ifndef Tcl_Import 1660#define Tcl_Import \ 1661 (tclIntStubsPtr->tcl_Import) /* 127 */ 1662#endif 1663#ifndef Tcl_PopCallFrame 1664#define Tcl_PopCallFrame \ 1665 (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */ 1666#endif 1667#ifndef Tcl_PushCallFrame 1668#define Tcl_PushCallFrame \ 1669 (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */ 1670#endif 1671#ifndef Tcl_RemoveInterpResolvers 1672#define Tcl_RemoveInterpResolvers \ 1673 (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */ 1674#endif 1675#ifndef Tcl_SetNamespaceResolvers 1676#define Tcl_SetNamespaceResolvers \ 1677 (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */ 1678#endif 1679#ifndef TclpHasSockets 1680#define TclpHasSockets \ 1681 (tclIntStubsPtr->tclpHasSockets) /* 132 */ 1682#endif 1683#ifndef TclpGetDate 1684#define TclpGetDate \ 1685 (tclIntStubsPtr->tclpGetDate) /* 133 */ 1686#endif 1687/* Slot 134 is reserved */ 1688/* Slot 135 is reserved */ 1689/* Slot 136 is reserved */ 1690/* Slot 137 is reserved */ 1691#ifndef TclGetEnv 1692#define TclGetEnv \ 1693 (tclIntStubsPtr->tclGetEnv) /* 138 */ 1694#endif 1695/* Slot 139 is reserved */ 1696/* Slot 140 is reserved */ 1697#ifndef TclpGetCwd 1698#define TclpGetCwd \ 1699 (tclIntStubsPtr->tclpGetCwd) /* 141 */ 1700#endif 1701#ifndef TclSetByteCodeFromAny 1702#define TclSetByteCodeFromAny \ 1703 (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */ 1704#endif 1705#ifndef TclAddLiteralObj 1706#define TclAddLiteralObj \ 1707 (tclIntStubsPtr->tclAddLiteralObj) /* 143 */ 1708#endif 1709#ifndef TclHideLiteral 1710#define TclHideLiteral \ 1711 (tclIntStubsPtr->tclHideLiteral) /* 144 */ 1712#endif 1713#ifndef TclGetAuxDataType 1714#define TclGetAuxDataType \ 1715 (tclIntStubsPtr->tclGetAuxDataType) /* 145 */ 1716#endif 1717#ifndef TclHandleCreate 1718#define TclHandleCreate \ 1719 (tclIntStubsPtr->tclHandleCreate) /* 146 */ 1720#endif 1721#ifndef TclHandleFree 1722#define TclHandleFree \ 1723 (tclIntStubsPtr->tclHandleFree) /* 147 */ 1724#endif 1725#ifndef TclHandlePreserve 1726#define TclHandlePreserve \ 1727 (tclIntStubsPtr->tclHandlePreserve) /* 148 */ 1728#endif 1729#ifndef TclHandleRelease 1730#define TclHandleRelease \ 1731 (tclIntStubsPtr->tclHandleRelease) /* 149 */ 1732#endif 1733#ifndef TclRegAbout 1734#define TclRegAbout \ 1735 (tclIntStubsPtr->tclRegAbout) /* 150 */ 1736#endif 1737#ifndef TclRegExpRangeUniChar 1738#define TclRegExpRangeUniChar \ 1739 (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */ 1740#endif 1741#ifndef TclSetLibraryPath 1742#define TclSetLibraryPath \ 1743 (tclIntStubsPtr->tclSetLibraryPath) /* 152 */ 1744#endif 1745#ifndef TclGetLibraryPath 1746#define TclGetLibraryPath \ 1747 (tclIntStubsPtr->tclGetLibraryPath) /* 153 */ 1748#endif 1749/* Slot 154 is reserved */ 1750/* Slot 155 is reserved */ 1751#ifndef TclRegError 1752#define TclRegError \ 1753 (tclIntStubsPtr->tclRegError) /* 156 */ 1754#endif 1755#ifndef TclVarTraceExists 1756#define TclVarTraceExists \ 1757 (tclIntStubsPtr->tclVarTraceExists) /* 157 */ 1758#endif 1759#ifndef TclSetStartupScriptFileName 1760#define TclSetStartupScriptFileName \ 1761 (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */ 1762#endif 1763#ifndef TclGetStartupScriptFileName 1764#define TclGetStartupScriptFileName \ 1765 (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */ 1766#endif 1767/* Slot 160 is reserved */ 1768#ifndef TclChannelTransform 1769#define TclChannelTransform \ 1770 (tclIntStubsPtr->tclChannelTransform) /* 161 */ 1771#endif 1772#ifndef TclChannelEventScriptInvoker 1773#define TclChannelEventScriptInvoker \ 1774 (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */ 1775#endif 1776#ifndef TclGetInstructionTable 1777#define TclGetInstructionTable \ 1778 (tclIntStubsPtr->tclGetInstructionTable) /* 163 */ 1779#endif 1780#ifndef TclExpandCodeArray 1781#define TclExpandCodeArray \ 1782 (tclIntStubsPtr->tclExpandCodeArray) /* 164 */ 1783#endif 1784#ifndef TclpSetInitialEncodings 1785#define TclpSetInitialEncodings \ 1786 (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */ 1787#endif 1788#ifndef TclListObjSetElement 1789#define TclListObjSetElement \ 1790 (tclIntStubsPtr->tclListObjSetElement) /* 166 */ 1791#endif 1792#ifndef TclSetStartupScriptPath 1793#define TclSetStartupScriptPath \ 1794 (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */ 1795#endif 1796#ifndef TclGetStartupScriptPath 1797#define TclGetStartupScriptPath \ 1798 (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */ 1799#endif 1800#ifndef TclpUtfNcmp2 1801#define TclpUtfNcmp2 \ 1802 (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */ 1803#endif 1804#ifndef TclCheckInterpTraces 1805#define TclCheckInterpTraces \ 1806 (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */ 1807#endif 1808#ifndef TclCheckExecutionTraces 1809#define TclCheckExecutionTraces \ 1810 (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */ 1811#endif 1812#ifndef TclInThreadExit 1813#define TclInThreadExit \ 1814 (tclIntStubsPtr->tclInThreadExit) /* 172 */ 1815#endif 1816#ifndef TclUniCharMatch 1817#define TclUniCharMatch \ 1818 (tclIntStubsPtr->tclUniCharMatch) /* 173 */ 1819#endif 1820/* Slot 174 is reserved */ 1821#ifndef TclCallVarTraces 1822#define TclCallVarTraces \ 1823 (tclIntStubsPtr->tclCallVarTraces) /* 175 */ 1824#endif 1825#ifndef TclCleanupVar 1826#define TclCleanupVar \ 1827 (tclIntStubsPtr->tclCleanupVar) /* 176 */ 1828#endif 1829#ifndef TclVarErrMsg 1830#define TclVarErrMsg \ 1831 (tclIntStubsPtr->tclVarErrMsg) /* 177 */ 1832#endif 1833#ifndef Tcl_SetStartupScript 1834#define Tcl_SetStartupScript \ 1835 (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */ 1836#endif 1837#ifndef Tcl_GetStartupScript 1838#define Tcl_GetStartupScript \ 1839 (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */ 1840#endif 1841/* Slot 180 is reserved */ 1842/* Slot 181 is reserved */ 1843#ifndef TclpLocaltime 1844#define TclpLocaltime \ 1845 (tclIntStubsPtr->tclpLocaltime) /* 182 */ 1846#endif 1847#ifndef TclpGmtime 1848#define TclpGmtime \ 1849 (tclIntStubsPtr->tclpGmtime) /* 183 */ 1850#endif 1851/* Slot 184 is reserved */ 1852/* Slot 185 is reserved */ 1853/* Slot 186 is reserved */ 1854/* Slot 187 is reserved */ 1855/* Slot 188 is reserved */ 1856/* Slot 189 is reserved */ 1857/* Slot 190 is reserved */ 1858/* Slot 191 is reserved */ 1859/* Slot 192 is reserved */ 1860/* Slot 193 is reserved */ 1861/* Slot 194 is reserved */ 1862/* Slot 195 is reserved */ 1863/* Slot 196 is reserved */ 1864/* Slot 197 is reserved */ 1865#ifndef TclObjGetFrame 1866#define TclObjGetFrame \ 1867 (tclIntStubsPtr->tclObjGetFrame) /* 198 */ 1868#endif 1869/* Slot 199 is reserved */ 1870#ifndef TclpObjRemoveDirectory 1871#define TclpObjRemoveDirectory \ 1872 (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */ 1873#endif 1874#ifndef TclpObjCopyDirectory 1875#define TclpObjCopyDirectory \ 1876 (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */ 1877#endif 1878#ifndef TclpObjCreateDirectory 1879#define TclpObjCreateDirectory \ 1880 (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */ 1881#endif 1882#ifndef TclpObjDeleteFile 1883#define TclpObjDeleteFile \ 1884 (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */ 1885#endif 1886#ifndef TclpObjCopyFile 1887#define TclpObjCopyFile \ 1888 (tclIntStubsPtr->tclpObjCopyFile) /* 204 */ 1889#endif 1890#ifndef TclpObjRenameFile 1891#define TclpObjRenameFile \ 1892 (tclIntStubsPtr->tclpObjRenameFile) /* 205 */ 1893#endif 1894#ifndef TclpObjStat 1895#define TclpObjStat \ 1896 (tclIntStubsPtr->tclpObjStat) /* 206 */ 1897#endif 1898#ifndef TclpObjAccess 1899#define TclpObjAccess \ 1900 (tclIntStubsPtr->tclpObjAccess) /* 207 */ 1901#endif 1902#ifndef TclpOpenFileChannel 1903#define TclpOpenFileChannel \ 1904 (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */ 1905#endif 1906/* Slot 209 is reserved */ 1907/* Slot 210 is reserved */ 1908/* Slot 211 is reserved */ 1909#ifndef TclpFindExecutable 1910#define TclpFindExecutable \ 1911 (tclIntStubsPtr->tclpFindExecutable) /* 212 */ 1912#endif 1913#ifndef TclGetObjNameOfExecutable 1914#define TclGetObjNameOfExecutable \ 1915 (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */ 1916#endif 1917#ifndef TclSetObjNameOfExecutable 1918#define TclSetObjNameOfExecutable \ 1919 (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */ 1920#endif 1921#ifndef TclStackAlloc 1922#define TclStackAlloc \ 1923 (tclIntStubsPtr->tclStackAlloc) /* 215 */ 1924#endif 1925#ifndef TclStackFree 1926#define TclStackFree \ 1927 (tclIntStubsPtr->tclStackFree) /* 216 */ 1928#endif 1929#ifndef TclPushStackFrame 1930#define TclPushStackFrame \ 1931 (tclIntStubsPtr->tclPushStackFrame) /* 217 */ 1932#endif 1933#ifndef TclPopStackFrame 1934#define TclPopStackFrame \ 1935 (tclIntStubsPtr->tclPopStackFrame) /* 218 */ 1936#endif 1937/* Slot 219 is reserved */ 1938/* Slot 220 is reserved */ 1939/* Slot 221 is reserved */ 1940/* Slot 222 is reserved */ 1941/* Slot 223 is reserved */ 1942#ifndef TclGetPlatform 1943#define TclGetPlatform \ 1944 (tclIntStubsPtr->tclGetPlatform) /* 224 */ 1945#endif 1946#ifndef TclTraceDictPath 1947#define TclTraceDictPath \ 1948 (tclIntStubsPtr->tclTraceDictPath) /* 225 */ 1949#endif 1950#ifndef TclObjBeingDeleted 1951#define TclObjBeingDeleted \ 1952 (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */ 1953#endif 1954#ifndef TclSetNsPath 1955#define TclSetNsPath \ 1956 (tclIntStubsPtr->tclSetNsPath) /* 227 */ 1957#endif 1958#ifndef TclObjInterpProcCore 1959#define TclObjInterpProcCore \ 1960 (tclIntStubsPtr->tclObjInterpProcCore) /* 228 */ 1961#endif 1962#ifndef TclPtrMakeUpvar 1963#define TclPtrMakeUpvar \ 1964 (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */ 1965#endif 1966#ifndef TclObjLookupVar 1967#define TclObjLookupVar \ 1968 (tclIntStubsPtr->tclObjLookupVar) /* 230 */ 1969#endif 1970#ifndef TclGetNamespaceFromObj 1971#define TclGetNamespaceFromObj \ 1972 (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */ 1973#endif 1974#ifndef TclEvalObjEx 1975#define TclEvalObjEx \ 1976 (tclIntStubsPtr->tclEvalObjEx) /* 232 */ 1977#endif 1978#ifndef TclGetSrcInfoForPc 1979#define TclGetSrcInfoForPc \ 1980 (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */ 1981#endif 1982#ifndef TclVarHashCreateVar 1983#define TclVarHashCreateVar \ 1984 (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */ 1985#endif 1986#ifndef TclInitVarHashTable 1987#define TclInitVarHashTable \ 1988 (tclIntStubsPtr->tclInitVarHashTable) /* 235 */ 1989#endif 1990#ifndef TclBackgroundException 1991#define TclBackgroundException \ 1992 (tclIntStubsPtr->tclBackgroundException) /* 236 */ 1993#endif 1994/* Slot 237 is reserved */ 1995/* Slot 238 is reserved */ 1996/* Slot 239 is reserved */ 1997/* Slot 240 is reserved */ 1998/* Slot 241 is reserved */ 1999/* Slot 242 is reserved */ 2000#ifndef TclDbDumpActiveObjects 2001#define TclDbDumpActiveObjects \ 2002 (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */ 2003#endif 2004 2005#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ 2006 2007/* !END!: Do not edit above this line. */ 2008 2009#undef TCL_STORAGE_CLASS 2010#define TCL_STORAGE_CLASS DLLIMPORT 2011 2012#endif /* _TCLINTDECLS */ 2013