summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.decls
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r--generic/tclInt.decls210
1 files changed, 105 insertions, 105 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 3dfdfb7..221fb34 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -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: tclInt.decls,v 1.128 2008/10/05 20:47:52 nijtmans Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.129 2008/10/22 20:23:59 nijtmans Exp $
library tcl
@@ -28,7 +28,7 @@ interface tclInt
# Replaced by Tcl_FSAccess in 8.4:
#declare 0 generic {
-# int TclAccess(CONST char *path, int mode)
+# int TclAccess(const char *path, int mode)
#}
#declare 1 generic {
# int TclAccessDeleteProc(TclAccessProc_ *proc)
@@ -51,7 +51,7 @@ declare 6 generic {
void TclCleanupCommand(Command *cmdPtr)
}
declare 7 generic {
- int TclCopyAndCollapse(int count, CONST char *src, char *dst)
+ int TclCopyAndCollapse(int count, const char *src, char *dst)
}
declare 8 generic {
int TclCopyChannel(Tcl_Interp *interp, Tcl_Channel inChan,
@@ -61,13 +61,13 @@ declare 8 generic {
# TclCreatePipeline unofficially exported for use by BLT.
declare 9 {unix win} {
- int TclCreatePipeline(Tcl_Interp *interp, int argc, CONST char **argv,
+ int TclCreatePipeline(Tcl_Interp *interp, int argc, const char **argv,
Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr,
TclFile *errFilePtr)
}
declare 10 generic {
int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr,
- CONST char *procName,
+ const char *procName,
Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr)
}
declare 11 generic {
@@ -93,7 +93,7 @@ declare 16 generic {
}
# Removed in 8.4
#declare 17 generic {
-# int TclFileAttrsCmd(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+# int TclFileAttrsCmd(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
#}
#declare 18 generic {
# int TclFileCopyCmd(Tcl_Interp *interp, int argc, char **argv)
@@ -108,12 +108,12 @@ declare 16 generic {
# int TclFileRenameCmd(Tcl_Interp *interp, int argc, char **argv)
#}
declare 22 generic {
- int TclFindElement(Tcl_Interp *interp, CONST char *listStr,
- int listLength, CONST char **elementPtr, CONST char **nextPtr,
+ int TclFindElement(Tcl_Interp *interp, const char *listStr,
+ int listLength, const char **elementPtr, const char **nextPtr,
int *sizePtr, int *bracePtr)
}
declare 23 generic {
- Proc *TclFindProc(Interp *iPtr, CONST char *procName)
+ Proc *TclFindProc(Interp *iPtr, const char *procName)
}
# Replaced with macro (see tclInt.h) in Tcl 8.5
#declare 24 generic {
@@ -139,15 +139,15 @@ declare 28 generic {
# Tcl_Obj *TclGetElementOfIndexedArray(Tcl_Interp *interp,
# int localIndex, Tcl_Obj *elemPtr, int flags)
#}
-# Replaced by char *TclGetEnv(CONST char *name, Tcl_DString *valuePtr) in 8.1:
+# Replaced by char *TclGetEnv(const char *name, Tcl_DString *valuePtr) in 8.1:
# declare 30 generic {
-# char *TclGetEnv(CONST char *name)
+# char *TclGetEnv(const char *name)
# }
declare 31 generic {
- CONST char *TclGetExtension(CONST char *name)
+ const char *TclGetExtension(const char *name)
}
declare 32 generic {
- int TclGetFrame(Tcl_Interp *interp, CONST char *str,
+ int TclGetFrame(Tcl_Interp *interp, const char *str,
CallFrame **framePtrPtr)
}
# Removed in Tcl 8.5
@@ -165,28 +165,28 @@ declare 34 generic {
#}
# Removed in 8.6a2
#declare 36 generic {
-# int TclGetLong(Tcl_Interp *interp, CONST char *str, long *longPtr)
+# int TclGetLong(Tcl_Interp *interp, const char *str, long *longPtr)
#}
declare 37 generic {
int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName)
}
declare 38 generic {
- int TclGetNamespaceForQualName(Tcl_Interp *interp, CONST char *qualName,
+ int TclGetNamespaceForQualName(Tcl_Interp *interp, const char *qualName,
Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr,
Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr,
- CONST char **simpleNamePtr)
+ const char **simpleNamePtr)
}
declare 39 generic {
TclObjCmdProcType TclGetObjInterpProc(void)
}
declare 40 generic {
- int TclGetOpenMode(Tcl_Interp *interp, CONST char *str, int *seekFlagPtr)
+ int TclGetOpenMode(Tcl_Interp *interp, const char *str, int *seekFlagPtr)
}
declare 41 generic {
Tcl_Command TclGetOriginalCommand(Tcl_Command command)
}
declare 42 generic {
- char *TclpGetUserHome(CONST char *name, Tcl_DString *bufferPtr)
+ char *TclpGetUserHome(const char *name, Tcl_DString *bufferPtr)
}
# Removed in Tcl 8.5a2
#declare 43 generic {
@@ -194,7 +194,7 @@ declare 42 generic {
# int flags)
#}
declare 44 generic {
- int TclGuessPackageName(CONST char *fileName, Tcl_DString *bufPtr)
+ int TclGuessPackageName(const char *fileName, Tcl_DString *bufPtr)
}
declare 45 generic {
int TclHideUnsafeCommands(Tcl_Interp *interp)
@@ -234,7 +234,7 @@ declare 53 generic {
}
declare 54 generic {
int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp,
- int objc, Tcl_Obj *CONST objv[])
+ int objc, Tcl_Obj *const objv[])
}
declare 55 generic {
Proc *TclIsProc(Command *cmdPtr)
@@ -250,8 +250,8 @@ declare 55 generic {
# int TclLooksLikeInt(char *p)
# }
declare 58 generic {
- Var *TclLookupVar(Tcl_Interp *interp, CONST char *part1, CONST char *part2,
- int flags, CONST char *msg, int createPart1, int createPart2,
+ Var *TclLookupVar(Tcl_Interp *interp, const char *part1, const char *part2,
+ int flags, const char *msg, int createPart1, int createPart2,
Var **arrayPtrPtr)
}
# Replaced by Tcl_FSMatchInDirectory in 8.4
@@ -260,7 +260,7 @@ declare 58 generic {
# Tcl_DString *dirPtr, char *pattern, char *tail)
#}
declare 60 generic {
- int TclNeedSpace(CONST char *start, CONST char *end)
+ int TclNeedSpace(const char *start, const char *end)
}
declare 61 generic {
Tcl_Obj *TclNewProcBodyObj(Proc *procPtr)
@@ -270,16 +270,16 @@ declare 62 generic {
}
declare 63 generic {
int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp,
- int objc, Tcl_Obj *CONST objv[])
+ int objc, Tcl_Obj *const objv[])
}
declare 64 generic {
- int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[],
+ int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[],
int flags)
}
# Removed in Tcl 8.5a2
#declare 65 generic {
# int TclObjInvokeGlobal(Tcl_Interp *interp, int objc,
-# Tcl_Obj *CONST objv[], int flags)
+# Tcl_Obj *const objv[], int flags)
#}
#declare 66 generic {
# int TclOpenFileChannelDeleteProc(TclOpenFileChannelProc_ *proc)
@@ -289,23 +289,23 @@ declare 64 generic {
#}
# Replaced by Tcl_FSAccess in 8.4:
#declare 68 generic {
-# int TclpAccess(CONST char *path, int mode)
+# int TclpAccess(const char *path, int mode)
#}
declare 69 generic {
char *TclpAlloc(unsigned int size)
}
#declare 70 generic {
-# int TclpCopyFile(CONST char *source, CONST char *dest)
+# int TclpCopyFile(const char *source, const char *dest)
#}
#declare 71 generic {
-# int TclpCopyDirectory(CONST char *source, CONST char *dest,
+# int TclpCopyDirectory(const char *source, const char *dest,
# Tcl_DString *errorPtr)
#}
#declare 72 generic {
-# int TclpCreateDirectory(CONST char *path)
+# int TclpCreateDirectory(const char *path)
#}
#declare 73 generic {
-# int TclpDeleteFile(CONST char *path)
+# int TclpDeleteFile(const char *path)
#}
declare 74 generic {
void TclpFree(char *ptr)
@@ -337,11 +337,11 @@ declare 81 generic {
char *TclpRealloc(char *ptr, unsigned int size)
}
#declare 82 generic {
-# int TclpRemoveDirectory(CONST char *path, int recursive,
+# int TclpRemoveDirectory(const char *path, int recursive,
# Tcl_DString *errorPtr)
#}
#declare 83 generic {
-# int TclpRenameFile(CONST char *source, CONST char *dest)
+# int TclpRenameFile(const char *source, const char *dest)
#}
# Removed in 8.1:
# declare 84 generic {
@@ -361,7 +361,7 @@ declare 81 generic {
# }
declare 88 generic {
char *TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp,
- CONST char *name1, CONST char *name2, int flags)
+ const char *name1, const char *name2, int flags)
}
declare 89 generic {
int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp,
@@ -376,8 +376,8 @@ declare 91 generic {
}
declare 92 generic {
int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,
- Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description,
- CONST char *procName)
+ Tcl_Obj *bodyPtr, Namespace *nsPtr, const char *description,
+ const char *procName)
}
declare 93 generic {
void TclProcDeleteProc(ClientData clientData)
@@ -389,11 +389,11 @@ declare 93 generic {
#}
# Replaced by Tcl_FSStat in 8.4:
#declare 95 generic {
-# int TclpStat(CONST char *path, Tcl_StatBuf *buf)
+# int TclpStat(const char *path, Tcl_StatBuf *buf)
#}
declare 96 generic {
- int TclRenameCommand(Tcl_Interp *interp, CONST char *oldName,
- CONST char *newName)
+ int TclRenameCommand(Tcl_Interp *interp, const char *oldName,
+ const char *newName)
}
declare 97 generic {
void TclResetShadowedCmdRefs(Tcl_Interp *interp, Command *newCmdPtr)
@@ -418,7 +418,7 @@ declare 102 generic {
void TclSetupEnv(Tcl_Interp *interp)
}
declare 103 generic {
- int TclSockGetPort(Tcl_Interp *interp, CONST char *str, CONST char *proto,
+ int TclSockGetPort(Tcl_Interp *interp, const char *str, const char *proto,
int *portPtr)
}
declare 104 {unix win} {
@@ -426,7 +426,7 @@ declare 104 {unix win} {
}
# Replaced by Tcl_FSStat in 8.4:
#declare 105 generic {
-# int TclStat(CONST char *path, Tcl_StatBuf *buf)
+# int TclStat(const char *path, Tcl_StatBuf *buf)
#}
#declare 106 generic {
# int TclStatDeleteProc(TclStatProc_ *proc)
@@ -449,7 +449,7 @@ declare 109 generic {
# defined here instead of in tcl.decls since they are not stable yet.
declare 111 generic {
- void Tcl_AddInterpResolvers(Tcl_Interp *interp, CONST char *name,
+ void Tcl_AddInterpResolvers(Tcl_Interp *interp, const char *name,
Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc,
Tcl_ResolveCompiledVarProc *compiledVarProc)
}
@@ -458,7 +458,7 @@ declare 112 generic {
Tcl_Obj *objPtr)
}
declare 113 generic {
- Tcl_Namespace *Tcl_CreateNamespace(Tcl_Interp *interp, CONST char *name,
+ Tcl_Namespace *Tcl_CreateNamespace(Tcl_Interp *interp, const char *name,
ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)
}
declare 114 generic {
@@ -466,18 +466,18 @@ declare 114 generic {
}
declare 115 generic {
int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
- CONST char *pattern, int resetListFirst)
+ const char *pattern, int resetListFirst)
}
declare 116 generic {
- Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name,
+ Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
Tcl_Namespace *contextNsPtr, int flags)
}
declare 117 generic {
- Tcl_Namespace *Tcl_FindNamespace(Tcl_Interp *interp, CONST char *name,
+ Tcl_Namespace *Tcl_FindNamespace(Tcl_Interp *interp, const char *name,
Tcl_Namespace *contextNsPtr, int flags)
}
declare 118 generic {
- int Tcl_GetInterpResolvers(Tcl_Interp *interp, CONST char *name,
+ int Tcl_GetInterpResolvers(Tcl_Interp *interp, const char *name,
Tcl_ResolverInfo *resInfo)
}
declare 119 generic {
@@ -485,12 +485,12 @@ declare 119 generic {
Tcl_ResolverInfo *resInfo)
}
declare 120 generic {
- Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, CONST char *name,
+ Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, const char *name,
Tcl_Namespace *contextNsPtr, int flags)
}
declare 121 generic {
int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
- CONST char *pattern)
+ const char *pattern)
}
declare 122 generic {
Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
@@ -511,7 +511,7 @@ declare 126 generic {
}
declare 127 generic {
int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
- CONST char *pattern, int allowOverwrite)
+ const char *pattern, int allowOverwrite)
}
declare 128 generic {
void Tcl_PopCallFrame(Tcl_Interp *interp)
@@ -521,7 +521,7 @@ declare 129 generic {
Tcl_Namespace *nsPtr, int isProcCallFrame)
}
declare 130 generic {
- int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, CONST char *name)
+ int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, const char *name)
}
declare 131 generic {
void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr,
@@ -532,12 +532,12 @@ declare 132 generic {
int TclpHasSockets(Tcl_Interp *interp)
}
declare 133 generic {
- struct tm *TclpGetDate(CONST time_t *time, int useGMT)
+ struct tm *TclpGetDate(const time_t *time, int useGMT)
}
# Removed in 8.5
#declare 134 generic {
-# size_t TclpStrftime(char *s, size_t maxsize, CONST char *format,
-# CONST struct tm *t, int useGMT)
+# size_t TclpStrftime(char *s, size_t maxsize, const char *format,
+# const struct tm *t, int useGMT)
#}
#declare 135 generic {
# int TclpCheckStackSpace(void)
@@ -546,10 +546,10 @@ declare 133 generic {
# Added in 8.1:
#declare 137 generic {
-# int TclpChdir(CONST char *dirName)
+# int TclpChdir(const char *dirName)
#}
declare 138 generic {
- CONST84_RETURN char *TclGetEnv(CONST char *name, Tcl_DString *valuePtr)
+ CONST84_RETURN char *TclGetEnv(const char *name, Tcl_DString *valuePtr)
}
#declare 139 generic {
# int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1,
@@ -557,7 +557,7 @@ declare 138 generic {
# Tcl_PackageInitProc **proc2Ptr, ClientData *clientDataPtr)
#}
#declare 140 generic {
-# int TclLooksLikeInt(CONST char *bytes, int length)
+# int TclLooksLikeInt(const char *bytes, int length)
#}
# This is used by TclX, but should otherwise be considered private
declare 141 generic {
@@ -576,7 +576,7 @@ declare 144 generic {
int index)
}
declare 145 generic {
- CONST86 struct AuxDataType *TclGetAuxDataType(CONST char *typeName)
+ CONST86 struct AuxDataType *TclGetAuxDataType(const char *typeName)
}
declare 146 generic {
TclHandle TclHandleCreate(VOID *ptr)
@@ -618,14 +618,14 @@ declare 153 generic {
#}
declare 156 generic {
- void TclRegError(Tcl_Interp *interp, CONST char *msg,
+ void TclRegError(Tcl_Interp *interp, const char *msg,
int status)
}
declare 157 generic {
- Var *TclVarTraceExists(Tcl_Interp *interp, CONST char *varName)
+ Var *TclVarTraceExists(Tcl_Interp *interp, const char *varName)
}
declare 158 generic {
- void TclSetStartupScriptFileName(CONST char *filename)
+ void TclSetStartupScriptFileName(const char *filename)
}
declare 159 generic {
CONST84_RETURN char *TclGetStartupScriptFileName(void)
@@ -682,17 +682,17 @@ declare 168 generic {
}
# variant of Tcl_UtfNCmp that takes n as bytes, not chars
declare 169 generic {
- int TclpUtfNcmp2(CONST char *s1, CONST char *s2, unsigned long n)
+ int TclpUtfNcmp2(const char *s1, const char *s2, unsigned long n)
}
declare 170 generic {
- int TclCheckInterpTraces(Tcl_Interp *interp, CONST char *command,
+ int TclCheckInterpTraces(Tcl_Interp *interp, const char *command,
int numChars, Command *cmdPtr, int result, int traceFlags,
- int objc, Tcl_Obj *CONST objv[])
+ int objc, Tcl_Obj *const objv[])
}
declare 171 generic {
- int TclCheckExecutionTraces(Tcl_Interp *interp, CONST char *command,
+ int TclCheckExecutionTraces(Tcl_Interp *interp, const char *command,
int numChars, Command *cmdPtr, int result, int traceFlags,
- int objc, Tcl_Obj *CONST objv[])
+ int objc, Tcl_Obj *const objv[])
}
declare 172 generic {
int TclInThreadExit(void)
@@ -701,8 +701,8 @@ declare 172 generic {
# added for 8.4.2
declare 173 generic {
- int TclUniCharMatch(CONST Tcl_UniChar *string, int strLen,
- CONST Tcl_UniChar *pattern, int ptnLen, int flags)
+ int TclUniCharMatch(const Tcl_UniChar *string, int strLen,
+ const Tcl_UniChar *pattern, int ptnLen, int flags)
}
# added for 8.4.3
@@ -716,20 +716,20 @@ declare 173 generic {
declare 175 generic {
int TclCallVarTraces(Interp *iPtr, Var *arrayPtr, Var *varPtr,
- CONST char *part1, CONST char *part2, int flags, int leaveErrMsg)
+ const char *part1, const char *part2, int flags, int leaveErrMsg)
}
declare 176 generic {
void TclCleanupVar(Var *varPtr, Var *arrayPtr)
}
declare 177 generic {
- void TclVarErrMsg(Tcl_Interp *interp, CONST char *part1, CONST char *part2,
- CONST char *operation, CONST char *reason)
+ void TclVarErrMsg(Tcl_Interp *interp, const char *part1, const char *part2,
+ const char *operation, const char *reason)
}
declare 178 generic {
- void Tcl_SetStartupScript(Tcl_Obj *pathPtr, CONST char* encodingName)
+ void Tcl_SetStartupScript(Tcl_Obj *pathPtr, const char* encodingName)
}
declare 179 generic {
- Tcl_Obj *Tcl_GetStartupScript(CONST char **encodingNamePtr)
+ Tcl_Obj *Tcl_GetStartupScript(const char **encodingNamePtr)
}
# REMOVED
@@ -739,16 +739,16 @@ declare 179 generic {
# }
#declare 181 generic {
# Tcl_Obj *TclDbNewListObjDirect(int objc, Tcl_Obj **objv,
-# CONST char *file, int line)
+# const char *file, int line)
#}
# TclpGmtime and TclpLocaltime promoted to the generic interface from unix
declare 182 generic {
- struct tm *TclpLocaltime(CONST time_t *clock)
+ struct tm *TclpLocaltime(const time_t *clock)
}
declare 183 generic {
- struct tm *TclpGmtime(CONST time_t *clock)
+ struct tm *TclpGmtime(const time_t *clock)
}
# For the new "Thread Storage" subsystem.
@@ -802,7 +802,7 @@ declare 183 generic {
#
#declare 197 generic {
# int TclCompEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
-# CONST CmdFrame* invoker, int word)
+# const CmdFrame* invoker, int word)
#}
declare 198 generic {
int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr,
@@ -810,7 +810,7 @@ declare 198 generic {
}
#declare 199 generic {
-# int TclMatchIsTrivial(CONST char *pattern)
+# int TclMatchIsTrivial(const char *pattern)
#}
# 200-208 exported for use by the test suite [Bug 1054748]
@@ -852,10 +852,10 @@ declare 208 generic {
# int TclSetEncodingSearchPath(Tcl_Obj *searchPath)
#}
#declare 211 generic {
-# CONST char * TclpGetEncodingNameFromEnvironment(Tcl_DString *bufPtr)
+# const char * TclpGetEncodingNameFromEnvironment(Tcl_DString *bufPtr)
#}
declare 212 generic {
- void TclpFindExecutable(CONST char *argv0)
+ void TclpFindExecutable(const char *argv0)
}
declare 213 generic {
Tcl_Obj * TclGetObjNameOfExecutable(void)
@@ -885,7 +885,7 @@ declare 224 generic {
#
declare 225 generic {
Tcl_Obj *TclTraceDictPath(Tcl_Interp *interp, Tcl_Obj *rootPtr,
- int keyc, Tcl_Obj *CONST keyv[], int flags)
+ int keyc, Tcl_Obj *const keyv[], int flags)
}
declare 226 generic {
int TclObjBeingDeleted(Tcl_Obj *objPtr)
@@ -902,12 +902,12 @@ declare 227 generic {
# }
declare 229 generic {
int TclPtrMakeUpvar(Tcl_Interp *interp, Var *otherP1Ptr,
- CONST char *myName, int myFlags, int index)
+ const char *myName, int myFlags, int index)
}
declare 230 generic {
Var *TclObjLookupVar(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
- CONST char *part2, int flags, CONST char *msg,
- CONST int createPart1, CONST int createPart2, Var **arrayPtrPtr)
+ const char *part2, int flags, const char *msg,
+ const int createPart1, const int createPart2, Var **arrayPtrPtr)
}
declare 231 generic {
int TclGetNamespaceFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
@@ -917,7 +917,7 @@ declare 231 generic {
# Bits and pieces of TIP#280's guts
declare 232 generic {
int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags,
- CONST CmdFrame *invoker, int word)
+ const CmdFrame *invoker, int word)
}
declare 233 generic {
void TclGetSrcInfoForPc(CmdFrame *contextPtr)
@@ -925,7 +925,7 @@ declare 233 generic {
# Exports for VarReform compat: Itcl, XOTcl like to peek into our varTables :(
declare 234 generic {
- Var *TclVarHashCreateVar(TclVarHashTable *tablePtr, CONST char *key,
+ Var *TclVarHashCreateVar(TclVarHashTable *tablePtr, const char *key,
int *newPtr)
}
declare 235 generic {
@@ -946,7 +946,7 @@ declare 237 generic {
# include NRE.h too.
declare 238 generic {
int TclNRInterpProc(ClientData clientData, Tcl_Interp *interp,
- int objc, Tcl_Obj *CONST objv[])
+ int objc, Tcl_Obj *const objv[])
}
declare 239 generic {
int TclNRInterpProcCore(Tcl_Interp *interp, Tcl_Obj *procNameObj,
@@ -958,7 +958,7 @@ declare 240 generic {
}
declare 241 generic {
int TclNREvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags,
- CONST CmdFrame *invoker, int word)
+ const CmdFrame *invoker, int word)
}
declare 242 generic {
int TclNREvalObjv(Tcl_Interp *interp, int objc,
@@ -981,8 +981,8 @@ declare 1 win {
void TclWinConvertWSAError(DWORD errCode)
}
declare 2 win {
- struct servent *TclWinGetServByName(CONST char *nm,
- CONST char *proto)
+ struct servent *TclWinGetServByName(const char *nm,
+ const char *proto)
}
declare 3 win {
int TclWinGetSockOpt(int s, int level, int optname,
@@ -1000,7 +1000,7 @@ declare 6 win {
}
declare 7 win {
int TclWinSetSockOpt(int s, int level, int optname,
- CONST char FAR *optval, int optlen)
+ const char FAR *optval, int optlen)
}
declare 8 win {
unsigned long TclpGetPid(Tcl_Pid pid)
@@ -1029,7 +1029,7 @@ declare 14 win {
int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
}
declare 15 win {
- int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv,
+ int TclpCreateProcess(Tcl_Interp *interp, int argc, const char **argv,
TclFile inputFile, TclFile outputFile, TclFile errorFile,
Tcl_Pid *pidPtr)
}
@@ -1044,7 +1044,7 @@ declare 18 win {
TclFile TclpMakeFile(Tcl_Channel channel, int direction)
}
declare 19 win {
- TclFile TclpOpenFile(CONST char *fname, int mode)
+ TclFile TclpOpenFile(const char *fname, int mode)
}
declare 20 win {
void TclWinAddProcess(HANDLE hProcess, DWORD id)
@@ -1057,7 +1057,7 @@ declare 20 win {
# Added in 8.1:
declare 22 win {
- TclFile TclpCreateTempFile(CONST char *contents)
+ TclFile TclpCreateTempFile(const char *contents)
}
declare 23 win {
char *TclpGetTZName(int isdst)
@@ -1107,7 +1107,7 @@ declare 3 unix {
int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)
}
declare 4 unix {
- int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv,
+ int TclpCreateProcess(Tcl_Interp *interp, int argc, const char **argv,
TclFile inputFile, TclFile outputFile, TclFile errorFile,
Tcl_Pid *pidPtr)
}
@@ -1119,7 +1119,7 @@ declare 6 unix {
TclFile TclpMakeFile(Tcl_Channel channel, int direction)
}
declare 7 unix {
- TclFile TclpOpenFile(CONST char *fname, int mode)
+ TclFile TclpOpenFile(const char *fname, int mode)
}
declare 8 unix {
int TclUnixWaitForFile(int fd, int mask, int timeout)
@@ -1128,7 +1128,7 @@ declare 8 unix {
# Added in 8.1:
declare 9 unix {
- TclFile TclpCreateTempFile(CONST char *contents)
+ TclFile TclpCreateTempFile(const char *contents)
}
# Added in 8.4:
@@ -1139,10 +1139,10 @@ declare 10 unix {
# Slots 11 and 12 are forwarders for functions that were promoted to
# generic Stubs
declare 11 unix {
- struct tm *TclpLocaltime_unix(CONST time_t *clock)
+ struct tm *TclpLocaltime_unix(const time_t *clock)
}
declare 12 unix {
- struct tm *TclpGmtime_unix(CONST time_t *clock)
+ struct tm *TclpGmtime_unix(const time_t *clock)
}
declare 13 unix {
char *TclpInetNtoa(struct in_addr addr)
@@ -1151,8 +1151,8 @@ declare 13 unix {
# Added in 8.5:
declare 14 unix {
- int TclUnixCopyFile(CONST char *src, CONST char *dst,
- CONST Tcl_StatBuf *statBufPtr, int dontCopyAtts)
+ int TclUnixCopyFile(const char *src, const char *dst,
+ const Tcl_StatBuf *statBufPtr, int dontCopyAtts)
}
################################
@@ -1167,11 +1167,11 @@ declare 16 macosx {
Tcl_Obj *fileName, Tcl_Obj *attributePtr)
}
declare 17 macosx {
- int TclMacOSXCopyFileAttributes(CONST char *src, CONST char *dst,
- CONST Tcl_StatBuf *statBufPtr)
+ int TclMacOSXCopyFileAttributes(const char *src, const char *dst,
+ const Tcl_StatBuf *statBufPtr)
}
declare 18 macosx {
- int TclMacOSXMatchType(Tcl_Interp *interp, CONST char *pathName,
- CONST char *fileName, Tcl_StatBuf *statBufPtr,
+ int TclMacOSXMatchType(Tcl_Interp *interp, const char *pathName,
+ const char *fileName, Tcl_StatBuf *statBufPtr,
Tcl_GlobTypeData *types)
}