115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
-
+
+
|
TCLAPI int TclGetOpenMode(Tcl_Interp *interp, const char *str,
int *seekFlagPtr);
/* 41 */
TCLAPI Tcl_Command TclGetOriginalCommand(Tcl_Command command);
/* 42 */
TCLAPI const char * TclpGetUserHome(const char *name,
Tcl_DString *bufferPtr);
/* Slot 43 is reserved */
/* 43 */
TCLAPI Tcl_ObjCmdProc2 * TclGetObjInterpProc2(void);
/* Slot 44 is reserved */
/* 45 */
TCLAPI int TclHideUnsafeCommands(Tcl_Interp *interp);
/* 46 */
TCLAPI int TclInExit(void);
/* Slot 47 is reserved */
/* Slot 48 is reserved */
|
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
|
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
|
-
+
|
void (*reserved36)(void);
void (*reserved37)(void);
int (*tclGetNamespaceForQualName) (Tcl_Interp *interp, const char *qualName, Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, const char **simpleNamePtr); /* 38 */
Tcl_ObjCmdProc * (*tclGetObjInterpProc) (void); /* 39 */
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 */
void (*reserved44)(void);
int (*tclHideUnsafeCommands) (Tcl_Interp *interp); /* 45 */
int (*tclInExit) (void); /* 46 */
void (*reserved47)(void);
void (*reserved48)(void);
void (*reserved49)(void);
void (*reserved50)(void);
|
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
|
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
|
-
+
+
|
(tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
#define TclGetOpenMode \
(tclIntStubsPtr->tclGetOpenMode) /* 40 */
#define TclGetOriginalCommand \
(tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
#define TclpGetUserHome \
(tclIntStubsPtr->tclpGetUserHome) /* 42 */
/* Slot 43 is reserved */
|
1266
1267
1268
1269
1270
1271
1272
1273
1274
|
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
|
+
|
#if defined(USE_TCL_STUBS)
#undef Tcl_StaticLibrary
#define Tcl_StaticLibrary \
(tclIntStubsPtr->tclStaticLibrary)
#endif /* defined(USE_TCL_STUBS) */
#undef TclObjInterpProc
#define TclObjInterpProc TclGetObjInterpProc()
#define TclObjInterpProc2 TclGetObjInterpProc2()
#endif /* _TCLINTDECLS */
|