/[dtapublic]/projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclintdecls.h
ViewVC logotype

Diff of /projs/trunk/shared_source/c_tcl_base_7_5_w_mods/tclintdecls.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

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

Legend:
Removed from v.42  
changed lines
  Added in v.71

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25