summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-01-21 16:15:02 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-01-21 16:15:02 (GMT)
commit5555aa01aae3d96fdff9f094f83516fdee086727 (patch)
treed183991a71fdd75e4897ee294e7be526f6c599da
parentdb0a03daa7752bd0266d80a841014243c6a0169c (diff)
downloadtcl-5555aa01aae3d96fdff9f094f83516fdee086727.zip
tcl-5555aa01aae3d96fdff9f094f83516fdee086727.tar.gz
tcl-5555aa01aae3d96fdff9f094f83516fdee086727.tar.bz2
* Updated APIs in generic/tclCmdMZ.c according to the guidelines
of TIP 27.
-rw-r--r--ChangeLog9
-rw-r--r--generic/tcl.decls18
-rw-r--r--generic/tclCmdMZ.c8
-rw-r--r--generic/tclDecls.h14
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 */