tcl/generic/tclIntDecls.h

   1 /*
   2  * tclIntDecls.h --
   3  *
   4  *      This file contains the declarations for all unsupported
   5  *      functions that are exported by the Tcl library.  These
   6  *      interfaces are not guaranteed to remain the same between
   7  *      versions.  Use at your own risk.
   8  *
   9  * Copyright (c) 1998-1999 by Scriptics Corporation.
  10  *
  11  * See the file "license.terms" for information on usage and redistribution
  12  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13  *
  14  * 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, GlobTypeData * types));
  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 /* Slot 154 is reserved */
 510 /* Slot 155 is reserved */
 511 /* 156 */
 512 EXTERN void             TclRegError _ANSI_ARGS_((Tcl_Interp * interp,
 513                                 char * msg, int status));
 514 /* 157 */
 515 EXTERN Var *            TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp,
 516                                 char * varName));
 517 /* 158 */
 518 EXTERN void             TclSetStartupScriptFileName _ANSI_ARGS_((
 519                                 char * filename));
 520 /* 159 */
 521 EXTERN char *           TclGetStartupScriptFileName _ANSI_ARGS_((void));
 522 /* 160 */
 523 EXTERN int              TclpMatchFilesTypes _ANSI_ARGS_((Tcl_Interp * interp,
 524                                 char * separators, Tcl_DString * dirPtr,
 525                                 char * pattern, char * tail,
 526                                 GlobTypeData * types));
 527 /* 161 */
 528 EXTERN int              TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp,
 529                                 Tcl_Channel chan, Tcl_Obj * cmdObjPtr));
 530 /* 162 */
 531 EXTERN void             TclChannelEventScriptInvoker _ANSI_ARGS_((
 532                                 ClientData clientData, int flags));
 533
 534 typedef struct TclIntStubs {
 535     int magic;
 536     struct TclIntStubHooks *hooks;
 537
 538     int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 0 */
 539     int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
 540     int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
 541     void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
 542     void *reserved4;
 543 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
 544     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
 545 #endif /* UNIX */
 546 #ifdef __WIN32__
 547     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
 548 #endif /* __WIN32__ */
 549 #ifdef MAC_TCL
 550     void *reserved5;
 551 #endif /* MAC_TCL */
 552     void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
 553     int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */
 554     int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
 555 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
 556     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
 557 #endif /* UNIX */
 558 #ifdef __WIN32__
 559     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
 560 #endif /* __WIN32__ */
 561 #ifdef MAC_TCL
 562     void *reserved9;
 563 #endif /* MAC_TCL */
 564     int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
 565     void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
 566     void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
 567     int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, GlobTypeData * types)); /* 13 */
 568     void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
 569     void *reserved15;
 570     void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
 571     int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 17 */
 572     int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 18 */
 573     int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */
 574     int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */
 575     int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */
 576     int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
 577     Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 23 */
 578     int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
 579     void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
 580     void *reserved26;
 581     int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */
 582     Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
 583     Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 29 */
 584     void *reserved30;
 585     char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */
 586     int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * str, CallFrame ** framePtrPtr)); /* 32 */
 587     TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
 588     int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
 589     Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */
 590     int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * longPtr)); /* 36 */
 591     int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
 592     int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */
 593     TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
 594     int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * seekFlagPtr)); /* 40 */
 595     Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
 596     char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
 597     int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 43 */
 598     int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 44 */
 599     int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
 600     int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
 601     Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 47 */
 602     Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 48 */
 603     Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
 604     void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
 605     int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
 606     int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 52 */
 607     int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 53 */
 608     int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
 609     Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
 610     void *reserved56;
 611     void *reserved57;
 612     Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
 613     int (*tclpMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 59 */
 614     int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */
 615     Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
 616     int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
 617     int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
 618     int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
 619     int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
 620     int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
 621     int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
 622     int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 68 */
 623 #if !defined(__CYGWIN__) || defined(__MINGW32__)
 624     char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
 625 #endif
 626     int (*tclpCopyFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 70 */
 627     int (*tclpCopyDirectory) _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr)); /* 71 */
 628     int (*tclpCreateDirectory) _ANSI_ARGS_((CONST char * path)); /* 72 */
 629     int (*tclpDeleteFile) _ANSI_ARGS_((CONST char * path)); /* 73 */
 630 #if !defined(__CYGWIN__) || defined(__MINGW32__)
 631     void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
 632 #endif
 633     unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
 634     unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
 635     void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
 636     int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */
 637     int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 79 */
 638     Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 80 */
 639 #if !defined(__CYGWIN__) || defined(__MINGW32__)
 640     char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
 641 #endif
 642     int (*tclpRemoveDirectory) _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr)); /* 82 */
 643     int (*tclpRenameFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 83 */
 644     void *reserved84;
 645     void *reserved85;
 646     void *reserved86;
 647     void *reserved87;
 648     char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 88 */
 649     int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
 650     void *reserved90;
 651     void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
 652     int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
 653     void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
 654     int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 94 */
 655     int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 95 */
 656     int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
 657     void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
 658     int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
 659     Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */
 660     Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */
 661 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
 662     char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
 663 #endif /* UNIX */
 664 #ifdef __WIN32__
 665     char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
 666 #endif /* __WIN32__ */
 667 #ifdef MAC_TCL
 668     void *reserved101;
 669 #endif /* MAC_TCL */
 670     void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
 671     int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
 672 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
 673     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
 674 #endif /* UNIX */
 675 #ifdef __WIN32__
 676     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
 677 #endif /* __WIN32__ */
 678 #ifdef MAC_TCL
 679     void *reserved104;
 680 #endif /* MAC_TCL */
 681     int (*tclStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 105 */
 682     int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
 683     int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
 684     void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
 685     int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
 686     void *reserved110;
 687     void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
 688     int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
 689     Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
 690     void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
 691     int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */
 692     Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
 693     Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
 694     int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
 695     int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
 696     Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
 697     int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 121 */
 698     Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
 699     void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
 700     Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
 701     Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
 702     void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
 703     int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 127 */
 704     void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */
 705     int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
 706     int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */
 707     void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
 708     int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
 709     struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */
 710     size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t)); /* 134 */
 711     int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */
 712     void *reserved136;
 713     int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName)); /* 137 */
 714     char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
 715     int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); /* 139 */
 716     int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 140 */
 717     char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */
 718     int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
 719     int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
 720     void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
 721     struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
 722     TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */
 723     void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */
 724     TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */
 725     void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */
 726     int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */
 727     void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */
 728     void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */
 729     Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */
 730     void *reserved154;
 731     void *reserved155;
 732     void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, char * msg, int status)); /* 156 */
 733     Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 157 */
 734     void (*tclSetStartupScriptFileName) _ANSI_ARGS_((char * filename)); /* 158 */
 735     char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */
 736     int (*tclpMatchFilesTypes) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail, GlobTypeData * types)); /* 160 */
 737     int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */
 738     void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */
 739 } TclIntStubs;
 740
 741 #ifdef __cplusplus
 742 extern "C" {
 743 #endif
 744 extern TclIntStubs *tclIntStubsPtr;
 745 #ifdef __cplusplus
 746 }
 747 #endif
 748
 749 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
 750
 751 /*
 752  * Inline function declarations:
 753  */
 754
 755 #ifndef TclAccess
 756 #define TclAccess \
 757         (tclIntStubsPtr->tclAccess) /* 0 */
 758 #endif
 759 #ifndef TclAccessDeleteProc
 760 #define TclAccessDeleteProc \
 761         (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */
 762 #endif
 763 #ifndef TclAccessInsertProc
 764 #define TclAccessInsertProc \
 765         (tclIntStubsPtr->tclAccessInsertProc) /* 2 */
 766 #endif
 767 #ifndef TclAllocateFreeObjects
 768 #define TclAllocateFreeObjects \
 769         (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
 770 #endif
 771 /* Slot 4 is reserved */
 772 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
 773 #ifndef TclCleanupChildren
 774 #define TclCleanupChildren \
 775         (tclIntStubsPtr->tclCleanupChildren) /* 5 */
 776 #endif
 777 #endif /* UNIX */
 778 #ifdef __WIN32__
 779 #ifndef TclCleanupChildren
 780 #define TclCleanupChildren \
 781         (tclIntStubsPtr->tclCleanupChildren) /* 5 */
 782 #endif
 783 #endif /* __WIN32__ */
 784 #ifndef TclCleanupCommand
 785 #define TclCleanupCommand \
 786         (tclIntStubsPtr->tclCleanupCommand) /* 6 */
 787 #endif
 788 #ifndef TclCopyAndCollapse
 789 #define TclCopyAndCollapse \
 790         (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
 791 #endif
 792 #ifndef TclCopyChannel
 793 #define TclCopyChannel \
 794         (tclIntStubsPtr->tclCopyChannel) /* 8 */
 795 #endif
 796 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
 797 #ifndef TclCreatePipeline
 798 #define TclCreatePipeline \
 799         (tclIntStubsPtr->tclCreatePipeline) /* 9 */
 800 #endif
 801 #endif /* UNIX */
 802 #ifdef __WIN32__
 803 #ifndef TclCreatePipeline
 804 #define TclCreatePipeline \
 805         (tclIntStubsPtr->tclCreatePipeline) /* 9 */
 806 #endif
 807 #endif /* __WIN32__ */
 808 #ifndef TclCreateProc
 809 #define TclCreateProc \
 810         (tclIntStubsPtr->tclCreateProc) /* 10 */
 811 #endif
 812 #ifndef TclDeleteCompiledLocalVars
 813 #define TclDeleteCompiledLocalVars \
 814         (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
 815 #endif
 816 #ifndef TclDeleteVars
 817 #define TclDeleteVars \
 818         (tclIntStubsPtr->tclDeleteVars) /* 12 */
 819 #endif
 820 #ifndef TclDoGlob
 821 #define TclDoGlob \
 822         (tclIntStubsPtr->tclDoGlob) /* 13 */
 823 #endif
 824 #ifndef TclDumpMemoryInfo
 825 #define TclDumpMemoryInfo \
 826         (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
 827 #endif
 828 /* Slot 15 is reserved */
 829 #ifndef TclExprFloatError
 830 #define TclExprFloatError \
 831         (tclIntStubsPtr->tclExprFloatError) /* 16 */
 832 #endif
 833 #ifndef TclFileAttrsCmd
 834 #define TclFileAttrsCmd \
 835         (tclIntStubsPtr->tclFileAttrsCmd) /* 17 */
 836 #endif
 837 #ifndef TclFileCopyCmd
 838 #define TclFileCopyCmd \
 839         (tclIntStubsPtr->tclFileCopyCmd) /* 18 */
 840 #endif
 841 #ifndef TclFileDeleteCmd
 842 #define TclFileDeleteCmd \
 843         (tclIntStubsPtr->tclFileDeleteCmd) /* 19 */
 844 #endif
 845 #ifndef TclFileMakeDirsCmd
 846 #define TclFileMakeDirsCmd \
 847         (tclIntStubsPtr->tclFileMakeDirsCmd) /* 20 */
 848 #endif
 849 #ifndef TclFileRenameCmd
 850 #define TclFileRenameCmd \
 851         (tclIntStubsPtr->tclFileRenameCmd) /* 21 */
 852 #endif
 853 #ifndef TclFindElement
 854 #define TclFindElement \
 855         (tclIntStubsPtr->tclFindElement) /* 22 */
 856 #endif
 857 #ifndef TclFindProc
 858 #define TclFindProc \
 859         (tclIntStubsPtr->tclFindProc) /* 23 */
 860 #endif
 861 #ifndef TclFormatInt
 862 #define TclFormatInt \
 863         (tclIntStubsPtr->tclFormatInt) /* 24 */
 864 #endif
 865 #ifndef TclFreePackageInfo
 866 #define TclFreePackageInfo \
 867         (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
 868 #endif
 869 /* Slot 26 is reserved */
 870 #ifndef TclGetDate
 871 #define TclGetDate \
 872         (tclIntStubsPtr->tclGetDate) /* 27 */
 873 #endif
 874 #ifndef TclpGetDefaultStdChannel
 875 #define TclpGetDefaultStdChannel \
 876         (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
 877 #endif
 878 #ifndef TclGetElementOfIndexedArray
 879 #define TclGetElementOfIndexedArray \
 880         (tclIntStubsPtr->tclGetElementOfIndexedArray) /* 29 */
 881 #endif
 882 /* Slot 30 is reserved */
 883 #ifndef TclGetExtension
 884 #define TclGetExtension \
 885         (tclIntStubsPtr->tclGetExtension) /* 31 */
 886 #endif
 887 #ifndef TclGetFrame
 888 #define TclGetFrame \
 889         (tclIntStubsPtr->tclGetFrame) /* 32 */
 890 #endif
 891 #ifndef TclGetInterpProc
 892 #define TclGetInterpProc \
 893         (tclIntStubsPtr->tclGetInterpProc) /* 33 */
 894 #endif
 895 #ifndef TclGetIntForIndex
 896 #define TclGetIntForIndex \
 897         (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
 898 #endif
 899 #ifndef TclGetIndexedScalar
 900 #define TclGetIndexedScalar \
 901         (tclIntStubsPtr->tclGetIndexedScalar) /* 35 */
 902 #endif
 903 #ifndef TclGetLong
 904 #define TclGetLong \
 905         (tclIntStubsPtr->tclGetLong) /* 36 */
 906 #endif
 907 #ifndef TclGetLoadedPackages
 908 #define TclGetLoadedPackages \
 909         (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
 910 #endif
 911 #ifndef TclGetNamespaceForQualName
 912 #define TclGetNamespaceForQualName \
 913         (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
 914 #endif
 915 #ifndef TclGetObjInterpProc
 916 #define TclGetObjInterpProc \
 917         (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
 918 #endif
 919 #ifndef TclGetOpenMode
 920 #define TclGetOpenMode \
 921         (tclIntStubsPtr->tclGetOpenMode) /* 40 */
 922 #endif
 923 #ifndef TclGetOriginalCommand
 924 #define TclGetOriginalCommand \
 925         (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
 926 #endif
 927 #ifndef TclpGetUserHome
 928 #define TclpGetUserHome \
 929         (tclIntStubsPtr->tclpGetUserHome) /* 42 */
 930 #endif
 931 #ifndef TclGlobalInvoke
 932 #define TclGlobalInvoke \
 933         (tclIntStubsPtr->tclGlobalInvoke) /* 43 */
 934 #endif
 935 #ifndef TclGuessPackageName
 936 #define TclGuessPackageName \
 937         (tclIntStubsPtr->tclGuessPackageName) /* 44 */
 938 #endif
 939 #ifndef TclHideUnsafeCommands
 940 #define TclHideUnsafeCommands \
 941         (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
 942 #endif
 943 #ifndef TclInExit
 944 #define TclInExit \
 945         (tclIntStubsPtr->tclInExit) /* 46 */
 946 #endif
 947 #ifndef TclIncrElementOfIndexedArray
 948 #define TclIncrElementOfIndexedArray \
 949         (tclIntStubsPtr->tclIncrElementOfIndexedArray) /* 47 */
 950 #endif
 951 #ifndef TclIncrIndexedScalar
 952 #define TclIncrIndexedScalar \
 953         (tclIntStubsPtr->tclIncrIndexedScalar) /* 48 */
 954 #endif
 955 #ifndef TclIncrVar2
 956 #define TclIncrVar2 \
 957         (tclIntStubsPtr->tclIncrVar2) /* 49 */
 958 #endif
 959 #ifndef TclInitCompiledLocals
 960 #define TclInitCompiledLocals \
 961         (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
 962 #endif
 963 #ifndef TclInterpInit
 964 #define TclInterpInit \
 965         (tclIntStubsPtr->tclInterpInit) /* 51 */
 966 #endif
 967 #ifndef TclInvoke
 968 #define TclInvoke \
 969         (tclIntStubsPtr->tclInvoke) /* 52 */
 970 #endif
 971 #ifndef TclInvokeObjectCommand
 972 #define TclInvokeObjectCommand \
 973         (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
 974 #endif
 975 #ifndef TclInvokeStringCommand
 976 #define TclInvokeStringCommand \
 977         (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
 978 #endif
 979 #ifndef TclIsProc
 980 #define TclIsProc \
 981         (tclIntStubsPtr->tclIsProc) /* 55 */
 982 #endif
 983 /* Slot 56 is reserved */
 984 /* Slot 57 is reserved */
 985 #ifndef TclLookupVar
 986 #define TclLookupVar \
 987         (tclIntStubsPtr->tclLookupVar) /* 58 */
 988 #endif
 989 #ifndef TclpMatchFiles
 990 #define TclpMatchFiles \
 991         (tclIntStubsPtr->tclpMatchFiles) /* 59 */
 992 #endif
 993 #ifndef TclNeedSpace
 994 #define TclNeedSpace \
 995         (tclIntStubsPtr->tclNeedSpace) /* 60 */
 996 #endif
 997 #ifndef TclNewProcBodyObj
 998 #define TclNewProcBodyObj \
 999         (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
1000 #endif
1001 #ifndef TclObjCommandComplete
1002 #define TclObjCommandComplete \
1003         (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
1004 #endif
1005 #ifndef TclObjInterpProc
1006 #define TclObjInterpProc \
1007         (tclIntStubsPtr->tclObjInterpProc) /* 63 */
1008 #endif
1009 #ifndef TclObjInvoke
1010 #define TclObjInvoke \
1011         (tclIntStubsPtr->tclObjInvoke) /* 64 */
1012 #endif
1013 #ifndef TclObjInvokeGlobal
1014 #define TclObjInvokeGlobal \
1015         (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */
1016 #endif
1017 #ifndef TclOpenFileChannelDeleteProc
1018 #define TclOpenFileChannelDeleteProc \
1019         (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */
1020 #endif
1021 #ifndef TclOpenFileChannelInsertProc
1022 #define TclOpenFileChannelInsertProc \
1023         (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */
1024 #endif
1025 #ifndef TclpAccess
1026 #define TclpAccess \
1027         (tclIntStubsPtr->tclpAccess) /* 68 */
1028 #endif
1029 #ifndef TclpAlloc
1030 #define TclpAlloc \
1031         (tclIntStubsPtr->tclpAlloc) /* 69 */
1032 #endif
1033 #ifndef TclpCopyFile
1034 #define TclpCopyFile \
1035         (tclIntStubsPtr->tclpCopyFile) /* 70 */
1036 #endif
1037 #ifndef TclpCopyDirectory
1038 #define TclpCopyDirectory \
1039         (tclIntStubsPtr->tclpCopyDirectory) /* 71 */
1040 #endif
1041 #ifndef TclpCreateDirectory
1042 #define TclpCreateDirectory \
1043         (tclIntStubsPtr->tclpCreateDirectory) /* 72 */
1044 #endif
1045 #ifndef TclpDeleteFile
1046 #define TclpDeleteFile \
1047         (tclIntStubsPtr->tclpDeleteFile) /* 73 */
1048 #endif
1049 #ifndef TclpFree
1050 #define TclpFree \
1051         (tclIntStubsPtr->tclpFree) /* 74 */
1052 #endif
1053 #ifndef TclpGetClicks
1054 #define TclpGetClicks \
1055         (tclIntStubsPtr->tclpGetClicks) /* 75 */
1056 #endif
1057 #ifndef TclpGetSeconds
1058 #define TclpGetSeconds \
1059         (tclIntStubsPtr->tclpGetSeconds) /* 76 */
1060 #endif
1061 #ifndef TclpGetTime
1062 #define TclpGetTime \
1063         (tclIntStubsPtr->tclpGetTime) /* 77 */
1064 #endif
1065 #ifndef TclpGetTimeZone
1066 #define TclpGetTimeZone \
1067         (tclIntStubsPtr->tclpGetTimeZone) /* 78 */
1068 #endif
1069 #ifndef TclpListVolumes
1070 #define TclpListVolumes \
1071         (tclIntStubsPtr->tclpListVolumes) /* 79 */
1072 #endif
1073 #ifndef TclpOpenFileChannel
1074 #define TclpOpenFileChannel \
1075         (tclIntStubsPtr->tclpOpenFileChannel) /* 80 */
1076 #endif
1077 #ifndef TclpRealloc
1078 #define TclpRealloc \
1079         (tclIntStubsPtr->tclpRealloc) /* 81 */
1080 #endif
1081 #ifndef TclpRemoveDirectory
1082 #define TclpRemoveDirectory \
1083         (tclIntStubsPtr->tclpRemoveDirectory) /* 82 */
1084 #endif
1085 #ifndef TclpRenameFile
1086 #define TclpRenameFile \
1087         (tclIntStubsPtr->tclpRenameFile) /* 83 */
1088 #endif
1089 /* Slot 84 is reserved */
1090 /* Slot 85 is reserved */
1091 /* Slot 86 is reserved */
1092 /* Slot 87 is reserved */
1093 #ifndef TclPrecTraceProc
1094 #define TclPrecTraceProc \
1095         (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
1096 #endif
1097 #ifndef TclPreventAliasLoop
1098 #define TclPreventAliasLoop \
1099         (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
1100 #endif
1101 /* Slot 90 is reserved */
1102 #ifndef TclProcCleanupProc
1103 #define TclProcCleanupProc \
1104         (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
1105 #endif
1106 #ifndef TclProcCompileProc
1107 #define TclProcCompileProc \
1108         (tclIntStubsPtr->tclProcCompileProc) /* 92 */
1109 #endif
1110 #ifndef TclProcDeleteProc
1111 #define TclProcDeleteProc \
1112         (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
1113 #endif
1114 #ifndef TclProcInterpProc
1115 #define TclProcInterpProc \
1116         (tclIntStubsPtr->tclProcInterpProc) /* 94 */
1117 #endif
1118 #ifndef TclpStat
1119 #define TclpStat \
1120         (tclIntStubsPtr->tclpStat) /* 95 */
1121 #endif
1122 #ifndef TclRenameCommand
1123 #define TclRenameCommand \
1124         (tclIntStubsPtr->tclRenameCommand) /* 96 */
1125 #endif
1126 #ifndef TclResetShadowedCmdRefs
1127 #define TclResetShadowedCmdRefs \
1128         (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
1129 #endif
1130 #ifndef TclServiceIdle
1131 #define TclServiceIdle \
1132         (tclIntStubsPtr->tclServiceIdle) /* 98 */
1133 #endif
1134 #ifndef TclSetElementOfIndexedArray
1135 #define TclSetElementOfIndexedArray \
1136         (tclIntStubsPtr->tclSetElementOfIndexedArray) /* 99 */
1137 #endif
1138 #ifndef TclSetIndexedScalar
1139 #define TclSetIndexedScalar \
1140         (tclIntStubsPtr->tclSetIndexedScalar) /* 100 */
1141 #endif
1142 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
1143 #ifndef TclSetPreInitScript
1144 #define TclSetPreInitScript \
1145         (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
1146 #endif
1147 #endif /* UNIX */
1148 #ifdef __WIN32__
1149 #ifndef TclSetPreInitScript
1150 #define TclSetPreInitScript \
1151         (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
1152 #endif
1153 #endif /* __WIN32__ */
1154 #ifndef TclSetupEnv
1155 #define TclSetupEnv \
1156         (tclIntStubsPtr->tclSetupEnv) /* 102 */
1157 #endif
1158 #ifndef TclSockGetPort
1159 #define TclSockGetPort \
1160         (tclIntStubsPtr->tclSockGetPort) /* 103 */
1161 #endif
1162 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
1163 #ifndef TclSockMinimumBuffers
1164 #define TclSockMinimumBuffers \
1165         (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1166 #endif
1167 #endif /* UNIX */
1168 #ifdef __WIN32__
1169 #ifndef TclSockMinimumBuffers
1170 #define TclSockMinimumBuffers \
1171         (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
1172 #endif
1173 #endif /* __WIN32__ */
1174 #ifndef TclStat
1175 #define TclStat \
1176         (tclIntStubsPtr->tclStat) /* 105 */
1177 #endif
1178 #ifndef TclStatDeleteProc
1179 #define TclStatDeleteProc \
1180         (tclIntStubsPtr->tclStatDeleteProc) /* 106 */
1181 #endif
1182 #ifndef TclStatInsertProc
1183 #define TclStatInsertProc \
1184         (tclIntStubsPtr->tclStatInsertProc) /* 107 */
1185 #endif
1186 #ifndef TclTeardownNamespace
1187 #define TclTeardownNamespace \
1188         (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
1189 #endif
1190 #ifndef TclUpdateReturnInfo
1191 #define TclUpdateReturnInfo \
1192         (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
1193 #endif
1194 /* Slot 110 is reserved */
1195 #ifndef Tcl_AddInterpResolvers
1196 #define Tcl_AddInterpResolvers \
1197         (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
1198 #endif
1199 #ifndef Tcl_AppendExportList
1200 #define Tcl_AppendExportList \
1201         (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
1202 #endif
1203 #ifndef Tcl_CreateNamespace
1204 #define Tcl_CreateNamespace \
1205         (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
1206 #endif
1207 #ifndef Tcl_DeleteNamespace
1208 #define Tcl_DeleteNamespace \
1209         (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
1210 #endif
1211 #ifndef Tcl_Export
1212 #define Tcl_Export \
1213         (tclIntStubsPtr->tcl_Export) /* 115 */
1214 #endif
1215 #ifndef Tcl_FindCommand
1216 #define Tcl_FindCommand \
1217         (tclIntStubsPtr->tcl_FindCommand) /* 116 */
1218 #endif
1219 #ifndef Tcl_FindNamespace
1220 #define Tcl_FindNamespace \
1221         (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
1222 #endif
1223 #ifndef Tcl_GetInterpResolvers
1224 #define Tcl_GetInterpResolvers \
1225         (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
1226 #endif
1227 #ifndef Tcl_GetNamespaceResolvers
1228 #define Tcl_GetNamespaceResolvers \
1229         (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
1230 #endif
1231 #ifndef Tcl_FindNamespaceVar
1232 #define Tcl_FindNamespaceVar \
1233         (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
1234 #endif
1235 #ifndef Tcl_ForgetImport
1236 #define Tcl_ForgetImport \
1237         (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
1238 #endif
1239 #ifndef Tcl_GetCommandFromObj
1240 #define Tcl_GetCommandFromObj \
1241         (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
1242 #endif
1243 #ifndef Tcl_GetCommandFullName
1244 #define Tcl_GetCommandFullName \
1245         (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
1246 #endif
1247 #ifndef Tcl_GetCurrentNamespace
1248 #define Tcl_GetCurrentNamespace \
1249         (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
1250 #endif
1251 #ifndef Tcl_GetGlobalNamespace
1252 #define Tcl_GetGlobalNamespace \
1253         (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
1254 #endif
1255 #ifndef Tcl_GetVariableFullName
1256 #define Tcl_GetVariableFullName \
1257         (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
1258 #endif
1259 #ifndef Tcl_Import
1260 #define Tcl_Import \
1261         (tclIntStubsPtr->tcl_Import) /* 127 */
1262 #endif
1263 #ifndef Tcl_PopCallFrame
1264 #define Tcl_PopCallFrame \
1265         (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
1266 #endif
1267 #ifndef Tcl_PushCallFrame
1268 #define Tcl_PushCallFrame \
1269         (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
1270 #endif
1271 #ifndef Tcl_RemoveInterpResolvers
1272 #define Tcl_RemoveInterpResolvers \
1273         (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
1274 #endif
1275 #ifndef Tcl_SetNamespaceResolvers
1276 #define Tcl_SetNamespaceResolvers \
1277         (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
1278 #endif
1279 #ifndef TclpHasSockets
1280 #define TclpHasSockets \
1281         (tclIntStubsPtr->tclpHasSockets) /* 132 */
1282 #endif
1283 #ifndef TclpGetDate
1284 #define TclpGetDate \
1285         (tclIntStubsPtr->tclpGetDate) /* 133 */
1286 #endif
1287 #ifndef TclpStrftime
1288 #define TclpStrftime \
1289         (tclIntStubsPtr->tclpStrftime) /* 134 */
1290 #endif
1291 #ifndef TclpCheckStackSpace
1292 #define TclpCheckStackSpace \
1293         (tclIntStubsPtr->tclpCheckStackSpace) /* 135 */
1294 #endif
1295 /* Slot 136 is reserved */
1296 #ifndef TclpChdir
1297 #define TclpChdir \
1298         (tclIntStubsPtr->tclpChdir) /* 137 */
1299 #endif
1300 #ifndef TclGetEnv
1301 #define TclGetEnv \
1302         (tclIntStubsPtr->tclGetEnv) /* 138 */
1303 #endif
1304 #ifndef TclpLoadFile
1305 #define TclpLoadFile \
1306         (tclIntStubsPtr->tclpLoadFile) /* 139 */
1307 #endif
1308 #ifndef TclLooksLikeInt
1309 #define TclLooksLikeInt \
1310         (tclIntStubsPtr->tclLooksLikeInt) /* 140 */
1311 #endif
1312 #ifndef TclpGetCwd
1313 #define TclpGetCwd \
1314         (tclIntStubsPtr->tclpGetCwd) /* 141 */
1315 #endif
1316 #ifndef TclSetByteCodeFromAny
1317 #define TclSetByteCodeFromAny \
1318         (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
1319 #endif
1320 #ifndef TclAddLiteralObj
1321 #define TclAddLiteralObj \
1322         (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
1323 #endif
1324 #ifndef TclHideLiteral
1325 #define TclHideLiteral \
1326         (tclIntStubsPtr->tclHideLiteral) /* 144 */
1327 #endif
1328 #ifndef TclGetAuxDataType
1329 #define TclGetAuxDataType \
1330         (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
1331 #endif
1332 #ifndef TclHandleCreate
1333 #define TclHandleCreate \
1334         (tclIntStubsPtr->tclHandleCreate) /* 146 */
1335 #endif
1336 #ifndef TclHandleFree
1337 #define TclHandleFree \
1338         (tclIntStubsPtr->tclHandleFree) /* 147 */
1339 #endif
1340 #ifndef TclHandlePreserve
1341 #define TclHandlePreserve \
1342         (tclIntStubsPtr->tclHandlePreserve) /* 148 */
1343 #endif
1344 #ifndef TclHandleRelease
1345 #define TclHandleRelease \
1346         (tclIntStubsPtr->tclHandleRelease) /* 149 */
1347 #endif
1348 #ifndef TclRegAbout
1349 #define TclRegAbout \
1350         (tclIntStubsPtr->tclRegAbout) /* 150 */
1351 #endif
1352 #ifndef TclRegExpRangeUniChar
1353 #define TclRegExpRangeUniChar \
1354         (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
1355 #endif
1356 #ifndef TclSetLibraryPath
1357 #define TclSetLibraryPath \
1358         (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
1359 #endif
1360 #ifndef TclGetLibraryPath
1361 #define TclGetLibraryPath \
1362         (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
1363 #endif
1364 /* Slot 154 is reserved */
1365 /* Slot 155 is reserved */
1366 #ifndef TclRegError
1367 #define TclRegError \
1368         (tclIntStubsPtr->tclRegError) /* 156 */
1369 #endif
1370 #ifndef TclVarTraceExists
1371 #define TclVarTraceExists \
1372         (tclIntStubsPtr->tclVarTraceExists) /* 157 */
1373 #endif
1374 #ifndef TclSetStartupScriptFileName
1375 #define TclSetStartupScriptFileName \
1376         (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
1377 #endif
1378 #ifndef TclGetStartupScriptFileName
1379 #define TclGetStartupScriptFileName \
1380         (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
1381 #endif
1382 #ifndef TclpMatchFilesTypes
1383 #define TclpMatchFilesTypes \
1384         (tclIntStubsPtr->tclpMatchFilesTypes) /* 160 */
1385 #endif
1386 #ifndef TclChannelTransform
1387 #define TclChannelTransform \
1388         (tclIntStubsPtr->tclChannelTransform) /* 161 */
1389 #endif
1390 #ifndef TclChannelEventScriptInvoker
1391 #define TclChannelEventScriptInvoker \
1392         (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
1393 #endif
1394
1395 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
1396
1397 /* !END!: Do not edit above this line. */
1398
1399 #endif /* _TCLINTDECLS */
1400