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