Tcl Source Code

Artifact 5bd1994fbd83de01caf407ce4de4e8e5bd09bc9d:

Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.805
diff -u -u -r1.805 ChangeLog
--- ChangeLog	2002/01/18 14:17:06	1.805
+++ ChangeLog	2002/01/19 03:21:41
@@ -1,5 +1,11 @@
 2002-01-18  Don Porter <[email protected]>
 
+	* doc/AddErrorInfo.3:
+	* generic/tcl.decls (Tcl_LogCommandInfo):
+	* generic/tclBasic.c (Tcl_LogCommandInfo): Updated interfaces
+	of generic/tclBasic.cc according to TIP 27.
+	* generic/tclDecls.h: make genstubs
+
 	* win/tclWinChan.c:
 	* win/tclWinFCmd.c:
 	* win/tclWinFile.c: Overlooked callers of Tcl_FSGetNativePath
Index: doc/AddErrInfo.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/AddErrInfo.3,v
retrieving revision 1.6
diff -u -u -r1.6 AddErrInfo.3
--- doc/AddErrInfo.3	2002/01/15 21:19:06	1.6
+++ doc/AddErrInfo.3	2002/01/19 03:21:42
@@ -55,9 +55,9 @@
 .AP va_list argList in
 An argument list which must have been initialised using
 \fBTCL_VARARGS_START\fR, and cleared using \fBva_end\fR.
-.AP char *script in
+.AP "CONST char" *script in
 Pointer to first character in script containing command (must be <= command)
-.AP char *command in
+.AP "CONST char" *command in
 Pointer to first character in command that generated the error
 .AP int commandLength in
 Number of bytes in command; -1 means use all bytes up to first NULL byte
Index: generic/tcl.decls
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tcl.decls,v
retrieving revision 1.75
diff -u -u -r1.75 tcl.decls
--- generic/tcl.decls	2002/01/17 04:37:32	1.75
+++ generic/tcl.decls	2002/01/19 03:21:42
@@ -1265,8 +1265,8 @@
     void Tcl_FreeParse (Tcl_Parse *parsePtr)
 }
 declare 359 generic {
-    void Tcl_LogCommandInfo (Tcl_Interp *interp, char *script, \
-	    char *command, int length)
+    void Tcl_LogCommandInfo (Tcl_Interp *interp, CONST char *script, \
+	    CONST char *command, int length)
 }
 declare 360 generic {
     int Tcl_ParseBraces (Tcl_Interp *interp, char *string, \
Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.43
diff -u -u -r1.43 tclBasic.c
--- generic/tclBasic.c	2001/12/14 20:31:22	1.43
+++ generic/tclBasic.c	2002/01/19 03:21:43
@@ -3064,15 +3064,15 @@
 void
 Tcl_LogCommandInfo(interp, script, command, length)
     Tcl_Interp *interp;		/* Interpreter in which to log information. */
-    char *script;		/* First character in script containing
+    CONST char *script;		/* First character in script containing
 				 * command (must be <= command). */
-    char *command;		/* First character in command that
+    CONST char *command;	/* First character in command that
 				 * generated the error. */
     int length;			/* Number of bytes in command (-1 means
 				 * use all bytes up to first null byte). */
 {
     char buffer[200];
-    register char *p;
+    register CONST char *p;
     char *ellipsis = "";
     Interp *iPtr = (Interp *) interp;
 
Index: generic/tclDecls.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclDecls.h,v
retrieving revision 1.75
diff -u -u -r1.75 tclDecls.h
--- generic/tclDecls.h	2002/01/17 04:37:33	1.75
+++ generic/tclDecls.h	2002/01/19 03:21:44
@@ -1135,7 +1135,8 @@
 EXTERN void		Tcl_FreeParse _ANSI_ARGS_((Tcl_Parse * parsePtr));
 /* 359 */
 EXTERN void		Tcl_LogCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, 
-				char * script, char * command, int length));
+				CONST char * script, CONST char * command, 
+				int length));
 /* 360 */
 EXTERN int		Tcl_ParseBraces _ANSI_ARGS_((Tcl_Interp * interp, 
 				char * string, int numBytes, 
@@ -1932,7 +1933,7 @@
     Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * patObj, int flags)); /* 356 */
     Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 357 */
     void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */
-    void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * script, char * command, int length)); /* 359 */
+    void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * script, CONST char * command, int length)); /* 359 */
     int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); /* 360 */
     int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */
     int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int numBytes, Tcl_Parse * parsePtr)); /* 362 */