diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-19 08:31:49 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-19 08:31:49 (GMT) |
commit | 58467a7afe9d9eb62bb1da4d29690223a3681c16 (patch) | |
tree | f3d03464a4413a740adab6f5a035d504080e22d1 /generic/tclIntDecls.h | |
parent | 0e29fdc2804213b9db0893953d861250c9497500 (diff) | |
download | tcl-58467a7afe9d9eb62bb1da4d29690223a3681c16.zip tcl-58467a7afe9d9eb62bb1da4d29690223a3681c16.tar.gz tcl-58467a7afe9d9eb62bb1da4d29690223a3681c16.tar.bz2 |
New (internal) function TclGetObjInterpProc2() and macro TclObjInterpProc2. Will be needed for Itcl (in combination with TIP #626). Should have been part of TIP #627.
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r-- | generic/tclIntDecls.h | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 588a1fa..ec9023f 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -155,7 +155,8 @@ EXTERN Tcl_Command TclGetOriginalCommand(Tcl_Command command); /* 42 */ EXTERN const char * TclpGetUserHome(const char *name, Tcl_DString *bufferPtr); -/* Slot 43 is reserved */ +/* 43 */ +EXTERN Tcl_ObjCmdProc2 * TclGetObjInterpProc2(void); /* 44 */ EXTERN int TclGuessPackageName(const char *fileName, Tcl_DString *bufPtr); @@ -711,7 +712,7 @@ typedef struct TclIntStubs { int (*tclGetOpenMode) (Tcl_Interp *interp, const char *str, int *seekFlagPtr); /* 40 */ Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */ const char * (*tclpGetUserHome) (const char *name, Tcl_DString *bufferPtr); /* 42 */ - void (*reserved43)(void); + Tcl_ObjCmdProc2 * (*tclGetObjInterpProc2) (void); /* 43 */ int (*tclGuessPackageName) (const char *fileName, Tcl_DString *bufPtr); /* 44 */ int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */ int (*tclInExit) (void); /* 46 */ @@ -1012,7 +1013,8 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */ #define TclpGetUserHome \ (tclIntStubsPtr->tclpGetUserHome) /* 42 */ -/* Slot 43 is reserved */ +#define TclGetObjInterpProc2 \ + (tclIntStubsPtr->tclGetObjInterpProc2) /* 43 */ #define TclGuessPackageName \ (tclIntStubsPtr->tclGuessPackageName) /* 44 */ #define TclHideUnsafeCommands \ @@ -1420,6 +1422,7 @@ extern const TclIntStubs *tclIntStubsPtr; #undef TclSetPreInitScript #undef TclObjInterpProc #define TclObjInterpProc TclGetObjInterpProc() +#define TclObjInterpProc2 TclGetObjInterpProc2() #ifndef TCL_NO_DEPRECATED # define TclSetPreInitScript Tcl_SetPreInitScript # define TclGuessPackageName(fileName, pkgName) ((void)fileName,(void)pkgName,0) |