/* * 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.112 2008/01/23 17:31:42 dgp Exp $ */ #ifndef _TCLINTDECLS #define _TCLINTDECLS #include "tclPort.h" #undef TCL_STORAGE_CLASS #ifdef BUILD_tcl # define TCL_STORAGE_CLASS DLLEXPORT #else # ifdef USE_TCL_STUBS # define TCL_STORAGE_CLASS # else # define TCL_STORAGE_CLASS DLLIMPORT # endif #endif /* * 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: */ /* Slot 0 is reserved */ /* Slot 1 is reserved */ /* Slot 2 is reserved */ #ifndef TclAllocateFreeObjects_TCL_DECLARED #define TclAllocateFreeObjects_TCL_DECLARED /* 3 */ EXTERN void TclAllocateFreeObjects (void); #endif /* Slot 4 is reserved */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #ifndef TclCleanupChildren_TCL_DECLARED #define TclCleanupChildren_TCL_DECLARED /* 5 */ EXTERN int TclCleanupChildren (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); #endif #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ #ifndef TclCleanupChildren_TCL_DECLARED #define TclCleanupChildren_TCL_DECLARED /* 5 */ EXTERN int TclCleanupChildren (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); #endif #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ #ifndef TclCleanupChildren_TCL_DECLARED #define TclCleanupChildren_TCL_DECLARED /* 5 */ EXTERN int TclCleanupChildren (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); #endif #endif /* MACOSX */ #ifndef TclCleanupCommand_TCL_DECLARED #define TclCleanupCommand_TCL_DECLARED /* 6 */ EXTERN void TclCleanupCommand (Command * cmdPtr); #endif #ifndef TclCopyAndCollapse_TCL_DECLARED #define TclCopyAndCollapse_TCL_DECLARED /* 7 */ EXTERN int TclCopyAndCollapse (int count, CONST char * src, char * dst); #endif #ifndef TclCopyChannel_TCL_DECLARED #define TclCopyChannel_TCL_DECLARED /* 8 */ EXTERN int TclCopyChannel (Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr); #endif #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #ifndef TclCreatePipeline_TCL_DECLARED #define TclCreatePipeline_TCL_DECLARED /* 9 */ EXTERN int TclCreatePipeline (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); #endif #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ #ifndef TclCreatePipeline_TCL_DECLARED #define TclCreatePipeline_TCL_DECLARED /* 9 */ EXTERN int TclCreatePipeline (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); #endif #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ #ifndef TclCreatePipeline_TCL_DECLARED #define TclCreatePipeline_TCL_DECLARED /* 9 */ EXTERN int TclCreatePipeline (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); #endif #endif /* MACOSX */ #ifndef TclCreateProc_TCL_DECLARED #define TclCreateProc_TCL_DECLARED /* 10 */ EXTERN int TclCreateProc (Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr); #endif #ifndef TclDeleteCompiledLocalVars_TCL_DECLARED #define TclDeleteCompiledLocalVars_TCL_DECLARED /* 11 */ EXTERN void TclDeleteCompiledLocalVars (Interp * iPtr, CallFrame * framePtr); #endif #ifndef TclDeleteVars_TCL_DECLARED #define TclDeleteVars_TCL_DECLARED /* 12 */ EXTERN void TclDeleteVars (Interp * iPtr, TclVarHashTable * tablePtr); #endif /* Slot 13 is reserved */ #ifndef TclDumpMemoryInfo_TCL_DECLARED #define TclDumpMemoryInfo_TCL_DECLARED /* 14 */ EXTERN void TclDumpMemoryInfo (FILE * outFile); #endif /* Slot 15 is reserved */ #ifndef TclExprFloatError_TCL_DECLARED #define TclExprFloatError_TCL_DECLARED /* 16 */ EXTERN void TclExprFloatError (Tcl_Interp * interp, double value); #endif /* Slot 17 is reserved */ /* Slot 18 is reserved */ /* Slot 19 is reserved */ /* Slot 20 is reserved */ /* Slot 21 is reserved */ #ifndef TclFindElement_TCL_DECLARED #define TclFindElement_TCL_DECLARED /* 22 */ EXTERN int TclFindElement (Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr); #endif #ifndef TclFindProc_TCL_DECLARED #define TclFindProc_TCL_DECLARED /* 23 */ EXTERN Proc * TclFindProc (Interp * iPtr, CONST char * procName); #endif /* Slot 24 is reserved */ #ifndef TclFreePackageInfo_TCL_DECLARED #define TclFreePackageInfo_TCL_DECLARED /* 25 */ EXTERN void TclFreePackageInfo (Interp * iPtr); #endif /* Slot 26 is reserved */ /* Slot 27 is reserved */ #ifndef TclpGetDefaultStdChannel_TCL_DECLARED #define TclpGetDefaultStdChannel_TCL_DECLARED /* 28 */ EXTERN Tcl_Channel TclpGetDefaultStdChannel (int type); #endif /* Slot 29 is reserved */ /* Slot 30 is reserved */ #ifndef TclGetExtension_TCL_DECLARED #define TclGetExtension_TCL_DECLARED /* 31 */ EXTERN CONST char * TclGetExtension (CONST char * name); #endif #ifndef TclGetFrame_TCL_DECLARED #define TclGetFrame_TCL_DECLARED /* 32 */ EXTERN int TclGetFrame (Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr); #endif /* Slot 33 is reserved */ #ifndef TclGetIntForIndex_TCL_DECLARED #define TclGetIntForIndex_TCL_DECLARED /* 34 */ EXTERN int TclGetIntForIndex (Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr); #endif /* Slot 35 is reserved */ #ifndef TclGetLong_TCL_DECLARED #define TclGetLong_TCL_DECLARED /* 36 */ EXTERN int TclGetLong (Tcl_Interp * interp, CONST char * str, long * longPtr); #endif #ifndef TclGetLoadedPackages_TCL_DECLARED #define TclGetLoadedPackages_TCL_DECLARED /* 37 */ EXTERN int TclGetLoadedPackages (Tcl_Interp * interp, char * targetName); #endif #ifndef TclGetNamespaceForQualName_TCL_DECLARED #define TclGetNamespaceForQualName_TCL_DECLARED /* 38 */ EXTERN int TclGetNamespaceForQualName (Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr); #endif #ifndef TclGetObjInterpProc_TCL_DECLARED #define TclGetObjInterpProc_TCL_DECLARED /* 39 */ EXTERN TclObjCmdProcType TclGetObjInterpProc (void); #endif #ifndef TclGetOpenMode_TCL_DECLARED #define TclGetOpenMode_TCL_DECLARED /* 40 */ EXTERN int TclGetOpenMode (Tcl_Interp * interp, CONST char * str, int * seekFlagPtr); #endif #ifndef TclGetOriginalCommand_TCL_DECLARED #define TclGetOriginalCommand_TCL_DECLARED /* 41 */ EXTERN Tcl_Command TclGetOriginalCommand (Tcl_Command command); #endif #ifndef TclpGetUserHome_TCL_DECLARED #define TclpGetUserHome_TCL_DECLARED /* 42 */ EXTERN char * TclpGetUserHome (CONST char * name, Tcl_DString * bufferPtr); #endif /* Slot 43 is reserved */ #ifndef TclGuessPackageName_TCL_DECLARED #define TclGuessPackageName_TCL_DECLARED /* 44 */ EXTERN int TclGuessPackageName (CONST char * fileName, Tcl_DString * bufPtr); #endif #ifndef TclHideUnsafeCommands_TCL_DECLARED #define TclHideUnsafeCommands_TCL_DECLARED /* 45 */ EXTERN int TclHideUnsafeCommands (Tcl_Interp * interp); #endif #ifndef TclInExit_TCL_DECLARED #define TclInExit_TCL_DECLARED /* 46 */ EXTERN int TclInExit (void); #endif /* Slot 47 is reserved */ /* Slot 48 is reserved */ /* Slot 49 is reserved */ #ifndef TclInitCompiledLocals_TCL_DECLARED #define TclInitCompiledLocals_TCL_DECLARED /* 50 */ EXTERN void TclInitCompiledLocals (Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr); #endif #ifndef TclInterpInit_TCL_DECLARED #define TclInterpInit_TCL_DECLARED /* 51 */ EXTERN int TclInterpInit (Tcl_Interp * interp); #endif /* Slot 52 is reserved */ #ifndef TclInvokeObjectCommand_TCL_DECLARED #define TclInvokeObjectCommand_TCL_DECLARED /* 53 */ EXTERN int TclInvokeObjectCommand (ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv); #endif #ifndef TclInvokeStringCommand_TCL_DECLARED #define TclInvokeStringCommand_TCL_DECLARED /* 54 */ EXTERN int TclInvokeStringCommand (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); #endif #ifndef TclIsProc_TCL_DECLARED #define TclIsProc_TCL_DECLARED /* 55 */ EXTERN Proc * TclIsProc (Command * cmdPtr); #endif /* Slot 56 is reserved */ /* Slot 57 is reserved */ #ifndef TclLookupVar_TCL_DECLARED #define TclLookupVar_TCL_DECLARED /* 58 */ EXTERN Var * TclLookupVar (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr); #endif /* Slot 59 is reserved */ #ifndef TclNeedSpace_TCL_DECLARED #define TclNeedSpace_TCL_DECLARED /* 60 */ EXTERN int TclNeedSpace (CONST char * start, CONST char * end); #endif #ifndef TclNewProcBodyObj_TCL_DECLARED #define TclNewProcBodyObj_TCL_DECLARED /* 61 */ EXTERN Tcl_Obj * TclNewProcBodyObj (Proc * procPtr); #endif #ifndef TclObjCommandComplete_TCL_DECLARED #define TclObjCommandComplete_TCL_DECLARED /* 62 */ EXTERN int TclObjCommandComplete (Tcl_Obj * cmdPtr); #endif #ifndef TclObjInterpProc_TCL_DECLARED #define TclObjInterpProc_TCL_DECLARED /* 63 */ EXTERN int TclObjInterpProc (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); #endif #ifndef TclObjInvoke_TCL_DECLARED #define TclObjInvoke_TCL_DECLARED /* 64 */ EXTERN int TclObjInvoke (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags); #endif /* Slot 65 is reserved */ /* Slot 66 is reserved */ /* Slot 67 is reserved */ /* Slot 68 is reserved */ #ifndef TclpAlloc_TCL_DECLARED #define TclpAlloc_TCL_DECLARED /* 69 */ EXTERN char * TclpAlloc (unsigned int size); #endif /* Slot 70 is reserved */ /* Slot 71 is reserved */ /* Slot 72 is reserved */ /* Slot 73 is reserved */ #ifndef TclpFree_TCL_DECLARED #define TclpFree_TCL_DECLARED /* 74 */ EXTERN void TclpFree (char * ptr); #endif #ifndef TclpGetClicks_TCL_DECLARED #define TclpGetClicks_TCL_DECLARED /* 75 */ EXTERN unsigned long TclpGetClicks (void); #endif #ifndef TclpGetSeconds_TCL_DECLARED #define TclpGetSeconds_TCL_DECLARED /* 76 */ EXTERN unsigned long TclpGetSeconds (void); #endif #ifndef TclpGetTime_TCL_DECLARED #define TclpGetTime_TCL_DECLARED /* 77 */ EXTERN void TclpGetTime (Tcl_Time * time); #endif #ifndef TclpGetTimeZone_TCL_DECLARED #define TclpGetTimeZone_TCL_DECLARED /* 78 */ EXTERN int TclpGetTimeZone (unsigned long time); #endif /* Slot 79 is reserved */ /* Slot 80 is reserved */ #ifndef TclpRealloc_TCL_DECLARED #define TclpRealloc_TCL_DECLARED /* 81 */ EXTERN char * TclpRealloc (char * ptr, unsigned int size); #endif /* Slot 82 is reserved */ /* Slot 83 is reserved */ /* Slot 84 is reserved */ /* Slot 85 is reserved */ /* Slot 86 is reserved */ /* Slot 87 is reserved */ #ifndef TclPrecTraceProc_TCL_DECLARED #define TclPrecTraceProc_TCL_DECLARED /* 88 */ EXTERN char * TclPrecTraceProc (ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags); #endif #ifndef TclPreventAliasLoop_TCL_DECLARED #define TclPreventAliasLoop_TCL_DECLARED /* 89 */ EXTERN int TclPreventAliasLoop (Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd); #endif /* Slot 90 is reserved */ #ifndef TclProcCleanupProc_TCL_DECLARED #define TclProcCleanupProc_TCL_DECLARED /* 91 */ EXTERN void TclProcCleanupProc (Proc * procPtr); #endif #ifndef TclProcCompileProc_TCL_DECLARED #define TclProcCompileProc_TCL_DECLARED /* 92 */ EXTERN int TclProcCompileProc (Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName); #endif #ifndef TclProcDeleteProc_TCL_DECLARED #define TclProcDeleteProc_TCL_DECLARED /* 93 */ EXTERN void TclProcDeleteProc (ClientData clientData); #endif /* Slot 94 is reserved */ /* Slot 95 is reserved */ #ifndef TclRenameCommand_TCL_DECLARED #define TclRenameCommand_TCL_DECLARED /* 96 */ EXTERN int TclRenameCommand (Tcl_Interp * interp, CONST char * oldName, CONST char * newName); #endif #ifndef TclResetShadowedCmdRefs_TCL_DECLARED #define TclResetShadowedCmdRefs_TCL_DECLARED /* 97 */ EXTERN void TclResetShadowedCmdRefs (Tcl_Interp * interp, Command * newCmdPtr); #endif #ifndef TclServiceIdle_TCL_DECLARED #define TclServiceIdle_TCL_DECLARED /* 98 */ EXTERN int TclServiceIdle (void); #endif /* Slot 99 is reserved */ /* Slot 100 is reserved */ #ifndef TclSetPreInitScript_TCL_DECLARED #define TclSetPreInitScript_TCL_DECLARED /* 101 */ EXTERN char * TclSetPreInitScript (char * string); #endif #ifndef TclSetupEnv_TCL_DECLARED #define TclSetupEnv_TCL_DECLARED /* 102 */ EXTERN void TclSetupEnv (Tcl_Interp * interp); #endif #ifndef TclSockGetPort_TCL_DECLARED #define TclSockGetPort_TCL_DECLARED /* 103 */ EXTERN int TclSockGetPort (Tcl_Interp * interp, CONST char * str, CONST char * proto, int * portPtr); #endif #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #ifndef TclSockMinimumBuffers_TCL_DECLARED #define TclSockMinimumBuffers_TCL_DECLARED /* 104 */ EXTERN int TclSockMinimumBuffers (int sock, int size); #endif #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ #ifndef TclSockMinimumBuffers_TCL_DECLARED #define TclSockMinimumBuffers_TCL_DECLARED /* 104 */ EXTERN int TclSockMinimumBuffers (int sock, int size); #endif #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ #ifndef TclSockMinimumBuffers_TCL_DECLARED #define TclSockMinimumBuffers_TCL_DECLARED /* 104 */ EXTERN int TclSockMinimumBuffers (int sock, int size); #endif #endif /* MACOSX */ /* Slot 105 is reserved */ /* Slot 106 is reserved */ /* Slot 107 is reserved */ #ifndef TclTeardownNamespace_TCL_DECLARED #define TclTeardownNamespace_TCL_DECLARED /* 108 */ EXTERN void TclTeardownNamespace (Namespace * nsPtr); #endif #ifndef TclUpdateReturnInfo_TCL_DECLARED #define TclUpdateReturnInfo_TCL_DECLARED /* 109 */ EXTERN int TclUpdateReturnInfo (Interp * iPtr); #endif /* Slot 110 is reserved */ #ifndef Tcl_AddInterpResolvers_TCL_DECLARED #define Tcl_AddInterpResolvers_TCL_DECLARED /* 111 */ EXTERN void Tcl_AddInterpResolvers (Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); #endif #ifndef Tcl_AppendExportList_TCL_DECLARED #define Tcl_AppendExportList_TCL_DECLARED /* 112 */ EXTERN int Tcl_AppendExportList (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); #endif #ifndef Tcl_CreateNamespace_TCL_DECLARED #define Tcl_CreateNamespace_TCL_DECLARED /* 113 */ EXTERN Tcl_Namespace * Tcl_CreateNamespace (Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); #endif #ifndef Tcl_DeleteNamespace_TCL_DECLARED #define Tcl_DeleteNamespace_TCL_DECLARED /* 114 */ EXTERN void Tcl_DeleteNamespace (Tcl_Namespace * nsPtr); #endif #ifndef Tcl_Export_TCL_DECLARED #define Tcl_Export_TCL_DECLARED /* 115 */ EXTERN int Tcl_Export (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst); #endif #ifndef Tcl_FindCommand_TCL_DECLARED #define Tcl_FindCommand_TCL_DECLARED /* 116 */ EXTERN Tcl_Command Tcl_FindCommand (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); #endif #ifndef Tcl_FindNamespace_TCL_DECLARED #define Tcl_FindNamespace_TCL_DECLARED /* 117 */ EXTERN Tcl_Namespace * Tcl_FindNamespace (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); #endif #ifndef Tcl_GetInterpResolvers_TCL_DECLARED #define Tcl_GetInterpResolvers_TCL_DECLARED /* 118 */ EXTERN int Tcl_GetInterpResolvers (Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo); #endif #ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED #define Tcl_GetNamespaceResolvers_TCL_DECLARED /* 119 */ EXTERN int Tcl_GetNamespaceResolvers ( Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo); #endif #ifndef Tcl_FindNamespaceVar_TCL_DECLARED #define Tcl_FindNamespaceVar_TCL_DECLARED /* 120 */ EXTERN Tcl_Var Tcl_FindNamespaceVar (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); #endif #ifndef Tcl_ForgetImport_TCL_DECLARED #define Tcl_ForgetImport_TCL_DECLARED /* 121 */ EXTERN int Tcl_ForgetImport (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern); #endif #ifndef Tcl_GetCommandFromObj_TCL_DECLARED #define Tcl_GetCommandFromObj_TCL_DECLARED /* 122 */ EXTERN Tcl_Command Tcl_GetCommandFromObj (Tcl_Interp * interp, Tcl_Obj * objPtr); #endif #ifndef Tcl_GetCommandFullName_TCL_DECLARED #define Tcl_GetCommandFullName_TCL_DECLARED /* 123 */ EXTERN void Tcl_GetCommandFullName (Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr); #endif #ifndef Tcl_GetCurrentNamespace_TCL_DECLARED #define Tcl_GetCurrentNamespace_TCL_DECLARED /* 124 */ EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace (Tcl_Interp * interp); #endif #ifndef Tcl_GetGlobalNamespace_TCL_DECLARED #define Tcl_GetGlobalNamespace_TCL_DECLARED /* 125 */ EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace (Tcl_Interp * interp); #endif #ifndef Tcl_GetVariableFullName_TCL_DECLARED #define Tcl_GetVariableFullName_TCL_DECLARED /* 126 */ EXTERN void Tcl_GetVariableFullName (Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr); #endif #ifndef Tcl_Import_TCL_DECLARED #define Tcl_Import_TCL_DECLARED /* 127 */ EXTERN int Tcl_Import (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite); #endif #ifndef Tcl_PopCallFrame_TCL_DECLARED #define Tcl_PopCallFrame_TCL_DECLARED /* 128 */ EXTERN void Tcl_PopCallFrame (Tcl_Interp * interp); #endif #ifndef Tcl_PushCallFrame_TCL_DECLARED #define Tcl_PushCallFrame_TCL_DECLARED /* 129 */ EXTERN int Tcl_PushCallFrame (Tcl_Interp * interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame); #endif #ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED #define Tcl_RemoveInterpResolvers_TCL_DECLARED /* 130 */ EXTERN int Tcl_RemoveInterpResolvers (Tcl_Interp * interp, CONST char * name); #endif #ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED #define Tcl_SetNamespaceResolvers_TCL_DECLARED /* 131 */ EXTERN void Tcl_SetNamespaceResolvers ( Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); #endif #ifndef TclpHasSockets_TCL_DECLARED #define TclpHasSockets_TCL_DECLARED /* 132 */ EXTERN int TclpHasSockets (Tcl_Interp * interp); #endif #ifndef TclpGetDate_TCL_DECLARED #define TclpGetDate_TCL_DECLARED /* 133 */ EXTERN struct tm * TclpGetDate (CONST time_t * time, int useGMT); #endif /* Slot 134 is reserved */ /* Slot 135 is reserved */ /* Slot 136 is reserved */ /* Slot 137 is reserved */ #ifndef TclGetEnv_TCL_DECLARED #define TclGetEnv_TCL_DECLARED /* 138 */ EXTERN CONST84_RETURN char * TclGetEnv (CONST char * name, Tcl_DString * valuePtr); #endif /* Slot 139 is reserved */ /* Slot 140 is reserved */ #ifndef TclpGetCwd_TCL_DECLARED #define TclpGetCwd_TCL_DECLARED /* 141 */ EXTERN CONST84_RETURN char * TclpGetCwd (Tcl_Interp * interp, Tcl_DString * cwdPtr); #endif #ifndef TclSetByteCodeFromAny_TCL_DECLARED #define TclSetByteCodeFromAny_TCL_DECLARED /* 142 */ EXTERN int TclSetByteCodeFromAny (Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData); #endif #ifndef TclAddLiteralObj_TCL_DECLARED #define TclAddLiteralObj_TCL_DECLARED /* 143 */ EXTERN int TclAddLiteralObj (struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr); #endif #ifndef TclHideLiteral_TCL_DECLARED #define TclHideLiteral_TCL_DECLARED /* 144 */ EXTERN void TclHideLiteral (Tcl_Interp * interp, struct CompileEnv * envPtr, int index); #endif #ifndef TclGetAuxDataType_TCL_DECLARED #define TclGetAuxDataType_TCL_DECLARED /* 145 */ EXTERN struct AuxDataType * TclGetAuxDataType (char * typeName); #endif #ifndef TclHandleCreate_TCL_DECLARED #define TclHandleCreate_TCL_DECLARED /* 146 */ EXTERN TclHandle TclHandleCreate (VOID * ptr); #endif #ifndef TclHandleFree_TCL_DECLARED #define TclHandleFree_TCL_DECLARED /* 147 */ EXTERN void TclHandleFree (TclHandle handle); #endif #ifndef TclHandlePreserve_TCL_DECLARED #define TclHandlePreserve_TCL_DECLARED /* 148 */ EXTERN TclHandle TclHandlePreserve (TclHandle handle); #endif #ifndef TclHandleRelease_TCL_DECLARED #define TclHandleRelease_TCL_DECLARED /* 149 */ EXTERN void TclHandleRelease (TclHandle handle); #endif #ifndef TclRegAbout_TCL_DECLARED #define TclRegAbout_TCL_DECLARED /* 150 */ EXTERN int TclRegAbout (Tcl_Interp * interp, Tcl_RegExp re); #endif #ifndef TclRegExpRangeUniChar_TCL_DECLARED #define TclRegExpRangeUniChar_TCL_DECLARED /* 151 */ EXTERN void TclRegExpRangeUniChar (Tcl_RegExp re, int index, int * startPtr, int * endPtr); #endif #ifndef TclSetLibraryPath_TCL_DECLARED #define TclSetLibraryPath_TCL_DECLARED /* 152 */ EXTERN void TclSetLibraryPath (Tcl_Obj * pathPtr); #endif #ifndef TclGetLibraryPath_TCL_DECLARED #define TclGetLibraryPath_TCL_DECLARED /* 153 */ EXTERN Tcl_Obj * TclGetLibraryPath (void); #endif /* Slot 154 is reserved */ /* Slot 155 is reserved */ #ifndef TclRegError_TCL_DECLARED #define TclRegError_TCL_DECLARED /* 156 */ EXTERN void TclRegError (Tcl_Interp * interp, CONST char * msg, int status); #endif #ifndef TclVarTraceExists_TCL_DECLARED #define TclVarTraceExists_TCL_DECLARED /* 157 */ EXTERN Var * TclVarTraceExists (Tcl_Interp * interp, CONST char * varName); #endif #ifndef TclSetStartupScriptFileName_TCL_DECLARED #define TclSetStartupScriptFileName_TCL_DECLARED /* 158 */ EXTERN void TclSetStartupScriptFileName (CONST char * filename); #endif #ifndef TclGetStartupScriptFileName_TCL_DECLARED #define TclGetStartupScriptFileName_TCL_DECLARED /* 159 */ EXTERN CONST84_RETURN char * TclGetStartupScriptFileName (void); #endif /* Slot 160 is reserved */ #ifndef TclChannelTransform_TCL_DECLARED #define TclChannelTransform_TCL_DECLARED /* 161 */ EXTERN int TclChannelTransform (Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr); #endif #ifndef TclChannelEventScriptInvoker_TCL_DECLARED #define TclChannelEventScriptInvoker_TCL_DECLARED /* 162 */ EXTERN void TclChannelEventScriptInvoker (ClientData clientData, int flags); #endif #ifndef TclGetInstructionTable_TCL_DECLARED #define TclGetInstructionTable_TCL_DECLARED /* 163 */ EXTERN void * TclGetInstructionTable (void); #endif #ifndef TclExpandCodeArray_TCL_DECLARED #define TclExpandCodeArray_TCL_DECLARED /* 164 */ EXTERN void TclExpandCodeArray (void * envPtr); #endif #ifndef TclpSetInitialEncodings_TCL_DECLARED #define TclpSetInitialEncodings_TCL_DECLARED /* 165 */ EXTERN void TclpSetInitialEncodings (void); #endif #ifndef TclListObjSetElement_TCL_DECLARED #define TclListObjSetElement_TCL_DECLARED /* 166 */ EXTERN int TclListObjSetElement (Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr); #endif #ifndef TclSetStartupScriptPath_TCL_DECLARED #define TclSetStartupScriptPath_TCL_DECLARED /* 167 */ EXTERN void TclSetStartupScriptPath (Tcl_Obj * pathPtr); #endif #ifndef TclGetStartupScriptPath_TCL_DECLARED #define TclGetStartupScriptPath_TCL_DECLARED /* 168 */ EXTERN Tcl_Obj * TclGetStartupScriptPath (void); #endif #ifndef TclpUtfNcmp2_TCL_DECLARED #define TclpUtfNcmp2_TCL_DECLARED /* 169 */ EXTERN int TclpUtfNcmp2 (CONST char * s1, CONST char * s2, unsigned long n); #endif #ifndef TclCheckInterpTraces_TCL_DECLARED #define TclCheckInterpTraces_TCL_DECLARED /* 170 */ EXTERN int TclCheckInterpTraces (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); #endif #ifndef TclCheckExecutionTraces_TCL_DECLARED #define TclCheckExecutionTraces_TCL_DECLARED /* 171 */ EXTERN int TclCheckExecutionTraces (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); #endif #ifndef TclInThreadExit_TCL_DECLARED #define TclInThreadExit_TCL_DECLARED /* 172 */ EXTERN int TclInThreadExit (void); #endif #ifndef TclUniCharMatch_TCL_DECLARED #define TclUniCharMatch_TCL_DECLARED /* 173 */ EXTERN int TclUniCharMatch (CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int flags); #endif /* Slot 174 is reserved */ #ifndef TclCallVarTraces_TCL_DECLARED #define TclCallVarTraces_TCL_DECLARED /* 175 */ EXTERN int TclCallVarTraces (Interp * iPtr, Var * arrayPtr, Var * varPtr, CONST char * part1, CONST char * part2, int flags, int leaveErrMsg); #endif #ifndef TclCleanupVar_TCL_DECLARED #define TclCleanupVar_TCL_DECLARED /* 176 */ EXTERN void TclCleanupVar (Var * varPtr, Var * arrayPtr); #endif #ifndef TclVarErrMsg_TCL_DECLARED #define TclVarErrMsg_TCL_DECLARED /* 177 */ EXTERN void TclVarErrMsg (Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * operation, CONST char * reason); #endif #ifndef Tcl_SetStartupScript_TCL_DECLARED #define Tcl_SetStartupScript_TCL_DECLARED /* 178 */ EXTERN void Tcl_SetStartupScript (Tcl_Obj * pathPtr, CONST char* encodingName); #endif #ifndef Tcl_GetStartupScript_TCL_DECLARED #define Tcl_GetStartupScript_TCL_DECLARED /* 179 */ EXTERN Tcl_Obj * Tcl_GetStartupScript (CONST char ** encodingNamePtr); #endif /* Slot 180 is reserved */ /* Slot 181 is reserved */ #ifndef TclpLocaltime_TCL_DECLARED #define TclpLocaltime_TCL_DECLARED /* 182 */ EXTERN struct tm * TclpLocaltime (CONST time_t * clock); #endif #ifndef TclpGmtime_TCL_DECLARED #define TclpGmtime_TCL_DECLARED /* 183 */ EXTERN struct tm * TclpGmtime (CONST time_t * clock); #endif /* Slot 184 is reserved */ /* Slot 185 is reserved */ /* Slot 186 is reserved */ /* Slot 187 is reserved */ /* Slot 188 is reserved */ /* Slot 189 is reserved */ /* Slot 190 is reserved */ /* Slot 191 is reserved */ /* Slot 192 is reserved */ /* Slot 193 is reserved */ /* Slot 194 is reserved */ /* Slot 195 is reserved */ /* Slot 196 is reserved */ /* Slot 197 is reserved */ #ifndef TclObjGetFrame_TCL_DECLARED #define TclObjGetFrame_TCL_DECLARED /* 198 */ EXTERN int TclObjGetFrame (Tcl_Interp * interp, Tcl_Obj * objPtr, CallFrame ** framePtrPtr); #endif /* Slot 199 is reserved */ #ifndef TclpObjRemoveDirectory_TCL_DECLARED #define TclpObjRemoveDirectory_TCL_DECLARED /* 200 */ EXTERN int TclpObjRemoveDirectory (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); #endif #ifndef TclpObjCopyDirectory_TCL_DECLARED #define TclpObjCopyDirectory_TCL_DECLARED /* 201 */ EXTERN int TclpObjCopyDirectory (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); #endif #ifndef TclpObjCreateDirectory_TCL_DECLARED #define TclpObjCreateDirectory_TCL_DECLARED /* 202 */ EXTERN int TclpObjCreateDirectory (Tcl_Obj * pathPtr); #endif #ifndef TclpObjDeleteFile_TCL_DECLARED #define TclpObjDeleteFile_TCL_DECLARED /* 203 */ EXTERN int TclpObjDeleteFile (Tcl_Obj * pathPtr); #endif #ifndef TclpObjCopyFile_TCL_DECLARED #define TclpObjCopyFile_TCL_DECLARED /* 204 */ EXTERN int TclpObjCopyFile (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); #endif #ifndef TclpObjRenameFile_TCL_DECLARED #define TclpObjRenameFile_TCL_DECLARED /* 205 */ EXTERN int TclpObjRenameFile (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); #endif #ifndef TclpObjStat_TCL_DECLARED #define TclpObjStat_TCL_DECLARED /* 206 */ EXTERN int TclpObjStat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); #endif #ifndef TclpObjAccess_TCL_DECLARED #define TclpObjAccess_TCL_DECLARED /* 207 */ EXTERN int TclpObjAccess (Tcl_Obj * pathPtr, int mode); #endif #ifndef TclpOpenFileChannel_TCL_DECLARED #define TclpOpenFileChannel_TCL_DECLARED /* 208 */ EXTERN Tcl_Channel TclpOpenFileChannel (Tcl_Interp * interp, Tcl_Obj * pathPtr, int mode, int permissions); #endif /* Slot 209 is reserved */ /* Slot 210 is reserved */ /* Slot 211 is reserved */ #ifndef TclpFindExecutable_TCL_DECLARED #define TclpFindExecutable_TCL_DECLARED /* 212 */ EXTERN void TclpFindExecutable (CONST char * argv0); #endif #ifndef TclGetObjNameOfExecutable_TCL_DECLARED #define TclGetObjNameOfExecutable_TCL_DECLARED /* 213 */ EXTERN Tcl_Obj * TclGetObjNameOfExecutable (void); #endif #ifndef TclSetObjNameOfExecutable_TCL_DECLARED #define TclSetObjNameOfExecutable_TCL_DECLARED /* 214 */ EXTERN void TclSetObjNameOfExecutable (Tcl_Obj * name, Tcl_Encoding encoding); #endif #ifndef TclStackAlloc_TCL_DECLARED #define TclStackAlloc_TCL_DECLARED /* 215 */ EXTERN void * TclStackAlloc (Tcl_Interp * interp, int numBytes); #endif #ifndef TclStackFree_TCL_DECLARED #define TclStackFree_TCL_DECLARED /* 216 */ EXTERN void TclStackFree (Tcl_Interp * interp, void * freePtr); #endif #ifndef TclPushStackFrame_TCL_DECLARED #define TclPushStackFrame_TCL_DECLARED /* 217 */ EXTERN int TclPushStackFrame (Tcl_Interp * interp, Tcl_CallFrame ** framePtrPtr, Tcl_Namespace * namespacePtr, int isProcCallFrame); #endif #ifndef TclPopStackFrame_TCL_DECLARED #define TclPopStackFrame_TCL_DECLARED /* 218 */ EXTERN void TclPopStackFrame (Tcl_Interp * interp); #endif /* Slot 219 is reserved */ /* Slot 220 is reserved */ /* Slot 221 is reserved */ /* Slot 222 is reserved */ /* Slot 223 is reserved */ #ifndef TclGetPlatform_TCL_DECLARED #define TclGetPlatform_TCL_DECLARED /* 224 */ EXTERN TclPlatformType * TclGetPlatform (void); #endif #ifndef TclTraceDictPath_TCL_DECLARED #define TclTraceDictPath_TCL_DECLARED /* 225 */ EXTERN Tcl_Obj * TclTraceDictPath (Tcl_Interp * interp, Tcl_Obj * rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags); #endif #ifndef TclObjBeingDeleted_TCL_DECLARED #define TclObjBeingDeleted_TCL_DECLARED /* 226 */ EXTERN int TclObjBeingDeleted (Tcl_Obj * objPtr); #endif #ifndef TclSetNsPath_TCL_DECLARED #define TclSetNsPath_TCL_DECLARED /* 227 */ EXTERN void TclSetNsPath (Namespace * nsPtr, int pathLength, Tcl_Namespace * pathAry[]); #endif #ifndef TclObjInterpProcCore_TCL_DECLARED #define TclObjInterpProcCore_TCL_DECLARED /* 228 */ EXTERN int TclObjInterpProcCore (register Tcl_Interp * interp, Tcl_Obj * procNameObj, int skip, ProcErrorProc errorProc); #endif #ifndef TclPtrMakeUpvar_TCL_DECLARED #define TclPtrMakeUpvar_TCL_DECLARED /* 229 */ EXTERN int TclPtrMakeUpvar (Tcl_Interp * interp, Var * otherP1Ptr, CONST char * myName, int myFlags, int index); #endif #ifndef TclObjLookupVar_TCL_DECLARED #define TclObjLookupVar_TCL_DECLARED /* 230 */ EXTERN Var * TclObjLookupVar (Tcl_Interp * interp, Tcl_Obj * part1Ptr, CONST char * part2, int flags, CONST char * msg, CONST int createPart1, CONST int createPart2, Var ** arrayPtrPtr); #endif #ifndef TclGetNamespaceFromObj_TCL_DECLARED #define TclGetNamespaceFromObj_TCL_DECLARED /* 231 */ EXTERN int TclGetNamespaceFromObj (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Namespace ** nsPtrPtr); #endif #ifndef TclEvalObjEx_TCL_DECLARED #define TclEvalObjEx_TCL_DECLARED /* 232 */ EXTERN int TclEvalObjEx (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags, const CmdFrame * invoker, int word); #endif #ifndef TclGetSrcInfoForPc_TCL_DECLARED #define TclGetSrcInfoForPc_TCL_DECLARED /* 233 */ EXTERN void TclGetSrcInfoForPc (CmdFrame * contextPtr); #endif #ifndef TclVarHashCreateVar_TCL_DECLARED #define TclVarHashCreateVar_TCL_DECLARED /* 234 */ EXTERN Var * TclVarHashCreateVar (TclVarHashTable * tablePtr, const char * key, int * newPtr); #endif #ifndef TclInitVarHashTable_TCL_DECLARED #define TclInitVarHashTable_TCL_DECLARED /* 235 */ EXTERN void TclInitVarHashTable (TclVarHashTable * tablePtr, Namespace * nsPtr); #endif #ifndef TclBackgroundException_TCL_DECLARED #define TclBackgroundException_TCL_DECLARED /* 236 */ EXTERN void TclBackgroundException (Tcl_Interp * interp, int code); #endif typedef struct TclIntStubs { int magic; struct TclIntStubHooks *hooks; void *reserved0; void *reserved1; void *reserved2; void (*tclAllocateFreeObjects) (void); /* 3 */ void *reserved4; #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */ #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */ #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */ #endif /* MACOSX */ void (*tclCleanupCommand) (Command * cmdPtr); /* 6 */ int (*tclCopyAndCollapse) (int count, CONST char * src, char * dst); /* 7 */ int (*tclCopyChannel) (Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr); /* 8 */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */ #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */ #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */ #endif /* MACOSX */ int (*tclCreateProc) (Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr); /* 10 */ void (*tclDeleteCompiledLocalVars) (Interp * iPtr, CallFrame * framePtr); /* 11 */ void (*tclDeleteVars) (Interp * iPtr, TclVarHashTable * tablePtr); /* 12 */ void *reserved13; void (*tclDumpMemoryInfo) (FILE * outFile); /* 14 */ void *reserved15; void (*tclExprFloatError) (Tcl_Interp * interp, double value); /* 16 */ void *reserved17; void *reserved18; void *reserved19; void *reserved20; void *reserved21; int (*tclFindElement) (Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr); /* 22 */ Proc * (*tclFindProc) (Interp * iPtr, CONST char * procName); /* 23 */ void *reserved24; void (*tclFreePackageInfo) (Interp * iPtr); /* 25 */ void *reserved26; void *reserved27; Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */ void *reserved29; void *reserved30; CONST char * (*tclGetExtension) (CONST char * name); /* 31 */ int (*tclGetFrame) (Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr); /* 32 */ void *reserved33; int (*tclGetIntForIndex) (Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr); /* 34 */ void *reserved35; int (*tclGetLong) (Tcl_Interp * interp, CONST char * str, long * longPtr); /* 36 */ int (*tclGetLoadedPackages) (Tcl_Interp * interp, char * targetName); /* 37 */ int (*tclGetNamespaceForQualName) (Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr); /* 38 */ TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */ int (*tclGetOpenMode) (Tcl_Interp * interp, CONST char * str, int * seekFlagPtr); /* 40 */ Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ char * (*tclpGetUserHome) (CONST char * name, Tcl_DString * bufferPtr); /* 42 */ void *reserved43; int (*tclGuessPackageName) (CONST char * fileName, Tcl_DString * bufPtr); /* 44 */ int (*tclHideUnsafeCommands) (Tcl_Interp * interp); /* 45 */ int (*tclInExit) (void); /* 46 */ void *reserved47; void *reserved48; void *reserved49; void (*tclInitCompiledLocals) (Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr); /* 50 */ int (*tclInterpInit) (Tcl_Interp * interp); /* 51 */ void *reserved52; int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv); /* 53 */ int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); /* 54 */ Proc * (*tclIsProc) (Command * cmdPtr); /* 55 */ void *reserved56; void *reserved57; Var * (*tclLookupVar) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr); /* 58 */ void *reserved59; int (*tclNeedSpace) (CONST char * start, CONST char * end); /* 60 */ Tcl_Obj * (*tclNewProcBodyObj) (Proc * procPtr); /* 61 */ int (*tclObjCommandComplete) (Tcl_Obj * cmdPtr); /* 62 */ int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); /* 63 */ int (*tclObjInvoke) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 64 */ void *reserved65; void *reserved66; void *reserved67; void *reserved68; char * (*tclpAlloc) (unsigned int size); /* 69 */ void *reserved70; void *reserved71; void *reserved72; void *reserved73; void (*tclpFree) (char * ptr); /* 74 */ unsigned long (*tclpGetClicks) (void); /* 75 */ unsigned long (*tclpGetSeconds) (void); /* 76 */ void (*tclpGetTime) (Tcl_Time * time); /* 77 */ int (*tclpGetTimeZone) (unsigned long time); /* 78 */ void *reserved79; void *reserved80; char * (*tclpRealloc) (char * ptr, unsigned int size); /* 81 */ void *reserved82; void *reserved83; void *reserved84; void *reserved85; void *reserved86; void *reserved87; char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags); /* 88 */ int (*tclPreventAliasLoop) (Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd); /* 89 */ void *reserved90; void (*tclProcCleanupProc) (Proc * procPtr); /* 91 */ int (*tclProcCompileProc) (Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName); /* 92 */ void (*tclProcDeleteProc) (ClientData clientData); /* 93 */ void *reserved94; void *reserved95; int (*tclRenameCommand) (Tcl_Interp * interp, CONST char * oldName, CONST char * newName); /* 96 */ void (*tclResetShadowedCmdRefs) (Tcl_Interp * interp, Command * newCmdPtr); /* 97 */ int (*tclServiceIdle) (void); /* 98 */ void *reserved99; void *reserved100; char * (*tclSetPreInitScript) (char * string); /* 101 */ void (*tclSetupEnv) (Tcl_Interp * interp); /* 102 */ int (*tclSockGetPort) (Tcl_Interp * interp, CONST char * str, CONST char * proto, int * portPtr); /* 103 */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */ #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */ #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */ #endif /* MACOSX */ void *reserved105; void *reserved106; void *reserved107; void (*tclTeardownNamespace) (Namespace * nsPtr); /* 108 */ int (*tclUpdateReturnInfo) (Interp * iPtr); /* 109 */ void *reserved110; void (*tcl_AddInterpResolvers) (Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); /* 111 */ int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); /* 112 */ Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 113 */ void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 114 */ int (*tcl_Export) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst); /* 115 */ Tcl_Command (*tcl_FindCommand) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 116 */ Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 117 */ int (*tcl_GetInterpResolvers) (Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo); /* 118 */ int (*tcl_GetNamespaceResolvers) (Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo); /* 119 */ Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 120 */ int (*tcl_ForgetImport) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern); /* 121 */ Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 122 */ void (*tcl_GetCommandFullName) (Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr); /* 123 */ Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp * interp); /* 124 */ Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp * interp); /* 125 */ void (*tcl_GetVariableFullName) (Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr); /* 126 */ int (*tcl_Import) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite); /* 127 */ void (*tcl_PopCallFrame) (Tcl_Interp * interp); /* 128 */ int (*tcl_PushCallFrame) (Tcl_Interp * interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame); /* 129 */ int (*tcl_RemoveInterpResolvers) (Tcl_Interp * interp, CONST char * name); /* 130 */ void (*tcl_SetNamespaceResolvers) (Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); /* 131 */ int (*tclpHasSockets) (Tcl_Interp * interp); /* 132 */ struct tm * (*tclpGetDate) (CONST time_t * time, int useGMT); /* 133 */ void *reserved134; void *reserved135; void *reserved136; void *reserved137; CONST84_RETURN char * (*tclGetEnv) (CONST char * name, Tcl_DString * valuePtr); /* 138 */ void *reserved139; void *reserved140; CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp * interp, Tcl_DString * cwdPtr); /* 141 */ int (*tclSetByteCodeFromAny) (Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData); /* 142 */ int (*tclAddLiteralObj) (struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr); /* 143 */ void (*tclHideLiteral) (Tcl_Interp * interp, struct CompileEnv * envPtr, int index); /* 144 */ struct AuxDataType * (*tclGetAuxDataType) (char * typeName); /* 145 */ TclHandle (*tclHandleCreate) (VOID * ptr); /* 146 */ void (*tclHandleFree) (TclHandle handle); /* 147 */ TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */ void (*tclHandleRelease) (TclHandle handle); /* 149 */ int (*tclRegAbout) (Tcl_Interp * interp, Tcl_RegExp re); /* 150 */ void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int * startPtr, int * endPtr); /* 151 */ void (*tclSetLibraryPath) (Tcl_Obj * pathPtr); /* 152 */ Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */ void *reserved154; void *reserved155; void (*tclRegError) (Tcl_Interp * interp, CONST char * msg, int status); /* 156 */ Var * (*tclVarTraceExists) (Tcl_Interp * interp, CONST char * varName); /* 157 */ void (*tclSetStartupScriptFileName) (CONST char * filename); /* 158 */ CONST84_RETURN char * (*tclGetStartupScriptFileName) (void); /* 159 */ void *reserved160; int (*tclChannelTransform) (Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr); /* 161 */ void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */ void * (*tclGetInstructionTable) (void); /* 163 */ void (*tclExpandCodeArray) (void * envPtr); /* 164 */ void (*tclpSetInitialEncodings) (void); /* 165 */ int (*tclListObjSetElement) (Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr); /* 166 */ void (*tclSetStartupScriptPath) (Tcl_Obj * pathPtr); /* 167 */ Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */ int (*tclpUtfNcmp2) (CONST char * s1, CONST char * s2, unsigned long n); /* 169 */ int (*tclCheckInterpTraces) (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 170 */ int (*tclCheckExecutionTraces) (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 171 */ int (*tclInThreadExit) (void); /* 172 */ int (*tclUniCharMatch) (CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int flags); /* 173 */ void *reserved174; int (*tclCallVarTraces) (Interp * iPtr, Var * arrayPtr, Var * varPtr, CONST char * part1, CONST char * part2, int flags, int leaveErrMsg); /* 175 */ void (*tclCleanupVar) (Var * varPtr, Var * arrayPtr); /* 176 */ void (*tclVarErrMsg) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * operation, CONST char * reason); /* 177 */ void (*tcl_SetStartupScript) (Tcl_Obj * pathPtr, CONST char* encodingName); /* 178 */ Tcl_Obj * (*tcl_GetStartupScript) (CONST char ** encodingNamePtr); /* 179 */ void *reserved180; void *reserved181; struct tm * (*tclpLocaltime) (CONST time_t * clock); /* 182 */ struct tm * (*tclpGmtime) (CONST time_t * clock); /* 183 */ void *reserved184; void *reserved185; void *reserved186; void *reserved187; void *reserved188; void *reserved189; void *reserved190; void *reserved191; void *reserved192; void *reserved193; void *reserved194; void *reserved195; void *reserved196; void *reserved197; int (*tclObjGetFrame) (Tcl_Interp * interp, Tcl_Obj * objPtr, CallFrame ** framePtrPtr); /* 198 */ void *reserved199; int (*tclpObjRemoveDirectory) (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); /* 200 */ int (*tclpObjCopyDirectory) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); /* 201 */ int (*tclpObjCreateDirectory) (Tcl_Obj * pathPtr); /* 202 */ int (*tclpObjDeleteFile) (Tcl_Obj * pathPtr); /* 203 */ int (*tclpObjCopyFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 204 */ int (*tclpObjRenameFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 205 */ int (*tclpObjStat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 206 */ int (*tclpObjAccess) (Tcl_Obj * pathPtr, int mode); /* 207 */ Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pathPtr, int mode, int permissions); /* 208 */ void *reserved209; void *reserved210; void *reserved211; void (*tclpFindExecutable) (CONST char * argv0); /* 212 */ Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */ void (*tclSetObjNameOfExecutable) (Tcl_Obj * name, Tcl_Encoding encoding); /* 214 */ void * (*tclStackAlloc) (Tcl_Interp * interp, int numBytes); /* 215 */ void (*tclStackFree) (Tcl_Interp * interp, void * freePtr); /* 216 */ int (*tclPushStackFrame) (Tcl_Interp * interp, Tcl_CallFrame ** framePtrPtr, Tcl_Namespace * namespacePtr, int isProcCallFrame); /* 217 */ void (*tclPopStackFrame) (Tcl_Interp * interp); /* 218 */ void *reserved219; void *reserved220; void *reserved221; void *reserved222; void *reserved223; TclPlatformType * (*tclGetPlatform) (void); /* 224 */ Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp * interp, Tcl_Obj * rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags); /* 225 */ int (*tclObjBeingDeleted) (Tcl_Obj * objPtr); /* 226 */ void (*tclSetNsPath) (Namespace * nsPtr, int pathLength, Tcl_Namespace * pathAry[]); /* 227 */ int (*tclObjInterpProcCore) (register Tcl_Interp * interp, Tcl_Obj * procNameObj, int skip, ProcErrorProc errorProc); /* 228 */ int (*tclPtrMakeUpvar) (Tcl_Interp * interp, Var * otherP1Ptr, CONST char * myName, int myFlags, int index); /* 229 */ Var * (*tclObjLookupVar) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, CONST char * part2, int flags, CONST char * msg, CONST int createPart1, CONST int createPart2, Var ** arrayPtrPtr); /* 230 */ int (*tclGetNamespaceFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Namespace ** nsPtrPtr); /* 231 */ int (*tclEvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags, const CmdFrame * invoker, int word); /* 232 */ void (*tclGetSrcInfoForPc) (CmdFrame * contextPtr); /* 233 */ Var * (*tclVarHashCreateVar) (TclVarHashTable * tablePtr, const char * key, int * newPtr); /* 234 */ void (*tclInitVarHashTable) (TclVarHashTable * tablePtr, Namespace * nsPtr); /* 235 */ void (*tclBackgroundException) (Tcl_Interp * interp, int code); /* 236 */ } 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: */ /* Slot 0 is reserved */ /* Slot 1 is reserved */ /* Slot 2 is reserved */ #ifndef TclAllocateFreeObjects #define TclAllocateFreeObjects \ (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ #endif /* Slot 4 is reserved */ #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #ifndef TclCleanupChildren #define TclCleanupChildren \ (tclIntStubsPtr->tclCleanupChildren) /* 5 */ #endif #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ #ifndef TclCleanupChildren #define TclCleanupChildren \ (tclIntStubsPtr->tclCleanupChildren) /* 5 */ #endif #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ #ifndef TclCleanupChildren #define TclCleanupChildren \ (tclIntStubsPtr->tclCleanupChildren) /* 5 */ #endif #endif /* MACOSX */ #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_OSX_TCL) /* UNIX */ #ifndef TclCreatePipeline #define TclCreatePipeline \ (tclIntStubsPtr->tclCreatePipeline) /* 9 */ #endif #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ #ifndef TclCreatePipeline #define TclCreatePipeline \ (tclIntStubsPtr->tclCreatePipeline) /* 9 */ #endif #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ #ifndef TclCreatePipeline #define TclCreatePipeline \ (tclIntStubsPtr->tclCreatePipeline) /* 9 */ #endif #endif /* MACOSX */ #ifndef TclCreateProc #define TclCreateProc \ (tclIntStubsPtr->tclCreateProc) /* 10 */ #endif #ifndef TclDeleteCompiledLocalVars #define TclDeleteCompiledLocalVars \ (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */ #endif #ifndef TclDeleteVars #define TclDeleteVars \ (tclIntStubsPtr->tclDeleteVars) /* 12 */ #endif /* Slot 13 is reserved */ #ifndef TclDumpMemoryInfo #define TclDumpMemoryInfo \ (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */ #endif /* Slot 15 is reserved */ #ifndef TclExprFloatError #define TclExprFloatError \ (tclIntStubsPtr->tclExprFloatError) /* 16 */ #endif /* Slot 17 is reserved */ /* Slot 18 is reserved */ /* Slot 19 is reserved */ /* Slot 20 is reserved */ /* Slot 21 is reserved */ #ifndef TclFindElement #define TclFindElement \ (tclIntStubsPtr->tclFindElement) /* 22 */ #endif #ifndef TclFindProc #define TclFindProc \ (tclIntStubsPtr->tclFindProc) /* 23 */ #endif /* Slot 24 is reserved */ #ifndef TclFreePackageInfo #define TclFreePackageInfo \ (tclIntStubsPtr->tclFreePackageInfo) /* 25 */ #endif /* Slot 26 is reserved */ /* Slot 27 is reserved */ #ifndef TclpGetDefaultStdChannel #define TclpGetDefaultStdChannel \ (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */ #endif /* Slot 29 is reserved */ /* Slot 30 is reserved */ #ifndef TclGetExtension #define TclGetExtension \ (tclIntStubsPtr->tclGetExtension) /* 31 */ #endif #ifndef TclGetFrame #define TclGetFrame \ (tclIntStubsPtr->tclGetFrame) /* 32 */ #endif /* Slot 33 is reserved */ #ifndef TclGetIntForIndex #define TclGetIntForIndex \ (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ #endif /* Slot 35 is reserved */ #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 /* Slot 43 is reserved */ #ifndef TclGuessPackageName #define TclGuessPackageName \ (tclIntStubsPtr->tclGuessPackageName) /* 44 */ #endif #ifndef TclHideUnsafeCommands #define TclHideUnsafeCommands \ (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */ #endif #ifndef TclInExit #define TclInExit \ (tclIntStubsPtr->tclInExit) /* 46 */ #endif /* Slot 47 is reserved */ /* Slot 48 is reserved */ /* Slot 49 is reserved */ #ifndef TclInitCompiledLocals #define TclInitCompiledLocals \ (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */ #endif #ifndef TclInterpInit #define TclInterpInit \ (tclIntStubsPtr->tclInterpInit) /* 51 */ #endif /* Slot 52 is reserved */ #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 /* Slot 59 is reserved */ #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 /* Slot 65 is reserved */ /* Slot 66 is reserved */ /* Slot 67 is reserved */ /* Slot 68 is reserved */ #ifndef TclpAlloc #define TclpAlloc \ (tclIntStubsPtr->tclpAlloc) /* 69 */ #endif /* Slot 70 is reserved */ /* Slot 71 is reserved */ /* Slot 72 is reserved */ /* Slot 73 is reserved */ #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 /* Slot 79 is reserved */ /* Slot 80 is reserved */ #ifndef TclpRealloc #define TclpRealloc \ (tclIntStubsPtr->tclpRealloc) /* 81 */ #endif /* Slot 82 is reserved */ /* Slot 83 is reserved */ /* 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 /* Slot 94 is reserved */ /* Slot 95 is reserved */ #ifndef TclRenameCommand #define TclRenameCommand \ (tclIntStubsPtr->tclRenameCommand) /* 96 */ #endif #ifndef TclResetShadowedCmdRefs #define TclResetShadowedCmdRefs \ (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */ #endif #ifndef TclServiceIdle #define TclServiceIdle \ (tclIntStubsPtr->tclServiceIdle) /* 98 */ #endif /* Slot 99 is reserved */ /* Slot 100 is reserved */ #ifndef TclSetPreInitScript #define TclSetPreInitScript \ (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ #endif #ifndef TclSetupEnv #define TclSetupEnv \ (tclIntStubsPtr->tclSetupEnv) /* 102 */ #endif #ifndef TclSockGetPort #define TclSockGetPort \ (tclIntStubsPtr->tclSockGetPort) /* 103 */ #endif #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ #ifndef TclSockMinimumBuffers #define TclSockMinimumBuffers \ (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ #endif #endif /* UNIX */ #ifdef __WIN32__ /* WIN */ #ifndef TclSockMinimumBuffers #define TclSockMinimumBuffers \ (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ #endif #endif /* WIN */ #ifdef MAC_OSX_TCL /* MACOSX */ #ifndef TclSockMinimumBuffers #define TclSockMinimumBuffers \ (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ #endif #endif /* MACOSX */ /* Slot 105 is reserved */ /* Slot 106 is reserved */ /* Slot 107 is reserved */ #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 /* Slot 134 is reserved */ /* Slot 135 is reserved */ /* Slot 136 is reserved */ /* Slot 137 is reserved */ #ifndef TclGetEnv #define TclGetEnv \ (tclIntStubsPtr->tclGetEnv) /* 138 */ #endif /* Slot 139 is reserved */ /* Slot 140 is reserved */ #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 /* Slot 154 is reserved */ /* Slot 155 is reserved */ #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 /* Slot 160 is reserved */ #ifndef TclChannelTransform #define TclChannelTransform \ (tclIntStubsPtr->tclChannelTransform) /* 161 */ #endif #ifndef TclChannelEventScriptInvoker #define TclChannelEventScriptInvoker \ (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */ #endif #ifndef TclGetInstructionTable #define TclGetInstructionTable \ (tclIntStubsPtr->tclGetInstructionTable) /* 163 */ #endif #ifndef TclExpandCodeArray #define TclExpandCodeArray \ (tclIntStubsPtr->tclExpandCodeArray) /* 164 */ #endif #ifndef TclpSetInitialEncodings #define TclpSetInitialEncodings \ (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */ #endif #ifndef TclListObjSetElement #define TclListObjSetElement \ (tclIntStubsPtr->tclListObjSetElement) /* 166 */ #endif #ifndef TclSetStartupScriptPath #define TclSetStartupScriptPath \ (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */ #endif #ifndef TclGetStartupScriptPath #define TclGetStartupScriptPath \ (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */ #endif #ifndef TclpUtfNcmp2 #define TclpUtfNcmp2 \ (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */ #endif #ifndef TclCheckInterpTraces #define TclCheckInterpTraces \ (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */ #endif #ifndef TclCheckExecutionTraces #define TclCheckExecutionTraces \ (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */ #endif #ifndef TclInThreadExit #define TclInThreadExit \ (tclIntStubsPtr->tclInThreadExit) /* 172 */ #endif #ifndef TclUniCharMatch #define TclUniCharMatch \ (tclIntStubsPtr->tclUniCharMatch) /* 173 */ #endif /* Slot 174 is reserved */ #ifndef TclCallVarTraces #define TclCallVarTraces \ (tclIntStubsPtr->tclCallVarTraces) /* 175 */ #endif #ifndef TclCleanupVar #define TclCleanupVar \ (tclIntStubsPtr->tclCleanupVar) /* 176 */ #endif #ifndef TclVarErrMsg #define TclVarErrMsg \ (tclIntStubsPtr->tclVarErrMsg) /* 177 */ #endif #ifndef Tcl_SetStartupScript #define Tcl_SetStartupScript \ (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */ #endif #ifndef Tcl_GetStartupScript #define Tcl_GetStartupScript \ (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */ #endif /* Slot 180 is reserved */ /* Slot 181 is reserved */ #ifndef TclpLocaltime #define TclpLocaltime \ (tclIntStubsPtr->tclpLocaltime) /* 182 */ #endif #ifndef TclpGmtime #define TclpGmtime \ (tclIntStubsPtr->tclpGmtime) /* 183 */ #endif /* Slot 184 is reserved */ /* Slot 185 is reserved */ /* Slot 186 is reserved */ /* Slot 187 is reserved */ /* Slot 188 is reserved */ /* Slot 189 is reserved */ /* Slot 190 is reserved */ /* Slot 191 is reserved */ /* Slot 192 is reserved */ /* Slot 193 is reserved */ /* Slot 194 is reserved */ /* Slot 195 is reserved */ /* Slot 196 is reserved */ /* Slot 197 is reserved */ #ifndef TclObjGetFrame #define TclObjGetFrame \ (tclIntStubsPtr->tclObjGetFrame) /* 198 */ #endif /* Slot 199 is reserved */ #ifndef TclpObjRemoveDirectory #define TclpObjRemoveDirectory \ (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */ #endif #ifndef TclpObjCopyDirectory #define TclpObjCopyDirectory \ (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */ #endif #ifndef TclpObjCreateDirectory #define TclpObjCreateDirectory \ (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */ #endif #ifndef TclpObjDeleteFile #define TclpObjDeleteFile \ (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */ #endif #ifndef TclpObjCopyFile #define TclpObjCopyFile \ (tclIntStubsPtr->tclpObjCopyFile) /* 204 */ #endif #ifndef TclpObjRenameFile #define TclpObjRenameFile \ (tclIntStubsPtr->tclpObjRenameFile) /* 205 */ #endif #ifndef TclpObjStat #define TclpObjStat \ (tclIntStubsPtr->tclpObjStat) /* 206 */ #endif #ifndef TclpObjAccess #define TclpObjAccess \ (tclIntStubsPtr->tclpObjAccess) /* 207 */ #endif #ifndef TclpOpenFileChannel #define TclpOpenFileChannel \ (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */ #endif /* Slot 209 is reserved */ /* Slot 210 is reserved */ /* Slot 211 is reserved */ #ifndef TclpFindExecutable #define TclpFindExecutable \ (tclIntStubsPtr->tclpFindExecutable) /* 212 */ #endif #ifndef TclGetObjNameOfExecutable #define TclGetObjNameOfExecutable \ (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */ #endif #ifndef TclSetObjNameOfExecutable #define TclSetObjNameOfExecutable \ (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */ #endif #ifndef TclStackAlloc #define TclStackAlloc \ (tclIntStubsPtr->tclStackAlloc) /* 215 */ #endif #ifndef TclStackFree #define TclStackFree \ (tclIntStubsPtr->tclStackFree) /* 216 */ #endif #ifndef TclPushStackFrame #define TclPushStackFrame \ (tclIntStubsPtr->tclPushStackFrame) /* 217 */ #endif #ifndef TclPopStackFrame #define TclPopStackFrame \ (tclIntStubsPtr->tclPopStackFrame) /* 218 */ #endif /* Slot 219 is reserved */ /* Slot 220 is reserved */ /* Slot 221 is reserved */ /* Slot 222 is reserved */ /* Slot 223 is reserved */ #ifndef TclGetPlatform #define TclGetPlatform \ (tclIntStubsPtr->tclGetPlatform) /* 224 */ #endif #ifndef TclTraceDictPath #define TclTraceDictPath \ (tclIntStubsPtr->tclTraceDictPath) /* 225 */ #endif #ifndef TclObjBeingDeleted #define TclObjBeingDeleted \ (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */ #endif #ifndef TclSetNsPath #define TclSetNsPath \ (tclIntStubsPtr->tclSetNsPath) /* 227 */ #endif #ifndef TclObjInterpProcCore #define TclObjInterpProcCore \ (tclIntStubsPtr->tclObjInterpProcCore) /* 228 */ #endif #ifndef TclPtrMakeUpvar #define TclPtrMakeUpvar \ (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */ #endif #ifndef TclObjLookupVar #define TclObjLookupVar \ (tclIntStubsPtr->tclObjLookupVar) /* 230 */ #endif #ifndef TclGetNamespaceFromObj #define TclGetNamespaceFromObj \ (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */ #endif #ifndef TclEvalObjEx #define TclEvalObjEx \ (tclIntStubsPtr->tclEvalObjEx) /* 232 */ #endif #ifndef TclGetSrcInfoForPc #define TclGetSrcInfoForPc \ (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */ #endif #ifndef TclVarHashCreateVar #define TclVarHashCreateVar \ (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */ #endif #ifndef TclInitVarHashTable #define TclInitVarHashTable \ (tclIntStubsPtr->tclInitVarHashTable) /* 235 */ #endif #ifndef TclBackgroundException #define TclBackgroundException \ (tclIntStubsPtr->tclBackgroundException) /* 236 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ /* !END!: Do not edit above this line. */ #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT #endif /* _TCLINTDECLS */