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