* Updated APIs in generic/tclCmdMZ.c according to the guidelines

	  of TIP 27.

4 files changed, 29 insertions, 20 deletions

diff --git a/ChangeLog b/ChangeLog
index 63100a2..e52c431 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2002-01-21  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
+
 2002-01-18  Don Porter <dgp@users.sourceforge.net>
 
 	* win/tclWinChan.c:
diff --git a/generic/tcl.decls b/generic/tcl.decls
index 8e2f0c7..878fa5d 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: tcl.decls,v 1.75 2002/01/17 04:37:32 dgp Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.76 2002/01/21 16:15:03 dgp Exp $
 
 library tcl
 
@@ -1496,16 +1496,16 @@ declare 424 generic {
     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 430 generic {
 }
 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 @@ declare 434 generic {
     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 {
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 7e6f1ef..e0cacab 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.55 2002/01/17 04:37:33 dgp Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.56 2002/01/21 16:15:03 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -3338,7 +3338,7 @@ TclTraceVariableObjCmd(interp, optionIndex, objc, objv)
 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 @@ int
 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 @@ Tcl_TraceCommand(interp, cmdName, flags, proc, clientData)
 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. */
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 8237124..f87b47e 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclDecls.h,v 1.75 2002/01/17 04:37:33 dgp Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.76 2002/01/21 16:15:03 dgp Exp $
  */
 
 #ifndef _TCLDECLS
@@ -1332,17 +1332,17 @@ EXTERN void		Tcl_InitObjHashTable _ANSI_ARGS_((
 				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 @@ typedef struct TclStubs {
     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 */