Attachment "cmd.patch" to
ticket [505626ffff]
added by
dgp
2002-01-19 10:07:53.
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 <[email protected]>
+ * 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 */