Attachment "history.patch" to
ticket [504091ffff]
added by
dgp
2002-01-16 04:58:34.
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.794
diff -u -u -r1.794 ChangeLog
--- ChangeLog 2002/01/15 21:47:27 1.794
+++ ChangeLog 2002/01/15 21:55:42
@@ -1,5 +1,10 @@
2002-01-15 Don Porter <[email protected]>
+ * generic/tcl.decls (Tcl_RecordAndEval):
+ * generic/tclDecls.h: make genstubs
+ * generic/tclHistory.c (Tcl_RecordAndEval): Updated APIs in
+ generic/tclHistory.c according to the guidelines of TIP 27.
+
* doc/SetErrno.3 (Tcl_ErrnoMsg): Corrected documentation for
Tcl_ErrnoMsg; it takes an integer argument. Thanks to Georgios
Petasis. [Bug 468183]
Index: doc/RecordEval.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/RecordEval.3,v
retrieving revision 1.3
diff -u -u -r1.3 RecordEval.3
--- doc/RecordEval.3 2000/04/14 23:01:53 1.3
+++ doc/RecordEval.3 2002/01/15 21:55:43
@@ -22,7 +22,7 @@
.AS Tcl_Interp *interp;
.AP Tcl_Interp *interp in
Tcl interpreter in which to evaluate command.
-.AP char *cmd in
+.AP "CONST char" *cmd in
Command (or sequence of commands) to execute.
.AP int flags in
An OR'ed combination of flag bits. TCL_NO_EVAL means record the
Index: generic/tcl.decls
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tcl.decls,v
retrieving revision 1.71
diff -u -u -r1.71 tcl.decls
--- generic/tcl.decls 2002/01/15 21:19:06 1.71
+++ generic/tcl.decls 2002/01/15 21:55:43
@@ -737,7 +737,7 @@
void Tcl_ReapDetachedProcs(void)
}
declare 208 generic {
- int Tcl_RecordAndEval(Tcl_Interp *interp, char *cmd, int flags)
+ int Tcl_RecordAndEval(Tcl_Interp *interp, CONST char *cmd, int flags)
}
declare 209 generic {
int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags)
Index: generic/tclDecls.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclDecls.h,v
retrieving revision 1.71
diff -u -u -r1.71 tclDecls.h
--- generic/tclDecls.h 2002/01/15 21:19:07 1.71
+++ generic/tclDecls.h 2002/01/15 21:55:44
@@ -678,7 +678,7 @@
#endif /* __WIN32__ */
/* 208 */
EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp,
- char * cmd, int flags));
+ CONST char * cmd, int flags));
/* 209 */
EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * cmdPtr,
@@ -1779,7 +1779,7 @@
#ifdef MAC_TCL
void *reserved207;
#endif /* MAC_TCL */
- int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, char * cmd, int flags)); /* 208 */
+ int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmd, int flags)); /* 208 */
int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 209 */
void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 210 */
void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 211 */
Index: generic/tclHistory.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclHistory.c,v
retrieving revision 1.3
diff -u -u -r1.3 tclHistory.c
--- generic/tclHistory.c 1999/04/16 00:46:47 1.3
+++ generic/tclHistory.c 2002/01/15 21:55:44
@@ -42,7 +42,7 @@
Tcl_RecordAndEval(interp, cmd, flags)
Tcl_Interp *interp; /* Token for interpreter in which command
* will be executed. */
- char *cmd; /* Command to record. */
+ CONST char *cmd; /* Command to record. */
int flags; /* Additional flags. TCL_NO_EVAL means
* only record: don't execute command.
* TCL_EVAL_GLOBAL means use Tcl_GlobalEval