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:04:48
@@ -1,5 +1,12 @@
 2002-01-18  Don Porter <dgp@users.sourceforge.net>
 
+	* generic/tcl.decls (Tcl_TraceCommand,Tcl_UntraceCommand,
+	  Tcl_CommandTraceInfo):
+	* generic/tclCmdMZ.c (Tcl_TraceCommand,Tcl_UntraceCommand,
+	  Tcl_CommandTraceInfo): Updated APIs in generic/tclCmdMZ.c 
+	according to the guidelines of TIP 27.
+	* generic/tclDecls.h: make genstubs
+
 	* win/tclWinChan.c:
 	* win/tclWinFCmd.c:
 	* win/tclWinFile.c: Overlooked callers of Tcl_FSGetNativePath
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:04:48
@@ -1496,16 +1496,16 @@
     void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr)
 }
 declare 425 generic {
-    ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, char *varName, \
+    ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, CONST char *varName, \
 	    int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData)
 }
 declare 426 generic {
-    int Tcl_TraceCommand(Tcl_Interp *interp, char *varName, int flags, \
-		Tcl_CommandTraceProc *proc, ClientData clientData)
+    int Tcl_TraceCommand(Tcl_Interp *interp, CONST char *varName, int flags, \
+	    Tcl_CommandTraceProc *proc, ClientData clientData)
 }
 declare 427 generic {
-    void Tcl_UntraceCommand(Tcl_Interp *interp, char *varName, int flags, \
-		Tcl_CommandTraceProc *proc, ClientData clientData)
+    void Tcl_UntraceCommand(Tcl_Interp *interp, CONST char *varName, \
+	    int flags, Tcl_CommandTraceProc *proc, ClientData clientData)
 }
 declare 428 generic {
     char * Tcl_AttemptAlloc(unsigned int size)
@@ -1518,7 +1518,7 @@
 }
 declare 431 generic {
     char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
-	CONST char *file, int line)
+	    CONST char *file, int line)
 }
 declare 432 generic {
     int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length)
@@ -1531,8 +1531,8 @@
     Tcl_UniChar * Tcl_GetUnicodeFromObj (Tcl_Obj *objPtr, int *lengthPtr)
 }
 declare 435 generic {
-    int Tcl_GetMathFuncInfo(Tcl_Interp *interp, CONST char *name,
-	int *numArgsPtr, Tcl_ValueType **argTypesPtr,
+    int Tcl_GetMathFuncInfo(Tcl_Interp *interp, CONST char *name, \
+	int *numArgsPtr, Tcl_ValueType **argTypesPtr, \
 	Tcl_MathProc **procPtr, ClientData *clientDataPtr)
 }
 declare 436 generic {
Index: generic/tclCmdMZ.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdMZ.c,v
retrieving revision 1.55
diff -u -u -r1.55 tclCmdMZ.c
--- generic/tclCmdMZ.c	2002/01/17 04:37:33	1.55
+++ generic/tclCmdMZ.c	2002/01/19 03:04:49
@@ -3338,7 +3338,7 @@
 ClientData
 Tcl_CommandTraceInfo(interp, cmdName, flags, proc, prevClientData)
     Tcl_Interp *interp;		/* Interpreter containing command. */
-    char *cmdName;		/* Name of command. */
+    CONST char *cmdName;	/* Name of command. */
     int flags;			/* OR-ed combo or TCL_GLOBAL_ONLY,
 				 * TCL_NAMESPACE_ONLY (can be 0). */
     Tcl_CommandTraceProc *proc;	/* Procedure assocated with trace. */
@@ -3403,7 +3403,7 @@
 Tcl_TraceCommand(interp, cmdName, flags, proc, clientData)
     Tcl_Interp *interp;		/* Interpreter in which command is
 				 * to be traced. */
-    char *cmdName;		/* Name of command. */
+    CONST char *cmdName;	/* Name of command. */
     int flags;			/* OR-ed collection of bits, including any
 				 * of TCL_TRACE_RENAME, TCL_TRACE_DELETE. */
     Tcl_CommandTraceProc *proc;	/* Procedure to call when specified ops are
@@ -3453,7 +3453,7 @@
 void
 Tcl_UntraceCommand(interp, cmdName, flags, proc, clientData)
     Tcl_Interp *interp;		/* Interpreter containing command. */
-    char *cmdName;		/* Name of command. */
+    CONST char *cmdName;	/* Name of command. */
     int flags;			/* OR-ed collection of bits, including any
 				 * of TCL_TRACE_RENAME, TCL_TRACE_DELETE. */
     Tcl_CommandTraceProc *proc;	/* Procedure assocated with trace. */
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:04:50
@@ -1332,17 +1332,17 @@
 				Tcl_HashTable * tablePtr));
 /* 425 */
 EXTERN ClientData	Tcl_CommandTraceInfo _ANSI_ARGS_((
-				Tcl_Interp * interp, char * varName, 
+				Tcl_Interp * interp, CONST char * varName, 
 				int flags, Tcl_CommandTraceProc * procPtr, 
 				ClientData prevClientData));
 /* 426 */
 EXTERN int		Tcl_TraceCommand _ANSI_ARGS_((Tcl_Interp * interp, 
-				char * varName, int flags, 
+				CONST char * varName, int flags, 
 				Tcl_CommandTraceProc * proc, 
 				ClientData clientData));
 /* 427 */
 EXTERN void		Tcl_UntraceCommand _ANSI_ARGS_((Tcl_Interp * interp, 
-				char * varName, int flags, 
+				CONST char * varName, int flags, 
 				Tcl_CommandTraceProc * proc, 
 				ClientData clientData));
 /* 428 */
@@ -1998,9 +1998,9 @@
     Tcl_HashEntry * (*tcl_CreateHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, CONST char * key, int * newPtr)); /* 422 */
     void (*tcl_InitCustomHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int keyType, Tcl_HashKeyType * typePtr)); /* 423 */
     void (*tcl_InitObjHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 424 */
-    ClientData (*tcl_CommandTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData)); /* 425 */
-    int (*tcl_TraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)); /* 426 */
-    void (*tcl_UntraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)); /* 427 */
+    ClientData (*tcl_CommandTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData)); /* 425 */
+    int (*tcl_TraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)); /* 426 */
+    void (*tcl_UntraceCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData)); /* 427 */
     char * (*tcl_AttemptAlloc) _ANSI_ARGS_((unsigned int size)); /* 428 */
     char * (*tcl_AttemptDbCkalloc) _ANSI_ARGS_((unsigned int size, CONST char * file, int line)); /* 429 */
     char * (*tcl_AttemptRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 430 */
