Index: doc/AssocData.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/AssocData.3,v
retrieving revision 1.3
diff -c -r1.3 AssocData.3
*** doc/AssocData.3	1999/04/16 00:46:30	1.3
--- doc/AssocData.3	2001/04/10 15:45:24
***************
*** 27,33 ****
  .AS Tcl_InterpDeleteProc *delProcPtr
  .AP Tcl_Interp *interp in
  Interpreter in which to execute the specified command.
! .AP char *key in
  Key for association with which to store data or from which to delete or
  retrieve data.  Typically the module prefix for a package.
  .AP Tcl_InterpDeleteProc *delProc in
--- 27,35 ----
  .AS Tcl_InterpDeleteProc *delProcPtr
  .AP Tcl_Interp *interp in
  Interpreter in which to execute the specified command.
! .VS 8.4
! .AP "CONST char" *key in
! .VE
  Key for association with which to store data or from which to delete or
  retrieve data.  Typically the module prefix for a package.
  .AP Tcl_InterpDeleteProc *delProc in
Index: doc/CrtCommand.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/CrtCommand.3,v
retrieving revision 1.3
diff -c -r1.3 CrtCommand.3
*** doc/CrtCommand.3	1998/10/05 17:35:53	1.3
--- doc/CrtCommand.3	2001/04/10 15:45:24
***************
*** 22,28 ****
  .AS Tcl_CmdDeleteProc **deleteProcPtr
  .AP Tcl_Interp *interp in
  Interpreter in which to create new command.
! .AP char *cmdName in
  Name of command.
  .AP Tcl_CmdProc *proc in
  Implementation of new command:  \fIproc\fR will be called whenever
--- 22,30 ----
  .AS Tcl_CmdDeleteProc **deleteProcPtr
  .AP Tcl_Interp *interp in
  Interpreter in which to create new command.
! .VS 8.4
! .AP "CONST char" *cmdName in
! .VE
  Name of command.
  .AP Tcl_CmdProc *proc in
  Implementation of new command:  \fIproc\fR will be called whenever
Index: doc/CrtMathFnc.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/CrtMathFnc.3,v
retrieving revision 1.3
diff -c -r1.3 CrtMathFnc.3
*** doc/CrtMathFnc.3	2000/04/14 23:01:49	1.3
--- doc/CrtMathFnc.3	2001/04/10 15:45:24
***************
*** 21,27 ****
  .AS Tcl_ValueType clientData
  .AP Tcl_Interp *interp in
  Interpreter in which new function will be defined.
! .AP char *name in
  Name for new function.
  .AP int numArgs in
  Number of arguments to new function;  also gives size of \fIargTypes\fR array.
--- 21,29 ----
  .AS Tcl_ValueType clientData
  .AP Tcl_Interp *interp in
  Interpreter in which new function will be defined.
! .VS 8.4
! .AP "CONST char" *name in
! .VE
  Name for new function.
  .AP int numArgs in
  Number of arguments to new function;  also gives size of \fIargTypes\fR array.
Index: doc/CrtObjCmd.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/CrtObjCmd.3,v
retrieving revision 1.4
diff -c -r1.4 CrtObjCmd.3
*** doc/CrtObjCmd.3	2000/07/24 00:03:02	1.4
--- doc/CrtObjCmd.3	2001/04/10 15:45:24
***************
*** 30,42 ****
  int
  \fBTcl_SetCommandInfo\fR(\fIinterp, cmdName, infoPtr\fR)
  .sp
! char *
  \fBTcl_GetCommandName\fR(\fIinterp, token\fR)
  .SH ARGUMENTS
  .AS Tcl_ObjCmdProc *deleteProc in/out
  .AP Tcl_Interp *interp in
  Interpreter in which to create a new command or that contains a command.
  .AP char *cmdName in
  Name of command.
  .AP Tcl_ObjCmdProc *proc in
  Implementation of the new command: \fIproc\fR will be called whenever
--- 30,46 ----
  int
  \fBTcl_SetCommandInfo\fR(\fIinterp, cmdName, infoPtr\fR)
  .sp
! .VS 8.4
! CONST char *
! .VE
  \fBTcl_GetCommandName\fR(\fIinterp, token\fR)
  .SH ARGUMENTS
  .AS Tcl_ObjCmdProc *deleteProc in/out
  .AP Tcl_Interp *interp in
  Interpreter in which to create a new command or that contains a command.
+ .VS 8.4
  .AP char *cmdName in
+ .VE
  Name of command.
  .AP Tcl_ObjCmdProc *proc in
  Implementation of the new command: \fIproc\fR will be called whenever
Index: doc/CrtSlave.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/CrtSlave.3,v
retrieving revision 1.4
diff -c -r1.4 CrtSlave.3
*** doc/CrtSlave.3	2000/07/24 00:03:02	1.4
--- doc/CrtSlave.3	2001/04/10 15:45:24
***************
*** 104,112 ****
  owned by the caller, the vector of Tcl_Obj structures is owned by the
  called function.
  .VS
! .AP char *cmdName in
  Name of an exposed command to hide or create.
! .AP char *hiddenCmdName in
  Name under which a hidden command is stored and with which it can be
  exposed or invoked.
  .VE
--- 104,116 ----
  owned by the caller, the vector of Tcl_Obj structures is owned by the
  called function.
  .VS
! .VS 8.4
! .AP "CONST char" *cmdName in
! .VE
  Name of an exposed command to hide or create.
! .VS 8.4
! .AP "CONST char" *hiddenCmdName in
! .VE
  Name under which a hidden command is stored and with which it can be
  exposed or invoked.
  .VE
Index: doc/ExprLong.3
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/ExprLong.3,v
retrieving revision 1.3
diff -c -r1.3 ExprLong.3
*** doc/ExprLong.3	2000/04/14 23:01:50	1.3
--- doc/ExprLong.3	2001/04/10 15:45:24
***************
*** 31,37 ****
  .AS Tcl_Interp *booleanPtr
  .AP Tcl_Interp *interp in
  Interpreter in whose context to evaluate \fIstring\fR or \fIobjPtr\fR.
! .AP char *string in
  Expression to be evaluated.  Must be in writable memory (the expression
  parser makes temporary modifications to the string during parsing, which
  it undoes before returning).
--- 31,39 ----
  .AS Tcl_Interp *booleanPtr
  .AP Tcl_Interp *interp in
  Interpreter in whose context to evaluate \fIstring\fR or \fIobjPtr\fR.
! .VS 8.4
! .AP "CONST char" *string in
! .VE
  Expression to be evaluated.  Must be in writable memory (the expression
  parser makes temporary modifications to the string during parsing, which
  it undoes before returning).
Index: generic/tcl.decls
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tcl.decls,v
retrieving revision 1.45
diff -c -r1.45 tcl.decls
*** generic/tcl.decls	2001/04/04 16:07:20	1.45
--- generic/tcl.decls	2001/04/10 15:45:24
***************
*** 337,343 ****
  	    ClientData clientData)
  }
  declare 91 generic {
!     Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, char *cmdName, \
  	    Tcl_CmdProc *proc, ClientData clientData, \
  	    Tcl_CmdDeleteProc *deleteProc)
  }
--- 337,343 ----
  	    ClientData clientData)
  }
  declare 91 generic {
!     Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, CONST char *cmdName, \
  	    Tcl_CmdProc *proc, ClientData clientData, \
  	    Tcl_CmdDeleteProc *deleteProc)
  }
***************
*** 352,362 ****
      Tcl_Interp * Tcl_CreateInterp(void)
  }
  declare 95 generic {
!     void Tcl_CreateMathFunc(Tcl_Interp *interp, char *name, int numArgs, \
! 	    Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData)
  }
  declare 96 generic {
!     Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, char *cmdName, \
  	    Tcl_ObjCmdProc *proc, ClientData clientData, \
  	    Tcl_CmdDeleteProc *deleteProc)
  }
--- 352,364 ----
      Tcl_Interp * Tcl_CreateInterp(void)
  }
  declare 95 generic {
!     void Tcl_CreateMathFunc(Tcl_Interp *interp, CONST char *name, \
!                             int numArgs, Tcl_ValueType *argTypes, 
!                             Tcl_MathProc *proc, ClientData clientData)
  }
  declare 96 generic {
!     Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, \
! 	    CONST char *cmdName, \
  	    Tcl_ObjCmdProc *proc, ClientData clientData, \
  	    Tcl_CmdDeleteProc *deleteProc)
  }
***************
*** 373,379 ****
  	    Tcl_CmdTraceProc *proc, ClientData clientData)
  }
  declare 100 generic {
!     void Tcl_DeleteAssocData(Tcl_Interp *interp, char *name)
  }
  declare 101 generic {
      void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc, \
--- 375,381 ----
  	    Tcl_CmdTraceProc *proc, ClientData clientData)
  }
  declare 100 generic {
!     void Tcl_DeleteAssocData(Tcl_Interp *interp, CONST char *name)
  }
  declare 101 generic {
      void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc, \
***************
*** 384,390 ****
  	    ClientData clientData)
  }
  declare 103 generic {
!     int Tcl_DeleteCommand(Tcl_Interp *interp, char *cmdName)
  }
  declare 104 generic {
      int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command)
--- 386,392 ----
  	    ClientData clientData)
  }
  declare 103 generic {
!     int Tcl_DeleteCommand(Tcl_Interp *interp, CONST char *cmdName)
  }
  declare 104 generic {
      int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command)
***************
*** 479,501 ****
      void Tcl_Exit(int status)
  }
  declare 134 generic {
!     int Tcl_ExposeCommand(Tcl_Interp *interp, char *hiddenCmdToken, \
! 	    char *cmdName)
  }
  declare 135 generic {
!     int Tcl_ExprBoolean(Tcl_Interp *interp, char *str, int *ptr)
  }
  declare 136 generic {
      int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr)
  }
  declare 137 generic {
!     int Tcl_ExprDouble(Tcl_Interp *interp, char *str, double *ptr)
  }
  declare 138 generic {
      int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr)
  }
  declare 139 generic {
!     int Tcl_ExprLong(Tcl_Interp *interp, char *str, long *ptr)
  }
  declare 140 generic {
      int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr)
--- 481,503 ----
      void Tcl_Exit(int status)
  }
  declare 134 generic {
!     int Tcl_ExposeCommand(Tcl_Interp *interp, CONST char *hiddenCmdToken, \
! 	    CONST char *cmdName)
  }
  declare 135 generic {
!     int Tcl_ExprBoolean(Tcl_Interp *interp, CONST char *str, int *ptr)
  }
  declare 136 generic {
      int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr)
  }
  declare 137 generic {
!     int Tcl_ExprDouble(Tcl_Interp *interp, CONST char *str, double *ptr)
  }
  declare 138 generic {
      int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr)
  }
  declare 139 generic {
!     int Tcl_ExprLong(Tcl_Interp *interp, CONST char *str, long *ptr)
  }
  declare 140 generic {
      int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr)
***************
*** 505,511 ****
  	    Tcl_Obj **resultPtrPtr)
  }
  declare 142 generic {
!     int Tcl_ExprString(Tcl_Interp *interp, char *string)
  }
  declare 143 generic {
      void Tcl_Finalize(void)
--- 507,513 ----
  	    Tcl_Obj **resultPtrPtr)
  }
  declare 142 generic {
!     int Tcl_ExprString(Tcl_Interp *interp, CONST char *string)
  }
  declare 143 generic {
      void Tcl_Finalize(void)
***************
*** 534,540 ****
  	    Tcl_Obj ***objv)
  }
  declare 150 generic {
!     ClientData Tcl_GetAssocData(Tcl_Interp *interp, char *name, \
  	    Tcl_InterpDeleteProc **procPtr)
  }
  declare 151 generic {
--- 536,542 ----
  	    Tcl_Obj ***objv)
  }
  declare 150 generic {
!     ClientData Tcl_GetAssocData(Tcl_Interp *interp, CONST char *name, \
  	    Tcl_InterpDeleteProc **procPtr)
  }
  declare 151 generic {
***************
*** 565,575 ****
      Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan)
  }
  declare 159 generic {
!     int Tcl_GetCommandInfo(Tcl_Interp *interp, char *cmdName, \
  	    Tcl_CmdInfo *infoPtr)
  }
  declare 160 generic {
!     char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command)
  }
  declare 161 generic {
      int Tcl_GetErrno(void)
--- 567,577 ----
      Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan)
  }
  declare 159 generic {
!     int Tcl_GetCommandInfo(Tcl_Interp *interp, CONST char *cmdName, \
  	    Tcl_CmdInfo *infoPtr)
  }
  declare 160 generic {
!     CONST char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command)
  }
  declare 161 generic {
      int Tcl_GetErrno(void)
***************
*** 632,639 ****
      int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
  }
  declare 179 generic {
!     int Tcl_HideCommand(Tcl_Interp *interp, char *cmdName, \
! 	    char *hiddenCmdToken)
  }
  declare 180 generic {
      int Tcl_Init(Tcl_Interp *interp)
--- 634,641 ----
      int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
  }
  declare 179 generic {
!     int Tcl_HideCommand(Tcl_Interp *interp, CONST char *cmdName, \
! 	    CONST char *hiddenCmdToken)
  }
  declare 180 generic {
      int Tcl_Init(Tcl_Interp *interp)
***************
*** 776,782 ****
      int Tcl_ServiceEvent(int flags)
  }
  declare 223 generic {
!     void Tcl_SetAssocData(Tcl_Interp *interp, char *name, \
  	    Tcl_InterpDeleteProc *proc, ClientData clientData)
  }
  declare 224 generic {
--- 778,784 ----
      int Tcl_ServiceEvent(int flags)
  }
  declare 223 generic {
!     void Tcl_SetAssocData(Tcl_Interp *interp, CONST char *name, \
  	    Tcl_InterpDeleteProc *proc, ClientData clientData)
  }
  declare 224 generic {
***************
*** 787,793 ****
  	    char *optionName, char *newValue)
  }
  declare 226 generic {
!     int Tcl_SetCommandInfo(Tcl_Interp *interp, char *cmdName, \
  	    Tcl_CmdInfo *infoPtr)
  }
  declare 227 generic {
--- 789,795 ----
  	    char *optionName, char *newValue)
  }
  declare 226 generic {
!     int Tcl_SetCommandInfo(Tcl_Interp *interp, CONST char *cmdName, \
  	    Tcl_CmdInfo *infoPtr)
  }
  declare 227 generic {
Index: generic/tcl.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tcl.h,v
retrieving revision 1.88
diff -c -r1.88 tcl.h
*** generic/tcl.h	2001/04/04 16:07:20	1.88
--- generic/tcl.h	2001/04/10 15:45:25
***************
*** 607,613 ****
  typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
  	Tcl_Interp *interp, char *part1, char *part2, int flags));
  typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData,
! 	Tcl_Interp *interp, char *oldName, char *newName, int flags));
  typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask,
  	Tcl_FileProc *proc, ClientData clientData));
  typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd));
--- 607,614 ----
  typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
  	Tcl_Interp *interp, char *part1, char *part2, int flags));
  typedef void (Tcl_CommandTraceProc) _ANSI_ARGS_((ClientData clientData,
! 	Tcl_Interp *interp, CONST char *oldName, CONST char *newName,
! 	int flags));
  typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask,
  	Tcl_FileProc *proc, ClientData clientData));
  typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd));
Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.29
diff -c -r1.29 tclBasic.c
*** generic/tclBasic.c	2000/08/25 02:04:28	1.29
--- generic/tclBasic.c	2001/04/10 15:45:26
***************
*** 26,33 ****
   */
  
  static char *		CallCommandTraces _ANSI_ARGS_((Interp *iPtr, 
! 			    Command *cmdPtr, char *oldName, 
! 			    char* newName, int flags));
  static void		DeleteInterpProc _ANSI_ARGS_((Tcl_Interp *interp));
  static void		ProcessUnexpectedResult _ANSI_ARGS_((
  			    Tcl_Interp *interp, int returnCode));
--- 26,33 ----
   */
  
  static char *		CallCommandTraces _ANSI_ARGS_((Interp *iPtr, 
! 			    Command *cmdPtr, CONST char *oldName, 
! 			    CONST char* newName, int flags));
  static void		DeleteInterpProc _ANSI_ARGS_((Tcl_Interp *interp));
  static void		ProcessUnexpectedResult _ANSI_ARGS_((
  			    Tcl_Interp *interp, int returnCode));
***************
*** 720,726 ****
  void
  Tcl_SetAssocData(interp, name, proc, clientData)
      Tcl_Interp *interp;		/* Interpreter to associate with. */
!     char *name;			/* Name for association. */
      Tcl_InterpDeleteProc *proc;	/* Proc to call when interpreter is
                                   * about to be deleted. */
      ClientData clientData;	/* One-word value to pass to proc. */
--- 720,726 ----
  void
  Tcl_SetAssocData(interp, name, proc, clientData)
      Tcl_Interp *interp;		/* Interpreter to associate with. */
!     CONST char *name;		/* Name for association. */
      Tcl_InterpDeleteProc *proc;	/* Proc to call when interpreter is
                                   * about to be deleted. */
      ClientData clientData;	/* One-word value to pass to proc. */
***************
*** 766,772 ****
  void
  Tcl_DeleteAssocData(interp, name)
      Tcl_Interp *interp;			/* Interpreter to associate with. */
!     char *name;				/* Name of association. */
  {
      Interp *iPtr = (Interp *) interp;
      AssocData *dPtr;
--- 766,772 ----
  void
  Tcl_DeleteAssocData(interp, name)
      Tcl_Interp *interp;			/* Interpreter to associate with. */
!     CONST char *name;			/* Name of association. */
  {
      Interp *iPtr = (Interp *) interp;
      AssocData *dPtr;
***************
*** 808,814 ****
  ClientData
  Tcl_GetAssocData(interp, name, procPtr)
      Tcl_Interp *interp;			/* Interpreter associated with. */
!     char *name;				/* Name of association. */
      Tcl_InterpDeleteProc **procPtr;	/* Pointer to place to store address
  					 * of current deletion callback. */
  {
--- 808,814 ----
  ClientData
  Tcl_GetAssocData(interp, name, procPtr)
      Tcl_Interp *interp;			/* Interpreter associated with. */
!     CONST char *name;			/* Name of association. */
      Tcl_InterpDeleteProc **procPtr;	/* Pointer to place to store address
  					 * of current deletion callback. */
  {
***************
*** 1103,1110 ****
  int
  Tcl_HideCommand(interp, cmdName, hiddenCmdToken)
      Tcl_Interp *interp;		/* Interpreter in which to hide command. */
!     char *cmdName;		/* Name of command to hide. */
!     char *hiddenCmdToken;	/* Token name of the to-be-hidden command. */
  {
      Interp *iPtr = (Interp *) interp;
      Tcl_Command cmd;
--- 1103,1110 ----
  int
  Tcl_HideCommand(interp, cmdName, hiddenCmdToken)
      Tcl_Interp *interp;		/* Interpreter in which to hide command. */
!     CONST char *cmdName;	/* Name of command to hide. */
!     CONST char *hiddenCmdToken;	/* Token name of the to-be-hidden command. */
  {
      Interp *iPtr = (Interp *) interp;
      Tcl_Command cmd;
***************
*** 1266,1273 ****
  Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName)
      Tcl_Interp *interp;		/* Interpreter in which to make command
                                   * callable. */
!     char *hiddenCmdToken;	/* Name of hidden command. */
!     char *cmdName;		/* Name of to-be-exposed command. */
  {
      Interp *iPtr = (Interp *) interp;
      Command *cmdPtr;
--- 1266,1273 ----
  Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName)
      Tcl_Interp *interp;		/* Interpreter in which to make command
                                   * callable. */
!     CONST char *hiddenCmdToken;	/* Name of hidden command. */
!     CONST char *cmdName;	/* Name of to-be-exposed command. */
  {
      Interp *iPtr = (Interp *) interp;
      Command *cmdPtr;
***************
*** 1420,1426 ****
  Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
      Tcl_Interp *interp;		/* Token for command interpreter returned by
  				 * a previous call to Tcl_CreateInterp. */
!     char *cmdName;		/* Name of command. If it contains namespace
  				 * qualifiers, the new command is put in the
  				 * specified namespace; otherwise it is put
  				 * in the global namespace. */
--- 1420,1426 ----
  Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
      Tcl_Interp *interp;		/* Token for command interpreter returned by
  				 * a previous call to Tcl_CreateInterp. */
!     CONST char *cmdName;	/* Name of command. If it contains namespace
  				 * qualifiers, the new command is put in the
  				 * specified namespace; otherwise it is put
  				 * in the global namespace. */
***************
*** 1435,1441 ****
      Namespace *nsPtr, *dummy1, *dummy2;
      Command *cmdPtr, *refCmdPtr;
      Tcl_HashEntry *hPtr;
!     char *tail;
      int new;
      ImportedCmdData *dataPtr;
  
--- 1435,1441 ----
      Namespace *nsPtr, *dummy1, *dummy2;
      Command *cmdPtr, *refCmdPtr;
      Tcl_HashEntry *hPtr;
!     CONST char *tail;
      int new;
      ImportedCmdData *dataPtr;
  
***************
*** 1565,1571 ****
  Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc)
      Tcl_Interp *interp;		/* Token for command interpreter (returned
  				 * by previous call to Tcl_CreateInterp). */
!     char *cmdName;		/* Name of command. If it contains namespace
  				 * qualifiers, the new command is put in the
  				 * specified namespace; otherwise it is put
  				 * in the global namespace. */
--- 1565,1571 ----
  Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc)
      Tcl_Interp *interp;		/* Token for command interpreter (returned
  				 * by previous call to Tcl_CreateInterp). */
!     CONST char *cmdName;	/* Name of command. If it contains namespace
  				 * qualifiers, the new command is put in the
  				 * specified namespace; otherwise it is put
  				 * in the global namespace. */
***************
*** 1582,1588 ****
      Namespace *nsPtr, *dummy1, *dummy2;
      Command *cmdPtr, *refCmdPtr;
      Tcl_HashEntry *hPtr;
!     char *tail;
      int new;
      ImportedCmdData *dataPtr;
  
--- 1582,1588 ----
      Namespace *nsPtr, *dummy1, *dummy2;
      Command *cmdPtr, *refCmdPtr;
      Tcl_HashEntry *hPtr;
!     CONST char *tail;
      int new;
      ImportedCmdData *dataPtr;
  
***************
*** 2033,2039 ****
  Tcl_SetCommandInfo(interp, cmdName, infoPtr)
      Tcl_Interp *interp;			/* Interpreter in which to look
  					 * for command. */
!     char *cmdName;			/* Name of desired command. */
      Tcl_CmdInfo *infoPtr;		/* Where to find information
  					 * to store in the command. */
  {
--- 2033,2039 ----
  Tcl_SetCommandInfo(interp, cmdName, infoPtr)
      Tcl_Interp *interp;			/* Interpreter in which to look
  					 * for command. */
!     CONST char *cmdName;		/* Name of desired command. */
      Tcl_CmdInfo *infoPtr;		/* Where to find information
  					 * to store in the command. */
  {
***************
*** 2088,2094 ****
  Tcl_GetCommandInfo(interp, cmdName, infoPtr)
      Tcl_Interp *interp;			/* Interpreter in which to look
  					 * for command. */
!     char *cmdName;			/* Name of desired command. */
      Tcl_CmdInfo *infoPtr;		/* Where to store information about
  					 * command. */
  {
--- 2088,2094 ----
  Tcl_GetCommandInfo(interp, cmdName, infoPtr)
      Tcl_Interp *interp;			/* Interpreter in which to look
  					 * for command. */
!     CONST char *cmdName;		/* Name of desired command. */
      Tcl_CmdInfo *infoPtr;		/* Where to store information about
  					 * command. */
  {
***************
*** 2137,2143 ****
   *----------------------------------------------------------------------
   */
  
! char *
  Tcl_GetCommandName(interp, command)
      Tcl_Interp *interp;		/* Interpreter containing the command. */
      Tcl_Command command;	/* Token for command returned by a previous
--- 2137,2143 ----
   *----------------------------------------------------------------------
   */
  
! CONST char *
  Tcl_GetCommandName(interp, command)
      Tcl_Interp *interp;		/* Interpreter containing the command. */
      Tcl_Command command;	/* Token for command returned by a previous
***************
*** 2234,2240 ****
  Tcl_DeleteCommand(interp, cmdName)
      Tcl_Interp *interp;		/* Token for command interpreter (returned
  				 * by a previous Tcl_CreateInterp call). */
!     char *cmdName;		/* Name of command to remove. */
  {
      Tcl_Command cmd;
  
--- 2234,2240 ----
  Tcl_DeleteCommand(interp, cmdName)
      Tcl_Interp *interp;		/* Token for command interpreter (returned
  				 * by a previous Tcl_CreateInterp call). */
!     CONST char *cmdName;	/* Name of command to remove. */
  {
      Tcl_Command cmd;
  
***************
*** 2421,2429 ****
      Interp *iPtr;		/* Interpreter containing variable. */
      Command *cmdPtr;		/* Variable whose traces are to be
  				 * invoked. */
!     char *oldName;	        /* Command's old name, or NULL if we
                                   * must get the name from cmdPtr */
!     char *newName;	        /* Command's new name, or NULL if
                                   * the command is not being renamed */
      int flags;			/* Flags passed to trace procedures:
  				 * indicates what's happening to variable,
--- 2421,2429 ----
      Interp *iPtr;		/* Interpreter containing variable. */
      Command *cmdPtr;		/* Variable whose traces are to be
  				 * invoked. */
!     CONST char *oldName;        /* Command's old name, or NULL if we
                                   * must get the name from cmdPtr */
!     CONST char *newName;        /* Command's new name, or NULL if
                                   * the command is not being renamed */
      int flags;			/* Flags passed to trace procedures:
  				 * indicates what's happening to variable,
***************
*** 2545,2551 ****
  Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData)
      Tcl_Interp *interp;			/* Interpreter in which function is
  					 * to be available. */
!     char *name;				/* Name of function (e.g. "sin"). */
      int numArgs;			/* Nnumber of arguments required by
  					 * function. */
      Tcl_ValueType *argTypes;		/* Array of types acceptable for
--- 2545,2551 ----
  Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData)
      Tcl_Interp *interp;			/* Interpreter in which function is
  					 * to be available. */
!     CONST char *name;			/* Name of function (e.g. "sin"). */
      int numArgs;			/* Nnumber of arguments required by
  					 * function. */
      Tcl_ValueType *argTypes;		/* Array of types acceptable for
***************
*** 3018,3024 ****
  Tcl_ExprLong(interp, string, ptr)
      Tcl_Interp *interp;		/* Context in which to evaluate the
  				 * expression. */
!     char *string;		/* Expression to evaluate. */
      long *ptr;			/* Where to store result. */
  {
      register Tcl_Obj *exprPtr;
--- 3018,3024 ----
  Tcl_ExprLong(interp, string, ptr)
      Tcl_Interp *interp;		/* Context in which to evaluate the
  				 * expression. */
!     CONST char *string;		/* Expression to evaluate. */
      long *ptr;			/* Where to store result. */
  {
      register Tcl_Obj *exprPtr;
***************
*** 3069,3075 ****
  Tcl_ExprDouble(interp, string, ptr)
      Tcl_Interp *interp;		/* Context in which to evaluate the
  				 * expression. */
!     char *string;		/* Expression to evaluate. */
      double *ptr;		/* Where to store result. */
  {
      register Tcl_Obj *exprPtr;
--- 3069,3075 ----
  Tcl_ExprDouble(interp, string, ptr)
      Tcl_Interp *interp;		/* Context in which to evaluate the
  				 * expression. */
!     CONST char *string;		/* Expression to evaluate. */
      double *ptr;		/* Where to store result. */
  {
      register Tcl_Obj *exprPtr;
***************
*** 3120,3126 ****
  Tcl_ExprBoolean(interp, string, ptr)
      Tcl_Interp *interp;		/* Context in which to evaluate the
  			         * expression. */
!     char *string;		/* Expression to evaluate. */
      int *ptr;			/* Where to store 0/1 result. */
  {
      register Tcl_Obj *exprPtr;
--- 3120,3126 ----
  Tcl_ExprBoolean(interp, string, ptr)
      Tcl_Interp *interp;		/* Context in which to evaluate the
  			         * expression. */
!     CONST char *string;		/* Expression to evaluate. */
      int *ptr;			/* Where to store 0/1 result. */
  {
      register Tcl_Obj *exprPtr;
***************
*** 3641,3647 ****
  Tcl_ExprString(interp, string)
      Tcl_Interp *interp;		/* Context in which to evaluate the
  				 * expression. */
!     char *string;		/* Expression to evaluate. */
  {
      register Tcl_Obj *exprPtr;
      Tcl_Obj *resultPtr;
--- 3641,3647 ----
  Tcl_ExprString(interp, string)
      Tcl_Interp *interp;		/* Context in which to evaluate the
  				 * expression. */
!     CONST char *string;		/* Expression to evaluate. */
  {
      register Tcl_Obj *exprPtr;
      Tcl_Obj *resultPtr;
***************
*** 4336,4342 ****
   *----------------------------------------------------------------------
   */
  
! void Tcl_GetVersion(majorV, minorV, patchLevelV, type)
      int *majorV;
      int *minorV;
      int *patchLevelV;
--- 4336,4343 ----
   *----------------------------------------------------------------------
   */
  
! void
! Tcl_GetVersion(majorV, minorV, patchLevelV, type)
      int *majorV;
      int *minorV;
      int *patchLevelV;
Index: generic/tclCmdMZ.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdMZ.c,v
retrieving revision 1.35
diff -c -r1.35 tclCmdMZ.c
*** generic/tclCmdMZ.c	2001/04/06 10:50:00	1.35
--- generic/tclCmdMZ.c	2001/04/10 15:45:27
***************
*** 89,96 ****
  			    Tcl_Interp *interp, char *name1, char *name2,
  			    int flags));
  static void		TraceCommandProc _ANSI_ARGS_((ClientData clientData,
! 			    Tcl_Interp *interp, char *oldName, char *newName,
! 			    int flags));
  
  
  /*
--- 89,96 ----
  			    Tcl_Interp *interp, char *name1, char *name2,
  			    int flags));
  static void		TraceCommandProc _ANSI_ARGS_((ClientData clientData,
! 			    Tcl_Interp *interp, CONST char *oldName,
!                             CONST char *newName, int flags));
  
  
  /*
***************
*** 3432,3439 ****
  TraceCommandProc(clientData, interp, oldName, newName, flags)
      ClientData clientData;	/* Information about the command trace. */
      Tcl_Interp *interp;		/* Interpreter containing command. */
!     char *oldName;		/* Name of command being changed. */
!     char *newName;		/* New name of command.  Empty string
                    		 * or NULL means command is being deleted
                    		 * (renamed to ""). */
      int flags;			/* OR-ed bits giving operation and other
--- 3432,3439 ----
  TraceCommandProc(clientData, interp, oldName, newName, flags)
      ClientData clientData;	/* Information about the command trace. */
      Tcl_Interp *interp;		/* Interpreter containing command. */
!     CONST char *oldName;	/* Name of command being changed. */
!     CONST char *newName;	/* New name of command.  Empty string
                    		 * or NULL means command is being deleted
                    		 * (renamed to ""). */
      int flags;			/* OR-ed bits giving operation and other
Index: generic/tclDecls.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclDecls.h,v
retrieving revision 1.47
diff -c -r1.47 tclDecls.h
*** generic/tclDecls.h	2001/04/04 16:07:20	1.47
--- generic/tclDecls.h	2001/04/10 15:45:27
***************
*** 304,310 ****
  				Tcl_CloseProc * proc, ClientData clientData));
  /* 91 */
  EXTERN Tcl_Command	Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * cmdName, Tcl_CmdProc * proc, 
  				ClientData clientData, 
  				Tcl_CmdDeleteProc * deleteProc));
  /* 92 */
--- 304,310 ----
  				Tcl_CloseProc * proc, ClientData clientData));
  /* 91 */
  EXTERN Tcl_Command	Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * cmdName, Tcl_CmdProc * proc, 
  				ClientData clientData, 
  				Tcl_CmdDeleteProc * deleteProc));
  /* 92 */
***************
*** 319,330 ****
  EXTERN Tcl_Interp *	Tcl_CreateInterp _ANSI_ARGS_((void));
  /* 95 */
  EXTERN void		Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * name, int numArgs, 
  				Tcl_ValueType * argTypes, 
  				Tcl_MathProc * proc, ClientData clientData));
  /* 96 */
  EXTERN Tcl_Command	Tcl_CreateObjCommand _ANSI_ARGS_((
! 				Tcl_Interp * interp, char * cmdName, 
  				Tcl_ObjCmdProc * proc, ClientData clientData, 
  				Tcl_CmdDeleteProc * deleteProc));
  /* 97 */
--- 319,330 ----
  EXTERN Tcl_Interp *	Tcl_CreateInterp _ANSI_ARGS_((void));
  /* 95 */
  EXTERN void		Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * name, int numArgs, 
  				Tcl_ValueType * argTypes, 
  				Tcl_MathProc * proc, ClientData clientData));
  /* 96 */
  EXTERN Tcl_Command	Tcl_CreateObjCommand _ANSI_ARGS_((
! 				Tcl_Interp * interp, CONST char * cmdName, 
  				Tcl_ObjCmdProc * proc, ClientData clientData, 
  				Tcl_CmdDeleteProc * deleteProc));
  /* 97 */
***************
*** 339,345 ****
  				ClientData clientData));
  /* 100 */
  EXTERN void		Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * name));
  /* 101 */
  EXTERN void		Tcl_DeleteChannelHandler _ANSI_ARGS_((
  				Tcl_Channel chan, Tcl_ChannelProc * proc, 
--- 339,345 ----
  				ClientData clientData));
  /* 100 */
  EXTERN void		Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * name));
  /* 101 */
  EXTERN void		Tcl_DeleteChannelHandler _ANSI_ARGS_((
  				Tcl_Channel chan, Tcl_ChannelProc * proc, 
***************
*** 349,355 ****
  				Tcl_CloseProc * proc, ClientData clientData));
  /* 103 */
  EXTERN int		Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * cmdName));
  /* 104 */
  EXTERN int		Tcl_DeleteCommandFromToken _ANSI_ARGS_((
  				Tcl_Interp * interp, Tcl_Command command));
--- 349,355 ----
  				Tcl_CloseProc * proc, ClientData clientData));
  /* 103 */
  EXTERN int		Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * cmdName));
  /* 104 */
  EXTERN int		Tcl_DeleteCommandFromToken _ANSI_ARGS_((
  				Tcl_Interp * interp, Tcl_Command command));
***************
*** 447,468 ****
  EXTERN void		Tcl_Exit _ANSI_ARGS_((int status));
  /* 134 */
  EXTERN int		Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * hiddenCmdToken, char * cmdName));
  /* 135 */
  EXTERN int		Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * str, int * ptr));
  /* 136 */
  EXTERN int		Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp * interp, 
  				Tcl_Obj * objPtr, int * ptr));
  /* 137 */
  EXTERN int		Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * str, double * ptr));
  /* 138 */
  EXTERN int		Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp * interp, 
  				Tcl_Obj * objPtr, double * ptr));
  /* 139 */
  EXTERN int		Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * str, long * ptr));
  /* 140 */
  EXTERN int		Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp * interp, 
  				Tcl_Obj * objPtr, long * ptr));
--- 447,469 ----
  EXTERN void		Tcl_Exit _ANSI_ARGS_((int status));
  /* 134 */
  EXTERN int		Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * hiddenCmdToken, 
! 				CONST char * cmdName));
  /* 135 */
  EXTERN int		Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * str, int * ptr));
  /* 136 */
  EXTERN int		Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp * interp, 
  				Tcl_Obj * objPtr, int * ptr));
  /* 137 */
  EXTERN int		Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * str, double * ptr));
  /* 138 */
  EXTERN int		Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp * interp, 
  				Tcl_Obj * objPtr, double * ptr));
  /* 139 */
  EXTERN int		Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * str, long * ptr));
  /* 140 */
  EXTERN int		Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp * interp, 
  				Tcl_Obj * objPtr, long * ptr));
***************
*** 471,477 ****
  				Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr));
  /* 142 */
  EXTERN int		Tcl_ExprString _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * string));
  /* 143 */
  EXTERN void		Tcl_Finalize _ANSI_ARGS_((void));
  /* 144 */
--- 472,478 ----
  				Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr));
  /* 142 */
  EXTERN int		Tcl_ExprString _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * string));
  /* 143 */
  EXTERN void		Tcl_Finalize _ANSI_ARGS_((void));
  /* 144 */
***************
*** 498,504 ****
  				Tcl_Obj *** objv));
  /* 150 */
  EXTERN ClientData	Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * name, Tcl_InterpDeleteProc ** procPtr));
  /* 151 */
  EXTERN Tcl_Channel	Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp * interp, 
  				char * chanName, int * modePtr));
--- 499,506 ----
  				Tcl_Obj *** objv));
  /* 150 */
  EXTERN ClientData	Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * name, 
! 				Tcl_InterpDeleteProc ** procPtr));
  /* 151 */
  EXTERN Tcl_Channel	Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp * interp, 
  				char * chanName, int * modePtr));
***************
*** 523,531 ****
  EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan));
  /* 159 */
  EXTERN int		Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * cmdName, Tcl_CmdInfo * infoPtr));
  /* 160 */
! EXTERN char *		Tcl_GetCommandName _ANSI_ARGS_((Tcl_Interp * interp, 
  				Tcl_Command command));
  /* 161 */
  EXTERN int		Tcl_GetErrno _ANSI_ARGS_((void));
--- 525,533 ----
  EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan));
  /* 159 */
  EXTERN int		Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * cmdName, Tcl_CmdInfo * infoPtr));
  /* 160 */
! EXTERN CONST char *	Tcl_GetCommandName _ANSI_ARGS_((Tcl_Interp * interp, 
  				Tcl_Command command));
  /* 161 */
  EXTERN int		Tcl_GetErrno _ANSI_ARGS_((void));
***************
*** 578,584 ****
  				Tcl_Obj * objPtr));
  /* 179 */
  EXTERN int		Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * cmdName, char * hiddenCmdToken));
  /* 180 */
  EXTERN int		Tcl_Init _ANSI_ARGS_((Tcl_Interp * interp));
  /* 181 */
--- 580,587 ----
  				Tcl_Obj * objPtr));
  /* 179 */
  EXTERN int		Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * cmdName, 
! 				CONST char * hiddenCmdToken));
  /* 180 */
  EXTERN int		Tcl_Init _ANSI_ARGS_((Tcl_Interp * interp));
  /* 181 */
***************
*** 716,722 ****
  EXTERN int		Tcl_ServiceEvent _ANSI_ARGS_((int flags));
  /* 223 */
  EXTERN void		Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * name, Tcl_InterpDeleteProc * proc, 
  				ClientData clientData));
  /* 224 */
  EXTERN void		Tcl_SetChannelBufferSize _ANSI_ARGS_((
--- 719,726 ----
  EXTERN int		Tcl_ServiceEvent _ANSI_ARGS_((int flags));
  /* 223 */
  EXTERN void		Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * name, 
! 				Tcl_InterpDeleteProc * proc, 
  				ClientData clientData));
  /* 224 */
  EXTERN void		Tcl_SetChannelBufferSize _ANSI_ARGS_((
***************
*** 727,733 ****
  				char * optionName, char * newValue));
  /* 226 */
  EXTERN int		Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * cmdName, Tcl_CmdInfo * infoPtr));
  /* 227 */
  EXTERN void		Tcl_SetErrno _ANSI_ARGS_((int err));
  /* 228 */
--- 731,737 ----
  				char * optionName, char * newValue));
  /* 226 */
  EXTERN int		Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * cmdName, Tcl_CmdInfo * infoPtr));
  /* 227 */
  EXTERN void		Tcl_SetErrno _ANSI_ARGS_((int err));
  /* 228 */
***************
*** 1477,1495 ****
      Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType * typePtr, char * chanName, ClientData instanceData, int mask)); /* 88 */
      void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData)); /* 89 */
      void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 90 */
!     Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 91 */
      void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 92 */
      void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 93 */
      Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */
!     void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData)); /* 95 */
!     Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 96 */
      Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName, int isSafe)); /* 97 */
      Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); /* 98 */
      Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 99 */
!     void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 100 */
      void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData)); /* 101 */
      void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 102 */
!     int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName)); /* 103 */
      int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 104 */
      void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, ClientData clientData)); /* 105 */
      void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */
--- 1481,1499 ----
      Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType * typePtr, char * chanName, ClientData instanceData, int mask)); /* 88 */
      void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData)); /* 89 */
      void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 90 */
!     Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 91 */
      void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 92 */
      void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 93 */
      Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */
!     void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData)); /* 95 */
!     Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 96 */
      Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName, int isSafe)); /* 97 */
      Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); /* 98 */
      Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 99 */
!     void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 100 */
      void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData)); /* 101 */
      void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 102 */
!     int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName)); /* 103 */
      int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 104 */
      void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, ClientData clientData)); /* 105 */
      void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */
***************
*** 1528,1542 ****
      int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 131 */
      void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_FreeProc * freeProc)); /* 132 */
      void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */
!     int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * hiddenCmdToken, char * cmdName)); /* 134 */
!     int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * ptr)); /* 135 */
      int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr)); /* 136 */
!     int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * str, double * ptr)); /* 137 */
      int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr)); /* 138 */
!     int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * ptr)); /* 139 */
      int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr)); /* 140 */
      int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); /* 141 */
!     int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 142 */
      void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */
      void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 144 */
      Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr)); /* 145 */
--- 1532,1546 ----
      int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 131 */
      void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_FreeProc * freeProc)); /* 132 */
      void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */
!     int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * hiddenCmdToken, CONST char * cmdName)); /* 134 */
!     int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * ptr)); /* 135 */
      int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr)); /* 136 */
!     int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, double * ptr)); /* 137 */
      int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr)); /* 138 */
!     int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * ptr)); /* 139 */
      int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr)); /* 140 */
      int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); /* 141 */
!     int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 142 */
      void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */
      void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 144 */
      Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr)); /* 145 */
***************
*** 1544,1550 ****
      void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 147 */
      int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * argcPtr, char *** argvPtr)); /* 148 */
      int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv)); /* 149 */
!     ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc ** procPtr)); /* 150 */
      Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * chanName, int * modePtr)); /* 151 */
      int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */
      int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int direction, ClientData * handlePtr)); /* 153 */
--- 1548,1554 ----
      void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 147 */
      int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * argcPtr, char *** argvPtr)); /* 148 */
      int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv)); /* 149 */
!     ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc ** procPtr)); /* 150 */
      Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * chanName, int * modePtr)); /* 151 */
      int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */
      int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int direction, ClientData * handlePtr)); /* 153 */
***************
*** 1553,1560 ****
      char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel chan)); /* 156 */
      int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, Tcl_DString * dsPtr)); /* 157 */
      Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)); /* 158 */
!     int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); /* 159 */
!     char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 160 */
      int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */
      char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */
      int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Interp * slaveInterp)); /* 163 */
--- 1557,1564 ----
      char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel chan)); /* 156 */
      int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, Tcl_DString * dsPtr)); /* 157 */
      Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)); /* 158 */
!     int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdInfo * infoPtr)); /* 159 */
!     CONST char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 160 */
      int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */
      char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */
      int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Interp * slaveInterp)); /* 163 */
***************
*** 1581,1587 ****
      char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 176 */
      int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * command)); /* 177 */
      int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 178 */
!     int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, char * hiddenCmdToken)); /* 179 */
      int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 180 */
      void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int keyType)); /* 181 */
      int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */
--- 1585,1591 ----
      char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 176 */
      int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * command)); /* 177 */
      int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 178 */
!     int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, CONST char * hiddenCmdToken)); /* 179 */
      int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 180 */
      void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int keyType)); /* 181 */
      int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */
***************
*** 1641,1650 ****
      int (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); /* 220 */
      int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */
      int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */
!     void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 223 */
      void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz)); /* 224 */
      int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, char * newValue)); /* 225 */
!     int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); /* 226 */
      void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */
      void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 228 */
      void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 229 */
--- 1645,1654 ----
      int (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); /* 220 */
      int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */
      int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */
!     void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 223 */
      void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz)); /* 224 */
      int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, char * newValue)); /* 225 */
!     int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdInfo * infoPtr)); /* 226 */
      void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */
      void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 228 */
      void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 229 */
Index: generic/tclInt.decls
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.decls,v
retrieving revision 1.23
diff -c -r1.23 tclInt.decls
*** generic/tclInt.decls	2000/09/28 06:38:21	1.23
--- generic/tclInt.decls	2001/04/10 15:45:27
***************
*** 157,166 ****
      int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName)
  }
  declare 38 generic {
!     int TclGetNamespaceForQualName(Tcl_Interp *interp, char *qualName, \
  	    Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, \
  	    Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, \
! 	    char **simpleNamePtr)
  }
  declare 39 generic {
      TclObjCmdProcType TclGetObjInterpProc(void)
--- 157,166 ----
      int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName)
  }
  declare 38 generic {
!     int TclGetNamespaceForQualName(Tcl_Interp *interp, CONST char *qualName, \
  	    Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, \
  	    Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, \
! 	    CONST char **simpleNamePtr)
  }
  declare 39 generic {
      TclObjCmdProcType TclGetObjInterpProc(void)
***************
*** 425,431 ****
  	    Tcl_Obj *objPtr)
  }
  declare 113 generic {
!     Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, char *name, \
  	    ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)
  }
  declare 114 generic {
--- 425,431 ----
  	    Tcl_Obj *objPtr)
  }
  declare 113 generic {
!     Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, CONST char *name, \
  	    ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)
  }
  declare 114 generic {
***************
*** 436,442 ****
  	    int resetListFirst)
  }
  declare 116 generic {
!     Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, char *name, \
  	    Tcl_Namespace *contextNsPtr, int flags)
  }
  declare 117 generic {
--- 436,442 ----
  	    int resetListFirst)
  }
  declare 116 generic {
!     Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name, \
  	    Tcl_Namespace *contextNsPtr, int flags)
  }
  declare 117 generic {
Index: generic/tclInt.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.h,v
retrieving revision 1.50
diff -c -r1.50 tclInt.h
*** generic/tclInt.h	2000/08/25 02:04:29	1.50
--- generic/tclInt.h	2001/04/10 15:45:28
***************
*** 98,104 ****
      int flags, Tcl_Var *rPtr));
  
  typedef int (Tcl_ResolveCmdProc) _ANSI_ARGS_((Tcl_Interp* interp,
!     char* name, Tcl_Namespace *context, int flags,
      Tcl_Command *rPtr));
   
  typedef struct Tcl_ResolverInfo {
--- 98,104 ----
      int flags, Tcl_Var *rPtr));
  
  typedef int (Tcl_ResolveCmdProc) _ANSI_ARGS_((Tcl_Interp* interp,
!     CONST char* name, Tcl_Namespace *context, int flags,
      Tcl_Command *rPtr));
   
  typedef struct Tcl_ResolverInfo {
***************
*** 1714,1724 ****
  EXTERN int		TclGetLoadedPackages _ANSI_ARGS_((
  			    Tcl_Interp *interp, char *targetName));
  EXTERN int		TclGetNamespaceForQualName _ANSI_ARGS_((
! 			    Tcl_Interp *interp, char *qualName,
  			    Namespace *cxtNsPtr, int flags,
  			    Namespace **nsPtrPtr, Namespace **altNsPtrPtr,
  			    Namespace **actualCxtPtrPtr,
! 			    char **simpleNamePtr));
  EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
  EXTERN int		TclGetOpenMode _ANSI_ARGS_((Tcl_Interp *interp,
  			    char *string, int *seekFlagPtr));
--- 1714,1724 ----
  EXTERN int		TclGetLoadedPackages _ANSI_ARGS_((
  			    Tcl_Interp *interp, char *targetName));
  EXTERN int		TclGetNamespaceForQualName _ANSI_ARGS_((
! 			    Tcl_Interp *interp, CONST char *qualName,
  			    Namespace *cxtNsPtr, int flags,
  			    Namespace **nsPtrPtr, Namespace **altNsPtrPtr,
  			    Namespace **actualCxtPtrPtr,
! 			    CONST char **simpleNamePtr));
  EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
  EXTERN int		TclGetOpenMode _ANSI_ARGS_((Tcl_Interp *interp,
  			    char *string, int *seekFlagPtr));
Index: generic/tclIntDecls.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIntDecls.h,v
retrieving revision 1.21
diff -c -r1.21 tclIntDecls.h
*** generic/tclIntDecls.h	2000/09/28 06:38:21	1.21
--- generic/tclIntDecls.h	2001/04/10 15:45:28
***************
*** 157,168 ****
  				Tcl_Interp * interp, char * targetName));
  /* 38 */
  EXTERN int		TclGetNamespaceForQualName _ANSI_ARGS_((
! 				Tcl_Interp * interp, char * qualName, 
  				Namespace * cxtNsPtr, int flags, 
  				Namespace ** nsPtrPtr, 
  				Namespace ** altNsPtrPtr, 
  				Namespace ** actualCxtPtrPtr, 
! 				char ** simpleNamePtr));
  /* 39 */
  EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
  /* 40 */
--- 157,168 ----
  				Tcl_Interp * interp, char * targetName));
  /* 38 */
  EXTERN int		TclGetNamespaceForQualName _ANSI_ARGS_((
! 				Tcl_Interp * interp, CONST char * qualName, 
  				Namespace * cxtNsPtr, int flags, 
  				Namespace ** nsPtrPtr, 
  				Namespace ** altNsPtrPtr, 
  				Namespace ** actualCxtPtrPtr, 
! 				CONST char ** simpleNamePtr));
  /* 39 */
  EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
  /* 40 */
***************
*** 379,385 ****
  				Tcl_Obj * objPtr));
  /* 113 */
  EXTERN Tcl_Namespace *	Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * name, ClientData clientData, 
  				Tcl_NamespaceDeleteProc * deleteProc));
  /* 114 */
  EXTERN void		Tcl_DeleteNamespace _ANSI_ARGS_((
--- 379,385 ----
  				Tcl_Obj * objPtr));
  /* 113 */
  EXTERN Tcl_Namespace *	Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * name, ClientData clientData, 
  				Tcl_NamespaceDeleteProc * deleteProc));
  /* 114 */
  EXTERN void		Tcl_DeleteNamespace _ANSI_ARGS_((
***************
*** 390,397 ****
  				int resetListFirst));
  /* 116 */
  EXTERN Tcl_Command	Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				char * name, Tcl_Namespace * contextNsPtr, 
! 				int flags));
  /* 117 */
  EXTERN Tcl_Namespace *	Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
  				char * name, Tcl_Namespace * contextNsPtr, 
--- 390,397 ----
  				int resetListFirst));
  /* 116 */
  EXTERN Tcl_Command	Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, 
! 				CONST char * name, 
! 				Tcl_Namespace * contextNsPtr, int flags));
  /* 117 */
  EXTERN Tcl_Namespace *	Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
  				char * name, Tcl_Namespace * contextNsPtr, 
***************
*** 589,595 ****
      Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */
      int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * longPtr)); /* 36 */
      int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
!     int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */
      TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
      int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * seekFlagPtr)); /* 40 */
      Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
--- 589,595 ----
      Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */
      int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * longPtr)); /* 36 */
      int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
!     int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */
      TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
      int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * seekFlagPtr)); /* 40 */
      Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
***************
*** 680,689 ****
      void *reserved110;
      void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
      int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
!     Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
      void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
      int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */
!     Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
      Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
      int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
      int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
--- 680,689 ----
      void *reserved110;
      void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
      int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
!     Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
      void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
      int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */
!     Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
      Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
      int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
      int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
Index: generic/tclNamesp.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclNamesp.c,v
retrieving revision 1.20
diff -c -r1.20 tclNamesp.c
*** generic/tclNamesp.c	2001/04/07 02:09:18	1.20
--- generic/tclNamesp.c	2001/04/10 15:45:28
***************
*** 430,436 ****
      Tcl_Interp *interp;             /* Interpreter in which a new namespace
  				     * is being created. Also used for
  				     * error reporting. */
!     char *name;                     /* Name for the new namespace. May be a
  				     * qualified name with names of ancestor
  				     * namespaces separated by "::"s. */
      ClientData clientData;	    /* One-word value to store with
--- 430,436 ----
      Tcl_Interp *interp;             /* Interpreter in which a new namespace
  				     * is being created. Also used for
  				     * error reporting. */
!     CONST char *name;               /* Name for the new namespace. May be a
  				     * qualified name with names of ancestor
  				     * namespaces separated by "::"s. */
      ClientData clientData;	    /* One-word value to store with
***************
*** 1610,1616 ****
  	nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr)
      Tcl_Interp *interp;		 /* Interpreter in which to find the
  				  * namespace containing qualName. */
!     register char *qualName;	 /* A namespace-qualified name of an
  				  * command, variable, or namespace. */
      Namespace *cxtNsPtr;	 /* The namespace in which to start the
  				  * search for qualName's namespace. If NULL
--- 1610,1616 ----
  	nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr)
      Tcl_Interp *interp;		 /* Interpreter in which to find the
  				  * namespace containing qualName. */
!     CONST char *qualName;	 /* A namespace-qualified name of an
  				  * command, variable, or namespace. */
      Namespace *cxtNsPtr;	 /* The namespace in which to start the
  				  * search for qualName's namespace. If NULL
***************
*** 1642,1648 ****
  				  * the :: namespace if TCL_GLOBAL_ONLY was
  				  * specified, or the current namespace if
  				  * cxtNsPtr was NULL. */
!     char **simpleNamePtr;	 /* Address where procedure stores the
  				  * simple name at end of the qualName, or
  				  * NULL if qualName is "::" or the flag
  				  * FIND_ONLY_NS was specified. */
--- 1642,1648 ----
  				  * the :: namespace if TCL_GLOBAL_ONLY was
  				  * specified, or the current namespace if
  				  * cxtNsPtr was NULL. */
!     CONST char **simpleNamePtr;	 /* Address where procedure stores the
  				  * simple name at end of the qualName, or
  				  * NULL if qualName is "::" or the flag
  				  * FIND_ONLY_NS was specified. */
***************
*** 1651,1658 ****
      Namespace *nsPtr = cxtNsPtr;
      Namespace *altNsPtr;
      Namespace *globalNsPtr = iPtr->globalNsPtr;
!     register char *start, *end;
!     char *nsName;
      Tcl_HashEntry *entryPtr;
      Tcl_DString buffer;
      int len;
--- 1651,1658 ----
      Namespace *nsPtr = cxtNsPtr;
      Namespace *altNsPtr;
      Namespace *globalNsPtr = iPtr->globalNsPtr;
!     CONST char *start, *end;
!     CONST char *nsName;
      Tcl_HashEntry *entryPtr;
      Tcl_DString buffer;
      int len;
***************
*** 1934,1940 ****
  Tcl_FindCommand(interp, name, contextNsPtr, flags)
      Tcl_Interp *interp;         /* The interpreter in which to find the
  				  * command and to report errors. */
!     char *name;		         /* Command's name. If it starts with "::",
  				  * will be looked up in global namespace.
  				  * Else, looked up first in contextNsPtr
  				  * (current namespace if contextNsPtr is
--- 1934,1940 ----
  Tcl_FindCommand(interp, name, contextNsPtr, flags)
      Tcl_Interp *interp;         /* The interpreter in which to find the
  				  * command and to report errors. */
!     CONST char *name;	         /* Command's name. If it starts with "::",
  				  * will be looked up in global namespace.
  				  * Else, looked up first in contextNsPtr
  				  * (current namespace if contextNsPtr is
