summaryrefslogtreecommitdiffstats
path: root/generic/tcl.decls
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2001-04-24 20:59:17 (GMT)
committerKevin B Kenny <kennykb@acm.org>2001-04-24 20:59:17 (GMT)
commit746a8cbba288a220947b571d54e2d48ae2e8d488 (patch)
treeb74e8cf3cd4260aae42c138b221cee772af6296a /generic/tcl.decls
parenta92611e9ae6caf8a0864552f968a4f04e97ee28e (diff)
downloadtcl-746a8cbba288a220947b571d54e2d48ae2e8d488.zip
tcl-746a8cbba288a220947b571d54e2d48ae2e8d488.tar.gz
tcl-746a8cbba288a220947b571d54e2d48ae2e8d488.tar.bz2
(TIP #27) Another round of CONST changes, this
time adding CONST to the API's exported from tclBasic.c. [Patch #415179] ***POTENTIAL INCOMPATIBILITY*** from 8.4a2, in which Vince Darley's changes to command tracing were added. A const has been added to the type signature of one of the parameters to Tcl_CommandTraceProc.
Diffstat (limited to 'generic/tcl.decls')
-rw-r--r--generic/tcl.decls42
1 files changed, 22 insertions, 20 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls
index 82152ff..33358e3 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.45 2001/04/04 16:07:20 kennykb Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.46 2001/04/24 20:59:17 kennykb Exp $
library tcl
@@ -337,7 +337,7 @@ declare 90 generic {
ClientData clientData)
}
declare 91 generic {
- Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, char *cmdName, \
+ Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, CONST char *cmdName, \
Tcl_CmdProc *proc, ClientData clientData, \
Tcl_CmdDeleteProc *deleteProc)
}
@@ -352,11 +352,13 @@ declare 94 generic {
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)
+ 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, char *cmdName, \
+ Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, \
+ CONST char *cmdName, \
Tcl_ObjCmdProc *proc, ClientData clientData, \
Tcl_CmdDeleteProc *deleteProc)
}
@@ -373,7 +375,7 @@ declare 99 generic {
Tcl_CmdTraceProc *proc, ClientData clientData)
}
declare 100 generic {
- void Tcl_DeleteAssocData(Tcl_Interp *interp, char *name)
+ void Tcl_DeleteAssocData(Tcl_Interp *interp, CONST char *name)
}
declare 101 generic {
void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc, \
@@ -384,7 +386,7 @@ declare 102 generic {
ClientData clientData)
}
declare 103 generic {
- int Tcl_DeleteCommand(Tcl_Interp *interp, char *cmdName)
+ int Tcl_DeleteCommand(Tcl_Interp *interp, CONST char *cmdName)
}
declare 104 generic {
int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command)
@@ -479,23 +481,23 @@ declare 133 generic {
void Tcl_Exit(int status)
}
declare 134 generic {
- int Tcl_ExposeCommand(Tcl_Interp *interp, char *hiddenCmdToken, \
- char *cmdName)
+ int Tcl_ExposeCommand(Tcl_Interp *interp, CONST char *hiddenCmdToken, \
+ CONST char *cmdName)
}
declare 135 generic {
- int Tcl_ExprBoolean(Tcl_Interp *interp, char *str, int *ptr)
+ 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, char *str, double *ptr)
+ 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, char *str, long *ptr)
+ 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,7 +507,7 @@ declare 141 generic {
Tcl_Obj **resultPtrPtr)
}
declare 142 generic {
- int Tcl_ExprString(Tcl_Interp *interp, char *string)
+ int Tcl_ExprString(Tcl_Interp *interp, CONST char *string)
}
declare 143 generic {
void Tcl_Finalize(void)
@@ -534,7 +536,7 @@ declare 149 generic {
Tcl_Obj ***objv)
}
declare 150 generic {
- ClientData Tcl_GetAssocData(Tcl_Interp *interp, char *name, \
+ ClientData Tcl_GetAssocData(Tcl_Interp *interp, CONST char *name, \
Tcl_InterpDeleteProc **procPtr)
}
declare 151 generic {
@@ -565,11 +567,11 @@ declare 158 generic {
Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan)
}
declare 159 generic {
- int Tcl_GetCommandInfo(Tcl_Interp *interp, char *cmdName, \
+ int Tcl_GetCommandInfo(Tcl_Interp *interp, CONST char *cmdName, \
Tcl_CmdInfo *infoPtr)
}
declare 160 generic {
- char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command)
+ CONST char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command)
}
declare 161 generic {
int Tcl_GetErrno(void)
@@ -632,8 +634,8 @@ declare 178 generic {
int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
}
declare 179 generic {
- int Tcl_HideCommand(Tcl_Interp *interp, char *cmdName, \
- char *hiddenCmdToken)
+ int Tcl_HideCommand(Tcl_Interp *interp, CONST char *cmdName, \
+ CONST char *hiddenCmdToken)
}
declare 180 generic {
int Tcl_Init(Tcl_Interp *interp)
@@ -776,7 +778,7 @@ declare 222 generic {
int Tcl_ServiceEvent(int flags)
}
declare 223 generic {
- void Tcl_SetAssocData(Tcl_Interp *interp, char *name, \
+ void Tcl_SetAssocData(Tcl_Interp *interp, CONST char *name, \
Tcl_InterpDeleteProc *proc, ClientData clientData)
}
declare 224 generic {
@@ -787,7 +789,7 @@ declare 225 generic {
char *optionName, char *newValue)
}
declare 226 generic {
- int Tcl_SetCommandInfo(Tcl_Interp *interp, char *cmdName, \
+ int Tcl_SetCommandInfo(Tcl_Interp *interp, CONST char *cmdName, \
Tcl_CmdInfo *infoPtr)
}
declare 227 generic {