diff options
author | nijtmans <nijtmans@noemail.net> | 2010-08-19 04:26:02 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2010-08-19 04:26:02 (GMT) |
commit | c8c19c48afd34908e5ebbd335c64a7b191d94358 (patch) | |
tree | 10bd3827d241c5c347fdbbc246ce50e7816d6250 /generic/tclIntDecls.h | |
parent | f756226a46e6a76a05279b114824eb820ec1d4a7 (diff) | |
download | tcl-c8c19c48afd34908e5ebbd335c64a7b191d94358.zip tcl-c8c19c48afd34908e5ebbd335c64a7b191d94358.tar.gz tcl-c8c19c48afd34908e5ebbd335c64a7b191d94358.tar.bz2 |
[Patch 3034251] backport ttkGenStubs.tcl features to genStubs.tcl, partly: remove unneeded ifdeffery and put C++ guard around stubs pointer definition.
FossilOrigin-Name: 6f6d53c30a1cbbdedcc7618d4bec0ec592b0e3a5
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r-- | generic/tclIntDecls.h | 784 |
1 files changed, 9 insertions, 775 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 2ec3c63..efd1b63 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * 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.140 2010/07/02 22:31:50 dgp Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.141 2010/08/19 04:26:02 nijtmans Exp $ */ #ifndef _TCLINTDECLS @@ -60,137 +60,78 @@ /* 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 */ -#ifndef TclCleanupChildren_TCL_DECLARED -#define TclCleanupChildren_TCL_DECLARED /* 5 */ EXTERN int TclCleanupChildren(Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan); -#endif -#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 TclCopyChannelOld_TCL_DECLARED -#define TclCopyChannelOld_TCL_DECLARED /* 8 */ EXTERN int TclCopyChannelOld(Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr); -#endif -#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 -#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 */ /* Slot 36 is reserved */ -#ifndef TclGetLoadedPackages_TCL_DECLARED -#define TclGetLoadedPackages_TCL_DECLARED /* 37 */ EXTERN int TclGetLoadedPackages(Tcl_Interp *interp, const char *targetName); -#endif -#ifndef TclGetNamespaceForQualName_TCL_DECLARED -#define TclGetNamespaceForQualName_TCL_DECLARED /* 38 */ EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, @@ -198,606 +139,323 @@ EXTERN int TclGetNamespaceForQualName(Tcl_Interp *interp, 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 CONST86 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 CONST86 char * TclSetPreInitScript(const 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 -#ifndef TclSockMinimumBuffers_TCL_DECLARED -#define TclSockMinimumBuffers_TCL_DECLARED /* 104 */ EXTERN int TclSockMinimumBuffers(int sock, int size); -#endif /* 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 const struct AuxDataType * TclGetAuxDataType(const 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 /* Slot 158 is reserved */ /* Slot 159 is reserved */ /* 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 const 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 /* Slot 167 is reserved */ /* Slot 168 is reserved */ -#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 /* Slot 178 is reserved */ /* Slot 179 is reserved */ /* 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 */ @@ -812,252 +470,132 @@ EXTERN struct tm * TclpGmtime(const time_t *clock); /* 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 /* Slot 228 is reserved */ -#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 /* Slot 236 is reserved */ -#ifndef TclResetCancellation_TCL_DECLARED -#define TclResetCancellation_TCL_DECLARED /* 237 */ EXTERN int TclResetCancellation(Tcl_Interp *interp, int force); -#endif -#ifndef TclNRInterpProc_TCL_DECLARED -#define TclNRInterpProc_TCL_DECLARED /* 238 */ EXTERN int TclNRInterpProc(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -#endif -#ifndef TclNRInterpProcCore_TCL_DECLARED -#define TclNRInterpProcCore_TCL_DECLARED /* 239 */ EXTERN int TclNRInterpProcCore(Tcl_Interp *interp, Tcl_Obj *procNameObj, int skip, ProcErrorProc *errorProc); -#endif -#ifndef TclNRRunCallbacks_TCL_DECLARED -#define TclNRRunCallbacks_TCL_DECLARED /* 240 */ EXTERN int TclNRRunCallbacks(Tcl_Interp *interp, int result, struct TEOV_callback *rootPtr, int tebcCall); -#endif -#ifndef TclNREvalObjEx_TCL_DECLARED -#define TclNREvalObjEx_TCL_DECLARED /* 241 */ EXTERN int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, const CmdFrame *invoker, int word); -#endif -#ifndef TclNREvalObjv_TCL_DECLARED -#define TclNREvalObjv_TCL_DECLARED /* 242 */ EXTERN int TclNREvalObjv(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags, Command *cmdPtr); -#endif -#ifndef TclDbDumpActiveObjects_TCL_DECLARED -#define TclDbDumpActiveObjects_TCL_DECLARED /* 243 */ EXTERN void TclDbDumpActiveObjects(FILE *outFile); -#endif -#ifndef TclGetNamespaceChildTable_TCL_DECLARED -#define TclGetNamespaceChildTable_TCL_DECLARED /* 244 */ EXTERN Tcl_HashTable * TclGetNamespaceChildTable(Tcl_Namespace *nsPtr); -#endif -#ifndef TclGetNamespaceCommandTable_TCL_DECLARED -#define TclGetNamespaceCommandTable_TCL_DECLARED /* 245 */ EXTERN Tcl_HashTable * TclGetNamespaceCommandTable(Tcl_Namespace *nsPtr); -#endif -#ifndef TclInitRewriteEnsemble_TCL_DECLARED -#define TclInitRewriteEnsemble_TCL_DECLARED /* 246 */ EXTERN int TclInitRewriteEnsemble(Tcl_Interp *interp, int numRemoved, int numInserted, Tcl_Obj *const *objv); -#endif -#ifndef TclResetRewriteEnsemble_TCL_DECLARED -#define TclResetRewriteEnsemble_TCL_DECLARED /* 247 */ EXTERN void TclResetRewriteEnsemble(Tcl_Interp *interp, int isRootEnsemble); -#endif -#ifndef TclCopyChannel_TCL_DECLARED -#define TclCopyChannel_TCL_DECLARED /* 248 */ EXTERN int TclCopyChannel(Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); -#endif typedef struct TclIntStubs { int magic; @@ -1314,11 +852,15 @@ typedef struct TclIntStubs { int (*tclCopyChannel) (Tcl_Interp *interp, Tcl_Channel inChan, Tcl_Channel outChan, Tcl_WideInt toRead, Tcl_Obj *cmdPtr); /* 248 */ } TclIntStubs; -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) +#ifdef __cplusplus +extern "C" { +#endif extern const TclIntStubs *tclIntStubsPtr; -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ +#ifdef __cplusplus +} +#endif -#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) +#if defined(USE_TCL_STUBS) /* * Inline function declarations: @@ -1327,529 +869,301 @@ extern const TclIntStubs *tclIntStubsPtr; /* Slot 0 is reserved */ /* Slot 1 is reserved */ /* Slot 2 is reserved */ -#ifndef TclAllocateFreeObjects #define TclAllocateFreeObjects \ (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */ -#endif /* Slot 4 is reserved */ -#ifndef TclCleanupChildren #define TclCleanupChildren \ (tclIntStubsPtr->tclCleanupChildren) /* 5 */ -#endif -#ifndef TclCleanupCommand #define TclCleanupCommand \ (tclIntStubsPtr->tclCleanupCommand) /* 6 */ -#endif -#ifndef TclCopyAndCollapse #define TclCopyAndCollapse \ (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */ -#endif -#ifndef TclCopyChannelOld #define TclCopyChannelOld \ (tclIntStubsPtr->tclCopyChannelOld) /* 8 */ -#endif -#ifndef TclCreatePipeline #define TclCreatePipeline \ (tclIntStubsPtr->tclCreatePipeline) /* 9 */ -#endif -#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 */ /* Slot 36 is reserved */ -#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 -#ifndef TclSockMinimumBuffers #define TclSockMinimumBuffers \ (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */ -#endif /* 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 /* Slot 158 is reserved */ /* Slot 159 is reserved */ /* 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 /* Slot 167 is reserved */ /* Slot 168 is reserved */ -#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 /* Slot 178 is reserved */ /* Slot 179 is reserved */ /* 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 */ @@ -1864,179 +1178,99 @@ extern const TclIntStubs *tclIntStubsPtr; /* 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 /* Slot 228 is reserved */ -#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 /* Slot 236 is reserved */ -#ifndef TclResetCancellation #define TclResetCancellation \ (tclIntStubsPtr->tclResetCancellation) /* 237 */ -#endif -#ifndef TclNRInterpProc #define TclNRInterpProc \ (tclIntStubsPtr->tclNRInterpProc) /* 238 */ -#endif -#ifndef TclNRInterpProcCore #define TclNRInterpProcCore \ (tclIntStubsPtr->tclNRInterpProcCore) /* 239 */ -#endif -#ifndef TclNRRunCallbacks #define TclNRRunCallbacks \ (tclIntStubsPtr->tclNRRunCallbacks) /* 240 */ -#endif -#ifndef TclNREvalObjEx #define TclNREvalObjEx \ (tclIntStubsPtr->tclNREvalObjEx) /* 241 */ -#endif -#ifndef TclNREvalObjv #define TclNREvalObjv \ (tclIntStubsPtr->tclNREvalObjv) /* 242 */ -#endif -#ifndef TclDbDumpActiveObjects #define TclDbDumpActiveObjects \ (tclIntStubsPtr->tclDbDumpActiveObjects) /* 243 */ -#endif -#ifndef TclGetNamespaceChildTable #define TclGetNamespaceChildTable \ (tclIntStubsPtr->tclGetNamespaceChildTable) /* 244 */ -#endif -#ifndef TclGetNamespaceCommandTable #define TclGetNamespaceCommandTable \ (tclIntStubsPtr->tclGetNamespaceCommandTable) /* 245 */ -#endif -#ifndef TclInitRewriteEnsemble #define TclInitRewriteEnsemble \ (tclIntStubsPtr->tclInitRewriteEnsemble) /* 246 */ -#endif -#ifndef TclResetRewriteEnsemble #define TclResetRewriteEnsemble \ (tclIntStubsPtr->tclResetRewriteEnsemble) /* 247 */ -#endif -#ifndef TclCopyChannel #define TclCopyChannel \ (tclIntStubsPtr->tclCopyChannel) /* 248 */ -#endif -#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ +#endif /* defined(USE_TCL_STUBS) */ /* !END!: Do not edit above this line. */ |