355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
|
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
|
-
+
-
-
-
+
-
-
|
/* 141 */
EXTERN CONST84_RETURN char * TclpGetCwd(Tcl_Interp *interp,
Tcl_DString *cwdPtr);
/* 142 */
EXTERN int TclSetByteCodeFromAny(Tcl_Interp *interp,
Tcl_Obj *objPtr, CompileHookProc *hookProc,
ClientData clientData);
/* 143 */
/* Slot 143 is reserved */
EXTERN int TclAddLiteralObj(struct CompileEnv *envPtr,
Tcl_Obj *objPtr, LiteralEntry **litPtrPtr);
/* 144 */
/* Slot 144 is reserved */
EXTERN void TclHideLiteral(Tcl_Interp *interp,
struct CompileEnv *envPtr, int index);
/* Slot 145 is reserved */
/* 146 */
EXTERN TclHandle TclHandleCreate(void *ptr);
/* 147 */
EXTERN void TclHandleFree(TclHandle handle);
/* 148 */
EXTERN TclHandle TclHandlePreserve(TclHandle handle);
|
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
|
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
|
-
-
+
+
|
void (*reserved136)(void);
void (*reserved137)(void);
CONST84_RETURN char * (*tclGetEnv) (const char *name, Tcl_DString *valuePtr); /* 138 */
void (*reserved139)(void);
void (*reserved140)(void);
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 */
void (*reserved143)(void);
void (*reserved144)(void);
void (*reserved145)(void);
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 */
|
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
|
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
|
-
-
+
-
-
+
|
(tclIntStubsPtr->tclGetEnv) /* 138 */
/* Slot 139 is reserved */
/* Slot 140 is reserved */
#define TclpGetCwd \
(tclIntStubsPtr->tclpGetCwd) /* 141 */
#define TclSetByteCodeFromAny \
(tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
#define TclAddLiteralObj \
(tclIntStubsPtr->tclAddLiteralObj) /* 143 */
/* Slot 143 is reserved */
#define TclHideLiteral \
(tclIntStubsPtr->tclHideLiteral) /* 144 */
/* Slot 144 is reserved */
/* Slot 145 is reserved */
#define TclHandleCreate \
(tclIntStubsPtr->tclHandleCreate) /* 146 */
#define TclHandleFree \
(tclIntStubsPtr->tclHandleFree) /* 147 */
#define TclHandlePreserve \
(tclIntStubsPtr->tclHandlePreserve) /* 148 */
|