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