summaryrefslogtreecommitdiffstats
path: root/generic/tclDecls.h
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclDecls.h')
-rw-r--r--generic/tclDecls.h1792
1 files changed, 896 insertions, 896 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 8b7beaa..784f1ca 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclDecls.h,v 1.154 2008/10/05 22:25:35 nijtmans Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.155 2008/10/22 20:23:59 nijtmans Exp $
*/
#ifndef _TCLDECLS
@@ -40,21 +40,21 @@
#ifndef Tcl_PkgProvideEx_TCL_DECLARED
#define Tcl_PkgProvideEx_TCL_DECLARED
/* 0 */
-EXTERN int Tcl_PkgProvideEx (Tcl_Interp* interp,
- CONST char* name, CONST char* version,
+EXTERN int Tcl_PkgProvideEx (Tcl_Interp* interp,
+ const char* name, const char* version,
ClientData clientData);
#endif
#ifndef Tcl_PkgRequireEx_TCL_DECLARED
#define Tcl_PkgRequireEx_TCL_DECLARED
/* 1 */
-EXTERN CONST84_RETURN char * Tcl_PkgRequireEx (Tcl_Interp * interp,
- CONST char * name, CONST char * version,
+EXTERN CONST84_RETURN char * Tcl_PkgRequireEx (Tcl_Interp * interp,
+ const char * name, const char * version,
int exact, ClientData * clientDataPtr);
#endif
#ifndef Tcl_Panic_TCL_DECLARED
#define Tcl_Panic_TCL_DECLARED
/* 2 */
-EXTERN void Tcl_Panic (CONST char * format, ...);
+EXTERN void Tcl_Panic (const char * format, ...);
#endif
#ifndef Tcl_Alloc_TCL_DECLARED
#define Tcl_Alloc_TCL_DECLARED
@@ -74,26 +74,26 @@ EXTERN char * Tcl_Realloc (char * ptr, unsigned int size);
#ifndef Tcl_DbCkalloc_TCL_DECLARED
#define Tcl_DbCkalloc_TCL_DECLARED
/* 6 */
-EXTERN char * Tcl_DbCkalloc (unsigned int size, CONST char * file,
+EXTERN char * Tcl_DbCkalloc (unsigned int size, const char * file,
int line);
#endif
#ifndef Tcl_DbCkfree_TCL_DECLARED
#define Tcl_DbCkfree_TCL_DECLARED
/* 7 */
-EXTERN int Tcl_DbCkfree (char * ptr, CONST char * file,
+EXTERN int Tcl_DbCkfree (char * ptr, const char * file,
int line);
#endif
#ifndef Tcl_DbCkrealloc_TCL_DECLARED
#define Tcl_DbCkrealloc_TCL_DECLARED
/* 8 */
-EXTERN char * Tcl_DbCkrealloc (char * ptr, unsigned int size,
- CONST char * file, int line);
+EXTERN char * Tcl_DbCkrealloc (char * ptr, unsigned int size,
+ const char * file, int line);
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_CreateFileHandler_TCL_DECLARED
#define Tcl_CreateFileHandler_TCL_DECLARED
/* 9 */
-EXTERN void Tcl_CreateFileHandler (int fd, int mask,
+EXTERN void Tcl_CreateFileHandler (int fd, int mask,
Tcl_FileProc * proc, ClientData clientData);
#endif
#endif /* UNIX */
@@ -101,7 +101,7 @@ EXTERN void Tcl_CreateFileHandler (int fd, int mask,
#ifndef Tcl_CreateFileHandler_TCL_DECLARED
#define Tcl_CreateFileHandler_TCL_DECLARED
/* 9 */
-EXTERN void Tcl_CreateFileHandler (int fd, int mask,
+EXTERN void Tcl_CreateFileHandler (int fd, int mask,
Tcl_FileProc * proc, ClientData clientData);
#endif
#endif /* MACOSX */
@@ -122,7 +122,7 @@ EXTERN void Tcl_DeleteFileHandler (int fd);
#ifndef Tcl_SetTimer_TCL_DECLARED
#define Tcl_SetTimer_TCL_DECLARED
/* 11 */
-EXTERN void Tcl_SetTimer (CONST Tcl_Time * timePtr);
+EXTERN void Tcl_SetTimer (const Tcl_Time * timePtr);
#endif
#ifndef Tcl_Sleep_TCL_DECLARED
#define Tcl_Sleep_TCL_DECLARED
@@ -132,12 +132,12 @@ EXTERN void Tcl_Sleep (int ms);
#ifndef Tcl_WaitForEvent_TCL_DECLARED
#define Tcl_WaitForEvent_TCL_DECLARED
/* 13 */
-EXTERN int Tcl_WaitForEvent (CONST Tcl_Time * timePtr);
+EXTERN int Tcl_WaitForEvent (const Tcl_Time * timePtr);
#endif
#ifndef Tcl_AppendAllObjTypes_TCL_DECLARED
#define Tcl_AppendAllObjTypes_TCL_DECLARED
/* 14 */
-EXTERN int Tcl_AppendAllObjTypes (Tcl_Interp * interp,
+EXTERN int Tcl_AppendAllObjTypes (Tcl_Interp * interp,
Tcl_Obj * objPtr);
#endif
#ifndef Tcl_AppendStringsToObj_TCL_DECLARED
@@ -148,79 +148,79 @@ EXTERN void Tcl_AppendStringsToObj (Tcl_Obj * objPtr, ...);
#ifndef Tcl_AppendToObj_TCL_DECLARED
#define Tcl_AppendToObj_TCL_DECLARED
/* 16 */
-EXTERN void Tcl_AppendToObj (Tcl_Obj* objPtr, CONST char* bytes,
+EXTERN void Tcl_AppendToObj (Tcl_Obj* objPtr, const char* bytes,
int length);
#endif
#ifndef Tcl_ConcatObj_TCL_DECLARED
#define Tcl_ConcatObj_TCL_DECLARED
/* 17 */
-EXTERN Tcl_Obj * Tcl_ConcatObj (int objc, Tcl_Obj *CONST objv[]);
+EXTERN Tcl_Obj * Tcl_ConcatObj (int objc, Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_ConvertToType_TCL_DECLARED
#define Tcl_ConvertToType_TCL_DECLARED
/* 18 */
-EXTERN int Tcl_ConvertToType (Tcl_Interp * interp,
- Tcl_Obj * objPtr,
- CONST Tcl_ObjType * typePtr);
+EXTERN int Tcl_ConvertToType (Tcl_Interp * interp,
+ Tcl_Obj * objPtr,
+ const Tcl_ObjType * typePtr);
#endif
#ifndef Tcl_DbDecrRefCount_TCL_DECLARED
#define Tcl_DbDecrRefCount_TCL_DECLARED
/* 19 */
-EXTERN void Tcl_DbDecrRefCount (Tcl_Obj * objPtr,
- CONST char * file, int line);
+EXTERN void Tcl_DbDecrRefCount (Tcl_Obj * objPtr,
+ const char * file, int line);
#endif
#ifndef Tcl_DbIncrRefCount_TCL_DECLARED
#define Tcl_DbIncrRefCount_TCL_DECLARED
/* 20 */
-EXTERN void Tcl_DbIncrRefCount (Tcl_Obj * objPtr,
- CONST char * file, int line);
+EXTERN void Tcl_DbIncrRefCount (Tcl_Obj * objPtr,
+ const char * file, int line);
#endif
#ifndef Tcl_DbIsShared_TCL_DECLARED
#define Tcl_DbIsShared_TCL_DECLARED
/* 21 */
-EXTERN int Tcl_DbIsShared (Tcl_Obj * objPtr, CONST char * file,
+EXTERN int Tcl_DbIsShared (Tcl_Obj * objPtr, const char * file,
int line);
#endif
#ifndef Tcl_DbNewBooleanObj_TCL_DECLARED
#define Tcl_DbNewBooleanObj_TCL_DECLARED
/* 22 */
-EXTERN Tcl_Obj * Tcl_DbNewBooleanObj (int boolValue,
- CONST char * file, int line);
+EXTERN Tcl_Obj * Tcl_DbNewBooleanObj (int boolValue,
+ const char * file, int line);
#endif
#ifndef Tcl_DbNewByteArrayObj_TCL_DECLARED
#define Tcl_DbNewByteArrayObj_TCL_DECLARED
/* 23 */
-EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj (CONST unsigned char * bytes,
- int length, CONST char * file, int line);
+EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj (const unsigned char * bytes,
+ int length, const char * file, int line);
#endif
#ifndef Tcl_DbNewDoubleObj_TCL_DECLARED
#define Tcl_DbNewDoubleObj_TCL_DECLARED
/* 24 */
-EXTERN Tcl_Obj * Tcl_DbNewDoubleObj (double doubleValue,
- CONST char * file, int line);
+EXTERN Tcl_Obj * Tcl_DbNewDoubleObj (double doubleValue,
+ const char * file, int line);
#endif
#ifndef Tcl_DbNewListObj_TCL_DECLARED
#define Tcl_DbNewListObj_TCL_DECLARED
/* 25 */
-EXTERN Tcl_Obj * Tcl_DbNewListObj (int objc, Tcl_Obj *CONST * objv,
- CONST char * file, int line);
+EXTERN Tcl_Obj * Tcl_DbNewListObj (int objc, Tcl_Obj *const * objv,
+ const char * file, int line);
#endif
#ifndef Tcl_DbNewLongObj_TCL_DECLARED
#define Tcl_DbNewLongObj_TCL_DECLARED
/* 26 */
-EXTERN Tcl_Obj * Tcl_DbNewLongObj (long longValue, CONST char * file,
+EXTERN Tcl_Obj * Tcl_DbNewLongObj (long longValue, const char * file,
int line);
#endif
#ifndef Tcl_DbNewObj_TCL_DECLARED
#define Tcl_DbNewObj_TCL_DECLARED
/* 27 */
-EXTERN Tcl_Obj * Tcl_DbNewObj (CONST char * file, int line);
+EXTERN Tcl_Obj * Tcl_DbNewObj (const char * file, int line);
#endif
#ifndef Tcl_DbNewStringObj_TCL_DECLARED
#define Tcl_DbNewStringObj_TCL_DECLARED
/* 28 */
-EXTERN Tcl_Obj * Tcl_DbNewStringObj (CONST char * bytes, int length,
- CONST char * file, int line);
+EXTERN Tcl_Obj * Tcl_DbNewStringObj (const char * bytes, int length,
+ const char * file, int line);
#endif
#ifndef Tcl_DuplicateObj_TCL_DECLARED
#define Tcl_DuplicateObj_TCL_DECLARED
@@ -235,68 +235,68 @@ EXTERN void TclFreeObj (Tcl_Obj * objPtr);
#ifndef Tcl_GetBoolean_TCL_DECLARED
#define Tcl_GetBoolean_TCL_DECLARED
/* 31 */
-EXTERN int Tcl_GetBoolean (Tcl_Interp * interp,
- CONST char * src, int * boolPtr);
+EXTERN int Tcl_GetBoolean (Tcl_Interp * interp,
+ const char * src, int * boolPtr);
#endif
#ifndef Tcl_GetBooleanFromObj_TCL_DECLARED
#define Tcl_GetBooleanFromObj_TCL_DECLARED
/* 32 */
-EXTERN int Tcl_GetBooleanFromObj (Tcl_Interp * interp,
+EXTERN int Tcl_GetBooleanFromObj (Tcl_Interp * interp,
Tcl_Obj * objPtr, int * boolPtr);
#endif
#ifndef Tcl_GetByteArrayFromObj_TCL_DECLARED
#define Tcl_GetByteArrayFromObj_TCL_DECLARED
/* 33 */
-EXTERN unsigned char * Tcl_GetByteArrayFromObj (Tcl_Obj * objPtr,
+EXTERN unsigned char * Tcl_GetByteArrayFromObj (Tcl_Obj * objPtr,
int * lengthPtr);
#endif
#ifndef Tcl_GetDouble_TCL_DECLARED
#define Tcl_GetDouble_TCL_DECLARED
/* 34 */
-EXTERN int Tcl_GetDouble (Tcl_Interp * interp, CONST char * src,
+EXTERN int Tcl_GetDouble (Tcl_Interp * interp, const char * src,
double * doublePtr);
#endif
#ifndef Tcl_GetDoubleFromObj_TCL_DECLARED
#define Tcl_GetDoubleFromObj_TCL_DECLARED
/* 35 */
-EXTERN int Tcl_GetDoubleFromObj (Tcl_Interp * interp,
+EXTERN int Tcl_GetDoubleFromObj (Tcl_Interp * interp,
Tcl_Obj * objPtr, double * doublePtr);
#endif
#ifndef Tcl_GetIndexFromObj_TCL_DECLARED
#define Tcl_GetIndexFromObj_TCL_DECLARED
/* 36 */
-EXTERN int Tcl_GetIndexFromObj (Tcl_Interp * interp,
- Tcl_Obj * objPtr,
- CONST84 char *CONST * tablePtr,
- CONST char * msg, int flags, int * indexPtr);
+EXTERN int Tcl_GetIndexFromObj (Tcl_Interp * interp,
+ Tcl_Obj * objPtr,
+ CONST84 char *const * tablePtr,
+ const char * msg, int flags, int * indexPtr);
#endif
#ifndef Tcl_GetInt_TCL_DECLARED
#define Tcl_GetInt_TCL_DECLARED
/* 37 */
-EXTERN int Tcl_GetInt (Tcl_Interp * interp, CONST char * src,
+EXTERN int Tcl_GetInt (Tcl_Interp * interp, const char * src,
int * intPtr);
#endif
#ifndef Tcl_GetIntFromObj_TCL_DECLARED
#define Tcl_GetIntFromObj_TCL_DECLARED
/* 38 */
-EXTERN int Tcl_GetIntFromObj (Tcl_Interp * interp,
+EXTERN int Tcl_GetIntFromObj (Tcl_Interp * interp,
Tcl_Obj * objPtr, int * intPtr);
#endif
#ifndef Tcl_GetLongFromObj_TCL_DECLARED
#define Tcl_GetLongFromObj_TCL_DECLARED
/* 39 */
-EXTERN int Tcl_GetLongFromObj (Tcl_Interp * interp,
+EXTERN int Tcl_GetLongFromObj (Tcl_Interp * interp,
Tcl_Obj * objPtr, long * longPtr);
#endif
#ifndef Tcl_GetObjType_TCL_DECLARED
#define Tcl_GetObjType_TCL_DECLARED
/* 40 */
-EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType (CONST char * typeName);
+EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType (const char * typeName);
#endif
#ifndef Tcl_GetStringFromObj_TCL_DECLARED
#define Tcl_GetStringFromObj_TCL_DECLARED
/* 41 */
-EXTERN char * Tcl_GetStringFromObj (Tcl_Obj * objPtr,
+EXTERN char * Tcl_GetStringFromObj (Tcl_Obj * objPtr,
int * lengthPtr);
#endif
#ifndef Tcl_InvalidateStringRep_TCL_DECLARED
@@ -307,41 +307,41 @@ EXTERN void Tcl_InvalidateStringRep (Tcl_Obj * objPtr);
#ifndef Tcl_ListObjAppendList_TCL_DECLARED
#define Tcl_ListObjAppendList_TCL_DECLARED
/* 43 */
-EXTERN int Tcl_ListObjAppendList (Tcl_Interp * interp,
+EXTERN int Tcl_ListObjAppendList (Tcl_Interp * interp,
Tcl_Obj * listPtr, Tcl_Obj * elemListPtr);
#endif
#ifndef Tcl_ListObjAppendElement_TCL_DECLARED
#define Tcl_ListObjAppendElement_TCL_DECLARED
/* 44 */
-EXTERN int Tcl_ListObjAppendElement (Tcl_Interp * interp,
+EXTERN int Tcl_ListObjAppendElement (Tcl_Interp * interp,
Tcl_Obj * listPtr, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_ListObjGetElements_TCL_DECLARED
#define Tcl_ListObjGetElements_TCL_DECLARED
/* 45 */
-EXTERN int Tcl_ListObjGetElements (Tcl_Interp * interp,
- Tcl_Obj * listPtr, int * objcPtr,
+EXTERN int Tcl_ListObjGetElements (Tcl_Interp * interp,
+ Tcl_Obj * listPtr, int * objcPtr,
Tcl_Obj *** objvPtr);
#endif
#ifndef Tcl_ListObjIndex_TCL_DECLARED
#define Tcl_ListObjIndex_TCL_DECLARED
/* 46 */
-EXTERN int Tcl_ListObjIndex (Tcl_Interp * interp,
- Tcl_Obj * listPtr, int index,
+EXTERN int Tcl_ListObjIndex (Tcl_Interp * interp,
+ Tcl_Obj * listPtr, int index,
Tcl_Obj ** objPtrPtr);
#endif
#ifndef Tcl_ListObjLength_TCL_DECLARED
#define Tcl_ListObjLength_TCL_DECLARED
/* 47 */
-EXTERN int Tcl_ListObjLength (Tcl_Interp * interp,
+EXTERN int Tcl_ListObjLength (Tcl_Interp * interp,
Tcl_Obj * listPtr, int * lengthPtr);
#endif
#ifndef Tcl_ListObjReplace_TCL_DECLARED
#define Tcl_ListObjReplace_TCL_DECLARED
/* 48 */
-EXTERN int Tcl_ListObjReplace (Tcl_Interp * interp,
- Tcl_Obj * listPtr, int first, int count,
- int objc, Tcl_Obj *CONST objv[]);
+EXTERN int Tcl_ListObjReplace (Tcl_Interp * interp,
+ Tcl_Obj * listPtr, int first, int count,
+ int objc, Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_NewBooleanObj_TCL_DECLARED
#define Tcl_NewBooleanObj_TCL_DECLARED
@@ -351,7 +351,7 @@ EXTERN Tcl_Obj * Tcl_NewBooleanObj (int boolValue);
#ifndef Tcl_NewByteArrayObj_TCL_DECLARED
#define Tcl_NewByteArrayObj_TCL_DECLARED
/* 50 */
-EXTERN Tcl_Obj * Tcl_NewByteArrayObj (CONST unsigned char* bytes,
+EXTERN Tcl_Obj * Tcl_NewByteArrayObj (const unsigned char* bytes,
int length);
#endif
#ifndef Tcl_NewDoubleObj_TCL_DECLARED
@@ -367,7 +367,7 @@ EXTERN Tcl_Obj * Tcl_NewIntObj (int intValue);
#ifndef Tcl_NewListObj_TCL_DECLARED
#define Tcl_NewListObj_TCL_DECLARED
/* 53 */
-EXTERN Tcl_Obj * Tcl_NewListObj (int objc, Tcl_Obj *CONST objv[]);
+EXTERN Tcl_Obj * Tcl_NewListObj (int objc, Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_NewLongObj_TCL_DECLARED
#define Tcl_NewLongObj_TCL_DECLARED
@@ -382,7 +382,7 @@ EXTERN Tcl_Obj * Tcl_NewObj (void);
#ifndef Tcl_NewStringObj_TCL_DECLARED
#define Tcl_NewStringObj_TCL_DECLARED
/* 56 */
-EXTERN Tcl_Obj * Tcl_NewStringObj (CONST char * bytes, int length);
+EXTERN Tcl_Obj * Tcl_NewStringObj (const char * bytes, int length);
#endif
#ifndef Tcl_SetBooleanObj_TCL_DECLARED
#define Tcl_SetBooleanObj_TCL_DECLARED
@@ -397,13 +397,13 @@ EXTERN unsigned char * Tcl_SetByteArrayLength (Tcl_Obj * objPtr, int length);
#ifndef Tcl_SetByteArrayObj_TCL_DECLARED
#define Tcl_SetByteArrayObj_TCL_DECLARED
/* 59 */
-EXTERN void Tcl_SetByteArrayObj (Tcl_Obj * objPtr,
- CONST unsigned char * bytes, int length);
+EXTERN void Tcl_SetByteArrayObj (Tcl_Obj * objPtr,
+ const unsigned char * bytes, int length);
#endif
#ifndef Tcl_SetDoubleObj_TCL_DECLARED
#define Tcl_SetDoubleObj_TCL_DECLARED
/* 60 */
-EXTERN void Tcl_SetDoubleObj (Tcl_Obj * objPtr,
+EXTERN void Tcl_SetDoubleObj (Tcl_Obj * objPtr,
double doubleValue);
#endif
#ifndef Tcl_SetIntObj_TCL_DECLARED
@@ -414,8 +414,8 @@ EXTERN void Tcl_SetIntObj (Tcl_Obj * objPtr, int intValue);
#ifndef Tcl_SetListObj_TCL_DECLARED
#define Tcl_SetListObj_TCL_DECLARED
/* 62 */
-EXTERN void Tcl_SetListObj (Tcl_Obj * objPtr, int objc,
- Tcl_Obj *CONST objv[]);
+EXTERN void Tcl_SetListObj (Tcl_Obj * objPtr, int objc,
+ Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_SetLongObj_TCL_DECLARED
#define Tcl_SetLongObj_TCL_DECLARED
@@ -430,20 +430,20 @@ EXTERN void Tcl_SetObjLength (Tcl_Obj * objPtr, int length);
#ifndef Tcl_SetStringObj_TCL_DECLARED
#define Tcl_SetStringObj_TCL_DECLARED
/* 65 */
-EXTERN void Tcl_SetStringObj (Tcl_Obj* objPtr, CONST char* bytes,
+EXTERN void Tcl_SetStringObj (Tcl_Obj* objPtr, const char* bytes,
int length);
#endif
#ifndef Tcl_AddErrorInfo_TCL_DECLARED
#define Tcl_AddErrorInfo_TCL_DECLARED
/* 66 */
-EXTERN void Tcl_AddErrorInfo (Tcl_Interp * interp,
- CONST char * message);
+EXTERN void Tcl_AddErrorInfo (Tcl_Interp * interp,
+ const char * message);
#endif
#ifndef Tcl_AddObjErrorInfo_TCL_DECLARED
#define Tcl_AddObjErrorInfo_TCL_DECLARED
/* 67 */
-EXTERN void Tcl_AddObjErrorInfo (Tcl_Interp * interp,
- CONST char * message, int length);
+EXTERN void Tcl_AddObjErrorInfo (Tcl_Interp * interp,
+ const char * message, int length);
#endif
#ifndef Tcl_AllowExceptions_TCL_DECLARED
#define Tcl_AllowExceptions_TCL_DECLARED
@@ -453,8 +453,8 @@ EXTERN void Tcl_AllowExceptions (Tcl_Interp * interp);
#ifndef Tcl_AppendElement_TCL_DECLARED
#define Tcl_AppendElement_TCL_DECLARED
/* 69 */
-EXTERN void Tcl_AppendElement (Tcl_Interp * interp,
- CONST char * element);
+EXTERN void Tcl_AppendElement (Tcl_Interp * interp,
+ const char * element);
#endif
#ifndef Tcl_AppendResult_TCL_DECLARED
#define Tcl_AppendResult_TCL_DECLARED
@@ -464,7 +464,7 @@ EXTERN void Tcl_AppendResult (Tcl_Interp * interp, ...);
#ifndef Tcl_AsyncCreate_TCL_DECLARED
#define Tcl_AsyncCreate_TCL_DECLARED
/* 71 */
-EXTERN Tcl_AsyncHandler Tcl_AsyncCreate (Tcl_AsyncProc * proc,
+EXTERN Tcl_AsyncHandler Tcl_AsyncCreate (Tcl_AsyncProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_AsyncDelete_TCL_DECLARED
@@ -495,26 +495,26 @@ EXTERN void Tcl_BackgroundError (Tcl_Interp * interp);
#ifndef Tcl_Backslash_TCL_DECLARED
#define Tcl_Backslash_TCL_DECLARED
/* 77 */
-EXTERN char Tcl_Backslash (CONST char * src, int * readPtr);
+EXTERN char Tcl_Backslash (const char * src, int * readPtr);
#endif
#ifndef Tcl_BadChannelOption_TCL_DECLARED
#define Tcl_BadChannelOption_TCL_DECLARED
/* 78 */
-EXTERN int Tcl_BadChannelOption (Tcl_Interp * interp,
- CONST char * optionName,
- CONST char * optionList);
+EXTERN int Tcl_BadChannelOption (Tcl_Interp * interp,
+ const char * optionName,
+ const char * optionList);
#endif
#ifndef Tcl_CallWhenDeleted_TCL_DECLARED
#define Tcl_CallWhenDeleted_TCL_DECLARED
/* 79 */
-EXTERN void Tcl_CallWhenDeleted (Tcl_Interp * interp,
- Tcl_InterpDeleteProc * proc,
+EXTERN void Tcl_CallWhenDeleted (Tcl_Interp * interp,
+ Tcl_InterpDeleteProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_CancelIdleCall_TCL_DECLARED
#define Tcl_CancelIdleCall_TCL_DECLARED
/* 80 */
-EXTERN void Tcl_CancelIdleCall (Tcl_IdleProc * idleProc,
+EXTERN void Tcl_CancelIdleCall (Tcl_IdleProc * idleProc,
ClientData clientData);
#endif
#ifndef Tcl_Close_TCL_DECLARED
@@ -525,81 +525,81 @@ EXTERN int Tcl_Close (Tcl_Interp * interp, Tcl_Channel chan);
#ifndef Tcl_CommandComplete_TCL_DECLARED
#define Tcl_CommandComplete_TCL_DECLARED
/* 82 */
-EXTERN int Tcl_CommandComplete (CONST char * cmd);
+EXTERN int Tcl_CommandComplete (const char * cmd);
#endif
#ifndef Tcl_Concat_TCL_DECLARED
#define Tcl_Concat_TCL_DECLARED
/* 83 */
-EXTERN char * Tcl_Concat (int argc, CONST84 char * CONST * argv);
+EXTERN char * Tcl_Concat (int argc, CONST84 char * const * argv);
#endif
#ifndef Tcl_ConvertElement_TCL_DECLARED
#define Tcl_ConvertElement_TCL_DECLARED
/* 84 */
-EXTERN int Tcl_ConvertElement (CONST char * src, char * dst,
+EXTERN int Tcl_ConvertElement (const char * src, char * dst,
int flags);
#endif
#ifndef Tcl_ConvertCountedElement_TCL_DECLARED
#define Tcl_ConvertCountedElement_TCL_DECLARED
/* 85 */
-EXTERN int Tcl_ConvertCountedElement (CONST char * src,
+EXTERN int Tcl_ConvertCountedElement (const char * src,
int length, char * dst, int flags);
#endif
#ifndef Tcl_CreateAlias_TCL_DECLARED
#define Tcl_CreateAlias_TCL_DECLARED
/* 86 */
-EXTERN int Tcl_CreateAlias (Tcl_Interp * slave,
- CONST char * slaveCmd, Tcl_Interp * target,
- CONST char * targetCmd, int argc,
- CONST84 char * CONST * argv);
+EXTERN int Tcl_CreateAlias (Tcl_Interp * slave,
+ const char * slaveCmd, Tcl_Interp * target,
+ const char * targetCmd, int argc,
+ CONST84 char * const * argv);
#endif
#ifndef Tcl_CreateAliasObj_TCL_DECLARED
#define Tcl_CreateAliasObj_TCL_DECLARED
/* 87 */
-EXTERN int Tcl_CreateAliasObj (Tcl_Interp * slave,
- CONST char * slaveCmd, Tcl_Interp * target,
- CONST char * targetCmd, int objc,
- Tcl_Obj *CONST objv[]);
+EXTERN int Tcl_CreateAliasObj (Tcl_Interp * slave,
+ const char * slaveCmd, Tcl_Interp * target,
+ const char * targetCmd, int objc,
+ Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_CreateChannel_TCL_DECLARED
#define Tcl_CreateChannel_TCL_DECLARED
/* 88 */
-EXTERN Tcl_Channel Tcl_CreateChannel (CONST Tcl_ChannelType * typePtr,
- CONST char * chanName,
+EXTERN Tcl_Channel Tcl_CreateChannel (const Tcl_ChannelType * typePtr,
+ const char * chanName,
ClientData instanceData, int mask);
#endif
#ifndef Tcl_CreateChannelHandler_TCL_DECLARED
#define Tcl_CreateChannelHandler_TCL_DECLARED
/* 89 */
-EXTERN void Tcl_CreateChannelHandler (Tcl_Channel chan, int mask,
- Tcl_ChannelProc * proc,
+EXTERN void Tcl_CreateChannelHandler (Tcl_Channel chan, int mask,
+ Tcl_ChannelProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_CreateCloseHandler_TCL_DECLARED
#define Tcl_CreateCloseHandler_TCL_DECLARED
/* 90 */
-EXTERN void Tcl_CreateCloseHandler (Tcl_Channel chan,
+EXTERN void Tcl_CreateCloseHandler (Tcl_Channel chan,
Tcl_CloseProc * proc, ClientData clientData);
#endif
#ifndef Tcl_CreateCommand_TCL_DECLARED
#define Tcl_CreateCommand_TCL_DECLARED
/* 91 */
-EXTERN Tcl_Command Tcl_CreateCommand (Tcl_Interp * interp,
- CONST char * cmdName, Tcl_CmdProc * proc,
- ClientData clientData,
+EXTERN Tcl_Command Tcl_CreateCommand (Tcl_Interp * interp,
+ const char * cmdName, Tcl_CmdProc * proc,
+ ClientData clientData,
Tcl_CmdDeleteProc * deleteProc);
#endif
#ifndef Tcl_CreateEventSource_TCL_DECLARED
#define Tcl_CreateEventSource_TCL_DECLARED
/* 92 */
EXTERN void Tcl_CreateEventSource (
- Tcl_EventSetupProc * setupProc,
- Tcl_EventCheckProc * checkProc,
+ Tcl_EventSetupProc * setupProc,
+ Tcl_EventCheckProc * checkProc,
ClientData clientData);
#endif
#ifndef Tcl_CreateExitHandler_TCL_DECLARED
#define Tcl_CreateExitHandler_TCL_DECLARED
/* 93 */
-EXTERN void Tcl_CreateExitHandler (Tcl_ExitProc * proc,
+EXTERN void Tcl_CreateExitHandler (Tcl_ExitProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_CreateInterp_TCL_DECLARED
@@ -610,87 +610,87 @@ EXTERN Tcl_Interp * Tcl_CreateInterp (void);
#ifndef Tcl_CreateMathFunc_TCL_DECLARED
#define Tcl_CreateMathFunc_TCL_DECLARED
/* 95 */
-EXTERN void Tcl_CreateMathFunc (Tcl_Interp * interp,
- CONST char * name, int numArgs,
- Tcl_ValueType * argTypes,
+EXTERN void Tcl_CreateMathFunc (Tcl_Interp * interp,
+ const char * name, int numArgs,
+ Tcl_ValueType * argTypes,
Tcl_MathProc * proc, ClientData clientData);
#endif
#ifndef Tcl_CreateObjCommand_TCL_DECLARED
#define Tcl_CreateObjCommand_TCL_DECLARED
/* 96 */
-EXTERN Tcl_Command Tcl_CreateObjCommand (Tcl_Interp * interp,
- CONST char * cmdName, Tcl_ObjCmdProc * proc,
- ClientData clientData,
+EXTERN Tcl_Command Tcl_CreateObjCommand (Tcl_Interp * interp,
+ const char * cmdName, Tcl_ObjCmdProc * proc,
+ ClientData clientData,
Tcl_CmdDeleteProc * deleteProc);
#endif
#ifndef Tcl_CreateSlave_TCL_DECLARED
#define Tcl_CreateSlave_TCL_DECLARED
/* 97 */
-EXTERN Tcl_Interp * Tcl_CreateSlave (Tcl_Interp * interp,
- CONST char * slaveName, int isSafe);
+EXTERN Tcl_Interp * Tcl_CreateSlave (Tcl_Interp * interp,
+ const char * slaveName, int isSafe);
#endif
#ifndef Tcl_CreateTimerHandler_TCL_DECLARED
#define Tcl_CreateTimerHandler_TCL_DECLARED
/* 98 */
-EXTERN Tcl_TimerToken Tcl_CreateTimerHandler (int milliseconds,
+EXTERN Tcl_TimerToken Tcl_CreateTimerHandler (int milliseconds,
Tcl_TimerProc * proc, ClientData clientData);
#endif
#ifndef Tcl_CreateTrace_TCL_DECLARED
#define Tcl_CreateTrace_TCL_DECLARED
/* 99 */
-EXTERN Tcl_Trace Tcl_CreateTrace (Tcl_Interp * interp, int level,
- Tcl_CmdTraceProc * proc,
+EXTERN Tcl_Trace Tcl_CreateTrace (Tcl_Interp * interp, int level,
+ Tcl_CmdTraceProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_DeleteAssocData_TCL_DECLARED
#define Tcl_DeleteAssocData_TCL_DECLARED
/* 100 */
-EXTERN void Tcl_DeleteAssocData (Tcl_Interp * interp,
- CONST char * name);
+EXTERN void Tcl_DeleteAssocData (Tcl_Interp * interp,
+ const char * name);
#endif
#ifndef Tcl_DeleteChannelHandler_TCL_DECLARED
#define Tcl_DeleteChannelHandler_TCL_DECLARED
/* 101 */
-EXTERN void Tcl_DeleteChannelHandler (Tcl_Channel chan,
- Tcl_ChannelProc * proc,
+EXTERN void Tcl_DeleteChannelHandler (Tcl_Channel chan,
+ Tcl_ChannelProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_DeleteCloseHandler_TCL_DECLARED
#define Tcl_DeleteCloseHandler_TCL_DECLARED
/* 102 */
-EXTERN void Tcl_DeleteCloseHandler (Tcl_Channel chan,
+EXTERN void Tcl_DeleteCloseHandler (Tcl_Channel chan,
Tcl_CloseProc * proc, ClientData clientData);
#endif
#ifndef Tcl_DeleteCommand_TCL_DECLARED
#define Tcl_DeleteCommand_TCL_DECLARED
/* 103 */
-EXTERN int Tcl_DeleteCommand (Tcl_Interp * interp,
- CONST char * cmdName);
+EXTERN int Tcl_DeleteCommand (Tcl_Interp * interp,
+ const char * cmdName);
#endif
#ifndef Tcl_DeleteCommandFromToken_TCL_DECLARED
#define Tcl_DeleteCommandFromToken_TCL_DECLARED
/* 104 */
-EXTERN int Tcl_DeleteCommandFromToken (Tcl_Interp * interp,
+EXTERN int Tcl_DeleteCommandFromToken (Tcl_Interp * interp,
Tcl_Command command);
#endif
#ifndef Tcl_DeleteEvents_TCL_DECLARED
#define Tcl_DeleteEvents_TCL_DECLARED
/* 105 */
-EXTERN void Tcl_DeleteEvents (Tcl_EventDeleteProc * proc,
+EXTERN void Tcl_DeleteEvents (Tcl_EventDeleteProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_DeleteEventSource_TCL_DECLARED
#define Tcl_DeleteEventSource_TCL_DECLARED
/* 106 */
EXTERN void Tcl_DeleteEventSource (
- Tcl_EventSetupProc * setupProc,
- Tcl_EventCheckProc * checkProc,
+ Tcl_EventSetupProc * setupProc,
+ Tcl_EventCheckProc * checkProc,
ClientData clientData);
#endif
#ifndef Tcl_DeleteExitHandler_TCL_DECLARED
#define Tcl_DeleteExitHandler_TCL_DECLARED
/* 107 */
-EXTERN void Tcl_DeleteExitHandler (Tcl_ExitProc * proc,
+EXTERN void Tcl_DeleteExitHandler (Tcl_ExitProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_DeleteHashEntry_TCL_DECLARED
@@ -737,14 +737,14 @@ EXTERN void Tcl_DeleteTimerHandler (Tcl_TimerToken token);
#ifndef Tcl_DeleteTrace_TCL_DECLARED
#define Tcl_DeleteTrace_TCL_DECLARED
/* 113 */
-EXTERN void Tcl_DeleteTrace (Tcl_Interp * interp,
+EXTERN void Tcl_DeleteTrace (Tcl_Interp * interp,
Tcl_Trace trace);
#endif
#ifndef Tcl_DontCallWhenDeleted_TCL_DECLARED
#define Tcl_DontCallWhenDeleted_TCL_DECLARED
/* 114 */
-EXTERN void Tcl_DontCallWhenDeleted (Tcl_Interp * interp,
- Tcl_InterpDeleteProc * proc,
+EXTERN void Tcl_DontCallWhenDeleted (Tcl_Interp * interp,
+ Tcl_InterpDeleteProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_DoOneEvent_TCL_DECLARED
@@ -755,20 +755,20 @@ EXTERN int Tcl_DoOneEvent (int flags);
#ifndef Tcl_DoWhenIdle_TCL_DECLARED
#define Tcl_DoWhenIdle_TCL_DECLARED
/* 116 */
-EXTERN void Tcl_DoWhenIdle (Tcl_IdleProc * proc,
+EXTERN void Tcl_DoWhenIdle (Tcl_IdleProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_DStringAppend_TCL_DECLARED
#define Tcl_DStringAppend_TCL_DECLARED
/* 117 */
-EXTERN char * Tcl_DStringAppend (Tcl_DString * dsPtr,
- CONST char * bytes, int length);
+EXTERN char * Tcl_DStringAppend (Tcl_DString * dsPtr,
+ const char * bytes, int length);
#endif
#ifndef Tcl_DStringAppendElement_TCL_DECLARED
#define Tcl_DStringAppendElement_TCL_DECLARED
/* 118 */
-EXTERN char * Tcl_DStringAppendElement (Tcl_DString * dsPtr,
- CONST char * element);
+EXTERN char * Tcl_DStringAppendElement (Tcl_DString * dsPtr,
+ const char * element);
#endif
#ifndef Tcl_DStringEndSublist_TCL_DECLARED
#define Tcl_DStringEndSublist_TCL_DECLARED
@@ -783,7 +783,7 @@ EXTERN void Tcl_DStringFree (Tcl_DString * dsPtr);
#ifndef Tcl_DStringGetResult_TCL_DECLARED
#define Tcl_DStringGetResult_TCL_DECLARED
/* 121 */
-EXTERN void Tcl_DStringGetResult (Tcl_Interp * interp,
+EXTERN void Tcl_DStringGetResult (Tcl_Interp * interp,
Tcl_DString * dsPtr);
#endif
#ifndef Tcl_DStringInit_TCL_DECLARED
@@ -794,13 +794,13 @@ EXTERN void Tcl_DStringInit (Tcl_DString * dsPtr);
#ifndef Tcl_DStringResult_TCL_DECLARED
#define Tcl_DStringResult_TCL_DECLARED
/* 123 */
-EXTERN void Tcl_DStringResult (Tcl_Interp * interp,
+EXTERN void Tcl_DStringResult (Tcl_Interp * interp,
Tcl_DString * dsPtr);
#endif
#ifndef Tcl_DStringSetLength_TCL_DECLARED
#define Tcl_DStringSetLength_TCL_DECLARED
/* 124 */
-EXTERN void Tcl_DStringSetLength (Tcl_DString * dsPtr,
+EXTERN void Tcl_DStringSetLength (Tcl_DString * dsPtr,
int length);
#endif
#ifndef Tcl_DStringStartSublist_TCL_DECLARED
@@ -826,13 +826,13 @@ EXTERN CONST84_RETURN char * Tcl_ErrnoMsg (int err);
#ifndef Tcl_Eval_TCL_DECLARED
#define Tcl_Eval_TCL_DECLARED
/* 129 */
-EXTERN int Tcl_Eval (Tcl_Interp * interp, CONST char * script);
+EXTERN int Tcl_Eval (Tcl_Interp * interp, const char * script);
#endif
#ifndef Tcl_EvalFile_TCL_DECLARED
#define Tcl_EvalFile_TCL_DECLARED
/* 130 */
-EXTERN int Tcl_EvalFile (Tcl_Interp * interp,
- CONST char * fileName);
+EXTERN int Tcl_EvalFile (Tcl_Interp * interp,
+ const char * fileName);
#endif
#ifndef Tcl_EvalObj_TCL_DECLARED
#define Tcl_EvalObj_TCL_DECLARED
@@ -842,7 +842,7 @@ EXTERN int Tcl_EvalObj (Tcl_Interp * interp, Tcl_Obj * objPtr);
#ifndef Tcl_EventuallyFree_TCL_DECLARED
#define Tcl_EventuallyFree_TCL_DECLARED
/* 132 */
-EXTERN void Tcl_EventuallyFree (ClientData clientData,
+EXTERN void Tcl_EventuallyFree (ClientData clientData,
Tcl_FreeProc * freeProc);
#endif
#ifndef Tcl_Exit_TCL_DECLARED
@@ -853,57 +853,57 @@ EXTERN void Tcl_Exit (int status);
#ifndef Tcl_ExposeCommand_TCL_DECLARED
#define Tcl_ExposeCommand_TCL_DECLARED
/* 134 */
-EXTERN int Tcl_ExposeCommand (Tcl_Interp * interp,
- CONST char * hiddenCmdToken,
- CONST char * cmdName);
+EXTERN int Tcl_ExposeCommand (Tcl_Interp * interp,
+ const char * hiddenCmdToken,
+ const char * cmdName);
#endif
#ifndef Tcl_ExprBoolean_TCL_DECLARED
#define Tcl_ExprBoolean_TCL_DECLARED
/* 135 */
-EXTERN int Tcl_ExprBoolean (Tcl_Interp * interp,
- CONST char * expr, int * ptr);
+EXTERN int Tcl_ExprBoolean (Tcl_Interp * interp,
+ const char * expr, int * ptr);
#endif
#ifndef Tcl_ExprBooleanObj_TCL_DECLARED
#define Tcl_ExprBooleanObj_TCL_DECLARED
/* 136 */
-EXTERN int Tcl_ExprBooleanObj (Tcl_Interp * interp,
+EXTERN int Tcl_ExprBooleanObj (Tcl_Interp * interp,
Tcl_Obj * objPtr, int * ptr);
#endif
#ifndef Tcl_ExprDouble_TCL_DECLARED
#define Tcl_ExprDouble_TCL_DECLARED
/* 137 */
-EXTERN int Tcl_ExprDouble (Tcl_Interp * interp,
- CONST char * expr, double * ptr);
+EXTERN int Tcl_ExprDouble (Tcl_Interp * interp,
+ const char * expr, double * ptr);
#endif
#ifndef Tcl_ExprDoubleObj_TCL_DECLARED
#define Tcl_ExprDoubleObj_TCL_DECLARED
/* 138 */
-EXTERN int Tcl_ExprDoubleObj (Tcl_Interp * interp,
+EXTERN int Tcl_ExprDoubleObj (Tcl_Interp * interp,
Tcl_Obj * objPtr, double * ptr);
#endif
#ifndef Tcl_ExprLong_TCL_DECLARED
#define Tcl_ExprLong_TCL_DECLARED
/* 139 */
-EXTERN int Tcl_ExprLong (Tcl_Interp * interp, CONST char * expr,
+EXTERN int Tcl_ExprLong (Tcl_Interp * interp, const char * expr,
long * ptr);
#endif
#ifndef Tcl_ExprLongObj_TCL_DECLARED
#define Tcl_ExprLongObj_TCL_DECLARED
/* 140 */
-EXTERN int Tcl_ExprLongObj (Tcl_Interp * interp,
+EXTERN int Tcl_ExprLongObj (Tcl_Interp * interp,
Tcl_Obj * objPtr, long * ptr);
#endif
#ifndef Tcl_ExprObj_TCL_DECLARED
#define Tcl_ExprObj_TCL_DECLARED
/* 141 */
-EXTERN int Tcl_ExprObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
+EXTERN int Tcl_ExprObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
Tcl_Obj ** resultPtrPtr);
#endif
#ifndef Tcl_ExprString_TCL_DECLARED
#define Tcl_ExprString_TCL_DECLARED
/* 142 */
-EXTERN int Tcl_ExprString (Tcl_Interp * interp,
- CONST char * expr);
+EXTERN int Tcl_ExprString (Tcl_Interp * interp,
+ const char * expr);
#endif
#ifndef Tcl_Finalize_TCL_DECLARED
#define Tcl_Finalize_TCL_DECLARED
@@ -913,12 +913,12 @@ EXTERN void Tcl_Finalize (void);
#ifndef Tcl_FindExecutable_TCL_DECLARED
#define Tcl_FindExecutable_TCL_DECLARED
/* 144 */
-EXTERN void Tcl_FindExecutable (CONST char * argv0);
+EXTERN void Tcl_FindExecutable (const char * argv0);
#endif
#ifndef Tcl_FirstHashEntry_TCL_DECLARED
#define Tcl_FirstHashEntry_TCL_DECLARED
/* 145 */
-EXTERN Tcl_HashEntry * Tcl_FirstHashEntry (Tcl_HashTable * tablePtr,
+EXTERN Tcl_HashEntry * Tcl_FirstHashEntry (Tcl_HashTable * tablePtr,
Tcl_HashSearch * searchPtr);
#endif
#ifndef Tcl_Flush_TCL_DECLARED
@@ -934,33 +934,33 @@ EXTERN void Tcl_FreeResult (Tcl_Interp * interp);
#ifndef Tcl_GetAlias_TCL_DECLARED
#define Tcl_GetAlias_TCL_DECLARED
/* 148 */
-EXTERN int Tcl_GetAlias (Tcl_Interp * interp,
- CONST char * slaveCmd,
- Tcl_Interp ** targetInterpPtr,
- CONST84 char ** targetCmdPtr, int * argcPtr,
+EXTERN int Tcl_GetAlias (Tcl_Interp * interp,
+ const char * slaveCmd,
+ Tcl_Interp ** targetInterpPtr,
+ CONST84 char ** targetCmdPtr, int * argcPtr,
CONST84 char *** argvPtr);
#endif
#ifndef Tcl_GetAliasObj_TCL_DECLARED
#define Tcl_GetAliasObj_TCL_DECLARED
/* 149 */
-EXTERN int Tcl_GetAliasObj (Tcl_Interp * interp,
- CONST char * slaveCmd,
- Tcl_Interp ** targetInterpPtr,
- CONST84 char ** targetCmdPtr, int * objcPtr,
+EXTERN int Tcl_GetAliasObj (Tcl_Interp * interp,
+ const char * slaveCmd,
+ Tcl_Interp ** targetInterpPtr,
+ CONST84 char ** targetCmdPtr, int * objcPtr,
Tcl_Obj *** objv);
#endif
#ifndef Tcl_GetAssocData_TCL_DECLARED
#define Tcl_GetAssocData_TCL_DECLARED
/* 150 */
-EXTERN ClientData Tcl_GetAssocData (Tcl_Interp * interp,
- CONST char * name,
+EXTERN ClientData Tcl_GetAssocData (Tcl_Interp * interp,
+ const char * name,
Tcl_InterpDeleteProc ** procPtr);
#endif
#ifndef Tcl_GetChannel_TCL_DECLARED
#define Tcl_GetChannel_TCL_DECLARED
/* 151 */
-EXTERN Tcl_Channel Tcl_GetChannel (Tcl_Interp * interp,
- CONST char * chanName, int * modePtr);
+EXTERN Tcl_Channel Tcl_GetChannel (Tcl_Interp * interp,
+ const char * chanName, int * modePtr);
#endif
#ifndef Tcl_GetChannelBufferSize_TCL_DECLARED
#define Tcl_GetChannelBufferSize_TCL_DECLARED
@@ -970,7 +970,7 @@ EXTERN int Tcl_GetChannelBufferSize (Tcl_Channel chan);
#ifndef Tcl_GetChannelHandle_TCL_DECLARED
#define Tcl_GetChannelHandle_TCL_DECLARED
/* 153 */
-EXTERN int Tcl_GetChannelHandle (Tcl_Channel chan,
+EXTERN int Tcl_GetChannelHandle (Tcl_Channel chan,
int direction, ClientData * handlePtr);
#endif
#ifndef Tcl_GetChannelInstanceData_TCL_DECLARED
@@ -991,8 +991,8 @@ EXTERN CONST84_RETURN char * Tcl_GetChannelName (Tcl_Channel chan);
#ifndef Tcl_GetChannelOption_TCL_DECLARED
#define Tcl_GetChannelOption_TCL_DECLARED
/* 157 */
-EXTERN int Tcl_GetChannelOption (Tcl_Interp * interp,
- Tcl_Channel chan, CONST char * optionName,
+EXTERN int Tcl_GetChannelOption (Tcl_Interp * interp,
+ Tcl_Channel chan, const char * optionName,
Tcl_DString * dsPtr);
#endif
#ifndef Tcl_GetChannelType_TCL_DECLARED
@@ -1003,13 +1003,13 @@ EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType (Tcl_Channel chan);
#ifndef Tcl_GetCommandInfo_TCL_DECLARED
#define Tcl_GetCommandInfo_TCL_DECLARED
/* 159 */
-EXTERN int Tcl_GetCommandInfo (Tcl_Interp * interp,
- CONST char * cmdName, Tcl_CmdInfo * infoPtr);
+EXTERN int Tcl_GetCommandInfo (Tcl_Interp * interp,
+ const char * cmdName, Tcl_CmdInfo * infoPtr);
#endif
#ifndef Tcl_GetCommandName_TCL_DECLARED
#define Tcl_GetCommandName_TCL_DECLARED
/* 160 */
-EXTERN CONST84_RETURN char * Tcl_GetCommandName (Tcl_Interp * interp,
+EXTERN CONST84_RETURN char * Tcl_GetCommandName (Tcl_Interp * interp,
Tcl_Command command);
#endif
#ifndef Tcl_GetErrno_TCL_DECLARED
@@ -1025,7 +1025,7 @@ EXTERN CONST84_RETURN char * Tcl_GetHostName (void);
#ifndef Tcl_GetInterpPath_TCL_DECLARED
#define Tcl_GetInterpPath_TCL_DECLARED
/* 163 */
-EXTERN int Tcl_GetInterpPath (Tcl_Interp * askInterp,
+EXTERN int Tcl_GetInterpPath (Tcl_Interp * askInterp,
Tcl_Interp * slaveInterp);
#endif
#ifndef Tcl_GetMaster_TCL_DECLARED
@@ -1036,7 +1036,7 @@ EXTERN Tcl_Interp * Tcl_GetMaster (Tcl_Interp * interp);
#ifndef Tcl_GetNameOfExecutable_TCL_DECLARED
#define Tcl_GetNameOfExecutable_TCL_DECLARED
/* 165 */
-EXTERN CONST char * Tcl_GetNameOfExecutable (void);
+EXTERN const char * Tcl_GetNameOfExecutable (void);
#endif
#ifndef Tcl_GetObjResult_TCL_DECLARED
#define Tcl_GetObjResult_TCL_DECLARED
@@ -1047,8 +1047,8 @@ EXTERN Tcl_Obj * Tcl_GetObjResult (Tcl_Interp * interp);
#ifndef Tcl_GetOpenFile_TCL_DECLARED
#define Tcl_GetOpenFile_TCL_DECLARED
/* 167 */
-EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp,
- CONST char * chanID, int forWriting,
+EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp,
+ const char * chanID, int forWriting,
int checkUsage, ClientData * filePtr);
#endif
#endif /* UNIX */
@@ -1056,15 +1056,15 @@ EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp,
#ifndef Tcl_GetOpenFile_TCL_DECLARED
#define Tcl_GetOpenFile_TCL_DECLARED
/* 167 */
-EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp,
- CONST char * chanID, int forWriting,
+EXTERN int Tcl_GetOpenFile (Tcl_Interp * interp,
+ const char * chanID, int forWriting,
int checkUsage, ClientData * filePtr);
#endif
#endif /* MACOSX */
#ifndef Tcl_GetPathType_TCL_DECLARED
#define Tcl_GetPathType_TCL_DECLARED
/* 168 */
-EXTERN Tcl_PathType Tcl_GetPathType (CONST char * path);
+EXTERN Tcl_PathType Tcl_GetPathType (const char * path);
#endif
#ifndef Tcl_Gets_TCL_DECLARED
#define Tcl_Gets_TCL_DECLARED
@@ -1084,8 +1084,8 @@ EXTERN int Tcl_GetServiceMode (void);
#ifndef Tcl_GetSlave_TCL_DECLARED
#define Tcl_GetSlave_TCL_DECLARED
/* 172 */
-EXTERN Tcl_Interp * Tcl_GetSlave (Tcl_Interp * interp,
- CONST char * slaveName);
+EXTERN Tcl_Interp * Tcl_GetSlave (Tcl_Interp * interp,
+ const char * slaveName);
#endif
#ifndef Tcl_GetStdChannel_TCL_DECLARED
#define Tcl_GetStdChannel_TCL_DECLARED
@@ -1100,34 +1100,34 @@ EXTERN CONST84_RETURN char * Tcl_GetStringResult (Tcl_Interp * interp);
#ifndef Tcl_GetVar_TCL_DECLARED
#define Tcl_GetVar_TCL_DECLARED
/* 175 */
-EXTERN CONST84_RETURN char * Tcl_GetVar (Tcl_Interp * interp,
- CONST char * varName, int flags);
+EXTERN CONST84_RETURN char * Tcl_GetVar (Tcl_Interp * interp,
+ const char * varName, int flags);
#endif
#ifndef Tcl_GetVar2_TCL_DECLARED
#define Tcl_GetVar2_TCL_DECLARED
/* 176 */
-EXTERN CONST84_RETURN char * Tcl_GetVar2 (Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
+EXTERN CONST84_RETURN char * Tcl_GetVar2 (Tcl_Interp * interp,
+ const char * part1, const char * part2,
int flags);
#endif
#ifndef Tcl_GlobalEval_TCL_DECLARED
#define Tcl_GlobalEval_TCL_DECLARED
/* 177 */
-EXTERN int Tcl_GlobalEval (Tcl_Interp * interp,
- CONST char * command);
+EXTERN int Tcl_GlobalEval (Tcl_Interp * interp,
+ const char * command);
#endif
#ifndef Tcl_GlobalEvalObj_TCL_DECLARED
#define Tcl_GlobalEvalObj_TCL_DECLARED
/* 178 */
-EXTERN int Tcl_GlobalEvalObj (Tcl_Interp * interp,
+EXTERN int Tcl_GlobalEvalObj (Tcl_Interp * interp,
Tcl_Obj * objPtr);
#endif
#ifndef Tcl_HideCommand_TCL_DECLARED
#define Tcl_HideCommand_TCL_DECLARED
/* 179 */
-EXTERN int Tcl_HideCommand (Tcl_Interp * interp,
- CONST char * cmdName,
- CONST char * hiddenCmdToken);
+EXTERN int Tcl_HideCommand (Tcl_Interp * interp,
+ const char * cmdName,
+ const char * hiddenCmdToken);
#endif
#ifndef Tcl_Init_TCL_DECLARED
#define Tcl_Init_TCL_DECLARED
@@ -1137,7 +1137,7 @@ EXTERN int Tcl_Init (Tcl_Interp * interp);
#ifndef Tcl_InitHashTable_TCL_DECLARED
#define Tcl_InitHashTable_TCL_DECLARED
/* 181 */
-EXTERN void Tcl_InitHashTable (Tcl_HashTable * tablePtr,
+EXTERN void Tcl_InitHashTable (Tcl_HashTable * tablePtr,
int keyType);
#endif
#ifndef Tcl_InputBlocked_TCL_DECLARED
@@ -1163,14 +1163,14 @@ EXTERN int Tcl_IsSafe (Tcl_Interp * interp);
#ifndef Tcl_JoinPath_TCL_DECLARED
#define Tcl_JoinPath_TCL_DECLARED
/* 186 */
-EXTERN char * Tcl_JoinPath (int argc, CONST84 char * CONST * argv,
+EXTERN char * Tcl_JoinPath (int argc, CONST84 char * const * argv,
Tcl_DString * resultPtr);
#endif
#ifndef Tcl_LinkVar_TCL_DECLARED
#define Tcl_LinkVar_TCL_DECLARED
/* 187 */
-EXTERN int Tcl_LinkVar (Tcl_Interp * interp,
- CONST char * varName, char * addr, int type);
+EXTERN int Tcl_LinkVar (Tcl_Interp * interp,
+ const char * varName, char * addr, int type);
#endif
/* Slot 188 is reserved */
#ifndef Tcl_MakeFileChannel_TCL_DECLARED
@@ -1191,7 +1191,7 @@ EXTERN Tcl_Channel Tcl_MakeTcpClientChannel (ClientData tcpSocket);
#ifndef Tcl_Merge_TCL_DECLARED
#define Tcl_Merge_TCL_DECLARED
/* 192 */
-EXTERN char * Tcl_Merge (int argc, CONST84 char * CONST * argv);
+EXTERN char * Tcl_Merge (int argc, CONST84 char * const * argv);
#endif
#ifndef Tcl_NextHashEntry_TCL_DECLARED
#define Tcl_NextHashEntry_TCL_DECLARED
@@ -1206,22 +1206,22 @@ EXTERN void Tcl_NotifyChannel (Tcl_Channel channel, int mask);
#ifndef Tcl_ObjGetVar2_TCL_DECLARED
#define Tcl_ObjGetVar2_TCL_DECLARED
/* 195 */
-EXTERN Tcl_Obj * Tcl_ObjGetVar2 (Tcl_Interp * interp,
- Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
+EXTERN Tcl_Obj * Tcl_ObjGetVar2 (Tcl_Interp * interp,
+ Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
int flags);
#endif
#ifndef Tcl_ObjSetVar2_TCL_DECLARED
#define Tcl_ObjSetVar2_TCL_DECLARED
/* 196 */
-EXTERN Tcl_Obj * Tcl_ObjSetVar2 (Tcl_Interp * interp,
- Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
+EXTERN Tcl_Obj * Tcl_ObjSetVar2 (Tcl_Interp * interp,
+ Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
Tcl_Obj * newValuePtr, int flags);
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#ifndef Tcl_OpenCommandChannel_TCL_DECLARED
#define Tcl_OpenCommandChannel_TCL_DECLARED
/* 197 */
-EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
+EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
int argc, CONST84 char ** argv, int flags);
#endif
#endif /* UNIX */
@@ -1229,7 +1229,7 @@ EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
#ifndef Tcl_OpenCommandChannel_TCL_DECLARED
#define Tcl_OpenCommandChannel_TCL_DECLARED
/* 197 */
-EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
+EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
int argc, CONST84 char ** argv, int flags);
#endif
#endif /* WIN */
@@ -1237,30 +1237,30 @@ EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
#ifndef Tcl_OpenCommandChannel_TCL_DECLARED
#define Tcl_OpenCommandChannel_TCL_DECLARED
/* 197 */
-EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
+EXTERN Tcl_Channel Tcl_OpenCommandChannel (Tcl_Interp * interp,
int argc, CONST84 char ** argv, int flags);
#endif
#endif /* MACOSX */
#ifndef Tcl_OpenFileChannel_TCL_DECLARED
#define Tcl_OpenFileChannel_TCL_DECLARED
/* 198 */
-EXTERN Tcl_Channel Tcl_OpenFileChannel (Tcl_Interp * interp,
- CONST char * fileName,
- CONST char * modeString, int permissions);
+EXTERN Tcl_Channel Tcl_OpenFileChannel (Tcl_Interp * interp,
+ const char * fileName,
+ const char * modeString, int permissions);
#endif
#ifndef Tcl_OpenTcpClient_TCL_DECLARED
#define Tcl_OpenTcpClient_TCL_DECLARED
/* 199 */
-EXTERN Tcl_Channel Tcl_OpenTcpClient (Tcl_Interp * interp, int port,
- CONST char * address, CONST char * myaddr,
+EXTERN Tcl_Channel Tcl_OpenTcpClient (Tcl_Interp * interp, int port,
+ const char * address, const char * myaddr,
int myport, int async);
#endif
#ifndef Tcl_OpenTcpServer_TCL_DECLARED
#define Tcl_OpenTcpServer_TCL_DECLARED
/* 200 */
-EXTERN Tcl_Channel Tcl_OpenTcpServer (Tcl_Interp * interp, int port,
- CONST char * host,
- Tcl_TcpAcceptProc * acceptProc,
+EXTERN Tcl_Channel Tcl_OpenTcpServer (Tcl_Interp * interp, int port,
+ const char * host,
+ Tcl_TcpAcceptProc * acceptProc,
ClientData callbackData);
#endif
#ifndef Tcl_Preserve_TCL_DECLARED
@@ -1271,13 +1271,13 @@ EXTERN void Tcl_Preserve (ClientData data);
#ifndef Tcl_PrintDouble_TCL_DECLARED
#define Tcl_PrintDouble_TCL_DECLARED
/* 202 */
-EXTERN void Tcl_PrintDouble (Tcl_Interp * interp, double value,
+EXTERN void Tcl_PrintDouble (Tcl_Interp * interp, double value,
char * dst);
#endif
#ifndef Tcl_PutEnv_TCL_DECLARED
#define Tcl_PutEnv_TCL_DECLARED
/* 203 */
-EXTERN int Tcl_PutEnv (CONST char * assignment);
+EXTERN int Tcl_PutEnv (const char * assignment);
#endif
#ifndef Tcl_PosixError_TCL_DECLARED
#define Tcl_PosixError_TCL_DECLARED
@@ -1287,13 +1287,13 @@ EXTERN CONST84_RETURN char * Tcl_PosixError (Tcl_Interp * interp);
#ifndef Tcl_QueueEvent_TCL_DECLARED
#define Tcl_QueueEvent_TCL_DECLARED
/* 205 */
-EXTERN void Tcl_QueueEvent (Tcl_Event * evPtr,
+EXTERN void Tcl_QueueEvent (Tcl_Event * evPtr,
Tcl_QueuePosition position);
#endif
#ifndef Tcl_Read_TCL_DECLARED
#define Tcl_Read_TCL_DECLARED
/* 206 */
-EXTERN int Tcl_Read (Tcl_Channel chan, char * bufPtr,
+EXTERN int Tcl_Read (Tcl_Channel chan, char * bufPtr,
int toRead);
#endif
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
@@ -1320,50 +1320,50 @@ EXTERN void Tcl_ReapDetachedProcs (void);
#ifndef Tcl_RecordAndEval_TCL_DECLARED
#define Tcl_RecordAndEval_TCL_DECLARED
/* 208 */
-EXTERN int Tcl_RecordAndEval (Tcl_Interp * interp,
- CONST char * cmd, int flags);
+EXTERN int Tcl_RecordAndEval (Tcl_Interp * interp,
+ const char * cmd, int flags);
#endif
#ifndef Tcl_RecordAndEvalObj_TCL_DECLARED
#define Tcl_RecordAndEvalObj_TCL_DECLARED
/* 209 */
-EXTERN int Tcl_RecordAndEvalObj (Tcl_Interp * interp,
+EXTERN int Tcl_RecordAndEvalObj (Tcl_Interp * interp,
Tcl_Obj * cmdPtr, int flags);
#endif
#ifndef Tcl_RegisterChannel_TCL_DECLARED
#define Tcl_RegisterChannel_TCL_DECLARED
/* 210 */
-EXTERN void Tcl_RegisterChannel (Tcl_Interp * interp,
+EXTERN void Tcl_RegisterChannel (Tcl_Interp * interp,
Tcl_Channel chan);
#endif
#ifndef Tcl_RegisterObjType_TCL_DECLARED
#define Tcl_RegisterObjType_TCL_DECLARED
/* 211 */
-EXTERN void Tcl_RegisterObjType (CONST Tcl_ObjType * typePtr);
+EXTERN void Tcl_RegisterObjType (const Tcl_ObjType * typePtr);
#endif
#ifndef Tcl_RegExpCompile_TCL_DECLARED
#define Tcl_RegExpCompile_TCL_DECLARED
/* 212 */
-EXTERN Tcl_RegExp Tcl_RegExpCompile (Tcl_Interp * interp,
- CONST char * pattern);
+EXTERN Tcl_RegExp Tcl_RegExpCompile (Tcl_Interp * interp,
+ const char * pattern);
#endif
#ifndef Tcl_RegExpExec_TCL_DECLARED
#define Tcl_RegExpExec_TCL_DECLARED
/* 213 */
-EXTERN int Tcl_RegExpExec (Tcl_Interp * interp,
- Tcl_RegExp regexp, CONST char * text,
- CONST char * start);
+EXTERN int Tcl_RegExpExec (Tcl_Interp * interp,
+ Tcl_RegExp regexp, const char * text,
+ const char * start);
#endif
#ifndef Tcl_RegExpMatch_TCL_DECLARED
#define Tcl_RegExpMatch_TCL_DECLARED
/* 214 */
-EXTERN int Tcl_RegExpMatch (Tcl_Interp * interp,
- CONST char * text, CONST char * pattern);
+EXTERN int Tcl_RegExpMatch (Tcl_Interp * interp,
+ const char * text, const char * pattern);
#endif
#ifndef Tcl_RegExpRange_TCL_DECLARED
#define Tcl_RegExpRange_TCL_DECLARED
/* 215 */
-EXTERN void Tcl_RegExpRange (Tcl_RegExp regexp, int index,
- CONST84 char ** startPtr,
+EXTERN void Tcl_RegExpRange (Tcl_RegExp regexp, int index,
+ CONST84 char ** startPtr,
CONST84 char ** endPtr);
#endif
#ifndef Tcl_Release_TCL_DECLARED
@@ -1379,12 +1379,12 @@ EXTERN void Tcl_ResetResult (Tcl_Interp * interp);
#ifndef Tcl_ScanElement_TCL_DECLARED
#define Tcl_ScanElement_TCL_DECLARED
/* 218 */
-EXTERN int Tcl_ScanElement (CONST char * str, int * flagPtr);
+EXTERN int Tcl_ScanElement (const char * str, int * flagPtr);
#endif
#ifndef Tcl_ScanCountedElement_TCL_DECLARED
#define Tcl_ScanCountedElement_TCL_DECLARED
/* 219 */
-EXTERN int Tcl_ScanCountedElement (CONST char * str, int length,
+EXTERN int Tcl_ScanCountedElement (const char * str, int length,
int * flagPtr);
#endif
#ifndef Tcl_SeekOld_TCL_DECLARED
@@ -1405,9 +1405,9 @@ EXTERN int Tcl_ServiceEvent (int flags);
#ifndef Tcl_SetAssocData_TCL_DECLARED
#define Tcl_SetAssocData_TCL_DECLARED
/* 223 */
-EXTERN void Tcl_SetAssocData (Tcl_Interp * interp,
- CONST char * name,
- Tcl_InterpDeleteProc * proc,
+EXTERN void Tcl_SetAssocData (Tcl_Interp * interp,
+ const char * name,
+ Tcl_InterpDeleteProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_SetChannelBufferSize_TCL_DECLARED
@@ -1418,16 +1418,16 @@ EXTERN void Tcl_SetChannelBufferSize (Tcl_Channel chan, int sz);
#ifndef Tcl_SetChannelOption_TCL_DECLARED
#define Tcl_SetChannelOption_TCL_DECLARED
/* 225 */
-EXTERN int Tcl_SetChannelOption (Tcl_Interp * interp,
- Tcl_Channel chan, CONST char * optionName,
- CONST char * newValue);
+EXTERN int Tcl_SetChannelOption (Tcl_Interp * interp,
+ Tcl_Channel chan, const char * optionName,
+ const char * newValue);
#endif
#ifndef Tcl_SetCommandInfo_TCL_DECLARED
#define Tcl_SetCommandInfo_TCL_DECLARED
/* 226 */
-EXTERN int Tcl_SetCommandInfo (Tcl_Interp * interp,
- CONST char * cmdName,
- CONST Tcl_CmdInfo * infoPtr);
+EXTERN int Tcl_SetCommandInfo (Tcl_Interp * interp,
+ const char * cmdName,
+ const Tcl_CmdInfo * infoPtr);
#endif
#ifndef Tcl_SetErrno_TCL_DECLARED
#define Tcl_SetErrno_TCL_DECLARED
@@ -1442,7 +1442,7 @@ EXTERN void Tcl_SetErrorCode (Tcl_Interp * interp, ...);
#ifndef Tcl_SetMaxBlockTime_TCL_DECLARED
#define Tcl_SetMaxBlockTime_TCL_DECLARED
/* 229 */
-EXTERN void Tcl_SetMaxBlockTime (CONST Tcl_Time * timePtr);
+EXTERN void Tcl_SetMaxBlockTime (const Tcl_Time * timePtr);
#endif
#ifndef Tcl_SetPanicProc_TCL_DECLARED
#define Tcl_SetPanicProc_TCL_DECLARED
@@ -1452,13 +1452,13 @@ EXTERN void Tcl_SetPanicProc (Tcl_PanicProc * panicProc);
#ifndef Tcl_SetRecursionLimit_TCL_DECLARED
#define Tcl_SetRecursionLimit_TCL_DECLARED
/* 231 */
-EXTERN int Tcl_SetRecursionLimit (Tcl_Interp * interp,
+EXTERN int Tcl_SetRecursionLimit (Tcl_Interp * interp,
int depth);
#endif
#ifndef Tcl_SetResult_TCL_DECLARED
#define Tcl_SetResult_TCL_DECLARED
/* 232 */
-EXTERN void Tcl_SetResult (Tcl_Interp * interp, char * result,
+EXTERN void Tcl_SetResult (Tcl_Interp * interp, char * result,
Tcl_FreeProc * freeProc);
#endif
#ifndef Tcl_SetServiceMode_TCL_DECLARED
@@ -1469,13 +1469,13 @@ EXTERN int Tcl_SetServiceMode (int mode);
#ifndef Tcl_SetObjErrorCode_TCL_DECLARED
#define Tcl_SetObjErrorCode_TCL_DECLARED
/* 234 */
-EXTERN void Tcl_SetObjErrorCode (Tcl_Interp * interp,
+EXTERN void Tcl_SetObjErrorCode (Tcl_Interp * interp,
Tcl_Obj * errorObjPtr);
#endif
#ifndef Tcl_SetObjResult_TCL_DECLARED
#define Tcl_SetObjResult_TCL_DECLARED
/* 235 */
-EXTERN void Tcl_SetObjResult (Tcl_Interp * interp,
+EXTERN void Tcl_SetObjResult (Tcl_Interp * interp,
Tcl_Obj * resultObjPtr);
#endif
#ifndef Tcl_SetStdChannel_TCL_DECLARED
@@ -1486,16 +1486,16 @@ EXTERN void Tcl_SetStdChannel (Tcl_Channel channel, int type);
#ifndef Tcl_SetVar_TCL_DECLARED
#define Tcl_SetVar_TCL_DECLARED
/* 237 */
-EXTERN CONST84_RETURN char * Tcl_SetVar (Tcl_Interp * interp,
- CONST char * varName, CONST char * newValue,
+EXTERN CONST84_RETURN char * Tcl_SetVar (Tcl_Interp * interp,
+ const char * varName, const char * newValue,
int flags);
#endif
#ifndef Tcl_SetVar2_TCL_DECLARED
#define Tcl_SetVar2_TCL_DECLARED
/* 238 */
-EXTERN CONST84_RETURN char * Tcl_SetVar2 (Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
- CONST char * newValue, int flags);
+EXTERN CONST84_RETURN char * Tcl_SetVar2 (Tcl_Interp * interp,
+ const char * part1, const char * part2,
+ const char * newValue, int flags);
#endif
#ifndef Tcl_SignalId_TCL_DECLARED
#define Tcl_SignalId_TCL_DECLARED
@@ -1515,29 +1515,29 @@ EXTERN void Tcl_SourceRCFile (Tcl_Interp * interp);
#ifndef Tcl_SplitList_TCL_DECLARED
#define Tcl_SplitList_TCL_DECLARED
/* 242 */
-EXTERN int Tcl_SplitList (Tcl_Interp * interp,
- CONST char * listStr, int * argcPtr,
+EXTERN int Tcl_SplitList (Tcl_Interp * interp,
+ const char * listStr, int * argcPtr,
CONST84 char *** argvPtr);
#endif
#ifndef Tcl_SplitPath_TCL_DECLARED
#define Tcl_SplitPath_TCL_DECLARED
/* 243 */
-EXTERN void Tcl_SplitPath (CONST char * path, int * argcPtr,
+EXTERN void Tcl_SplitPath (const char * path, int * argcPtr,
CONST84 char *** argvPtr);
#endif
#ifndef Tcl_StaticPackage_TCL_DECLARED
#define Tcl_StaticPackage_TCL_DECLARED
/* 244 */
-EXTERN void Tcl_StaticPackage (Tcl_Interp * interp,
- CONST char * pkgName,
- Tcl_PackageInitProc * initProc,
+EXTERN void Tcl_StaticPackage (Tcl_Interp * interp,
+ const char * pkgName,
+ Tcl_PackageInitProc * initProc,
Tcl_PackageInitProc * safeInitProc);
#endif
#ifndef Tcl_StringMatch_TCL_DECLARED
#define Tcl_StringMatch_TCL_DECLARED
/* 245 */
-EXTERN int Tcl_StringMatch (CONST char * str,
- CONST char * pattern);
+EXTERN int Tcl_StringMatch (const char * str,
+ const char * pattern);
#endif
#ifndef Tcl_TellOld_TCL_DECLARED
#define Tcl_TellOld_TCL_DECLARED
@@ -1547,91 +1547,91 @@ EXTERN int Tcl_TellOld (Tcl_Channel chan);
#ifndef Tcl_TraceVar_TCL_DECLARED
#define Tcl_TraceVar_TCL_DECLARED
/* 247 */
-EXTERN int Tcl_TraceVar (Tcl_Interp * interp,
- CONST char * varName, int flags,
- Tcl_VarTraceProc * proc,
+EXTERN int Tcl_TraceVar (Tcl_Interp * interp,
+ const char * varName, int flags,
+ Tcl_VarTraceProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_TraceVar2_TCL_DECLARED
#define Tcl_TraceVar2_TCL_DECLARED
/* 248 */
-EXTERN int Tcl_TraceVar2 (Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
- int flags, Tcl_VarTraceProc * proc,
+EXTERN int Tcl_TraceVar2 (Tcl_Interp * interp,
+ const char * part1, const char * part2,
+ int flags, Tcl_VarTraceProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_TranslateFileName_TCL_DECLARED
#define Tcl_TranslateFileName_TCL_DECLARED
/* 249 */
-EXTERN char * Tcl_TranslateFileName (Tcl_Interp * interp,
- CONST char * name, Tcl_DString * bufferPtr);
+EXTERN char * Tcl_TranslateFileName (Tcl_Interp * interp,
+ const char * name, Tcl_DString * bufferPtr);
#endif
#ifndef Tcl_Ungets_TCL_DECLARED
#define Tcl_Ungets_TCL_DECLARED
/* 250 */
-EXTERN int Tcl_Ungets (Tcl_Channel chan, CONST char * str,
+EXTERN int Tcl_Ungets (Tcl_Channel chan, const char * str,
int len, int atHead);
#endif
#ifndef Tcl_UnlinkVar_TCL_DECLARED
#define Tcl_UnlinkVar_TCL_DECLARED
/* 251 */
-EXTERN void Tcl_UnlinkVar (Tcl_Interp * interp,
- CONST char * varName);
+EXTERN void Tcl_UnlinkVar (Tcl_Interp * interp,
+ const char * varName);
#endif
#ifndef Tcl_UnregisterChannel_TCL_DECLARED
#define Tcl_UnregisterChannel_TCL_DECLARED
/* 252 */
-EXTERN int Tcl_UnregisterChannel (Tcl_Interp * interp,
+EXTERN int Tcl_UnregisterChannel (Tcl_Interp * interp,
Tcl_Channel chan);
#endif
#ifndef Tcl_UnsetVar_TCL_DECLARED
#define Tcl_UnsetVar_TCL_DECLARED
/* 253 */
-EXTERN int Tcl_UnsetVar (Tcl_Interp * interp,
- CONST char * varName, int flags);
+EXTERN int Tcl_UnsetVar (Tcl_Interp * interp,
+ const char * varName, int flags);
#endif
#ifndef Tcl_UnsetVar2_TCL_DECLARED
#define Tcl_UnsetVar2_TCL_DECLARED
/* 254 */
-EXTERN int Tcl_UnsetVar2 (Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
+EXTERN int Tcl_UnsetVar2 (Tcl_Interp * interp,
+ const char * part1, const char * part2,
int flags);
#endif
#ifndef Tcl_UntraceVar_TCL_DECLARED
#define Tcl_UntraceVar_TCL_DECLARED
/* 255 */
-EXTERN void Tcl_UntraceVar (Tcl_Interp * interp,
- CONST char * varName, int flags,
- Tcl_VarTraceProc * proc,
+EXTERN void Tcl_UntraceVar (Tcl_Interp * interp,
+ const char * varName, int flags,
+ Tcl_VarTraceProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_UntraceVar2_TCL_DECLARED
#define Tcl_UntraceVar2_TCL_DECLARED
/* 256 */
-EXTERN void Tcl_UntraceVar2 (Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
- int flags, Tcl_VarTraceProc * proc,
+EXTERN void Tcl_UntraceVar2 (Tcl_Interp * interp,
+ const char * part1, const char * part2,
+ int flags, Tcl_VarTraceProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_UpdateLinkedVar_TCL_DECLARED
#define Tcl_UpdateLinkedVar_TCL_DECLARED
/* 257 */
-EXTERN void Tcl_UpdateLinkedVar (Tcl_Interp * interp,
- CONST char * varName);
+EXTERN void Tcl_UpdateLinkedVar (Tcl_Interp * interp,
+ const char * varName);
#endif
#ifndef Tcl_UpVar_TCL_DECLARED
#define Tcl_UpVar_TCL_DECLARED
/* 258 */
-EXTERN int Tcl_UpVar (Tcl_Interp * interp,
- CONST char * frameName, CONST char * varName,
- CONST char * localName, int flags);
+EXTERN int Tcl_UpVar (Tcl_Interp * interp,
+ const char * frameName, const char * varName,
+ const char * localName, int flags);
#endif
#ifndef Tcl_UpVar2_TCL_DECLARED
#define Tcl_UpVar2_TCL_DECLARED
/* 259 */
-EXTERN int Tcl_UpVar2 (Tcl_Interp * interp,
- CONST char * frameName, CONST char * part1,
- CONST char * part2, CONST char * localName,
+EXTERN int Tcl_UpVar2 (Tcl_Interp * interp,
+ const char * frameName, const char * part1,
+ const char * part2, const char * localName,
int flags);
#endif
#ifndef Tcl_VarEval_TCL_DECLARED
@@ -1642,51 +1642,51 @@ EXTERN int Tcl_VarEval (Tcl_Interp * interp, ...);
#ifndef Tcl_VarTraceInfo_TCL_DECLARED
#define Tcl_VarTraceInfo_TCL_DECLARED
/* 261 */
-EXTERN ClientData Tcl_VarTraceInfo (Tcl_Interp * interp,
- CONST char * varName, int flags,
- Tcl_VarTraceProc * procPtr,
+EXTERN ClientData Tcl_VarTraceInfo (Tcl_Interp * interp,
+ const char * varName, int flags,
+ Tcl_VarTraceProc * procPtr,
ClientData prevClientData);
#endif
#ifndef Tcl_VarTraceInfo2_TCL_DECLARED
#define Tcl_VarTraceInfo2_TCL_DECLARED
/* 262 */
-EXTERN ClientData Tcl_VarTraceInfo2 (Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
- int flags, Tcl_VarTraceProc * procPtr,
+EXTERN ClientData Tcl_VarTraceInfo2 (Tcl_Interp * interp,
+ const char * part1, const char * part2,
+ int flags, Tcl_VarTraceProc * procPtr,
ClientData prevClientData);
#endif
#ifndef Tcl_Write_TCL_DECLARED
#define Tcl_Write_TCL_DECLARED
/* 263 */
-EXTERN int Tcl_Write (Tcl_Channel chan, CONST char * s,
+EXTERN int Tcl_Write (Tcl_Channel chan, const char * s,
int slen);
#endif
#ifndef Tcl_WrongNumArgs_TCL_DECLARED
#define Tcl_WrongNumArgs_TCL_DECLARED
/* 264 */
-EXTERN void Tcl_WrongNumArgs (Tcl_Interp * interp, int objc,
- Tcl_Obj *CONST objv[], CONST char * message);
+EXTERN void Tcl_WrongNumArgs (Tcl_Interp * interp, int objc,
+ Tcl_Obj *const objv[], const char * message);
#endif
#ifndef Tcl_DumpActiveMemory_TCL_DECLARED
#define Tcl_DumpActiveMemory_TCL_DECLARED
/* 265 */
-EXTERN int Tcl_DumpActiveMemory (CONST char * fileName);
+EXTERN int Tcl_DumpActiveMemory (const char * fileName);
#endif
#ifndef Tcl_ValidateAllMemory_TCL_DECLARED
#define Tcl_ValidateAllMemory_TCL_DECLARED
/* 266 */
-EXTERN void Tcl_ValidateAllMemory (CONST char * file, int line);
+EXTERN void Tcl_ValidateAllMemory (const char * file, int line);
#endif
#ifndef Tcl_AppendResultVA_TCL_DECLARED
#define Tcl_AppendResultVA_TCL_DECLARED
/* 267 */
-EXTERN void Tcl_AppendResultVA (Tcl_Interp * interp,
+EXTERN void Tcl_AppendResultVA (Tcl_Interp * interp,
va_list argList);
#endif
#ifndef Tcl_AppendStringsToObjVA_TCL_DECLARED
#define Tcl_AppendStringsToObjVA_TCL_DECLARED
/* 268 */
-EXTERN void Tcl_AppendStringsToObjVA (Tcl_Obj * objPtr,
+EXTERN void Tcl_AppendStringsToObjVA (Tcl_Obj * objPtr,
va_list argList);
#endif
#ifndef Tcl_HashStats_TCL_DECLARED
@@ -1697,40 +1697,40 @@ EXTERN CONST84_RETURN char * Tcl_HashStats (Tcl_HashTable * tablePtr);
#ifndef Tcl_ParseVar_TCL_DECLARED
#define Tcl_ParseVar_TCL_DECLARED
/* 270 */
-EXTERN CONST84_RETURN char * Tcl_ParseVar (Tcl_Interp * interp,
- CONST char * start, CONST84 char ** termPtr);
+EXTERN CONST84_RETURN char * Tcl_ParseVar (Tcl_Interp * interp,
+ const char * start, CONST84 char ** termPtr);
#endif
#ifndef Tcl_PkgPresent_TCL_DECLARED
#define Tcl_PkgPresent_TCL_DECLARED
/* 271 */
-EXTERN CONST84_RETURN char * Tcl_PkgPresent (Tcl_Interp * interp,
- CONST char * name, CONST char * version,
+EXTERN CONST84_RETURN char * Tcl_PkgPresent (Tcl_Interp * interp,
+ const char * name, const char * version,
int exact);
#endif
#ifndef Tcl_PkgPresentEx_TCL_DECLARED
#define Tcl_PkgPresentEx_TCL_DECLARED
/* 272 */
-EXTERN CONST84_RETURN char * Tcl_PkgPresentEx (Tcl_Interp * interp,
- CONST char * name, CONST char * version,
+EXTERN CONST84_RETURN char * Tcl_PkgPresentEx (Tcl_Interp * interp,
+ const char * name, const char * version,
int exact, ClientData * clientDataPtr);
#endif
#ifndef Tcl_PkgProvide_TCL_DECLARED
#define Tcl_PkgProvide_TCL_DECLARED
/* 273 */
-EXTERN int Tcl_PkgProvide (Tcl_Interp * interp,
- CONST char * name, CONST char * version);
+EXTERN int Tcl_PkgProvide (Tcl_Interp * interp,
+ const char * name, const char * version);
#endif
#ifndef Tcl_PkgRequire_TCL_DECLARED
#define Tcl_PkgRequire_TCL_DECLARED
/* 274 */
-EXTERN CONST84_RETURN char * Tcl_PkgRequire (Tcl_Interp * interp,
- CONST char * name, CONST char * version,
+EXTERN CONST84_RETURN char * Tcl_PkgRequire (Tcl_Interp * interp,
+ const char * name, const char * version,
int exact);
#endif
#ifndef Tcl_SetErrorCodeVA_TCL_DECLARED
#define Tcl_SetErrorCodeVA_TCL_DECLARED
/* 275 */
-EXTERN void Tcl_SetErrorCodeVA (Tcl_Interp * interp,
+EXTERN void Tcl_SetErrorCodeVA (Tcl_Interp * interp,
va_list argList);
#endif
#ifndef Tcl_VarEvalVA_TCL_DECLARED
@@ -1746,12 +1746,12 @@ EXTERN Tcl_Pid Tcl_WaitPid (Tcl_Pid pid, int * statPtr, int options);
#ifndef Tcl_PanicVA_TCL_DECLARED
#define Tcl_PanicVA_TCL_DECLARED
/* 278 */
-EXTERN void Tcl_PanicVA (CONST char * format, va_list argList);
+EXTERN void Tcl_PanicVA (const char * format, va_list argList);
#endif
#ifndef Tcl_GetVersion_TCL_DECLARED
#define Tcl_GetVersion_TCL_DECLARED
/* 279 */
-EXTERN void Tcl_GetVersion (int * major, int * minor,
+EXTERN void Tcl_GetVersion (int * major, int * minor,
int * patchLevel, int * type);
#endif
#ifndef Tcl_InitMemory_TCL_DECLARED
@@ -1762,15 +1762,15 @@ EXTERN void Tcl_InitMemory (Tcl_Interp * interp);
#ifndef Tcl_StackChannel_TCL_DECLARED
#define Tcl_StackChannel_TCL_DECLARED
/* 281 */
-EXTERN Tcl_Channel Tcl_StackChannel (Tcl_Interp * interp,
- CONST Tcl_ChannelType * typePtr,
- ClientData instanceData, int mask,
+EXTERN Tcl_Channel Tcl_StackChannel (Tcl_Interp * interp,
+ const Tcl_ChannelType * typePtr,
+ ClientData instanceData, int mask,
Tcl_Channel prevChan);
#endif
#ifndef Tcl_UnstackChannel_TCL_DECLARED
#define Tcl_UnstackChannel_TCL_DECLARED
/* 282 */
-EXTERN int Tcl_UnstackChannel (Tcl_Interp * interp,
+EXTERN int Tcl_UnstackChannel (Tcl_Interp * interp,
Tcl_Channel chan);
#endif
#ifndef Tcl_GetStackedChannel_TCL_DECLARED
@@ -1787,24 +1787,24 @@ EXTERN void Tcl_SetMainLoop (Tcl_MainLoopProc * proc);
#ifndef Tcl_AppendObjToObj_TCL_DECLARED
#define Tcl_AppendObjToObj_TCL_DECLARED
/* 286 */
-EXTERN void Tcl_AppendObjToObj (Tcl_Obj * objPtr,
+EXTERN void Tcl_AppendObjToObj (Tcl_Obj * objPtr,
Tcl_Obj * appendObjPtr);
#endif
#ifndef Tcl_CreateEncoding_TCL_DECLARED
#define Tcl_CreateEncoding_TCL_DECLARED
/* 287 */
-EXTERN Tcl_Encoding Tcl_CreateEncoding (CONST Tcl_EncodingType * typePtr);
+EXTERN Tcl_Encoding Tcl_CreateEncoding (const Tcl_EncodingType * typePtr);
#endif
#ifndef Tcl_CreateThreadExitHandler_TCL_DECLARED
#define Tcl_CreateThreadExitHandler_TCL_DECLARED
/* 288 */
-EXTERN void Tcl_CreateThreadExitHandler (Tcl_ExitProc * proc,
+EXTERN void Tcl_CreateThreadExitHandler (Tcl_ExitProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_DeleteThreadExitHandler_TCL_DECLARED
#define Tcl_DeleteThreadExitHandler_TCL_DECLARED
/* 289 */
-EXTERN void Tcl_DeleteThreadExitHandler (Tcl_ExitProc * proc,
+EXTERN void Tcl_DeleteThreadExitHandler (Tcl_ExitProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_DiscardResult_TCL_DECLARED
@@ -1815,19 +1815,19 @@ EXTERN void Tcl_DiscardResult (Tcl_SavedResult * statePtr);
#ifndef Tcl_EvalEx_TCL_DECLARED
#define Tcl_EvalEx_TCL_DECLARED
/* 291 */
-EXTERN int Tcl_EvalEx (Tcl_Interp * interp, CONST char * script,
+EXTERN int Tcl_EvalEx (Tcl_Interp * interp, const char * script,
int numBytes, int flags);
#endif
#ifndef Tcl_EvalObjv_TCL_DECLARED
#define Tcl_EvalObjv_TCL_DECLARED
/* 292 */
-EXTERN int Tcl_EvalObjv (Tcl_Interp * interp, int objc,
- Tcl_Obj *CONST objv[], int flags);
+EXTERN int Tcl_EvalObjv (Tcl_Interp * interp, int objc,
+ Tcl_Obj *const objv[], int flags);
#endif
#ifndef Tcl_EvalObjEx_TCL_DECLARED
#define Tcl_EvalObjEx_TCL_DECLARED
/* 293 */
-EXTERN int Tcl_EvalObjEx (Tcl_Interp * interp, Tcl_Obj * objPtr,
+EXTERN int Tcl_EvalObjEx (Tcl_Interp * interp, Tcl_Obj * objPtr,
int flags);
#endif
#ifndef Tcl_ExitThread_TCL_DECLARED
@@ -1838,18 +1838,18 @@ EXTERN void Tcl_ExitThread (int status);
#ifndef Tcl_ExternalToUtf_TCL_DECLARED
#define Tcl_ExternalToUtf_TCL_DECLARED
/* 295 */
-EXTERN int Tcl_ExternalToUtf (Tcl_Interp * interp,
- Tcl_Encoding encoding, CONST char * src,
- int srcLen, int flags,
- Tcl_EncodingState * statePtr, char * dst,
- int dstLen, int * srcReadPtr,
+EXTERN int Tcl_ExternalToUtf (Tcl_Interp * interp,
+ Tcl_Encoding encoding, const char * src,
+ int srcLen, int flags,
+ Tcl_EncodingState * statePtr, char * dst,
+ int dstLen, int * srcReadPtr,
int * dstWrotePtr, int * dstCharsPtr);
#endif
#ifndef Tcl_ExternalToUtfDString_TCL_DECLARED
#define Tcl_ExternalToUtfDString_TCL_DECLARED
/* 296 */
-EXTERN char * Tcl_ExternalToUtfDString (Tcl_Encoding encoding,
- CONST char * src, int srcLen,
+EXTERN char * Tcl_ExternalToUtfDString (Tcl_Encoding encoding,
+ const char * src, int srcLen,
Tcl_DString * dsPtr);
#endif
#ifndef Tcl_FinalizeThread_TCL_DECLARED
@@ -1875,8 +1875,8 @@ EXTERN Tcl_ThreadId Tcl_GetCurrentThread (void);
#ifndef Tcl_GetEncoding_TCL_DECLARED
#define Tcl_GetEncoding_TCL_DECLARED
/* 301 */
-EXTERN Tcl_Encoding Tcl_GetEncoding (Tcl_Interp * interp,
- CONST char * name);
+EXTERN Tcl_Encoding Tcl_GetEncoding (Tcl_Interp * interp,
+ const char * name);
#endif
#ifndef Tcl_GetEncodingName_TCL_DECLARED
#define Tcl_GetEncodingName_TCL_DECLARED
@@ -1891,22 +1891,22 @@ EXTERN void Tcl_GetEncodingNames (Tcl_Interp * interp);
#ifndef Tcl_GetIndexFromObjStruct_TCL_DECLARED
#define Tcl_GetIndexFromObjStruct_TCL_DECLARED
/* 304 */
-EXTERN int Tcl_GetIndexFromObjStruct (Tcl_Interp * interp,
- Tcl_Obj * objPtr, CONST VOID * tablePtr,
- int offset, CONST char * msg, int flags,
+EXTERN int Tcl_GetIndexFromObjStruct (Tcl_Interp * interp,
+ Tcl_Obj * objPtr, const VOID * tablePtr,
+ int offset, const char * msg, int flags,
int * indexPtr);
#endif
#ifndef Tcl_GetThreadData_TCL_DECLARED
#define Tcl_GetThreadData_TCL_DECLARED
/* 305 */
-EXTERN VOID * Tcl_GetThreadData (Tcl_ThreadDataKey * keyPtr,
+EXTERN VOID * Tcl_GetThreadData (Tcl_ThreadDataKey * keyPtr,
int size);
#endif
#ifndef Tcl_GetVar2Ex_TCL_DECLARED
#define Tcl_GetVar2Ex_TCL_DECLARED
/* 306 */
-EXTERN Tcl_Obj * Tcl_GetVar2Ex (Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
+EXTERN Tcl_Obj * Tcl_GetVar2Ex (Tcl_Interp * interp,
+ const char * part1, const char * part2,
int flags);
#endif
#ifndef Tcl_InitNotifier_TCL_DECLARED
@@ -1932,44 +1932,44 @@ EXTERN void Tcl_ConditionNotify (Tcl_Condition * condPtr);
#ifndef Tcl_ConditionWait_TCL_DECLARED
#define Tcl_ConditionWait_TCL_DECLARED
/* 311 */
-EXTERN void Tcl_ConditionWait (Tcl_Condition * condPtr,
- Tcl_Mutex * mutexPtr,
- CONST Tcl_Time * timePtr);
+EXTERN void Tcl_ConditionWait (Tcl_Condition * condPtr,
+ Tcl_Mutex * mutexPtr,
+ const Tcl_Time * timePtr);
#endif
#ifndef Tcl_NumUtfChars_TCL_DECLARED
#define Tcl_NumUtfChars_TCL_DECLARED
/* 312 */
-EXTERN int Tcl_NumUtfChars (CONST char * src, int length);
+EXTERN int Tcl_NumUtfChars (const char * src, int length);
#endif
#ifndef Tcl_ReadChars_TCL_DECLARED
#define Tcl_ReadChars_TCL_DECLARED
/* 313 */
-EXTERN int Tcl_ReadChars (Tcl_Channel channel, Tcl_Obj * objPtr,
+EXTERN int Tcl_ReadChars (Tcl_Channel channel, Tcl_Obj * objPtr,
int charsToRead, int appendFlag);
#endif
#ifndef Tcl_RestoreResult_TCL_DECLARED
#define Tcl_RestoreResult_TCL_DECLARED
/* 314 */
-EXTERN void Tcl_RestoreResult (Tcl_Interp * interp,
+EXTERN void Tcl_RestoreResult (Tcl_Interp * interp,
Tcl_SavedResult * statePtr);
#endif
#ifndef Tcl_SaveResult_TCL_DECLARED
#define Tcl_SaveResult_TCL_DECLARED
/* 315 */
-EXTERN void Tcl_SaveResult (Tcl_Interp * interp,
+EXTERN void Tcl_SaveResult (Tcl_Interp * interp,
Tcl_SavedResult * statePtr);
#endif
#ifndef Tcl_SetSystemEncoding_TCL_DECLARED
#define Tcl_SetSystemEncoding_TCL_DECLARED
/* 316 */
-EXTERN int Tcl_SetSystemEncoding (Tcl_Interp * interp,
- CONST char * name);
+EXTERN int Tcl_SetSystemEncoding (Tcl_Interp * interp,
+ const char * name);
#endif
#ifndef Tcl_SetVar2Ex_TCL_DECLARED
#define Tcl_SetVar2Ex_TCL_DECLARED
/* 317 */
-EXTERN Tcl_Obj * Tcl_SetVar2Ex (Tcl_Interp * interp,
- CONST char * part1, CONST char * part2,
+EXTERN Tcl_Obj * Tcl_SetVar2Ex (Tcl_Interp * interp,
+ const char * part1, const char * part2,
Tcl_Obj * newValuePtr, int flags);
#endif
#ifndef Tcl_ThreadAlert_TCL_DECLARED
@@ -1980,13 +1980,13 @@ EXTERN void Tcl_ThreadAlert (Tcl_ThreadId threadId);
#ifndef Tcl_ThreadQueueEvent_TCL_DECLARED
#define Tcl_ThreadQueueEvent_TCL_DECLARED
/* 319 */
-EXTERN void Tcl_ThreadQueueEvent (Tcl_ThreadId threadId,
+EXTERN void Tcl_ThreadQueueEvent (Tcl_ThreadId threadId,
Tcl_Event* evPtr, Tcl_QueuePosition position);
#endif
#ifndef Tcl_UniCharAtIndex_TCL_DECLARED
#define Tcl_UniCharAtIndex_TCL_DECLARED
/* 320 */
-EXTERN Tcl_UniChar Tcl_UniCharAtIndex (CONST char * src, int index);
+EXTERN Tcl_UniChar Tcl_UniCharAtIndex (const char * src, int index);
#endif
#ifndef Tcl_UniCharToLower_TCL_DECLARED
#define Tcl_UniCharToLower_TCL_DECLARED
@@ -2011,55 +2011,55 @@ EXTERN int Tcl_UniCharToUtf (int ch, char * buf);
#ifndef Tcl_UtfAtIndex_TCL_DECLARED
#define Tcl_UtfAtIndex_TCL_DECLARED
/* 325 */
-EXTERN CONST84_RETURN char * Tcl_UtfAtIndex (CONST char * src, int index);
+EXTERN CONST84_RETURN char * Tcl_UtfAtIndex (const char * src, int index);
#endif
#ifndef Tcl_UtfCharComplete_TCL_DECLARED
#define Tcl_UtfCharComplete_TCL_DECLARED
/* 326 */
-EXTERN int Tcl_UtfCharComplete (CONST char * src, int length);
+EXTERN int Tcl_UtfCharComplete (const char * src, int length);
#endif
#ifndef Tcl_UtfBackslash_TCL_DECLARED
#define Tcl_UtfBackslash_TCL_DECLARED
/* 327 */
-EXTERN int Tcl_UtfBackslash (CONST char * src, int * readPtr,
+EXTERN int Tcl_UtfBackslash (const char * src, int * readPtr,
char * dst);
#endif
#ifndef Tcl_UtfFindFirst_TCL_DECLARED
#define Tcl_UtfFindFirst_TCL_DECLARED
/* 328 */
-EXTERN CONST84_RETURN char * Tcl_UtfFindFirst (CONST char * src, int ch);
+EXTERN CONST84_RETURN char * Tcl_UtfFindFirst (const char * src, int ch);
#endif
#ifndef Tcl_UtfFindLast_TCL_DECLARED
#define Tcl_UtfFindLast_TCL_DECLARED
/* 329 */
-EXTERN CONST84_RETURN char * Tcl_UtfFindLast (CONST char * src, int ch);
+EXTERN CONST84_RETURN char * Tcl_UtfFindLast (const char * src, int ch);
#endif
#ifndef Tcl_UtfNext_TCL_DECLARED
#define Tcl_UtfNext_TCL_DECLARED
/* 330 */
-EXTERN CONST84_RETURN char * Tcl_UtfNext (CONST char * src);
+EXTERN CONST84_RETURN char * Tcl_UtfNext (const char * src);
#endif
#ifndef Tcl_UtfPrev_TCL_DECLARED
#define Tcl_UtfPrev_TCL_DECLARED
/* 331 */
-EXTERN CONST84_RETURN char * Tcl_UtfPrev (CONST char * src,
- CONST char * start);
+EXTERN CONST84_RETURN char * Tcl_UtfPrev (const char * src,
+ const char * start);
#endif
#ifndef Tcl_UtfToExternal_TCL_DECLARED
#define Tcl_UtfToExternal_TCL_DECLARED
/* 332 */
-EXTERN int Tcl_UtfToExternal (Tcl_Interp * interp,
- Tcl_Encoding encoding, CONST char * src,
- int srcLen, int flags,
- Tcl_EncodingState * statePtr, char * dst,
- int dstLen, int * srcReadPtr,
+EXTERN int Tcl_UtfToExternal (Tcl_Interp * interp,
+ Tcl_Encoding encoding, const char * src,
+ int srcLen, int flags,
+ Tcl_EncodingState * statePtr, char * dst,
+ int dstLen, int * srcReadPtr,
int * dstWrotePtr, int * dstCharsPtr);
#endif
#ifndef Tcl_UtfToExternalDString_TCL_DECLARED
#define Tcl_UtfToExternalDString_TCL_DECLARED
/* 333 */
-EXTERN char * Tcl_UtfToExternalDString (Tcl_Encoding encoding,
- CONST char * src, int srcLen,
+EXTERN char * Tcl_UtfToExternalDString (Tcl_Encoding encoding,
+ const char * src, int srcLen,
Tcl_DString * dsPtr);
#endif
#ifndef Tcl_UtfToLower_TCL_DECLARED
@@ -2075,7 +2075,7 @@ EXTERN int Tcl_UtfToTitle (char * src);
#ifndef Tcl_UtfToUniChar_TCL_DECLARED
#define Tcl_UtfToUniChar_TCL_DECLARED
/* 336 */
-EXTERN int Tcl_UtfToUniChar (CONST char * src,
+EXTERN int Tcl_UtfToUniChar (const char * src,
Tcl_UniChar * chPtr);
#endif
#ifndef Tcl_UtfToUpper_TCL_DECLARED
@@ -2086,7 +2086,7 @@ EXTERN int Tcl_UtfToUpper (char * src);
#ifndef Tcl_WriteChars_TCL_DECLARED
#define Tcl_WriteChars_TCL_DECLARED
/* 338 */
-EXTERN int Tcl_WriteChars (Tcl_Channel chan, CONST char * src,
+EXTERN int Tcl_WriteChars (Tcl_Channel chan, const char * src,
int srcLen);
#endif
#ifndef Tcl_WriteObj_TCL_DECLARED
@@ -2107,7 +2107,7 @@ EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir (void);
#ifndef Tcl_SetDefaultEncodingDir_TCL_DECLARED
#define Tcl_SetDefaultEncodingDir_TCL_DECLARED
/* 342 */
-EXTERN void Tcl_SetDefaultEncodingDir (CONST char * path);
+EXTERN void Tcl_SetDefaultEncodingDir (const char * path);
#endif
#ifndef Tcl_AlertNotifier_TCL_DECLARED
#define Tcl_AlertNotifier_TCL_DECLARED
@@ -2157,37 +2157,37 @@ EXTERN int Tcl_UniCharIsWordChar (int ch);
#ifndef Tcl_UniCharLen_TCL_DECLARED
#define Tcl_UniCharLen_TCL_DECLARED
/* 352 */
-EXTERN int Tcl_UniCharLen (CONST Tcl_UniChar * uniStr);
+EXTERN int Tcl_UniCharLen (const Tcl_UniChar * uniStr);
#endif
#ifndef Tcl_UniCharNcmp_TCL_DECLARED
#define Tcl_UniCharNcmp_TCL_DECLARED
/* 353 */
-EXTERN int Tcl_UniCharNcmp (CONST Tcl_UniChar * ucs,
- CONST Tcl_UniChar * uct,
+EXTERN int Tcl_UniCharNcmp (const Tcl_UniChar * ucs,
+ const Tcl_UniChar * uct,
unsigned long numChars);
#endif
#ifndef Tcl_UniCharToUtfDString_TCL_DECLARED
#define Tcl_UniCharToUtfDString_TCL_DECLARED
/* 354 */
-EXTERN char * Tcl_UniCharToUtfDString (CONST Tcl_UniChar * uniStr,
+EXTERN char * Tcl_UniCharToUtfDString (const Tcl_UniChar * uniStr,
int uniLength, Tcl_DString * dsPtr);
#endif
#ifndef Tcl_UtfToUniCharDString_TCL_DECLARED
#define Tcl_UtfToUniCharDString_TCL_DECLARED
/* 355 */
-EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString (CONST char * src,
+EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString (const char * src,
int length, Tcl_DString * dsPtr);
#endif
#ifndef Tcl_GetRegExpFromObj_TCL_DECLARED
#define Tcl_GetRegExpFromObj_TCL_DECLARED
/* 356 */
-EXTERN Tcl_RegExp Tcl_GetRegExpFromObj (Tcl_Interp * interp,
+EXTERN Tcl_RegExp Tcl_GetRegExpFromObj (Tcl_Interp * interp,
Tcl_Obj * patObj, int flags);
#endif
#ifndef Tcl_EvalTokens_TCL_DECLARED
#define Tcl_EvalTokens_TCL_DECLARED
/* 357 */
-EXTERN Tcl_Obj * Tcl_EvalTokens (Tcl_Interp * interp,
+EXTERN Tcl_Obj * Tcl_EvalTokens (Tcl_Interp * interp,
Tcl_Token * tokenPtr, int count);
#endif
#ifndef Tcl_FreeParse_TCL_DECLARED
@@ -2198,85 +2198,85 @@ EXTERN void Tcl_FreeParse (Tcl_Parse * parsePtr);
#ifndef Tcl_LogCommandInfo_TCL_DECLARED
#define Tcl_LogCommandInfo_TCL_DECLARED
/* 359 */
-EXTERN void Tcl_LogCommandInfo (Tcl_Interp * interp,
- CONST char * script, CONST char * command,
+EXTERN void Tcl_LogCommandInfo (Tcl_Interp * interp,
+ const char * script, const char * command,
int length);
#endif
#ifndef Tcl_ParseBraces_TCL_DECLARED
#define Tcl_ParseBraces_TCL_DECLARED
/* 360 */
-EXTERN int Tcl_ParseBraces (Tcl_Interp * interp,
- CONST char * start, int numBytes,
- Tcl_Parse * parsePtr, int append,
+EXTERN int Tcl_ParseBraces (Tcl_Interp * interp,
+ const char * start, int numBytes,
+ Tcl_Parse * parsePtr, int append,
CONST84 char ** termPtr);
#endif
#ifndef Tcl_ParseCommand_TCL_DECLARED
#define Tcl_ParseCommand_TCL_DECLARED
/* 361 */
-EXTERN int Tcl_ParseCommand (Tcl_Interp * interp,
- CONST char * start, int numBytes, int nested,
+EXTERN int Tcl_ParseCommand (Tcl_Interp * interp,
+ const char * start, int numBytes, int nested,
Tcl_Parse * parsePtr);
#endif
#ifndef Tcl_ParseExpr_TCL_DECLARED
#define Tcl_ParseExpr_TCL_DECLARED
/* 362 */
-EXTERN int Tcl_ParseExpr (Tcl_Interp * interp,
- CONST char * start, int numBytes,
+EXTERN int Tcl_ParseExpr (Tcl_Interp * interp,
+ const char * start, int numBytes,
Tcl_Parse * parsePtr);
#endif
#ifndef Tcl_ParseQuotedString_TCL_DECLARED
#define Tcl_ParseQuotedString_TCL_DECLARED
/* 363 */
-EXTERN int Tcl_ParseQuotedString (Tcl_Interp * interp,
- CONST char * start, int numBytes,
- Tcl_Parse * parsePtr, int append,
+EXTERN int Tcl_ParseQuotedString (Tcl_Interp * interp,
+ const char * start, int numBytes,
+ Tcl_Parse * parsePtr, int append,
CONST84 char ** termPtr);
#endif
#ifndef Tcl_ParseVarName_TCL_DECLARED
#define Tcl_ParseVarName_TCL_DECLARED
/* 364 */
-EXTERN int Tcl_ParseVarName (Tcl_Interp * interp,
- CONST char * start, int numBytes,
+EXTERN int Tcl_ParseVarName (Tcl_Interp * interp,
+ const char * start, int numBytes,
Tcl_Parse * parsePtr, int append);
#endif
#ifndef Tcl_GetCwd_TCL_DECLARED
#define Tcl_GetCwd_TCL_DECLARED
/* 365 */
-EXTERN char * Tcl_GetCwd (Tcl_Interp * interp,
+EXTERN char * Tcl_GetCwd (Tcl_Interp * interp,
Tcl_DString * cwdPtr);
#endif
#ifndef Tcl_Chdir_TCL_DECLARED
#define Tcl_Chdir_TCL_DECLARED
/* 366 */
-EXTERN int Tcl_Chdir (CONST char * dirName);
+EXTERN int Tcl_Chdir (const char * dirName);
#endif
#ifndef Tcl_Access_TCL_DECLARED
#define Tcl_Access_TCL_DECLARED
/* 367 */
-EXTERN int Tcl_Access (CONST char * path, int mode);
+EXTERN int Tcl_Access (const char * path, int mode);
#endif
#ifndef Tcl_Stat_TCL_DECLARED
#define Tcl_Stat_TCL_DECLARED
/* 368 */
-EXTERN int Tcl_Stat (CONST char * path, struct stat * bufPtr);
+EXTERN int Tcl_Stat (const char * path, struct stat * bufPtr);
#endif
#ifndef Tcl_UtfNcmp_TCL_DECLARED
#define Tcl_UtfNcmp_TCL_DECLARED
/* 369 */
-EXTERN int Tcl_UtfNcmp (CONST char * s1, CONST char * s2,
+EXTERN int Tcl_UtfNcmp (const char * s1, const char * s2,
unsigned long n);
#endif
#ifndef Tcl_UtfNcasecmp_TCL_DECLARED
#define Tcl_UtfNcasecmp_TCL_DECLARED
/* 370 */
-EXTERN int Tcl_UtfNcasecmp (CONST char * s1, CONST char * s2,
+EXTERN int Tcl_UtfNcasecmp (const char * s1, const char * s2,
unsigned long n);
#endif
#ifndef Tcl_StringCaseMatch_TCL_DECLARED
#define Tcl_StringCaseMatch_TCL_DECLARED
/* 371 */
-EXTERN int Tcl_StringCaseMatch (CONST char * str,
- CONST char * pattern, int nocase);
+EXTERN int Tcl_StringCaseMatch (const char * str,
+ const char * pattern, int nocase);
#endif
#ifndef Tcl_UniCharIsControl_TCL_DECLARED
#define Tcl_UniCharIsControl_TCL_DECLARED
@@ -2301,27 +2301,27 @@ EXTERN int Tcl_UniCharIsPunct (int ch);
#ifndef Tcl_RegExpExecObj_TCL_DECLARED
#define Tcl_RegExpExecObj_TCL_DECLARED
/* 376 */
-EXTERN int Tcl_RegExpExecObj (Tcl_Interp * interp,
- Tcl_RegExp regexp, Tcl_Obj * textObj,
+EXTERN int Tcl_RegExpExecObj (Tcl_Interp * interp,
+ Tcl_RegExp regexp, Tcl_Obj * textObj,
int offset, int nmatches, int flags);
#endif
#ifndef Tcl_RegExpGetInfo_TCL_DECLARED
#define Tcl_RegExpGetInfo_TCL_DECLARED
/* 377 */
-EXTERN void Tcl_RegExpGetInfo (Tcl_RegExp regexp,
+EXTERN void Tcl_RegExpGetInfo (Tcl_RegExp regexp,
Tcl_RegExpInfo * infoPtr);
#endif
#ifndef Tcl_NewUnicodeObj_TCL_DECLARED
#define Tcl_NewUnicodeObj_TCL_DECLARED
/* 378 */
-EXTERN Tcl_Obj * Tcl_NewUnicodeObj (CONST Tcl_UniChar * unicode,
+EXTERN Tcl_Obj * Tcl_NewUnicodeObj (const Tcl_UniChar * unicode,
int numChars);
#endif
#ifndef Tcl_SetUnicodeObj_TCL_DECLARED
#define Tcl_SetUnicodeObj_TCL_DECLARED
/* 379 */
-EXTERN void Tcl_SetUnicodeObj (Tcl_Obj * objPtr,
- CONST Tcl_UniChar * unicode, int numChars);
+EXTERN void Tcl_SetUnicodeObj (Tcl_Obj * objPtr,
+ const Tcl_UniChar * unicode, int numChars);
#endif
#ifndef Tcl_GetCharLength_TCL_DECLARED
#define Tcl_GetCharLength_TCL_DECLARED
@@ -2346,13 +2346,13 @@ EXTERN Tcl_Obj * Tcl_GetRange (Tcl_Obj * objPtr, int first, int last);
#ifndef Tcl_AppendUnicodeToObj_TCL_DECLARED
#define Tcl_AppendUnicodeToObj_TCL_DECLARED
/* 384 */
-EXTERN void Tcl_AppendUnicodeToObj (Tcl_Obj * objPtr,
- CONST Tcl_UniChar * unicode, int length);
+EXTERN void Tcl_AppendUnicodeToObj (Tcl_Obj * objPtr,
+ const Tcl_UniChar * unicode, int length);
#endif
#ifndef Tcl_RegExpMatchObj_TCL_DECLARED
#define Tcl_RegExpMatchObj_TCL_DECLARED
/* 385 */
-EXTERN int Tcl_RegExpMatchObj (Tcl_Interp * interp,
+EXTERN int Tcl_RegExpMatchObj (Tcl_Interp * interp,
Tcl_Obj * textObj, Tcl_Obj * patternObj);
#endif
#ifndef Tcl_SetNotifier_TCL_DECLARED
@@ -2373,15 +2373,15 @@ EXTERN int Tcl_GetChannelNames (Tcl_Interp * interp);
#ifndef Tcl_GetChannelNamesEx_TCL_DECLARED
#define Tcl_GetChannelNamesEx_TCL_DECLARED
/* 389 */
-EXTERN int Tcl_GetChannelNamesEx (Tcl_Interp * interp,
- CONST char * pattern);
+EXTERN int Tcl_GetChannelNamesEx (Tcl_Interp * interp,
+ const char * pattern);
#endif
#ifndef Tcl_ProcObjCmd_TCL_DECLARED
#define Tcl_ProcObjCmd_TCL_DECLARED
/* 390 */
-EXTERN int Tcl_ProcObjCmd (ClientData clientData,
- Tcl_Interp * interp, int objc,
- Tcl_Obj *CONST objv[]);
+EXTERN int Tcl_ProcObjCmd (ClientData clientData,
+ Tcl_Interp * interp, int objc,
+ Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_ConditionFinalize_TCL_DECLARED
#define Tcl_ConditionFinalize_TCL_DECLARED
@@ -2396,21 +2396,21 @@ EXTERN void Tcl_MutexFinalize (Tcl_Mutex * mutex);
#ifndef Tcl_CreateThread_TCL_DECLARED
#define Tcl_CreateThread_TCL_DECLARED
/* 393 */
-EXTERN int Tcl_CreateThread (Tcl_ThreadId * idPtr,
- Tcl_ThreadCreateProc proc,
- ClientData clientData, int stackSize,
+EXTERN int Tcl_CreateThread (Tcl_ThreadId * idPtr,
+ Tcl_ThreadCreateProc proc,
+ ClientData clientData, int stackSize,
int flags);
#endif
#ifndef Tcl_ReadRaw_TCL_DECLARED
#define Tcl_ReadRaw_TCL_DECLARED
/* 394 */
-EXTERN int Tcl_ReadRaw (Tcl_Channel chan, char * dst,
+EXTERN int Tcl_ReadRaw (Tcl_Channel chan, char * dst,
int bytesToRead);
#endif
#ifndef Tcl_WriteRaw_TCL_DECLARED
#define Tcl_WriteRaw_TCL_DECLARED
/* 395 */
-EXTERN int Tcl_WriteRaw (Tcl_Channel chan, CONST char * src,
+EXTERN int Tcl_WriteRaw (Tcl_Channel chan, const char * src,
int srcLen);
#endif
#ifndef Tcl_GetTopChannel_TCL_DECLARED
@@ -2427,85 +2427,85 @@ EXTERN int Tcl_ChannelBuffered (Tcl_Channel chan);
#define Tcl_ChannelName_TCL_DECLARED
/* 398 */
EXTERN CONST84_RETURN char * Tcl_ChannelName (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelVersion_TCL_DECLARED
#define Tcl_ChannelVersion_TCL_DECLARED
/* 399 */
EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelBlockModeProc_TCL_DECLARED
#define Tcl_ChannelBlockModeProc_TCL_DECLARED
/* 400 */
EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelCloseProc_TCL_DECLARED
#define Tcl_ChannelCloseProc_TCL_DECLARED
/* 401 */
EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelClose2Proc_TCL_DECLARED
#define Tcl_ChannelClose2Proc_TCL_DECLARED
/* 402 */
EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelInputProc_TCL_DECLARED
#define Tcl_ChannelInputProc_TCL_DECLARED
/* 403 */
EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelOutputProc_TCL_DECLARED
#define Tcl_ChannelOutputProc_TCL_DECLARED
/* 404 */
EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelSeekProc_TCL_DECLARED
#define Tcl_ChannelSeekProc_TCL_DECLARED
/* 405 */
EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelSetOptionProc_TCL_DECLARED
#define Tcl_ChannelSetOptionProc_TCL_DECLARED
/* 406 */
EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelGetOptionProc_TCL_DECLARED
#define Tcl_ChannelGetOptionProc_TCL_DECLARED
/* 407 */
EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelWatchProc_TCL_DECLARED
#define Tcl_ChannelWatchProc_TCL_DECLARED
/* 408 */
EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelGetHandleProc_TCL_DECLARED
#define Tcl_ChannelGetHandleProc_TCL_DECLARED
/* 409 */
EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelFlushProc_TCL_DECLARED
#define Tcl_ChannelFlushProc_TCL_DECLARED
/* 410 */
EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_ChannelHandlerProc_TCL_DECLARED
#define Tcl_ChannelHandlerProc_TCL_DECLARED
/* 411 */
EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_JoinThread_TCL_DECLARED
#define Tcl_JoinThread_TCL_DECLARED
@@ -2520,7 +2520,7 @@ EXTERN int Tcl_IsChannelShared (Tcl_Channel channel);
#ifndef Tcl_IsChannelRegistered_TCL_DECLARED
#define Tcl_IsChannelRegistered_TCL_DECLARED
/* 414 */
-EXTERN int Tcl_IsChannelRegistered (Tcl_Interp* interp,
+EXTERN int Tcl_IsChannelRegistered (Tcl_Interp* interp,
Tcl_Channel channel);
#endif
#ifndef Tcl_CutChannel_TCL_DECLARED
@@ -2541,38 +2541,38 @@ EXTERN void Tcl_ClearChannelHandlers (Tcl_Channel channel);
#ifndef Tcl_IsChannelExisting_TCL_DECLARED
#define Tcl_IsChannelExisting_TCL_DECLARED
/* 418 */
-EXTERN int Tcl_IsChannelExisting (CONST char* channelName);
+EXTERN int Tcl_IsChannelExisting (const char* channelName);
#endif
#ifndef Tcl_UniCharNcasecmp_TCL_DECLARED
#define Tcl_UniCharNcasecmp_TCL_DECLARED
/* 419 */
-EXTERN int Tcl_UniCharNcasecmp (CONST Tcl_UniChar * ucs,
- CONST Tcl_UniChar * uct,
+EXTERN int Tcl_UniCharNcasecmp (const Tcl_UniChar * ucs,
+ const Tcl_UniChar * uct,
unsigned long numChars);
#endif
#ifndef Tcl_UniCharCaseMatch_TCL_DECLARED
#define Tcl_UniCharCaseMatch_TCL_DECLARED
/* 420 */
-EXTERN int Tcl_UniCharCaseMatch (CONST Tcl_UniChar * uniStr,
- CONST Tcl_UniChar * uniPattern, int nocase);
+EXTERN int Tcl_UniCharCaseMatch (const Tcl_UniChar * uniStr,
+ const Tcl_UniChar * uniPattern, int nocase);
#endif
#ifndef Tcl_FindHashEntry_TCL_DECLARED
#define Tcl_FindHashEntry_TCL_DECLARED
/* 421 */
-EXTERN Tcl_HashEntry * Tcl_FindHashEntry (Tcl_HashTable * tablePtr,
- CONST char * key);
+EXTERN Tcl_HashEntry * Tcl_FindHashEntry (Tcl_HashTable * tablePtr,
+ const char * key);
#endif
#ifndef Tcl_CreateHashEntry_TCL_DECLARED
#define Tcl_CreateHashEntry_TCL_DECLARED
/* 422 */
-EXTERN Tcl_HashEntry * Tcl_CreateHashEntry (Tcl_HashTable * tablePtr,
- CONST char * key, int * newPtr);
+EXTERN Tcl_HashEntry * Tcl_CreateHashEntry (Tcl_HashTable * tablePtr,
+ const char * key, int * newPtr);
#endif
#ifndef Tcl_InitCustomHashTable_TCL_DECLARED
#define Tcl_InitCustomHashTable_TCL_DECLARED
/* 423 */
-EXTERN void Tcl_InitCustomHashTable (Tcl_HashTable * tablePtr,
- int keyType, CONST Tcl_HashKeyType * typePtr);
+EXTERN void Tcl_InitCustomHashTable (Tcl_HashTable * tablePtr,
+ int keyType, const Tcl_HashKeyType * typePtr);
#endif
#ifndef Tcl_InitObjHashTable_TCL_DECLARED
#define Tcl_InitObjHashTable_TCL_DECLARED
@@ -2582,25 +2582,25 @@ EXTERN void Tcl_InitObjHashTable (Tcl_HashTable * tablePtr);
#ifndef Tcl_CommandTraceInfo_TCL_DECLARED
#define Tcl_CommandTraceInfo_TCL_DECLARED
/* 425 */
-EXTERN ClientData Tcl_CommandTraceInfo (Tcl_Interp * interp,
- CONST char * varName, int flags,
- Tcl_CommandTraceProc * procPtr,
+EXTERN ClientData Tcl_CommandTraceInfo (Tcl_Interp * interp,
+ const char * varName, int flags,
+ Tcl_CommandTraceProc * procPtr,
ClientData prevClientData);
#endif
#ifndef Tcl_TraceCommand_TCL_DECLARED
#define Tcl_TraceCommand_TCL_DECLARED
/* 426 */
-EXTERN int Tcl_TraceCommand (Tcl_Interp * interp,
- CONST char * varName, int flags,
- Tcl_CommandTraceProc * proc,
+EXTERN int Tcl_TraceCommand (Tcl_Interp * interp,
+ const char * varName, int flags,
+ Tcl_CommandTraceProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_UntraceCommand_TCL_DECLARED
#define Tcl_UntraceCommand_TCL_DECLARED
/* 427 */
-EXTERN void Tcl_UntraceCommand (Tcl_Interp * interp,
- CONST char * varName, int flags,
- Tcl_CommandTraceProc * proc,
+EXTERN void Tcl_UntraceCommand (Tcl_Interp * interp,
+ const char * varName, int flags,
+ Tcl_CommandTraceProc * proc,
ClientData clientData);
#endif
#ifndef Tcl_AttemptAlloc_TCL_DECLARED
@@ -2611,8 +2611,8 @@ EXTERN char * Tcl_AttemptAlloc (unsigned int size);
#ifndef Tcl_AttemptDbCkalloc_TCL_DECLARED
#define Tcl_AttemptDbCkalloc_TCL_DECLARED
/* 429 */
-EXTERN char * Tcl_AttemptDbCkalloc (unsigned int size,
- CONST char * file, int line);
+EXTERN char * Tcl_AttemptDbCkalloc (unsigned int size,
+ const char * file, int line);
#endif
#ifndef Tcl_AttemptRealloc_TCL_DECLARED
#define Tcl_AttemptRealloc_TCL_DECLARED
@@ -2622,14 +2622,14 @@ EXTERN char * Tcl_AttemptRealloc (char * ptr, unsigned int size);
#ifndef Tcl_AttemptDbCkrealloc_TCL_DECLARED
#define Tcl_AttemptDbCkrealloc_TCL_DECLARED
/* 431 */
-EXTERN char * Tcl_AttemptDbCkrealloc (char * ptr,
- unsigned int size, CONST char * file,
+EXTERN char * Tcl_AttemptDbCkrealloc (char * ptr,
+ unsigned int size, const char * file,
int line);
#endif
#ifndef Tcl_AttemptSetObjLength_TCL_DECLARED
#define Tcl_AttemptSetObjLength_TCL_DECLARED
/* 432 */
-EXTERN int Tcl_AttemptSetObjLength (Tcl_Obj * objPtr,
+EXTERN int Tcl_AttemptSetObjLength (Tcl_Obj * objPtr,
int length);
#endif
#ifndef Tcl_GetChannelThread_TCL_DECLARED
@@ -2640,34 +2640,34 @@ EXTERN Tcl_ThreadId Tcl_GetChannelThread (Tcl_Channel channel);
#ifndef Tcl_GetUnicodeFromObj_TCL_DECLARED
#define Tcl_GetUnicodeFromObj_TCL_DECLARED
/* 434 */
-EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj (Tcl_Obj * objPtr,
+EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj (Tcl_Obj * objPtr,
int * lengthPtr);
#endif
#ifndef Tcl_GetMathFuncInfo_TCL_DECLARED
#define Tcl_GetMathFuncInfo_TCL_DECLARED
/* 435 */
-EXTERN int Tcl_GetMathFuncInfo (Tcl_Interp * interp,
- CONST char * name, int * numArgsPtr,
- Tcl_ValueType ** argTypesPtr,
- Tcl_MathProc ** procPtr,
+EXTERN int Tcl_GetMathFuncInfo (Tcl_Interp * interp,
+ const char * name, int * numArgsPtr,
+ Tcl_ValueType ** argTypesPtr,
+ Tcl_MathProc ** procPtr,
ClientData * clientDataPtr);
#endif
#ifndef Tcl_ListMathFuncs_TCL_DECLARED
#define Tcl_ListMathFuncs_TCL_DECLARED
/* 436 */
-EXTERN Tcl_Obj * Tcl_ListMathFuncs (Tcl_Interp * interp,
- CONST char * pattern);
+EXTERN Tcl_Obj * Tcl_ListMathFuncs (Tcl_Interp * interp,
+ const char * pattern);
#endif
#ifndef Tcl_SubstObj_TCL_DECLARED
#define Tcl_SubstObj_TCL_DECLARED
/* 437 */
-EXTERN Tcl_Obj * Tcl_SubstObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
+EXTERN Tcl_Obj * Tcl_SubstObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
int flags);
#endif
#ifndef Tcl_DetachChannel_TCL_DECLARED
#define Tcl_DetachChannel_TCL_DECLARED
/* 438 */
-EXTERN int Tcl_DetachChannel (Tcl_Interp* interp,
+EXTERN int Tcl_DetachChannel (Tcl_Interp* interp,
Tcl_Channel channel);
#endif
#ifndef Tcl_IsStandardChannel_TCL_DECLARED
@@ -2678,13 +2678,13 @@ EXTERN int Tcl_IsStandardChannel (Tcl_Channel channel);
#ifndef Tcl_FSCopyFile_TCL_DECLARED
#define Tcl_FSCopyFile_TCL_DECLARED
/* 440 */
-EXTERN int Tcl_FSCopyFile (Tcl_Obj * srcPathPtr,
+EXTERN int Tcl_FSCopyFile (Tcl_Obj * srcPathPtr,
Tcl_Obj * destPathPtr);
#endif
#ifndef Tcl_FSCopyDirectory_TCL_DECLARED
#define Tcl_FSCopyDirectory_TCL_DECLARED
/* 441 */
-EXTERN int Tcl_FSCopyDirectory (Tcl_Obj * srcPathPtr,
+EXTERN int Tcl_FSCopyDirectory (Tcl_Obj * srcPathPtr,
Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr);
#endif
#ifndef Tcl_FSCreateDirectory_TCL_DECLARED
@@ -2700,38 +2700,38 @@ EXTERN int Tcl_FSDeleteFile (Tcl_Obj * pathPtr);
#ifndef Tcl_FSLoadFile_TCL_DECLARED
#define Tcl_FSLoadFile_TCL_DECLARED
/* 444 */
-EXTERN int Tcl_FSLoadFile (Tcl_Interp * interp,
- Tcl_Obj * pathPtr, CONST char * sym1,
- CONST char * sym2,
- Tcl_PackageInitProc ** proc1Ptr,
- Tcl_PackageInitProc ** proc2Ptr,
- Tcl_LoadHandle * handlePtr,
+EXTERN int Tcl_FSLoadFile (Tcl_Interp * interp,
+ Tcl_Obj * pathPtr, const char * sym1,
+ const char * sym2,
+ Tcl_PackageInitProc ** proc1Ptr,
+ Tcl_PackageInitProc ** proc2Ptr,
+ Tcl_LoadHandle * handlePtr,
Tcl_FSUnloadFileProc ** unloadProcPtr);
#endif
#ifndef Tcl_FSMatchInDirectory_TCL_DECLARED
#define Tcl_FSMatchInDirectory_TCL_DECLARED
/* 445 */
-EXTERN int Tcl_FSMatchInDirectory (Tcl_Interp * interp,
- Tcl_Obj * result, Tcl_Obj * pathPtr,
- CONST char * pattern,
+EXTERN int Tcl_FSMatchInDirectory (Tcl_Interp * interp,
+ Tcl_Obj * result, Tcl_Obj * pathPtr,
+ const char * pattern,
Tcl_GlobTypeData * types);
#endif
#ifndef Tcl_FSLink_TCL_DECLARED
#define Tcl_FSLink_TCL_DECLARED
/* 446 */
-EXTERN Tcl_Obj * Tcl_FSLink (Tcl_Obj * pathPtr, Tcl_Obj * toPtr,
+EXTERN Tcl_Obj * Tcl_FSLink (Tcl_Obj * pathPtr, Tcl_Obj * toPtr,
int linkAction);
#endif
#ifndef Tcl_FSRemoveDirectory_TCL_DECLARED
#define Tcl_FSRemoveDirectory_TCL_DECLARED
/* 447 */
-EXTERN int Tcl_FSRemoveDirectory (Tcl_Obj * pathPtr,
+EXTERN int Tcl_FSRemoveDirectory (Tcl_Obj * pathPtr,
int recursive, Tcl_Obj ** errorPtr);
#endif
#ifndef Tcl_FSRenameFile_TCL_DECLARED
#define Tcl_FSRenameFile_TCL_DECLARED
/* 448 */
-EXTERN int Tcl_FSRenameFile (Tcl_Obj * srcPathPtr,
+EXTERN int Tcl_FSRenameFile (Tcl_Obj * srcPathPtr,
Tcl_Obj * destPathPtr);
#endif
#ifndef Tcl_FSLstat_TCL_DECLARED
@@ -2742,25 +2742,25 @@ EXTERN int Tcl_FSLstat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf);
#ifndef Tcl_FSUtime_TCL_DECLARED
#define Tcl_FSUtime_TCL_DECLARED
/* 450 */
-EXTERN int Tcl_FSUtime (Tcl_Obj * pathPtr,
+EXTERN int Tcl_FSUtime (Tcl_Obj * pathPtr,
struct utimbuf * tval);
#endif
#ifndef Tcl_FSFileAttrsGet_TCL_DECLARED
#define Tcl_FSFileAttrsGet_TCL_DECLARED
/* 451 */
-EXTERN int Tcl_FSFileAttrsGet (Tcl_Interp * interp, int index,
+EXTERN int Tcl_FSFileAttrsGet (Tcl_Interp * interp, int index,
Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef);
#endif
#ifndef Tcl_FSFileAttrsSet_TCL_DECLARED
#define Tcl_FSFileAttrsSet_TCL_DECLARED
/* 452 */
-EXTERN int Tcl_FSFileAttrsSet (Tcl_Interp * interp, int index,
+EXTERN int Tcl_FSFileAttrsSet (Tcl_Interp * interp, int index,
Tcl_Obj * pathPtr, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_FSFileAttrStrings_TCL_DECLARED
#define Tcl_FSFileAttrStrings_TCL_DECLARED
/* 453 */
-EXTERN CONST char *CONST86 * Tcl_FSFileAttrStrings (Tcl_Obj * pathPtr,
+EXTERN const char *CONST86 * Tcl_FSFileAttrStrings (Tcl_Obj * pathPtr,
Tcl_Obj ** objPtrRef);
#endif
#ifndef Tcl_FSStat_TCL_DECLARED
@@ -2776,8 +2776,8 @@ EXTERN int Tcl_FSAccess (Tcl_Obj * pathPtr, int mode);
#ifndef Tcl_FSOpenFileChannel_TCL_DECLARED
#define Tcl_FSOpenFileChannel_TCL_DECLARED
/* 456 */
-EXTERN Tcl_Channel Tcl_FSOpenFileChannel (Tcl_Interp * interp,
- Tcl_Obj * pathPtr, CONST char * modeString,
+EXTERN Tcl_Channel Tcl_FSOpenFileChannel (Tcl_Interp * interp,
+ Tcl_Obj * pathPtr, const char * modeString,
int permissions);
#endif
#ifndef Tcl_FSGetCwd_TCL_DECLARED
@@ -2793,7 +2793,7 @@ EXTERN int Tcl_FSChdir (Tcl_Obj * pathPtr);
#ifndef Tcl_FSConvertToPathType_TCL_DECLARED
#define Tcl_FSConvertToPathType_TCL_DECLARED
/* 459 */
-EXTERN int Tcl_FSConvertToPathType (Tcl_Interp * interp,
+EXTERN int Tcl_FSConvertToPathType (Tcl_Interp * interp,
Tcl_Obj * pathPtr);
#endif
#ifndef Tcl_FSJoinPath_TCL_DECLARED
@@ -2809,50 +2809,50 @@ EXTERN Tcl_Obj* Tcl_FSSplitPath (Tcl_Obj* pathPtr, int * lenPtr);
#ifndef Tcl_FSEqualPaths_TCL_DECLARED
#define Tcl_FSEqualPaths_TCL_DECLARED
/* 462 */
-EXTERN int Tcl_FSEqualPaths (Tcl_Obj* firstPtr,
+EXTERN int Tcl_FSEqualPaths (Tcl_Obj* firstPtr,
Tcl_Obj* secondPtr);
#endif
#ifndef Tcl_FSGetNormalizedPath_TCL_DECLARED
#define Tcl_FSGetNormalizedPath_TCL_DECLARED
/* 463 */
-EXTERN Tcl_Obj* Tcl_FSGetNormalizedPath (Tcl_Interp * interp,
+EXTERN Tcl_Obj* Tcl_FSGetNormalizedPath (Tcl_Interp * interp,
Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSJoinToPath_TCL_DECLARED
#define Tcl_FSJoinToPath_TCL_DECLARED
/* 464 */
-EXTERN Tcl_Obj* Tcl_FSJoinToPath (Tcl_Obj * pathPtr, int objc,
- Tcl_Obj *CONST objv[]);
+EXTERN Tcl_Obj* Tcl_FSJoinToPath (Tcl_Obj * pathPtr, int objc,
+ Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_FSGetInternalRep_TCL_DECLARED
#define Tcl_FSGetInternalRep_TCL_DECLARED
/* 465 */
-EXTERN ClientData Tcl_FSGetInternalRep (Tcl_Obj* pathPtr,
- CONST Tcl_Filesystem * fsPtr);
+EXTERN ClientData Tcl_FSGetInternalRep (Tcl_Obj* pathPtr,
+ const Tcl_Filesystem * fsPtr);
#endif
#ifndef Tcl_FSGetTranslatedPath_TCL_DECLARED
#define Tcl_FSGetTranslatedPath_TCL_DECLARED
/* 466 */
-EXTERN Tcl_Obj* Tcl_FSGetTranslatedPath (Tcl_Interp * interp,
+EXTERN Tcl_Obj* Tcl_FSGetTranslatedPath (Tcl_Interp * interp,
Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSEvalFile_TCL_DECLARED
#define Tcl_FSEvalFile_TCL_DECLARED
/* 467 */
-EXTERN int Tcl_FSEvalFile (Tcl_Interp * interp,
+EXTERN int Tcl_FSEvalFile (Tcl_Interp * interp,
Tcl_Obj * fileName);
#endif
#ifndef Tcl_FSNewNativePath_TCL_DECLARED
#define Tcl_FSNewNativePath_TCL_DECLARED
/* 468 */
EXTERN Tcl_Obj* Tcl_FSNewNativePath (
- CONST Tcl_Filesystem* fromFilesystem,
+ const Tcl_Filesystem* fromFilesystem,
ClientData clientData);
#endif
#ifndef Tcl_FSGetNativePath_TCL_DECLARED
#define Tcl_FSGetNativePath_TCL_DECLARED
/* 469 */
-EXTERN CONST char* Tcl_FSGetNativePath (Tcl_Obj* pathPtr);
+EXTERN const char* Tcl_FSGetNativePath (Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSFileSystemInfo_TCL_DECLARED
#define Tcl_FSFileSystemInfo_TCL_DECLARED
@@ -2872,23 +2872,23 @@ EXTERN Tcl_Obj* Tcl_FSListVolumes (void);
#ifndef Tcl_FSRegister_TCL_DECLARED
#define Tcl_FSRegister_TCL_DECLARED
/* 473 */
-EXTERN int Tcl_FSRegister (ClientData clientData,
- CONST Tcl_Filesystem * fsPtr);
+EXTERN int Tcl_FSRegister (ClientData clientData,
+ const Tcl_Filesystem * fsPtr);
#endif
#ifndef Tcl_FSUnregister_TCL_DECLARED
#define Tcl_FSUnregister_TCL_DECLARED
/* 474 */
-EXTERN int Tcl_FSUnregister (CONST Tcl_Filesystem * fsPtr);
+EXTERN int Tcl_FSUnregister (const Tcl_Filesystem * fsPtr);
#endif
#ifndef Tcl_FSData_TCL_DECLARED
#define Tcl_FSData_TCL_DECLARED
/* 475 */
-EXTERN ClientData Tcl_FSData (CONST Tcl_Filesystem * fsPtr);
+EXTERN ClientData Tcl_FSData (const Tcl_Filesystem * fsPtr);
#endif
#ifndef Tcl_FSGetTranslatedStringPath_TCL_DECLARED
#define Tcl_FSGetTranslatedStringPath_TCL_DECLARED
/* 476 */
-EXTERN CONST char* Tcl_FSGetTranslatedStringPath (Tcl_Interp * interp,
+EXTERN const char* Tcl_FSGetTranslatedStringPath (Tcl_Interp * interp,
Tcl_Obj* pathPtr);
#endif
#ifndef Tcl_FSGetFileSystemForPath_TCL_DECLARED
@@ -2909,12 +2909,12 @@ EXTERN int Tcl_OutputBuffered (Tcl_Channel chan);
#ifndef Tcl_FSMountsChanged_TCL_DECLARED
#define Tcl_FSMountsChanged_TCL_DECLARED
/* 480 */
-EXTERN void Tcl_FSMountsChanged (CONST Tcl_Filesystem * fsPtr);
+EXTERN void Tcl_FSMountsChanged (const Tcl_Filesystem * fsPtr);
#endif
#ifndef Tcl_EvalTokensStandard_TCL_DECLARED
#define Tcl_EvalTokensStandard_TCL_DECLARED
/* 481 */
-EXTERN int Tcl_EvalTokensStandard (Tcl_Interp * interp,
+EXTERN int Tcl_EvalTokensStandard (Tcl_Interp * interp,
Tcl_Token * tokenPtr, int count);
#endif
#ifndef Tcl_GetTime_TCL_DECLARED
@@ -2925,33 +2925,33 @@ EXTERN void Tcl_GetTime (Tcl_Time* timeBuf);
#ifndef Tcl_CreateObjTrace_TCL_DECLARED
#define Tcl_CreateObjTrace_TCL_DECLARED
/* 483 */
-EXTERN Tcl_Trace Tcl_CreateObjTrace (Tcl_Interp* interp, int level,
- int flags, Tcl_CmdObjTraceProc* objProc,
- ClientData clientData,
+EXTERN Tcl_Trace Tcl_CreateObjTrace (Tcl_Interp* interp, int level,
+ int flags, Tcl_CmdObjTraceProc* objProc,
+ ClientData clientData,
Tcl_CmdObjTraceDeleteProc* delProc);
#endif
#ifndef Tcl_GetCommandInfoFromToken_TCL_DECLARED
#define Tcl_GetCommandInfoFromToken_TCL_DECLARED
/* 484 */
-EXTERN int Tcl_GetCommandInfoFromToken (Tcl_Command token,
+EXTERN int Tcl_GetCommandInfoFromToken (Tcl_Command token,
Tcl_CmdInfo* infoPtr);
#endif
#ifndef Tcl_SetCommandInfoFromToken_TCL_DECLARED
#define Tcl_SetCommandInfoFromToken_TCL_DECLARED
/* 485 */
-EXTERN int Tcl_SetCommandInfoFromToken (Tcl_Command token,
- CONST Tcl_CmdInfo* infoPtr);
+EXTERN int Tcl_SetCommandInfoFromToken (Tcl_Command token,
+ const Tcl_CmdInfo* infoPtr);
#endif
#ifndef Tcl_DbNewWideIntObj_TCL_DECLARED
#define Tcl_DbNewWideIntObj_TCL_DECLARED
/* 486 */
-EXTERN Tcl_Obj * Tcl_DbNewWideIntObj (Tcl_WideInt wideValue,
- CONST char * file, int line);
+EXTERN Tcl_Obj * Tcl_DbNewWideIntObj (Tcl_WideInt wideValue,
+ const char * file, int line);
#endif
#ifndef Tcl_GetWideIntFromObj_TCL_DECLARED
#define Tcl_GetWideIntFromObj_TCL_DECLARED
/* 487 */
-EXTERN int Tcl_GetWideIntFromObj (Tcl_Interp * interp,
+EXTERN int Tcl_GetWideIntFromObj (Tcl_Interp * interp,
Tcl_Obj * objPtr, Tcl_WideInt * widePtr);
#endif
#ifndef Tcl_NewWideIntObj_TCL_DECLARED
@@ -2962,7 +2962,7 @@ EXTERN Tcl_Obj * Tcl_NewWideIntObj (Tcl_WideInt wideValue);
#ifndef Tcl_SetWideIntObj_TCL_DECLARED
#define Tcl_SetWideIntObj_TCL_DECLARED
/* 489 */
-EXTERN void Tcl_SetWideIntObj (Tcl_Obj * objPtr,
+EXTERN void Tcl_SetWideIntObj (Tcl_Obj * objPtr,
Tcl_WideInt wideValue);
#endif
#ifndef Tcl_AllocStatBuf_TCL_DECLARED
@@ -2973,7 +2973,7 @@ EXTERN Tcl_StatBuf * Tcl_AllocStatBuf (void);
#ifndef Tcl_Seek_TCL_DECLARED
#define Tcl_Seek_TCL_DECLARED
/* 491 */
-EXTERN Tcl_WideInt Tcl_Seek (Tcl_Channel chan, Tcl_WideInt offset,
+EXTERN Tcl_WideInt Tcl_Seek (Tcl_Channel chan, Tcl_WideInt offset,
int mode);
#endif
#ifndef Tcl_Tell_TCL_DECLARED
@@ -2985,48 +2985,48 @@ EXTERN Tcl_WideInt Tcl_Tell (Tcl_Channel chan);
#define Tcl_ChannelWideSeekProc_TCL_DECLARED
/* 493 */
EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_DictObjPut_TCL_DECLARED
#define Tcl_DictObjPut_TCL_DECLARED
/* 494 */
-EXTERN int Tcl_DictObjPut (Tcl_Interp * interp,
- Tcl_Obj * dictPtr, Tcl_Obj * keyPtr,
+EXTERN int Tcl_DictObjPut (Tcl_Interp * interp,
+ Tcl_Obj * dictPtr, Tcl_Obj * keyPtr,
Tcl_Obj * valuePtr);
#endif
#ifndef Tcl_DictObjGet_TCL_DECLARED
#define Tcl_DictObjGet_TCL_DECLARED
/* 495 */
-EXTERN int Tcl_DictObjGet (Tcl_Interp * interp,
- Tcl_Obj * dictPtr, Tcl_Obj * keyPtr,
+EXTERN int Tcl_DictObjGet (Tcl_Interp * interp,
+ Tcl_Obj * dictPtr, Tcl_Obj * keyPtr,
Tcl_Obj ** valuePtrPtr);
#endif
#ifndef Tcl_DictObjRemove_TCL_DECLARED
#define Tcl_DictObjRemove_TCL_DECLARED
/* 496 */
-EXTERN int Tcl_DictObjRemove (Tcl_Interp * interp,
+EXTERN int Tcl_DictObjRemove (Tcl_Interp * interp,
Tcl_Obj * dictPtr, Tcl_Obj * keyPtr);
#endif
#ifndef Tcl_DictObjSize_TCL_DECLARED
#define Tcl_DictObjSize_TCL_DECLARED
/* 497 */
-EXTERN int Tcl_DictObjSize (Tcl_Interp * interp,
+EXTERN int Tcl_DictObjSize (Tcl_Interp * interp,
Tcl_Obj * dictPtr, int * sizePtr);
#endif
#ifndef Tcl_DictObjFirst_TCL_DECLARED
#define Tcl_DictObjFirst_TCL_DECLARED
/* 498 */
-EXTERN int Tcl_DictObjFirst (Tcl_Interp * interp,
- Tcl_Obj * dictPtr,
- Tcl_DictSearch * searchPtr,
- Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr,
+EXTERN int Tcl_DictObjFirst (Tcl_Interp * interp,
+ Tcl_Obj * dictPtr,
+ Tcl_DictSearch * searchPtr,
+ Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr,
int * donePtr);
#endif
#ifndef Tcl_DictObjNext_TCL_DECLARED
#define Tcl_DictObjNext_TCL_DECLARED
/* 499 */
-EXTERN void Tcl_DictObjNext (Tcl_DictSearch * searchPtr,
- Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr,
+EXTERN void Tcl_DictObjNext (Tcl_DictSearch * searchPtr,
+ Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr,
int * donePtr);
#endif
#ifndef Tcl_DictObjDone_TCL_DECLARED
@@ -3037,16 +3037,16 @@ EXTERN void Tcl_DictObjDone (Tcl_DictSearch * searchPtr);
#ifndef Tcl_DictObjPutKeyList_TCL_DECLARED
#define Tcl_DictObjPutKeyList_TCL_DECLARED
/* 501 */
-EXTERN int Tcl_DictObjPutKeyList (Tcl_Interp * interp,
- Tcl_Obj * dictPtr, int keyc,
- Tcl_Obj *CONST * keyv, Tcl_Obj * valuePtr);
+EXTERN int Tcl_DictObjPutKeyList (Tcl_Interp * interp,
+ Tcl_Obj * dictPtr, int keyc,
+ Tcl_Obj *const * keyv, Tcl_Obj * valuePtr);
#endif
#ifndef Tcl_DictObjRemoveKeyList_TCL_DECLARED
#define Tcl_DictObjRemoveKeyList_TCL_DECLARED
/* 502 */
-EXTERN int Tcl_DictObjRemoveKeyList (Tcl_Interp * interp,
- Tcl_Obj * dictPtr, int keyc,
- Tcl_Obj *CONST * keyv);
+EXTERN int Tcl_DictObjRemoveKeyList (Tcl_Interp * interp,
+ Tcl_Obj * dictPtr, int keyc,
+ Tcl_Obj *const * keyv);
#endif
#ifndef Tcl_NewDictObj_TCL_DECLARED
#define Tcl_NewDictObj_TCL_DECLARED
@@ -3056,21 +3056,21 @@ EXTERN Tcl_Obj * Tcl_NewDictObj (void);
#ifndef Tcl_DbNewDictObj_TCL_DECLARED
#define Tcl_DbNewDictObj_TCL_DECLARED
/* 504 */
-EXTERN Tcl_Obj * Tcl_DbNewDictObj (CONST char * file, int line);
+EXTERN Tcl_Obj * Tcl_DbNewDictObj (const char * file, int line);
#endif
#ifndef Tcl_RegisterConfig_TCL_DECLARED
#define Tcl_RegisterConfig_TCL_DECLARED
/* 505 */
-EXTERN void Tcl_RegisterConfig (Tcl_Interp* interp,
- CONST char* pkgName,
- CONST Tcl_Config* configuration,
- CONST char* valEncoding);
+EXTERN void Tcl_RegisterConfig (Tcl_Interp* interp,
+ const char* pkgName,
+ const Tcl_Config* configuration,
+ const char* valEncoding);
#endif
#ifndef Tcl_CreateNamespace_TCL_DECLARED
#define Tcl_CreateNamespace_TCL_DECLARED
/* 506 */
-EXTERN Tcl_Namespace * Tcl_CreateNamespace (Tcl_Interp * interp,
- CONST char * name, ClientData clientData,
+EXTERN Tcl_Namespace * Tcl_CreateNamespace (Tcl_Interp * interp,
+ const char * name, ClientData clientData,
Tcl_NamespaceDeleteProc * deleteProc);
#endif
#ifndef Tcl_DeleteNamespace_TCL_DECLARED
@@ -3081,28 +3081,28 @@ EXTERN void Tcl_DeleteNamespace (Tcl_Namespace * nsPtr);
#ifndef Tcl_AppendExportList_TCL_DECLARED
#define Tcl_AppendExportList_TCL_DECLARED
/* 508 */
-EXTERN int Tcl_AppendExportList (Tcl_Interp * interp,
+EXTERN int Tcl_AppendExportList (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_Export_TCL_DECLARED
#define Tcl_Export_TCL_DECLARED
/* 509 */
-EXTERN int Tcl_Export (Tcl_Interp * interp,
- Tcl_Namespace * nsPtr, CONST char * pattern,
+EXTERN int Tcl_Export (Tcl_Interp * interp,
+ Tcl_Namespace * nsPtr, const char * pattern,
int resetListFirst);
#endif
#ifndef Tcl_Import_TCL_DECLARED
#define Tcl_Import_TCL_DECLARED
/* 510 */
-EXTERN int Tcl_Import (Tcl_Interp * interp,
- Tcl_Namespace * nsPtr, CONST char * pattern,
+EXTERN int Tcl_Import (Tcl_Interp * interp,
+ Tcl_Namespace * nsPtr, const char * pattern,
int allowOverwrite);
#endif
#ifndef Tcl_ForgetImport_TCL_DECLARED
#define Tcl_ForgetImport_TCL_DECLARED
/* 511 */
-EXTERN int Tcl_ForgetImport (Tcl_Interp * interp,
- Tcl_Namespace * nsPtr, CONST char * pattern);
+EXTERN int Tcl_ForgetImport (Tcl_Interp * interp,
+ Tcl_Namespace * nsPtr, const char * pattern);
#endif
#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED
#define Tcl_GetCurrentNamespace_TCL_DECLARED
@@ -3117,35 +3117,35 @@ EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace (Tcl_Interp * interp);
#ifndef Tcl_FindNamespace_TCL_DECLARED
#define Tcl_FindNamespace_TCL_DECLARED
/* 514 */
-EXTERN Tcl_Namespace * Tcl_FindNamespace (Tcl_Interp * interp,
- CONST char * name,
+EXTERN Tcl_Namespace * Tcl_FindNamespace (Tcl_Interp * interp,
+ const char * name,
Tcl_Namespace * contextNsPtr, int flags);
#endif
#ifndef Tcl_FindCommand_TCL_DECLARED
#define Tcl_FindCommand_TCL_DECLARED
/* 515 */
-EXTERN Tcl_Command Tcl_FindCommand (Tcl_Interp * interp,
- CONST char * name,
+EXTERN Tcl_Command Tcl_FindCommand (Tcl_Interp * interp,
+ const char * name,
Tcl_Namespace * contextNsPtr, int flags);
#endif
#ifndef Tcl_GetCommandFromObj_TCL_DECLARED
#define Tcl_GetCommandFromObj_TCL_DECLARED
/* 516 */
-EXTERN Tcl_Command Tcl_GetCommandFromObj (Tcl_Interp * interp,
+EXTERN Tcl_Command Tcl_GetCommandFromObj (Tcl_Interp * interp,
Tcl_Obj * objPtr);
#endif
#ifndef Tcl_GetCommandFullName_TCL_DECLARED
#define Tcl_GetCommandFullName_TCL_DECLARED
/* 517 */
-EXTERN void Tcl_GetCommandFullName (Tcl_Interp * interp,
+EXTERN void Tcl_GetCommandFullName (Tcl_Interp * interp,
Tcl_Command command, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_FSEvalFileEx_TCL_DECLARED
#define Tcl_FSEvalFileEx_TCL_DECLARED
/* 518 */
-EXTERN int Tcl_FSEvalFileEx (Tcl_Interp * interp,
- Tcl_Obj * fileName,
- CONST char * encodingName);
+EXTERN int Tcl_FSEvalFileEx (Tcl_Interp * interp,
+ Tcl_Obj * fileName,
+ const char * encodingName);
#endif
#ifndef Tcl_SetExitProc_TCL_DECLARED
#define Tcl_SetExitProc_TCL_DECLARED
@@ -3155,16 +3155,16 @@ EXTERN Tcl_ExitProc * Tcl_SetExitProc (Tcl_ExitProc * proc);
#ifndef Tcl_LimitAddHandler_TCL_DECLARED
#define Tcl_LimitAddHandler_TCL_DECLARED
/* 520 */
-EXTERN void Tcl_LimitAddHandler (Tcl_Interp * interp, int type,
- Tcl_LimitHandlerProc * handlerProc,
- ClientData clientData,
+EXTERN void Tcl_LimitAddHandler (Tcl_Interp * interp, int type,
+ Tcl_LimitHandlerProc * handlerProc,
+ ClientData clientData,
Tcl_LimitHandlerDeleteProc * deleteProc);
#endif
#ifndef Tcl_LimitRemoveHandler_TCL_DECLARED
#define Tcl_LimitRemoveHandler_TCL_DECLARED
/* 521 */
-EXTERN void Tcl_LimitRemoveHandler (Tcl_Interp * interp,
- int type, Tcl_LimitHandlerProc * handlerProc,
+EXTERN void Tcl_LimitRemoveHandler (Tcl_Interp * interp,
+ int type, Tcl_LimitHandlerProc * handlerProc,
ClientData clientData);
#endif
#ifndef Tcl_LimitReady_TCL_DECLARED
@@ -3185,19 +3185,19 @@ EXTERN int Tcl_LimitExceeded (Tcl_Interp * interp);
#ifndef Tcl_LimitSetCommands_TCL_DECLARED
#define Tcl_LimitSetCommands_TCL_DECLARED
/* 525 */
-EXTERN void Tcl_LimitSetCommands (Tcl_Interp * interp,
+EXTERN void Tcl_LimitSetCommands (Tcl_Interp * interp,
int commandLimit);
#endif
#ifndef Tcl_LimitSetTime_TCL_DECLARED
#define Tcl_LimitSetTime_TCL_DECLARED
/* 526 */
-EXTERN void Tcl_LimitSetTime (Tcl_Interp * interp,
+EXTERN void Tcl_LimitSetTime (Tcl_Interp * interp,
Tcl_Time * timeLimitPtr);
#endif
#ifndef Tcl_LimitSetGranularity_TCL_DECLARED
#define Tcl_LimitSetGranularity_TCL_DECLARED
/* 527 */
-EXTERN void Tcl_LimitSetGranularity (Tcl_Interp * interp,
+EXTERN void Tcl_LimitSetGranularity (Tcl_Interp * interp,
int type, int granularity);
#endif
#ifndef Tcl_LimitTypeEnabled_TCL_DECLARED
@@ -3228,13 +3228,13 @@ EXTERN int Tcl_LimitGetCommands (Tcl_Interp * interp);
#ifndef Tcl_LimitGetTime_TCL_DECLARED
#define Tcl_LimitGetTime_TCL_DECLARED
/* 533 */
-EXTERN void Tcl_LimitGetTime (Tcl_Interp * interp,
+EXTERN void Tcl_LimitGetTime (Tcl_Interp * interp,
Tcl_Time * timeLimitPtr);
#endif
#ifndef Tcl_LimitGetGranularity_TCL_DECLARED
#define Tcl_LimitGetGranularity_TCL_DECLARED
/* 534 */
-EXTERN int Tcl_LimitGetGranularity (Tcl_Interp * interp,
+EXTERN int Tcl_LimitGetGranularity (Tcl_Interp * interp,
int type);
#endif
#ifndef Tcl_SaveInterpState_TCL_DECLARED
@@ -3245,7 +3245,7 @@ EXTERN Tcl_InterpState Tcl_SaveInterpState (Tcl_Interp * interp, int status);
#ifndef Tcl_RestoreInterpState_TCL_DECLARED
#define Tcl_RestoreInterpState_TCL_DECLARED
/* 536 */
-EXTERN int Tcl_RestoreInterpState (Tcl_Interp * interp,
+EXTERN int Tcl_RestoreInterpState (Tcl_Interp * interp,
Tcl_InterpState state);
#endif
#ifndef Tcl_DiscardInterpState_TCL_DECLARED
@@ -3256,13 +3256,13 @@ EXTERN void Tcl_DiscardInterpState (Tcl_InterpState state);
#ifndef Tcl_SetReturnOptions_TCL_DECLARED
#define Tcl_SetReturnOptions_TCL_DECLARED
/* 538 */
-EXTERN int Tcl_SetReturnOptions (Tcl_Interp * interp,
+EXTERN int Tcl_SetReturnOptions (Tcl_Interp * interp,
Tcl_Obj * options);
#endif
#ifndef Tcl_GetReturnOptions_TCL_DECLARED
#define Tcl_GetReturnOptions_TCL_DECLARED
/* 539 */
-EXTERN Tcl_Obj * Tcl_GetReturnOptions (Tcl_Interp * interp,
+EXTERN Tcl_Obj * Tcl_GetReturnOptions (Tcl_Interp * interp,
int result);
#endif
#ifndef Tcl_IsEnsemble_TCL_DECLARED
@@ -3273,90 +3273,90 @@ EXTERN int Tcl_IsEnsemble (Tcl_Command token);
#ifndef Tcl_CreateEnsemble_TCL_DECLARED
#define Tcl_CreateEnsemble_TCL_DECLARED
/* 541 */
-EXTERN Tcl_Command Tcl_CreateEnsemble (Tcl_Interp * interp,
- CONST char * name,
+EXTERN Tcl_Command Tcl_CreateEnsemble (Tcl_Interp * interp,
+ const char * name,
Tcl_Namespace * namespacePtr, int flags);
#endif
#ifndef Tcl_FindEnsemble_TCL_DECLARED
#define Tcl_FindEnsemble_TCL_DECLARED
/* 542 */
-EXTERN Tcl_Command Tcl_FindEnsemble (Tcl_Interp * interp,
+EXTERN Tcl_Command Tcl_FindEnsemble (Tcl_Interp * interp,
Tcl_Obj * cmdNameObj, int flags);
#endif
#ifndef Tcl_SetEnsembleSubcommandList_TCL_DECLARED
#define Tcl_SetEnsembleSubcommandList_TCL_DECLARED
/* 543 */
-EXTERN int Tcl_SetEnsembleSubcommandList (Tcl_Interp * interp,
+EXTERN int Tcl_SetEnsembleSubcommandList (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj * subcmdList);
#endif
#ifndef Tcl_SetEnsembleMappingDict_TCL_DECLARED
#define Tcl_SetEnsembleMappingDict_TCL_DECLARED
/* 544 */
-EXTERN int Tcl_SetEnsembleMappingDict (Tcl_Interp * interp,
+EXTERN int Tcl_SetEnsembleMappingDict (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj * mapDict);
#endif
#ifndef Tcl_SetEnsembleUnknownHandler_TCL_DECLARED
#define Tcl_SetEnsembleUnknownHandler_TCL_DECLARED
/* 545 */
-EXTERN int Tcl_SetEnsembleUnknownHandler (Tcl_Interp * interp,
+EXTERN int Tcl_SetEnsembleUnknownHandler (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj * unknownList);
#endif
#ifndef Tcl_SetEnsembleFlags_TCL_DECLARED
#define Tcl_SetEnsembleFlags_TCL_DECLARED
/* 546 */
-EXTERN int Tcl_SetEnsembleFlags (Tcl_Interp * interp,
+EXTERN int Tcl_SetEnsembleFlags (Tcl_Interp * interp,
Tcl_Command token, int flags);
#endif
#ifndef Tcl_GetEnsembleSubcommandList_TCL_DECLARED
#define Tcl_GetEnsembleSubcommandList_TCL_DECLARED
/* 547 */
-EXTERN int Tcl_GetEnsembleSubcommandList (Tcl_Interp * interp,
+EXTERN int Tcl_GetEnsembleSubcommandList (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj ** subcmdListPtr);
#endif
#ifndef Tcl_GetEnsembleMappingDict_TCL_DECLARED
#define Tcl_GetEnsembleMappingDict_TCL_DECLARED
/* 548 */
-EXTERN int Tcl_GetEnsembleMappingDict (Tcl_Interp * interp,
+EXTERN int Tcl_GetEnsembleMappingDict (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj ** mapDictPtr);
#endif
#ifndef Tcl_GetEnsembleUnknownHandler_TCL_DECLARED
#define Tcl_GetEnsembleUnknownHandler_TCL_DECLARED
/* 549 */
-EXTERN int Tcl_GetEnsembleUnknownHandler (Tcl_Interp * interp,
+EXTERN int Tcl_GetEnsembleUnknownHandler (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj ** unknownListPtr);
#endif
#ifndef Tcl_GetEnsembleFlags_TCL_DECLARED
#define Tcl_GetEnsembleFlags_TCL_DECLARED
/* 550 */
-EXTERN int Tcl_GetEnsembleFlags (Tcl_Interp * interp,
+EXTERN int Tcl_GetEnsembleFlags (Tcl_Interp * interp,
Tcl_Command token, int * flagsPtr);
#endif
#ifndef Tcl_GetEnsembleNamespace_TCL_DECLARED
#define Tcl_GetEnsembleNamespace_TCL_DECLARED
/* 551 */
-EXTERN int Tcl_GetEnsembleNamespace (Tcl_Interp * interp,
- Tcl_Command token,
+EXTERN int Tcl_GetEnsembleNamespace (Tcl_Interp * interp,
+ Tcl_Command token,
Tcl_Namespace ** namespacePtrPtr);
#endif
#ifndef Tcl_SetTimeProc_TCL_DECLARED
#define Tcl_SetTimeProc_TCL_DECLARED
/* 552 */
-EXTERN void Tcl_SetTimeProc (Tcl_GetTimeProc* getProc,
- Tcl_ScaleTimeProc* scaleProc,
+EXTERN void Tcl_SetTimeProc (Tcl_GetTimeProc* getProc,
+ Tcl_ScaleTimeProc* scaleProc,
ClientData clientData);
#endif
#ifndef Tcl_QueryTimeProc_TCL_DECLARED
#define Tcl_QueryTimeProc_TCL_DECLARED
/* 553 */
-EXTERN void Tcl_QueryTimeProc (Tcl_GetTimeProc** getProc,
- Tcl_ScaleTimeProc** scaleProc,
+EXTERN void Tcl_QueryTimeProc (Tcl_GetTimeProc** getProc,
+ Tcl_ScaleTimeProc** scaleProc,
ClientData* clientData);
#endif
#ifndef Tcl_ChannelThreadActionProc_TCL_DECLARED
#define Tcl_ChannelThreadActionProc_TCL_DECLARED
/* 554 */
EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_NewBignumObj_TCL_DECLARED
#define Tcl_NewBignumObj_TCL_DECLARED
@@ -3366,7 +3366,7 @@ EXTERN Tcl_Obj* Tcl_NewBignumObj (mp_int* value);
#ifndef Tcl_DbNewBignumObj_TCL_DECLARED
#define Tcl_DbNewBignumObj_TCL_DECLARED
/* 556 */
-EXTERN Tcl_Obj* Tcl_DbNewBignumObj (mp_int* value, CONST char* file,
+EXTERN Tcl_Obj* Tcl_DbNewBignumObj (mp_int* value, const char* file,
int line);
#endif
#ifndef Tcl_SetBignumObj_TCL_DECLARED
@@ -3377,37 +3377,37 @@ EXTERN void Tcl_SetBignumObj (Tcl_Obj* obj, mp_int* value);
#ifndef Tcl_GetBignumFromObj_TCL_DECLARED
#define Tcl_GetBignumFromObj_TCL_DECLARED
/* 558 */
-EXTERN int Tcl_GetBignumFromObj (Tcl_Interp* interp,
+EXTERN int Tcl_GetBignumFromObj (Tcl_Interp* interp,
Tcl_Obj* obj, mp_int* value);
#endif
#ifndef Tcl_TakeBignumFromObj_TCL_DECLARED
#define Tcl_TakeBignumFromObj_TCL_DECLARED
/* 559 */
-EXTERN int Tcl_TakeBignumFromObj (Tcl_Interp* interp,
+EXTERN int Tcl_TakeBignumFromObj (Tcl_Interp* interp,
Tcl_Obj* obj, mp_int* value);
#endif
#ifndef Tcl_TruncateChannel_TCL_DECLARED
#define Tcl_TruncateChannel_TCL_DECLARED
/* 560 */
-EXTERN int Tcl_TruncateChannel (Tcl_Channel chan,
+EXTERN int Tcl_TruncateChannel (Tcl_Channel chan,
Tcl_WideInt length);
#endif
#ifndef Tcl_ChannelTruncateProc_TCL_DECLARED
#define Tcl_ChannelTruncateProc_TCL_DECLARED
/* 561 */
EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc (
- CONST Tcl_ChannelType * chanTypePtr);
+ const Tcl_ChannelType * chanTypePtr);
#endif
#ifndef Tcl_SetChannelErrorInterp_TCL_DECLARED
#define Tcl_SetChannelErrorInterp_TCL_DECLARED
/* 562 */
-EXTERN void Tcl_SetChannelErrorInterp (Tcl_Interp* interp,
+EXTERN void Tcl_SetChannelErrorInterp (Tcl_Interp* interp,
Tcl_Obj* msg);
#endif
#ifndef Tcl_GetChannelErrorInterp_TCL_DECLARED
#define Tcl_GetChannelErrorInterp_TCL_DECLARED
/* 563 */
-EXTERN void Tcl_GetChannelErrorInterp (Tcl_Interp* interp,
+EXTERN void Tcl_GetChannelErrorInterp (Tcl_Interp* interp,
Tcl_Obj** msg);
#endif
#ifndef Tcl_SetChannelError_TCL_DECLARED
@@ -3423,25 +3423,25 @@ EXTERN void Tcl_GetChannelError (Tcl_Channel chan, Tcl_Obj** msg);
#ifndef Tcl_InitBignumFromDouble_TCL_DECLARED
#define Tcl_InitBignumFromDouble_TCL_DECLARED
/* 566 */
-EXTERN int Tcl_InitBignumFromDouble (Tcl_Interp* interp,
+EXTERN int Tcl_InitBignumFromDouble (Tcl_Interp* interp,
double initval, mp_int * toInit);
#endif
#ifndef Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
#define Tcl_GetNamespaceUnknownHandler_TCL_DECLARED
/* 567 */
-EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler (Tcl_Interp * interp,
+EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler (Tcl_Interp * interp,
Tcl_Namespace * nsPtr);
#endif
#ifndef Tcl_SetNamespaceUnknownHandler_TCL_DECLARED
#define Tcl_SetNamespaceUnknownHandler_TCL_DECLARED
/* 568 */
-EXTERN int Tcl_SetNamespaceUnknownHandler (Tcl_Interp * interp,
+EXTERN int Tcl_SetNamespaceUnknownHandler (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, Tcl_Obj * handlerPtr);
#endif
#ifndef Tcl_GetEncodingFromObj_TCL_DECLARED
#define Tcl_GetEncodingFromObj_TCL_DECLARED
/* 569 */
-EXTERN int Tcl_GetEncodingFromObj (Tcl_Interp* interp,
+EXTERN int Tcl_GetEncodingFromObj (Tcl_Interp* interp,
Tcl_Obj* objPtr, Tcl_Encoding* encodingPtr);
#endif
#ifndef Tcl_GetEncodingSearchPath_TCL_DECLARED
@@ -3457,59 +3457,59 @@ EXTERN int Tcl_SetEncodingSearchPath (Tcl_Obj* searchPath);
#ifndef Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
#define Tcl_GetEncodingNameFromEnvironment_TCL_DECLARED
/* 572 */
-EXTERN CONST char * Tcl_GetEncodingNameFromEnvironment (
+EXTERN const char * Tcl_GetEncodingNameFromEnvironment (
Tcl_DString* bufPtr);
#endif
#ifndef Tcl_PkgRequireProc_TCL_DECLARED
#define Tcl_PkgRequireProc_TCL_DECLARED
/* 573 */
-EXTERN int Tcl_PkgRequireProc (Tcl_Interp * interp,
- CONST char * name, int objc,
- Tcl_Obj *CONST objv[],
+EXTERN int Tcl_PkgRequireProc (Tcl_Interp * interp,
+ const char * name, int objc,
+ Tcl_Obj *const objv[],
ClientData * clientDataPtr);
#endif
#ifndef Tcl_AppendObjToErrorInfo_TCL_DECLARED
#define Tcl_AppendObjToErrorInfo_TCL_DECLARED
/* 574 */
-EXTERN void Tcl_AppendObjToErrorInfo (Tcl_Interp * interp,
+EXTERN void Tcl_AppendObjToErrorInfo (Tcl_Interp * interp,
Tcl_Obj * objPtr);
#endif
#ifndef Tcl_AppendLimitedToObj_TCL_DECLARED
#define Tcl_AppendLimitedToObj_TCL_DECLARED
/* 575 */
-EXTERN void Tcl_AppendLimitedToObj (Tcl_Obj * objPtr,
- CONST char * bytes, int length, int limit,
- CONST char * ellipsis);
+EXTERN void Tcl_AppendLimitedToObj (Tcl_Obj * objPtr,
+ const char * bytes, int length, int limit,
+ const char * ellipsis);
#endif
#ifndef Tcl_Format_TCL_DECLARED
#define Tcl_Format_TCL_DECLARED
/* 576 */
-EXTERN Tcl_Obj * Tcl_Format (Tcl_Interp * interp, CONST char * format,
- int objc, Tcl_Obj * CONST objv[]);
+EXTERN Tcl_Obj * Tcl_Format (Tcl_Interp * interp, const char * format,
+ int objc, Tcl_Obj * const objv[]);
#endif
#ifndef Tcl_AppendFormatToObj_TCL_DECLARED
#define Tcl_AppendFormatToObj_TCL_DECLARED
/* 577 */
-EXTERN int Tcl_AppendFormatToObj (Tcl_Interp * interp,
- Tcl_Obj * objPtr, CONST char * format,
- int objc, Tcl_Obj * CONST objv[]);
+EXTERN int Tcl_AppendFormatToObj (Tcl_Interp * interp,
+ Tcl_Obj * objPtr, const char * format,
+ int objc, Tcl_Obj * const objv[]);
#endif
#ifndef Tcl_ObjPrintf_TCL_DECLARED
#define Tcl_ObjPrintf_TCL_DECLARED
/* 578 */
-EXTERN Tcl_Obj * Tcl_ObjPrintf (CONST char * format, ...);
+EXTERN Tcl_Obj * Tcl_ObjPrintf (const char * format, ...);
#endif
#ifndef Tcl_AppendPrintfToObj_TCL_DECLARED
#define Tcl_AppendPrintfToObj_TCL_DECLARED
/* 579 */
-EXTERN void Tcl_AppendPrintfToObj (Tcl_Obj * objPtr,
- CONST char * format, ...);
+EXTERN void Tcl_AppendPrintfToObj (Tcl_Obj * objPtr,
+ const char * format, ...);
#endif
#ifndef Tcl_CancelEval_TCL_DECLARED
#define Tcl_CancelEval_TCL_DECLARED
/* 580 */
-EXTERN int Tcl_CancelEval (Tcl_Interp * interp,
- Tcl_Obj * resultObjPtr,
+EXTERN int Tcl_CancelEval (Tcl_Interp * interp,
+ Tcl_Obj * resultObjPtr,
ClientData clientData, int flags);
#endif
#ifndef Tcl_Canceled_TCL_DECLARED
@@ -3520,52 +3520,52 @@ EXTERN int Tcl_Canceled (Tcl_Interp * interp, int flags);
#ifndef Tcl_CreatePipe_TCL_DECLARED
#define Tcl_CreatePipe_TCL_DECLARED
/* 582 */
-EXTERN int Tcl_CreatePipe (Tcl_Interp * interp,
- Tcl_Channel * rchan, Tcl_Channel * wchan,
+EXTERN int Tcl_CreatePipe (Tcl_Interp * interp,
+ Tcl_Channel * rchan, Tcl_Channel * wchan,
int flags);
#endif
#ifndef Tcl_NRCreateCommand_TCL_DECLARED
#define Tcl_NRCreateCommand_TCL_DECLARED
/* 583 */
-EXTERN Tcl_Command Tcl_NRCreateCommand (Tcl_Interp * interp,
- CONST char * cmdName, Tcl_ObjCmdProc * proc,
- Tcl_ObjCmdProc * nreProc,
- ClientData clientData,
+EXTERN Tcl_Command Tcl_NRCreateCommand (Tcl_Interp * interp,
+ const char * cmdName, Tcl_ObjCmdProc * proc,
+ Tcl_ObjCmdProc * nreProc,
+ ClientData clientData,
Tcl_CmdDeleteProc * deleteProc);
#endif
#ifndef Tcl_NREvalObj_TCL_DECLARED
#define Tcl_NREvalObj_TCL_DECLARED
/* 584 */
-EXTERN int Tcl_NREvalObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
+EXTERN int Tcl_NREvalObj (Tcl_Interp * interp, Tcl_Obj * objPtr,
int flags);
#endif
#ifndef Tcl_NREvalObjv_TCL_DECLARED
#define Tcl_NREvalObjv_TCL_DECLARED
/* 585 */
-EXTERN int Tcl_NREvalObjv (Tcl_Interp * interp, int objc,
- Tcl_Obj *CONST objv[], int flags);
+EXTERN int Tcl_NREvalObjv (Tcl_Interp * interp, int objc,
+ Tcl_Obj *const objv[], int flags);
#endif
#ifndef Tcl_NRCmdSwap_TCL_DECLARED
#define Tcl_NRCmdSwap_TCL_DECLARED
/* 586 */
-EXTERN int Tcl_NRCmdSwap (Tcl_Interp * interp, Tcl_Command cmd,
- int objc, Tcl_Obj *CONST objv[], int flags);
+EXTERN int Tcl_NRCmdSwap (Tcl_Interp * interp, Tcl_Command cmd,
+ int objc, Tcl_Obj *const objv[], int flags);
#endif
#ifndef Tcl_NRAddCallback_TCL_DECLARED
#define Tcl_NRAddCallback_TCL_DECLARED
/* 587 */
-EXTERN void Tcl_NRAddCallback (Tcl_Interp * interp,
- Tcl_NRPostProc * postProcPtr,
- ClientData data0, ClientData data1,
+EXTERN void Tcl_NRAddCallback (Tcl_Interp * interp,
+ Tcl_NRPostProc * postProcPtr,
+ ClientData data0, ClientData data1,
ClientData data2, ClientData data3);
#endif
#ifndef Tcl_NRCallObjProc_TCL_DECLARED
#define Tcl_NRCallObjProc_TCL_DECLARED
/* 588 */
-EXTERN int Tcl_NRCallObjProc (Tcl_Interp * interp,
- Tcl_ObjCmdProc * objProc,
- ClientData clientData, int objc,
- Tcl_Obj *CONST objv[]);
+EXTERN int Tcl_NRCallObjProc (Tcl_Interp * interp,
+ Tcl_ObjCmdProc * objProc,
+ ClientData clientData, int objc,
+ Tcl_Obj *const objv[]);
#endif
#ifndef Tcl_GetFSDeviceFromStat_TCL_DECLARED
#define Tcl_GetFSDeviceFromStat_TCL_DECLARED
@@ -3641,42 +3641,42 @@ EXTERN unsigned Tcl_GetBlockSizeFromStat (
#ifndef Tcl_SetEnsembleParameterList_TCL_DECLARED
#define Tcl_SetEnsembleParameterList_TCL_DECLARED
/* 602 */
-EXTERN int Tcl_SetEnsembleParameterList (Tcl_Interp * interp,
+EXTERN int Tcl_SetEnsembleParameterList (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj * paramList);
#endif
#ifndef Tcl_GetEnsembleParameterList_TCL_DECLARED
#define Tcl_GetEnsembleParameterList_TCL_DECLARED
/* 603 */
-EXTERN int Tcl_GetEnsembleParameterList (Tcl_Interp * interp,
+EXTERN int Tcl_GetEnsembleParameterList (Tcl_Interp * interp,
Tcl_Command token, Tcl_Obj ** paramListPtr);
#endif
#ifndef Tcl_ParseArgsObjv_TCL_DECLARED
#define Tcl_ParseArgsObjv_TCL_DECLARED
/* 604 */
-EXTERN int Tcl_ParseArgsObjv (Tcl_Interp * interp,
- const Tcl_ArgvInfo * argTable, int * objcPtr,
+EXTERN int Tcl_ParseArgsObjv (Tcl_Interp * interp,
+ const Tcl_ArgvInfo * argTable, int * objcPtr,
Tcl_Obj *const * objv, Tcl_Obj *** remObjv);
#endif
typedef struct TclStubHooks {
- CONST struct TclPlatStubs *tclPlatStubs;
- CONST struct TclIntStubs *tclIntStubs;
- CONST struct TclIntPlatStubs *tclIntPlatStubs;
+ const struct TclPlatStubs *tclPlatStubs;
+ const struct TclIntStubs *tclIntStubs;
+ const struct TclIntPlatStubs *tclIntPlatStubs;
} TclStubHooks;
typedef struct TclStubs {
int magic;
- CONST struct TclStubHooks *hooks;
+ const struct TclStubHooks *hooks;
- int (*tcl_PkgProvideEx) (Tcl_Interp* interp, CONST char* name, CONST char* version, ClientData clientData); /* 0 */
- CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact, ClientData * clientDataPtr); /* 1 */
- void (*tcl_Panic) (CONST char * format, ...); /* 2 */
+ int (*tcl_PkgProvideEx) (Tcl_Interp* interp, const char* name, const char* version, ClientData clientData); /* 0 */
+ CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp * interp, const char * name, const char * version, int exact, ClientData * clientDataPtr); /* 1 */
+ void (*tcl_Panic) (const char * format, ...); /* 2 */
char * (*tcl_Alloc) (unsigned int size); /* 3 */
void (*tcl_Free) (char * ptr); /* 4 */
char * (*tcl_Realloc) (char * ptr, unsigned int size); /* 5 */
- char * (*tcl_DbCkalloc) (unsigned int size, CONST char * file, int line); /* 6 */
- int (*tcl_DbCkfree) (char * ptr, CONST char * file, int line); /* 7 */
- char * (*tcl_DbCkrealloc) (char * ptr, unsigned int size, CONST char * file, int line); /* 8 */
+ char * (*tcl_DbCkalloc) (unsigned int size, const char * file, int line); /* 6 */
+ int (*tcl_DbCkfree) (char * ptr, const char * file, int line); /* 7 */
+ char * (*tcl_DbCkrealloc) (char * ptr, unsigned int size, const char * file, int line); /* 8 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc * proc, ClientData clientData); /* 9 */
#endif /* UNIX */
@@ -3695,36 +3695,36 @@ typedef struct TclStubs {
#ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_DeleteFileHandler) (int fd); /* 10 */
#endif /* MACOSX */
- void (*tcl_SetTimer) (CONST Tcl_Time * timePtr); /* 11 */
+ void (*tcl_SetTimer) (const Tcl_Time * timePtr); /* 11 */
void (*tcl_Sleep) (int ms); /* 12 */
- int (*tcl_WaitForEvent) (CONST Tcl_Time * timePtr); /* 13 */
+ int (*tcl_WaitForEvent) (const Tcl_Time * timePtr); /* 13 */
int (*tcl_AppendAllObjTypes) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 14 */
void (*tcl_AppendStringsToObj) (Tcl_Obj * objPtr, ...); /* 15 */
- void (*tcl_AppendToObj) (Tcl_Obj* objPtr, CONST char* bytes, int length); /* 16 */
- Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *CONST objv[]); /* 17 */
- int (*tcl_ConvertToType) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST Tcl_ObjType * typePtr); /* 18 */
- void (*tcl_DbDecrRefCount) (Tcl_Obj * objPtr, CONST char * file, int line); /* 19 */
- void (*tcl_DbIncrRefCount) (Tcl_Obj * objPtr, CONST char * file, int line); /* 20 */
- int (*tcl_DbIsShared) (Tcl_Obj * objPtr, CONST char * file, int line); /* 21 */
- Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, CONST char * file, int line); /* 22 */
- Tcl_Obj * (*tcl_DbNewByteArrayObj) (CONST unsigned char * bytes, int length, CONST char * file, int line); /* 23 */
- Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, CONST char * file, int line); /* 24 */
- Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *CONST * objv, CONST char * file, int line); /* 25 */
- Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, CONST char * file, int line); /* 26 */
- Tcl_Obj * (*tcl_DbNewObj) (CONST char * file, int line); /* 27 */
- Tcl_Obj * (*tcl_DbNewStringObj) (CONST char * bytes, int length, CONST char * file, int line); /* 28 */
+ void (*tcl_AppendToObj) (Tcl_Obj* objPtr, const char* bytes, int length); /* 16 */
+ Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
+ int (*tcl_ConvertToType) (Tcl_Interp * interp, Tcl_Obj * objPtr, const Tcl_ObjType * typePtr); /* 18 */
+ void (*tcl_DbDecrRefCount) (Tcl_Obj * objPtr, const char * file, int line); /* 19 */
+ void (*tcl_DbIncrRefCount) (Tcl_Obj * objPtr, const char * file, int line); /* 20 */
+ int (*tcl_DbIsShared) (Tcl_Obj * objPtr, const char * file, int line); /* 21 */
+ Tcl_Obj * (*tcl_DbNewBooleanObj) (int boolValue, const char * file, int line); /* 22 */
+ Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char * bytes, int length, const char * file, int line); /* 23 */
+ Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char * file, int line); /* 24 */
+ Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const * objv, const char * file, int line); /* 25 */
+ Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char * file, int line); /* 26 */
+ Tcl_Obj * (*tcl_DbNewObj) (const char * file, int line); /* 27 */
+ Tcl_Obj * (*tcl_DbNewStringObj) (const char * bytes, int length, const char * file, int line); /* 28 */
Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj * objPtr); /* 29 */
void (*tclFreeObj) (Tcl_Obj * objPtr); /* 30 */
- int (*tcl_GetBoolean) (Tcl_Interp * interp, CONST char * src, int * boolPtr); /* 31 */
+ int (*tcl_GetBoolean) (Tcl_Interp * interp, const char * src, int * boolPtr); /* 31 */
int (*tcl_GetBooleanFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr); /* 32 */
unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj * objPtr, int * lengthPtr); /* 33 */
- int (*tcl_GetDouble) (Tcl_Interp * interp, CONST char * src, double * doublePtr); /* 34 */
+ int (*tcl_GetDouble) (Tcl_Interp * interp, const char * src, double * doublePtr); /* 34 */
int (*tcl_GetDoubleFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr); /* 35 */
- int (*tcl_GetIndexFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST84 char *CONST * tablePtr, CONST char * msg, int flags, int * indexPtr); /* 36 */
- int (*tcl_GetInt) (Tcl_Interp * interp, CONST char * src, int * intPtr); /* 37 */
+ int (*tcl_GetIndexFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST84 char *const * tablePtr, const char * msg, int flags, int * indexPtr); /* 36 */
+ int (*tcl_GetInt) (Tcl_Interp * interp, const char * src, int * intPtr); /* 37 */
int (*tcl_GetIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr); /* 38 */
int (*tcl_GetLongFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr); /* 39 */
- CONST86 Tcl_ObjType * (*tcl_GetObjType) (CONST char * typeName); /* 40 */
+ CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char * typeName); /* 40 */
char * (*tcl_GetStringFromObj) (Tcl_Obj * objPtr, int * lengthPtr); /* 41 */
void (*tcl_InvalidateStringRep) (Tcl_Obj * objPtr); /* 42 */
int (*tcl_ListObjAppendList) (Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr); /* 43 */
@@ -3732,28 +3732,28 @@ typedef struct TclStubs {
int (*tcl_ListObjGetElements) (Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr); /* 45 */
int (*tcl_ListObjIndex) (Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr); /* 46 */
int (*tcl_ListObjLength) (Tcl_Interp * interp, Tcl_Obj * listPtr, int * lengthPtr); /* 47 */
- int (*tcl_ListObjReplace) (Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[]); /* 48 */
+ int (*tcl_ListObjReplace) (Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
Tcl_Obj * (*tcl_NewBooleanObj) (int boolValue); /* 49 */
- Tcl_Obj * (*tcl_NewByteArrayObj) (CONST unsigned char* bytes, int length); /* 50 */
+ Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char* bytes, int length); /* 50 */
Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
- Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *CONST objv[]); /* 53 */
+ Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
- Tcl_Obj * (*tcl_NewStringObj) (CONST char * bytes, int length); /* 56 */
+ Tcl_Obj * (*tcl_NewStringObj) (const char * bytes, int length); /* 56 */
void (*tcl_SetBooleanObj) (Tcl_Obj * objPtr, int boolValue); /* 57 */
unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj * objPtr, int length); /* 58 */
- void (*tcl_SetByteArrayObj) (Tcl_Obj * objPtr, CONST unsigned char * bytes, int length); /* 59 */
+ void (*tcl_SetByteArrayObj) (Tcl_Obj * objPtr, const unsigned char * bytes, int length); /* 59 */
void (*tcl_SetDoubleObj) (Tcl_Obj * objPtr, double doubleValue); /* 60 */
void (*tcl_SetIntObj) (Tcl_Obj * objPtr, int intValue); /* 61 */
- void (*tcl_SetListObj) (Tcl_Obj * objPtr, int objc, Tcl_Obj *CONST objv[]); /* 62 */
+ void (*tcl_SetListObj) (Tcl_Obj * objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */
void (*tcl_SetLongObj) (Tcl_Obj * objPtr, long longValue); /* 63 */
void (*tcl_SetObjLength) (Tcl_Obj * objPtr, int length); /* 64 */
- void (*tcl_SetStringObj) (Tcl_Obj* objPtr, CONST char* bytes, int length); /* 65 */
- void (*tcl_AddErrorInfo) (Tcl_Interp * interp, CONST char * message); /* 66 */
- void (*tcl_AddObjErrorInfo) (Tcl_Interp * interp, CONST char * message, int length); /* 67 */
+ void (*tcl_SetStringObj) (Tcl_Obj* objPtr, const char* bytes, int length); /* 65 */
+ void (*tcl_AddErrorInfo) (Tcl_Interp * interp, const char * message); /* 66 */
+ void (*tcl_AddObjErrorInfo) (Tcl_Interp * interp, const char * message, int length); /* 67 */
void (*tcl_AllowExceptions) (Tcl_Interp * interp); /* 68 */
- void (*tcl_AppendElement) (Tcl_Interp * interp, CONST char * element); /* 69 */
+ void (*tcl_AppendElement) (Tcl_Interp * interp, const char * element); /* 69 */
void (*tcl_AppendResult) (Tcl_Interp * interp, ...); /* 70 */
Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc * proc, ClientData clientData); /* 71 */
void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
@@ -3761,33 +3761,33 @@ typedef struct TclStubs {
void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
int (*tcl_AsyncReady) (void); /* 75 */
void (*tcl_BackgroundError) (Tcl_Interp * interp); /* 76 */
- char (*tcl_Backslash) (CONST char * src, int * readPtr); /* 77 */
- int (*tcl_BadChannelOption) (Tcl_Interp * interp, CONST char * optionName, CONST char * optionList); /* 78 */
+ char (*tcl_Backslash) (const char * src, int * readPtr); /* 77 */
+ int (*tcl_BadChannelOption) (Tcl_Interp * interp, const char * optionName, const char * optionList); /* 78 */
void (*tcl_CallWhenDeleted) (Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 79 */
void (*tcl_CancelIdleCall) (Tcl_IdleProc * idleProc, ClientData clientData); /* 80 */
int (*tcl_Close) (Tcl_Interp * interp, Tcl_Channel chan); /* 81 */
- int (*tcl_CommandComplete) (CONST char * cmd); /* 82 */
- char * (*tcl_Concat) (int argc, CONST84 char * CONST * argv); /* 83 */
- int (*tcl_ConvertElement) (CONST char * src, char * dst, int flags); /* 84 */
- int (*tcl_ConvertCountedElement) (CONST char * src, int length, char * dst, int flags); /* 85 */
- int (*tcl_CreateAlias) (Tcl_Interp * slave, CONST char * slaveCmd, Tcl_Interp * target, CONST char * targetCmd, int argc, CONST84 char * CONST * argv); /* 86 */
- int (*tcl_CreateAliasObj) (Tcl_Interp * slave, CONST char * slaveCmd, Tcl_Interp * target, CONST char * targetCmd, int objc, Tcl_Obj *CONST objv[]); /* 87 */
- Tcl_Channel (*tcl_CreateChannel) (CONST Tcl_ChannelType * typePtr, CONST char * chanName, ClientData instanceData, int mask); /* 88 */
+ int (*tcl_CommandComplete) (const char * cmd); /* 82 */
+ char * (*tcl_Concat) (int argc, CONST84 char * const * argv); /* 83 */
+ int (*tcl_ConvertElement) (const char * src, char * dst, int flags); /* 84 */
+ int (*tcl_ConvertCountedElement) (const char * src, int length, char * dst, int flags); /* 85 */
+ int (*tcl_CreateAlias) (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int argc, CONST84 char * const * argv); /* 86 */
+ int (*tcl_CreateAliasObj) (Tcl_Interp * slave, const char * slaveCmd, Tcl_Interp * target, const char * targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
+ Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType * typePtr, const char * chanName, ClientData instanceData, int mask); /* 88 */
void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData); /* 89 */
void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData); /* 90 */
- Tcl_Command (*tcl_CreateCommand) (Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); /* 91 */
+ Tcl_Command (*tcl_CreateCommand) (Tcl_Interp * interp, const char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); /* 91 */
void (*tcl_CreateEventSource) (Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData); /* 92 */
void (*tcl_CreateExitHandler) (Tcl_ExitProc * proc, ClientData clientData); /* 93 */
Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
- void (*tcl_CreateMathFunc) (Tcl_Interp * interp, CONST char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData); /* 95 */
- Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp * interp, CONST char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); /* 96 */
- Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp * interp, CONST char * slaveName, int isSafe); /* 97 */
+ void (*tcl_CreateMathFunc) (Tcl_Interp * interp, const char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData); /* 95 */
+ Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp * interp, const char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); /* 96 */
+ Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp * interp, const char * slaveName, int isSafe); /* 97 */
Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc * proc, ClientData clientData); /* 98 */
Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData); /* 99 */
- void (*tcl_DeleteAssocData) (Tcl_Interp * interp, CONST char * name); /* 100 */
+ void (*tcl_DeleteAssocData) (Tcl_Interp * interp, const char * name); /* 100 */
void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData); /* 101 */
void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData); /* 102 */
- int (*tcl_DeleteCommand) (Tcl_Interp * interp, CONST char * cmdName); /* 103 */
+ int (*tcl_DeleteCommand) (Tcl_Interp * interp, const char * cmdName); /* 103 */
int (*tcl_DeleteCommandFromToken) (Tcl_Interp * interp, Tcl_Command command); /* 104 */
void (*tcl_DeleteEvents) (Tcl_EventDeleteProc * proc, ClientData clientData); /* 105 */
void (*tcl_DeleteEventSource) (Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData); /* 106 */
@@ -3809,8 +3809,8 @@ typedef struct TclStubs {
void (*tcl_DontCallWhenDeleted) (Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 114 */
int (*tcl_DoOneEvent) (int flags); /* 115 */
void (*tcl_DoWhenIdle) (Tcl_IdleProc * proc, ClientData clientData); /* 116 */
- char * (*tcl_DStringAppend) (Tcl_DString * dsPtr, CONST char * bytes, int length); /* 117 */
- char * (*tcl_DStringAppendElement) (Tcl_DString * dsPtr, CONST char * element); /* 118 */
+ char * (*tcl_DStringAppend) (Tcl_DString * dsPtr, const char * bytes, int length); /* 117 */
+ char * (*tcl_DStringAppendElement) (Tcl_DString * dsPtr, const char * element); /* 118 */
void (*tcl_DStringEndSublist) (Tcl_DString * dsPtr); /* 119 */
void (*tcl_DStringFree) (Tcl_DString * dsPtr); /* 120 */
void (*tcl_DStringGetResult) (Tcl_Interp * interp, Tcl_DString * dsPtr); /* 121 */
@@ -3821,78 +3821,78 @@ typedef struct TclStubs {
int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
- int (*tcl_Eval) (Tcl_Interp * interp, CONST char * script); /* 129 */
- int (*tcl_EvalFile) (Tcl_Interp * interp, CONST char * fileName); /* 130 */
+ int (*tcl_Eval) (Tcl_Interp * interp, const char * script); /* 129 */
+ int (*tcl_EvalFile) (Tcl_Interp * interp, const char * fileName); /* 130 */
int (*tcl_EvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 131 */
void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc * freeProc); /* 132 */
void (*tcl_Exit) (int status); /* 133 */
- int (*tcl_ExposeCommand) (Tcl_Interp * interp, CONST char * hiddenCmdToken, CONST char * cmdName); /* 134 */
- int (*tcl_ExprBoolean) (Tcl_Interp * interp, CONST char * expr, int * ptr); /* 135 */
+ int (*tcl_ExposeCommand) (Tcl_Interp * interp, const char * hiddenCmdToken, const char * cmdName); /* 134 */
+ int (*tcl_ExprBoolean) (Tcl_Interp * interp, const char * expr, int * ptr); /* 135 */
int (*tcl_ExprBooleanObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr); /* 136 */
- int (*tcl_ExprDouble) (Tcl_Interp * interp, CONST char * expr, double * ptr); /* 137 */
+ int (*tcl_ExprDouble) (Tcl_Interp * interp, const char * expr, double * ptr); /* 137 */
int (*tcl_ExprDoubleObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr); /* 138 */
- int (*tcl_ExprLong) (Tcl_Interp * interp, CONST char * expr, long * ptr); /* 139 */
+ int (*tcl_ExprLong) (Tcl_Interp * interp, const char * expr, long * ptr); /* 139 */
int (*tcl_ExprLongObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr); /* 140 */
int (*tcl_ExprObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr); /* 141 */
- int (*tcl_ExprString) (Tcl_Interp * interp, CONST char * expr); /* 142 */
+ int (*tcl_ExprString) (Tcl_Interp * interp, const char * expr); /* 142 */
void (*tcl_Finalize) (void); /* 143 */
- void (*tcl_FindExecutable) (CONST char * argv0); /* 144 */
+ void (*tcl_FindExecutable) (const char * argv0); /* 144 */
Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr); /* 145 */
int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
void (*tcl_FreeResult) (Tcl_Interp * interp); /* 147 */
- int (*tcl_GetAlias) (Tcl_Interp * interp, CONST char * slaveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * argcPtr, CONST84 char *** argvPtr); /* 148 */
- int (*tcl_GetAliasObj) (Tcl_Interp * interp, CONST char * slaveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv); /* 149 */
- ClientData (*tcl_GetAssocData) (Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc ** procPtr); /* 150 */
- Tcl_Channel (*tcl_GetChannel) (Tcl_Interp * interp, CONST char * chanName, int * modePtr); /* 151 */
+ int (*tcl_GetAlias) (Tcl_Interp * interp, const char * slaveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * argcPtr, CONST84 char *** argvPtr); /* 148 */
+ int (*tcl_GetAliasObj) (Tcl_Interp * interp, const char * slaveCmd, Tcl_Interp ** targetInterpPtr, CONST84 char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv); /* 149 */
+ ClientData (*tcl_GetAssocData) (Tcl_Interp * interp, const char * name, Tcl_InterpDeleteProc ** procPtr); /* 150 */
+ Tcl_Channel (*tcl_GetChannel) (Tcl_Interp * interp, const char * chanName, int * modePtr); /* 151 */
int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData * handlePtr); /* 153 */
ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
- int (*tcl_GetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, CONST char * optionName, Tcl_DString * dsPtr); /* 157 */
+ int (*tcl_GetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, const char * optionName, Tcl_DString * dsPtr); /* 157 */
CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
- int (*tcl_GetCommandInfo) (Tcl_Interp * interp, CONST char * cmdName, Tcl_CmdInfo * infoPtr); /* 159 */
+ int (*tcl_GetCommandInfo) (Tcl_Interp * interp, const char * cmdName, Tcl_CmdInfo * infoPtr); /* 159 */
CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp * interp, Tcl_Command command); /* 160 */
int (*tcl_GetErrno) (void); /* 161 */
CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
int (*tcl_GetInterpPath) (Tcl_Interp * askInterp, Tcl_Interp * slaveInterp); /* 163 */
Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp * interp); /* 164 */
- CONST char * (*tcl_GetNameOfExecutable) (void); /* 165 */
+ const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp * interp); /* 166 */
#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
- int (*tcl_GetOpenFile) (Tcl_Interp * interp, CONST char * chanID, int forWriting, int checkUsage, ClientData * filePtr); /* 167 */
+ int (*tcl_GetOpenFile) (Tcl_Interp * interp, const char * chanID, int forWriting, int checkUsage, ClientData * filePtr); /* 167 */
#endif /* UNIX */
#ifdef __WIN32__ /* WIN */
void *reserved167;
#endif /* WIN */
#ifdef MAC_OSX_TCL /* MACOSX */
- int (*tcl_GetOpenFile) (Tcl_Interp * interp, CONST char * chanID, int forWriting, int checkUsage, ClientData * filePtr); /* 167 */
+ int (*tcl_GetOpenFile) (Tcl_Interp * interp, const char * chanID, int forWriting, int checkUsage, ClientData * filePtr); /* 167 */
#endif /* MACOSX */
- Tcl_PathType (*tcl_GetPathType) (CONST char * path); /* 168 */
+ Tcl_PathType (*tcl_GetPathType) (const char * path); /* 168 */
int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString * dsPtr); /* 169 */
int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj * objPtr); /* 170 */
int (*tcl_GetServiceMode) (void); /* 171 */
- Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp * interp, CONST char * slaveName); /* 172 */
+ Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp * interp, const char * slaveName); /* 172 */
Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp * interp); /* 174 */
- CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp * interp, CONST char * varName, int flags); /* 175 */
- CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags); /* 176 */
- int (*tcl_GlobalEval) (Tcl_Interp * interp, CONST char * command); /* 177 */
+ CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp * interp, const char * varName, int flags); /* 175 */
+ CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags); /* 176 */
+ int (*tcl_GlobalEval) (Tcl_Interp * interp, const char * command); /* 177 */
int (*tcl_GlobalEvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 178 */
- int (*tcl_HideCommand) (Tcl_Interp * interp, CONST char * cmdName, CONST char * hiddenCmdToken); /* 179 */
+ int (*tcl_HideCommand) (Tcl_Interp * interp, const char * cmdName, const char * hiddenCmdToken); /* 179 */
int (*tcl_Init) (Tcl_Interp * interp); /* 180 */
void (*tcl_InitHashTable) (Tcl_HashTable * tablePtr, int keyType); /* 181 */
int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
int (*tcl_InterpDeleted) (Tcl_Interp * interp); /* 184 */
int (*tcl_IsSafe) (Tcl_Interp * interp); /* 185 */
- char * (*tcl_JoinPath) (int argc, CONST84 char * CONST * argv, Tcl_DString * resultPtr); /* 186 */
- int (*tcl_LinkVar) (Tcl_Interp * interp, CONST char * varName, char * addr, int type); /* 187 */
+ char * (*tcl_JoinPath) (int argc, CONST84 char * const * argv, Tcl_DString * resultPtr); /* 186 */
+ int (*tcl_LinkVar) (Tcl_Interp * interp, const char * varName, char * addr, int type); /* 187 */
void *reserved188;
Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */
int (*tcl_MakeSafe) (Tcl_Interp * interp); /* 190 */
Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
- char * (*tcl_Merge) (int argc, CONST84 char * CONST * argv); /* 192 */
+ char * (*tcl_Merge) (int argc, CONST84 char * const * argv); /* 192 */
Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch * searchPtr); /* 193 */
void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags); /* 195 */
@@ -3906,12 +3906,12 @@ typedef struct TclStubs {
#ifdef MAC_OSX_TCL /* MACOSX */
Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags); /* 197 */
#endif /* MACOSX */
- Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp * interp, CONST char * fileName, CONST char * modeString, int permissions); /* 198 */
- Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp * interp, int port, CONST char * address, CONST char * myaddr, int myport, int async); /* 199 */
- Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp * interp, int port, CONST char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData); /* 200 */
+ Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp * interp, const char * fileName, const char * modeString, int permissions); /* 198 */
+ Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp * interp, int port, const char * address, const char * myaddr, int myport, int async); /* 199 */
+ Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp * interp, int port, const char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData); /* 200 */
void (*tcl_Preserve) (ClientData data); /* 201 */
void (*tcl_PrintDouble) (Tcl_Interp * interp, double value, char * dst); /* 202 */
- int (*tcl_PutEnv) (CONST char * assignment); /* 203 */
+ int (*tcl_PutEnv) (const char * assignment); /* 203 */
CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp * interp); /* 204 */
void (*tcl_QueueEvent) (Tcl_Event * evPtr, Tcl_QueuePosition position); /* 205 */
int (*tcl_Read) (Tcl_Channel chan, char * bufPtr, int toRead); /* 206 */
@@ -3924,28 +3924,28 @@ typedef struct TclStubs {
#ifdef MAC_OSX_TCL /* MACOSX */
void (*tcl_ReapDetachedProcs) (void); /* 207 */
#endif /* MACOSX */
- int (*tcl_RecordAndEval) (Tcl_Interp * interp, CONST char * cmd, int flags); /* 208 */
+ int (*tcl_RecordAndEval) (Tcl_Interp * interp, const char * cmd, int flags); /* 208 */
int (*tcl_RecordAndEvalObj) (Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags); /* 209 */
void (*tcl_RegisterChannel) (Tcl_Interp * interp, Tcl_Channel chan); /* 210 */
- void (*tcl_RegisterObjType) (CONST Tcl_ObjType * typePtr); /* 211 */
- Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp * interp, CONST char * pattern); /* 212 */
- int (*tcl_RegExpExec) (Tcl_Interp * interp, Tcl_RegExp regexp, CONST char * text, CONST char * start); /* 213 */
- int (*tcl_RegExpMatch) (Tcl_Interp * interp, CONST char * text, CONST char * pattern); /* 214 */
+ void (*tcl_RegisterObjType) (const Tcl_ObjType * typePtr); /* 211 */
+ Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp * interp, const char * pattern); /* 212 */
+ int (*tcl_RegExpExec) (Tcl_Interp * interp, Tcl_RegExp regexp, const char * text, const char * start); /* 213 */
+ int (*tcl_RegExpMatch) (Tcl_Interp * interp, const char * text, const char * pattern); /* 214 */
void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char ** startPtr, CONST84 char ** endPtr); /* 215 */
void (*tcl_Release) (ClientData clientData); /* 216 */
void (*tcl_ResetResult) (Tcl_Interp * interp); /* 217 */
- int (*tcl_ScanElement) (CONST char * str, int * flagPtr); /* 218 */
- int (*tcl_ScanCountedElement) (CONST char * str, int length, int * flagPtr); /* 219 */
+ int (*tcl_ScanElement) (const char * str, int * flagPtr); /* 218 */
+ int (*tcl_ScanCountedElement) (const char * str, int length, int * flagPtr); /* 219 */
int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
int (*tcl_ServiceAll) (void); /* 221 */
int (*tcl_ServiceEvent) (int flags); /* 222 */
- void (*tcl_SetAssocData) (Tcl_Interp * interp, CONST char * name, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 223 */
+ void (*tcl_SetAssocData) (Tcl_Interp * interp, const char * name, Tcl_InterpDeleteProc * proc, ClientData clientData); /* 223 */
void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
- int (*tcl_SetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, CONST char * optionName, CONST char * newValue); /* 225 */
- int (*tcl_SetCommandInfo) (Tcl_Interp * interp, CONST char * cmdName, CONST Tcl_CmdInfo * infoPtr); /* 226 */
+ int (*tcl_SetChannelOption) (Tcl_Interp * interp, Tcl_Channel chan, const char * optionName, const char * newValue); /* 225 */
+ int (*tcl_SetCommandInfo) (Tcl_Interp * interp, const char * cmdName, const Tcl_CmdInfo * infoPtr); /* 226 */
void (*tcl_SetErrno) (int err); /* 227 */
void (*tcl_SetErrorCode) (Tcl_Interp * interp, ...); /* 228 */
- void (*tcl_SetMaxBlockTime) (CONST Tcl_Time * timePtr); /* 229 */
+ void (*tcl_SetMaxBlockTime) (const Tcl_Time * timePtr); /* 229 */
void (*tcl_SetPanicProc) (Tcl_PanicProc * panicProc); /* 230 */
int (*tcl_SetRecursionLimit) (Tcl_Interp * interp, int depth); /* 231 */
void (*tcl_SetResult) (Tcl_Interp * interp, char * result, Tcl_FreeProc * freeProc); /* 232 */
@@ -3953,112 +3953,112 @@ typedef struct TclStubs {
void (*tcl_SetObjErrorCode) (Tcl_Interp * interp, Tcl_Obj * errorObjPtr); /* 234 */
void (*tcl_SetObjResult) (Tcl_Interp * interp, Tcl_Obj * resultObjPtr); /* 235 */
void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
- CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp * interp, CONST char * varName, CONST char * newValue, int flags); /* 237 */
- CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * newValue, int flags); /* 238 */
+ CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp * interp, const char * varName, const char * newValue, int flags); /* 237 */
+ CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp * interp, const char * part1, const char * part2, const char * newValue, int flags); /* 238 */
CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
void (*tcl_SourceRCFile) (Tcl_Interp * interp); /* 241 */
- int (*tcl_SplitList) (Tcl_Interp * interp, CONST char * listStr, int * argcPtr, CONST84 char *** argvPtr); /* 242 */
- void (*tcl_SplitPath) (CONST char * path, int * argcPtr, CONST84 char *** argvPtr); /* 243 */
- void (*tcl_StaticPackage) (Tcl_Interp * interp, CONST char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc); /* 244 */
- int (*tcl_StringMatch) (CONST char * str, CONST char * pattern); /* 245 */
+ int (*tcl_SplitList) (Tcl_Interp * interp, const char * listStr, int * argcPtr, CONST84 char *** argvPtr); /* 242 */
+ void (*tcl_SplitPath) (const char * path, int * argcPtr, CONST84 char *** argvPtr); /* 243 */
+ void (*tcl_StaticPackage) (Tcl_Interp * interp, const char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc); /* 244 */
+ int (*tcl_StringMatch) (const char * str, const char * pattern); /* 245 */
int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
- int (*tcl_TraceVar) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 247 */
- int (*tcl_TraceVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 248 */
- char * (*tcl_TranslateFileName) (Tcl_Interp * interp, CONST char * name, Tcl_DString * bufferPtr); /* 249 */
- int (*tcl_Ungets) (Tcl_Channel chan, CONST char * str, int len, int atHead); /* 250 */
- void (*tcl_UnlinkVar) (Tcl_Interp * interp, CONST char * varName); /* 251 */
+ int (*tcl_TraceVar) (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 247 */
+ int (*tcl_TraceVar2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 248 */
+ char * (*tcl_TranslateFileName) (Tcl_Interp * interp, const char * name, Tcl_DString * bufferPtr); /* 249 */
+ int (*tcl_Ungets) (Tcl_Channel chan, const char * str, int len, int atHead); /* 250 */
+ void (*tcl_UnlinkVar) (Tcl_Interp * interp, const char * varName); /* 251 */
int (*tcl_UnregisterChannel) (Tcl_Interp * interp, Tcl_Channel chan); /* 252 */
- int (*tcl_UnsetVar) (Tcl_Interp * interp, CONST char * varName, int flags); /* 253 */
- int (*tcl_UnsetVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags); /* 254 */
- void (*tcl_UntraceVar) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 255 */
- void (*tcl_UntraceVar2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 256 */
- void (*tcl_UpdateLinkedVar) (Tcl_Interp * interp, CONST char * varName); /* 257 */
- int (*tcl_UpVar) (Tcl_Interp * interp, CONST char * frameName, CONST char * varName, CONST char * localName, int flags); /* 258 */
- int (*tcl_UpVar2) (Tcl_Interp * interp, CONST char * frameName, CONST char * part1, CONST char * part2, CONST char * localName, int flags); /* 259 */
+ int (*tcl_UnsetVar) (Tcl_Interp * interp, const char * varName, int flags); /* 253 */
+ int (*tcl_UnsetVar2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags); /* 254 */
+ void (*tcl_UntraceVar) (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 255 */
+ void (*tcl_UntraceVar2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData); /* 256 */
+ void (*tcl_UpdateLinkedVar) (Tcl_Interp * interp, const char * varName); /* 257 */
+ int (*tcl_UpVar) (Tcl_Interp * interp, const char * frameName, const char * varName, const char * localName, int flags); /* 258 */
+ int (*tcl_UpVar2) (Tcl_Interp * interp, const char * frameName, const char * part1, const char * part2, const char * localName, int flags); /* 259 */
int (*tcl_VarEval) (Tcl_Interp * interp, ...); /* 260 */
- ClientData (*tcl_VarTraceInfo) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); /* 261 */
- ClientData (*tcl_VarTraceInfo2) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); /* 262 */
- int (*tcl_Write) (Tcl_Channel chan, CONST char * s, int slen); /* 263 */
- void (*tcl_WrongNumArgs) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], CONST char * message); /* 264 */
- int (*tcl_DumpActiveMemory) (CONST char * fileName); /* 265 */
- void (*tcl_ValidateAllMemory) (CONST char * file, int line); /* 266 */
+ ClientData (*tcl_VarTraceInfo) (Tcl_Interp * interp, const char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); /* 261 */
+ ClientData (*tcl_VarTraceInfo2) (Tcl_Interp * interp, const char * part1, const char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData); /* 262 */
+ int (*tcl_Write) (Tcl_Channel chan, const char * s, int slen); /* 263 */
+ void (*tcl_WrongNumArgs) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], const char * message); /* 264 */
+ int (*tcl_DumpActiveMemory) (const char * fileName); /* 265 */
+ void (*tcl_ValidateAllMemory) (const char * file, int line); /* 266 */
void (*tcl_AppendResultVA) (Tcl_Interp * interp, va_list argList); /* 267 */
void (*tcl_AppendStringsToObjVA) (Tcl_Obj * objPtr, va_list argList); /* 268 */
CONST84_RETURN char * (*tcl_HashStats) (Tcl_HashTable * tablePtr); /* 269 */
- CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp * interp, CONST char * start, CONST84 char ** termPtr); /* 270 */
- CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact); /* 271 */
- CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact, ClientData * clientDataPtr); /* 272 */
- int (*tcl_PkgProvide) (Tcl_Interp * interp, CONST char * name, CONST char * version); /* 273 */
- CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact); /* 274 */
+ CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp * interp, const char * start, CONST84 char ** termPtr); /* 270 */
+ CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp * interp, const char * name, const char * version, int exact); /* 271 */
+ CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp * interp, const char * name, const char * version, int exact, ClientData * clientDataPtr); /* 272 */
+ int (*tcl_PkgProvide) (Tcl_Interp * interp, const char * name, const char * version); /* 273 */
+ CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp * interp, const char * name, const char * version, int exact); /* 274 */
void (*tcl_SetErrorCodeVA) (Tcl_Interp * interp, va_list argList); /* 275 */
int (*tcl_VarEvalVA) (Tcl_Interp * interp, va_list argList); /* 276 */
Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int * statPtr, int options); /* 277 */
- void (*tcl_PanicVA) (CONST char * format, va_list argList); /* 278 */
+ void (*tcl_PanicVA) (const char * format, va_list argList); /* 278 */
void (*tcl_GetVersion) (int * major, int * minor, int * patchLevel, int * type); /* 279 */
void (*tcl_InitMemory) (Tcl_Interp * interp); /* 280 */
- Tcl_Channel (*tcl_StackChannel) (Tcl_Interp * interp, CONST Tcl_ChannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
+ Tcl_Channel (*tcl_StackChannel) (Tcl_Interp * interp, const Tcl_ChannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
int (*tcl_UnstackChannel) (Tcl_Interp * interp, Tcl_Channel chan); /* 282 */
Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
void (*tcl_SetMainLoop) (Tcl_MainLoopProc * proc); /* 284 */
void *reserved285;
void (*tcl_AppendObjToObj) (Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr); /* 286 */
- Tcl_Encoding (*tcl_CreateEncoding) (CONST Tcl_EncodingType * typePtr); /* 287 */
+ Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType * typePtr); /* 287 */
void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc * proc, ClientData clientData); /* 288 */
void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc * proc, ClientData clientData); /* 289 */
void (*tcl_DiscardResult) (Tcl_SavedResult * statePtr); /* 290 */
- int (*tcl_EvalEx) (Tcl_Interp * interp, CONST char * script, int numBytes, int flags); /* 291 */
- int (*tcl_EvalObjv) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 292 */
+ int (*tcl_EvalEx) (Tcl_Interp * interp, const char * script, int numBytes, int flags); /* 291 */
+ int (*tcl_EvalObjv) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */
int (*tcl_EvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); /* 293 */
void (*tcl_ExitThread) (int status); /* 294 */
- int (*tcl_ExternalToUtf) (Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); /* 295 */
- char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr); /* 296 */
+ int (*tcl_ExternalToUtf) (Tcl_Interp * interp, Tcl_Encoding encoding, const char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); /* 295 */
+ char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char * src, int srcLen, Tcl_DString * dsPtr); /* 296 */
void (*tcl_FinalizeThread) (void); /* 297 */
void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
- Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp * interp, CONST char * name); /* 301 */
+ Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp * interp, const char * name); /* 301 */
CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
void (*tcl_GetEncodingNames) (Tcl_Interp * interp); /* 303 */
- int (*tcl_GetIndexFromObjStruct) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST VOID * tablePtr, int offset, CONST char * msg, int flags, int * indexPtr); /* 304 */
+ int (*tcl_GetIndexFromObjStruct) (Tcl_Interp * interp, Tcl_Obj * objPtr, const VOID * tablePtr, int offset, const char * msg, int flags, int * indexPtr); /* 304 */
VOID * (*tcl_GetThreadData) (Tcl_ThreadDataKey * keyPtr, int size); /* 305 */
- Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags); /* 306 */
+ Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp * interp, const char * part1, const char * part2, int flags); /* 306 */
ClientData (*tcl_InitNotifier) (void); /* 307 */
void (*tcl_MutexLock) (Tcl_Mutex * mutexPtr); /* 308 */
void (*tcl_MutexUnlock) (Tcl_Mutex * mutexPtr); /* 309 */
void (*tcl_ConditionNotify) (Tcl_Condition * condPtr); /* 310 */
- void (*tcl_ConditionWait) (Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, CONST Tcl_Time * timePtr); /* 311 */
- int (*tcl_NumUtfChars) (CONST char * src, int length); /* 312 */
+ void (*tcl_ConditionWait) (Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, const Tcl_Time * timePtr); /* 311 */
+ int (*tcl_NumUtfChars) (const char * src, int length); /* 312 */
int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag); /* 313 */
void (*tcl_RestoreResult) (Tcl_Interp * interp, Tcl_SavedResult * statePtr); /* 314 */
void (*tcl_SaveResult) (Tcl_Interp * interp, Tcl_SavedResult * statePtr); /* 315 */
- int (*tcl_SetSystemEncoding) (Tcl_Interp * interp, CONST char * name); /* 316 */
- Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, Tcl_Obj * newValuePtr, int flags); /* 317 */
+ int (*tcl_SetSystemEncoding) (Tcl_Interp * interp, const char * name); /* 316 */
+ Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp * interp, const char * part1, const char * part2, Tcl_Obj * newValuePtr, int flags); /* 317 */
void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position); /* 319 */
- Tcl_UniChar (*tcl_UniCharAtIndex) (CONST char * src, int index); /* 320 */
+ Tcl_UniChar (*tcl_UniCharAtIndex) (const char * src, int index); /* 320 */
Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
int (*tcl_UniCharToUtf) (int ch, char * buf); /* 324 */
- CONST84_RETURN char * (*tcl_UtfAtIndex) (CONST char * src, int index); /* 325 */
- int (*tcl_UtfCharComplete) (CONST char * src, int length); /* 326 */
- int (*tcl_UtfBackslash) (CONST char * src, int * readPtr, char * dst); /* 327 */
- CONST84_RETURN char * (*tcl_UtfFindFirst) (CONST char * src, int ch); /* 328 */
- CONST84_RETURN char * (*tcl_UtfFindLast) (CONST char * src, int ch); /* 329 */
- CONST84_RETURN char * (*tcl_UtfNext) (CONST char * src); /* 330 */
- CONST84_RETURN char * (*tcl_UtfPrev) (CONST char * src, CONST char * start); /* 331 */
- int (*tcl_UtfToExternal) (Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); /* 332 */
- char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr); /* 333 */
+ CONST84_RETURN char * (*tcl_UtfAtIndex) (const char * src, int index); /* 325 */
+ int (*tcl_UtfCharComplete) (const char * src, int length); /* 326 */
+ int (*tcl_UtfBackslash) (const char * src, int * readPtr, char * dst); /* 327 */
+ CONST84_RETURN char * (*tcl_UtfFindFirst) (const char * src, int ch); /* 328 */
+ CONST84_RETURN char * (*tcl_UtfFindLast) (const char * src, int ch); /* 329 */
+ CONST84_RETURN char * (*tcl_UtfNext) (const char * src); /* 330 */
+ CONST84_RETURN char * (*tcl_UtfPrev) (const char * src, const char * start); /* 331 */
+ int (*tcl_UtfToExternal) (Tcl_Interp * interp, Tcl_Encoding encoding, const char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr); /* 332 */
+ char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char * src, int srcLen, Tcl_DString * dsPtr); /* 333 */
int (*tcl_UtfToLower) (char * src); /* 334 */
int (*tcl_UtfToTitle) (char * src); /* 335 */
- int (*tcl_UtfToUniChar) (CONST char * src, Tcl_UniChar * chPtr); /* 336 */
+ int (*tcl_UtfToUniChar) (const char * src, Tcl_UniChar * chPtr); /* 336 */
int (*tcl_UtfToUpper) (char * src); /* 337 */
- int (*tcl_WriteChars) (Tcl_Channel chan, CONST char * src, int srcLen); /* 338 */
+ int (*tcl_WriteChars) (Tcl_Channel chan, const char * src, int srcLen); /* 338 */
int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj * objPtr); /* 339 */
char * (*tcl_GetString) (Tcl_Obj * objPtr); /* 340 */
CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
- void (*tcl_SetDefaultEncodingDir) (CONST char * path); /* 342 */
+ void (*tcl_SetDefaultEncodingDir) (const char * path); /* 342 */
void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
void (*tcl_ServiceModeHook) (int mode); /* 344 */
int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
@@ -4068,91 +4068,91 @@ typedef struct TclStubs {
int (*tcl_UniCharIsSpace) (int ch); /* 349 */
int (*tcl_UniCharIsUpper) (int ch); /* 350 */
int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
- int (*tcl_UniCharLen) (CONST Tcl_UniChar * uniStr); /* 352 */
- int (*tcl_UniCharNcmp) (CONST Tcl_UniChar * ucs, CONST Tcl_UniChar * uct, unsigned long numChars); /* 353 */
- char * (*tcl_UniCharToUtfDString) (CONST Tcl_UniChar * uniStr, int uniLength, Tcl_DString * dsPtr); /* 354 */
- Tcl_UniChar * (*tcl_UtfToUniCharDString) (CONST char * src, int length, Tcl_DString * dsPtr); /* 355 */
+ int (*tcl_UniCharLen) (const Tcl_UniChar * uniStr); /* 352 */
+ int (*tcl_UniCharNcmp) (const Tcl_UniChar * ucs, const Tcl_UniChar * uct, unsigned long numChars); /* 353 */
+ char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar * uniStr, int uniLength, Tcl_DString * dsPtr); /* 354 */
+ Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char * src, int length, Tcl_DString * dsPtr); /* 355 */
Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp * interp, Tcl_Obj * patObj, int flags); /* 356 */
Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); /* 357 */
void (*tcl_FreeParse) (Tcl_Parse * parsePtr); /* 358 */
- void (*tcl_LogCommandInfo) (Tcl_Interp * interp, CONST char * script, CONST char * command, int length); /* 359 */
- int (*tcl_ParseBraces) (Tcl_Interp * interp, CONST char * start, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr); /* 360 */
- int (*tcl_ParseCommand) (Tcl_Interp * interp, CONST char * start, int numBytes, int nested, Tcl_Parse * parsePtr); /* 361 */
- int (*tcl_ParseExpr) (Tcl_Interp * interp, CONST char * start, int numBytes, Tcl_Parse * parsePtr); /* 362 */
- int (*tcl_ParseQuotedString) (Tcl_Interp * interp, CONST char * start, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr); /* 363 */
- int (*tcl_ParseVarName) (Tcl_Interp * interp, CONST char * start, int numBytes, Tcl_Parse * parsePtr, int append); /* 364 */
+ void (*tcl_LogCommandInfo) (Tcl_Interp * interp, const char * script, const char * command, int length); /* 359 */
+ int (*tcl_ParseBraces) (Tcl_Interp * interp, const char * start, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr); /* 360 */
+ int (*tcl_ParseCommand) (Tcl_Interp * interp, const char * start, int numBytes, int nested, Tcl_Parse * parsePtr); /* 361 */
+ int (*tcl_ParseExpr) (Tcl_Interp * interp, const char * start, int numBytes, Tcl_Parse * parsePtr); /* 362 */
+ int (*tcl_ParseQuotedString) (Tcl_Interp * interp, const char * start, int numBytes, Tcl_Parse * parsePtr, int append, CONST84 char ** termPtr); /* 363 */
+ int (*tcl_ParseVarName) (Tcl_Interp * interp, const char * start, int numBytes, Tcl_Parse * parsePtr, int append); /* 364 */
char * (*tcl_GetCwd) (Tcl_Interp * interp, Tcl_DString * cwdPtr); /* 365 */
- int (*tcl_Chdir) (CONST char * dirName); /* 366 */
- int (*tcl_Access) (CONST char * path, int mode); /* 367 */
- int (*tcl_Stat) (CONST char * path, struct stat * bufPtr); /* 368 */
- int (*tcl_UtfNcmp) (CONST char * s1, CONST char * s2, unsigned long n); /* 369 */
- int (*tcl_UtfNcasecmp) (CONST char * s1, CONST char * s2, unsigned long n); /* 370 */
- int (*tcl_StringCaseMatch) (CONST char * str, CONST char * pattern, int nocase); /* 371 */
+ int (*tcl_Chdir) (const char * dirName); /* 366 */
+ int (*tcl_Access) (const char * path, int mode); /* 367 */
+ int (*tcl_Stat) (const char * path, struct stat * bufPtr); /* 368 */
+ int (*tcl_UtfNcmp) (const char * s1, const char * s2, unsigned long n); /* 369 */
+ int (*tcl_UtfNcasecmp) (const char * s1, const char * s2, unsigned long n); /* 370 */
+ int (*tcl_StringCaseMatch) (const char * str, const char * pattern, int nocase); /* 371 */
int (*tcl_UniCharIsControl) (int ch); /* 372 */
int (*tcl_UniCharIsGraph) (int ch); /* 373 */
int (*tcl_UniCharIsPrint) (int ch); /* 374 */
int (*tcl_UniCharIsPunct) (int ch); /* 375 */
int (*tcl_RegExpExecObj) (Tcl_Interp * interp, Tcl_RegExp regexp, Tcl_Obj * textObj, int offset, int nmatches, int flags); /* 376 */
void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo * infoPtr); /* 377 */
- Tcl_Obj * (*tcl_NewUnicodeObj) (CONST Tcl_UniChar * unicode, int numChars); /* 378 */
- void (*tcl_SetUnicodeObj) (Tcl_Obj * objPtr, CONST Tcl_UniChar * unicode, int numChars); /* 379 */
+ Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar * unicode, int numChars); /* 378 */
+ void (*tcl_SetUnicodeObj) (Tcl_Obj * objPtr, const Tcl_UniChar * unicode, int numChars); /* 379 */
int (*tcl_GetCharLength) (Tcl_Obj * objPtr); /* 380 */
Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj * objPtr, int index); /* 381 */
Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj * objPtr); /* 382 */
Tcl_Obj * (*tcl_GetRange) (Tcl_Obj * objPtr, int first, int last); /* 383 */
- void (*tcl_AppendUnicodeToObj) (Tcl_Obj * objPtr, CONST Tcl_UniChar * unicode, int length); /* 384 */
+ void (*tcl_AppendUnicodeToObj) (Tcl_Obj * objPtr, const Tcl_UniChar * unicode, int length); /* 384 */
int (*tcl_RegExpMatchObj) (Tcl_Interp * interp, Tcl_Obj * textObj, Tcl_Obj * patternObj); /* 385 */
void (*tcl_SetNotifier) (Tcl_NotifierProcs * notifierProcPtr); /* 386 */
Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
int (*tcl_GetChannelNames) (Tcl_Interp * interp); /* 388 */
- int (*tcl_GetChannelNamesEx) (Tcl_Interp * interp, CONST char * pattern); /* 389 */
- int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); /* 390 */
+ int (*tcl_GetChannelNamesEx) (Tcl_Interp * interp, const char * pattern); /* 389 */
+ int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); /* 390 */
void (*tcl_ConditionFinalize) (Tcl_Condition * condPtr); /* 391 */
void (*tcl_MutexFinalize) (Tcl_Mutex * mutex); /* 392 */
int (*tcl_CreateThread) (Tcl_ThreadId * idPtr, Tcl_ThreadCreateProc proc, ClientData clientData, int stackSize, int flags); /* 393 */
int (*tcl_ReadRaw) (Tcl_Channel chan, char * dst, int bytesToRead); /* 394 */
- int (*tcl_WriteRaw) (Tcl_Channel chan, CONST char * src, int srcLen); /* 395 */
+ int (*tcl_WriteRaw) (Tcl_Channel chan, const char * src, int srcLen); /* 395 */
Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
- CONST84_RETURN char * (*tcl_ChannelName) (CONST Tcl_ChannelType * chanTypePtr); /* 398 */
- Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (CONST Tcl_ChannelType * chanTypePtr); /* 399 */
- Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (CONST Tcl_ChannelType * chanTypePtr); /* 400 */
- Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (CONST Tcl_ChannelType * chanTypePtr); /* 401 */
- Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (CONST Tcl_ChannelType * chanTypePtr); /* 402 */
- Tcl_DriverInputProc * (*tcl_ChannelInputProc) (CONST Tcl_ChannelType * chanTypePtr); /* 403 */
- Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (CONST Tcl_ChannelType * chanTypePtr); /* 404 */
- Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (CONST Tcl_ChannelType * chanTypePtr); /* 405 */
- Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (CONST Tcl_ChannelType * chanTypePtr); /* 406 */
- Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (CONST Tcl_ChannelType * chanTypePtr); /* 407 */
- Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (CONST Tcl_ChannelType * chanTypePtr); /* 408 */
- Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (CONST Tcl_ChannelType * chanTypePtr); /* 409 */
- Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (CONST Tcl_ChannelType * chanTypePtr); /* 410 */
- Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (CONST Tcl_ChannelType * chanTypePtr); /* 411 */
+ CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType * chanTypePtr); /* 398 */
+ Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType * chanTypePtr); /* 399 */
+ Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType * chanTypePtr); /* 400 */
+ Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType * chanTypePtr); /* 401 */
+ Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType * chanTypePtr); /* 402 */
+ Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType * chanTypePtr); /* 403 */
+ Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType * chanTypePtr); /* 404 */
+ Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType * chanTypePtr); /* 405 */
+ Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType * chanTypePtr); /* 406 */
+ Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType * chanTypePtr); /* 407 */
+ Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType * chanTypePtr); /* 408 */
+ Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType * chanTypePtr); /* 409 */
+ Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType * chanTypePtr); /* 410 */
+ Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType * chanTypePtr); /* 411 */
int (*tcl_JoinThread) (Tcl_ThreadId threadId, int* result); /* 412 */
int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
int (*tcl_IsChannelRegistered) (Tcl_Interp* interp, Tcl_Channel channel); /* 414 */
void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
- int (*tcl_IsChannelExisting) (CONST char* channelName); /* 418 */
- int (*tcl_UniCharNcasecmp) (CONST Tcl_UniChar * ucs, CONST Tcl_UniChar * uct, unsigned long numChars); /* 419 */
- int (*tcl_UniCharCaseMatch) (CONST Tcl_UniChar * uniStr, CONST Tcl_UniChar * uniPattern, int nocase); /* 420 */
- Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable * tablePtr, CONST char * key); /* 421 */
- Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable * tablePtr, CONST char * key, int * newPtr); /* 422 */
- void (*tcl_InitCustomHashTable) (Tcl_HashTable * tablePtr, int keyType, CONST Tcl_HashKeyType * typePtr); /* 423 */
+ int (*tcl_IsChannelExisting) (const char* channelName); /* 418 */
+ int (*tcl_UniCharNcasecmp) (const Tcl_UniChar * ucs, const Tcl_UniChar * uct, unsigned long numChars); /* 419 */
+ int (*tcl_UniCharCaseMatch) (const Tcl_UniChar * uniStr, const Tcl_UniChar * uniPattern, int nocase); /* 420 */
+ Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable * tablePtr, const char * key); /* 421 */
+ Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable * tablePtr, const char * key, int * newPtr); /* 422 */
+ void (*tcl_InitCustomHashTable) (Tcl_HashTable * tablePtr, int keyType, const Tcl_HashKeyType * typePtr); /* 423 */
void (*tcl_InitObjHashTable) (Tcl_HashTable * tablePtr); /* 424 */
- ClientData (*tcl_CommandTraceInfo) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData); /* 425 */
- int (*tcl_TraceCommand) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 426 */
- void (*tcl_UntraceCommand) (Tcl_Interp * interp, CONST char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 427 */
+ ClientData (*tcl_CommandTraceInfo) (Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * procPtr, ClientData prevClientData); /* 425 */
+ int (*tcl_TraceCommand) (Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 426 */
+ void (*tcl_UntraceCommand) (Tcl_Interp * interp, const char * varName, int flags, Tcl_CommandTraceProc * proc, ClientData clientData); /* 427 */
char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
- char * (*tcl_AttemptDbCkalloc) (unsigned int size, CONST char * file, int line); /* 429 */
+ char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char * file, int line); /* 429 */
char * (*tcl_AttemptRealloc) (char * ptr, unsigned int size); /* 430 */
- char * (*tcl_AttemptDbCkrealloc) (char * ptr, unsigned int size, CONST char * file, int line); /* 431 */
+ char * (*tcl_AttemptDbCkrealloc) (char * ptr, unsigned int size, const char * file, int line); /* 431 */
int (*tcl_AttemptSetObjLength) (Tcl_Obj * objPtr, int length); /* 432 */
Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj * objPtr, int * lengthPtr); /* 434 */
- int (*tcl_GetMathFuncInfo) (Tcl_Interp * interp, CONST char * name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, ClientData * clientDataPtr); /* 435 */
- Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp * interp, CONST char * pattern); /* 436 */
+ int (*tcl_GetMathFuncInfo) (Tcl_Interp * interp, const char * name, int * numArgsPtr, Tcl_ValueType ** argTypesPtr, Tcl_MathProc ** procPtr, ClientData * clientDataPtr); /* 435 */
+ Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp * interp, const char * pattern); /* 436 */
Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); /* 437 */
int (*tcl_DetachChannel) (Tcl_Interp* interp, Tcl_Channel channel); /* 438 */
int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
@@ -4160,8 +4160,8 @@ typedef struct TclStubs {
int (*tcl_FSCopyDirectory) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); /* 441 */
int (*tcl_FSCreateDirectory) (Tcl_Obj * pathPtr); /* 442 */
int (*tcl_FSDeleteFile) (Tcl_Obj * pathPtr); /* 443 */
- int (*tcl_FSLoadFile) (Tcl_Interp * interp, Tcl_Obj * pathPtr, CONST char * sym1, CONST char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFileProc ** unloadProcPtr); /* 444 */
- int (*tcl_FSMatchInDirectory) (Tcl_Interp * interp, Tcl_Obj * result, Tcl_Obj * pathPtr, CONST char * pattern, Tcl_GlobTypeData * types); /* 445 */
+ int (*tcl_FSLoadFile) (Tcl_Interp * interp, Tcl_Obj * pathPtr, const char * sym1, const char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, Tcl_LoadHandle * handlePtr, Tcl_FSUnloadFileProc ** unloadProcPtr); /* 444 */
+ int (*tcl_FSMatchInDirectory) (Tcl_Interp * interp, Tcl_Obj * result, Tcl_Obj * pathPtr, const char * pattern, Tcl_GlobTypeData * types); /* 445 */
Tcl_Obj * (*tcl_FSLink) (Tcl_Obj * pathPtr, Tcl_Obj * toPtr, int linkAction); /* 446 */
int (*tcl_FSRemoveDirectory) (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); /* 447 */
int (*tcl_FSRenameFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 448 */
@@ -4169,10 +4169,10 @@ typedef struct TclStubs {
int (*tcl_FSUtime) (Tcl_Obj * pathPtr, struct utimbuf * tval); /* 450 */
int (*tcl_FSFileAttrsGet) (Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); /* 451 */
int (*tcl_FSFileAttrsSet) (Tcl_Interp * interp, int index, Tcl_Obj * pathPtr, Tcl_Obj * objPtr); /* 452 */
- CONST char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); /* 453 */
+ const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj * pathPtr, Tcl_Obj ** objPtrRef); /* 453 */
int (*tcl_FSStat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 454 */
int (*tcl_FSAccess) (Tcl_Obj * pathPtr, int mode); /* 455 */
- Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pathPtr, CONST char * modeString, int permissions); /* 456 */
+ Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pathPtr, const char * modeString, int permissions); /* 456 */
Tcl_Obj* (*tcl_FSGetCwd) (Tcl_Interp * interp); /* 457 */
int (*tcl_FSChdir) (Tcl_Obj * pathPtr); /* 458 */
int (*tcl_FSConvertToPathType) (Tcl_Interp * interp, Tcl_Obj * pathPtr); /* 459 */
@@ -4180,36 +4180,36 @@ typedef struct TclStubs {
Tcl_Obj* (*tcl_FSSplitPath) (Tcl_Obj* pathPtr, int * lenPtr); /* 461 */
int (*tcl_FSEqualPaths) (Tcl_Obj* firstPtr, Tcl_Obj* secondPtr); /* 462 */
Tcl_Obj* (*tcl_FSGetNormalizedPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 463 */
- Tcl_Obj* (*tcl_FSJoinToPath) (Tcl_Obj * pathPtr, int objc, Tcl_Obj *CONST objv[]); /* 464 */
- ClientData (*tcl_FSGetInternalRep) (Tcl_Obj* pathPtr, CONST Tcl_Filesystem * fsPtr); /* 465 */
+ Tcl_Obj* (*tcl_FSJoinToPath) (Tcl_Obj * pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
+ ClientData (*tcl_FSGetInternalRep) (Tcl_Obj* pathPtr, const Tcl_Filesystem * fsPtr); /* 465 */
Tcl_Obj* (*tcl_FSGetTranslatedPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 466 */
int (*tcl_FSEvalFile) (Tcl_Interp * interp, Tcl_Obj * fileName); /* 467 */
- Tcl_Obj* (*tcl_FSNewNativePath) (CONST Tcl_Filesystem* fromFilesystem, ClientData clientData); /* 468 */
- CONST char* (*tcl_FSGetNativePath) (Tcl_Obj* pathPtr); /* 469 */
+ Tcl_Obj* (*tcl_FSNewNativePath) (const Tcl_Filesystem* fromFilesystem, ClientData clientData); /* 468 */
+ const char* (*tcl_FSGetNativePath) (Tcl_Obj* pathPtr); /* 469 */
Tcl_Obj* (*tcl_FSFileSystemInfo) (Tcl_Obj* pathPtr); /* 470 */
Tcl_Obj* (*tcl_FSPathSeparator) (Tcl_Obj* pathPtr); /* 471 */
Tcl_Obj* (*tcl_FSListVolumes) (void); /* 472 */
- int (*tcl_FSRegister) (ClientData clientData, CONST Tcl_Filesystem * fsPtr); /* 473 */
- int (*tcl_FSUnregister) (CONST Tcl_Filesystem * fsPtr); /* 474 */
- ClientData (*tcl_FSData) (CONST Tcl_Filesystem * fsPtr); /* 475 */
- CONST char* (*tcl_FSGetTranslatedStringPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 476 */
+ int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem * fsPtr); /* 473 */
+ int (*tcl_FSUnregister) (const Tcl_Filesystem * fsPtr); /* 474 */
+ ClientData (*tcl_FSData) (const Tcl_Filesystem * fsPtr); /* 475 */
+ const char* (*tcl_FSGetTranslatedStringPath) (Tcl_Interp * interp, Tcl_Obj* pathPtr); /* 476 */
CONST86 Tcl_Filesystem* (*tcl_FSGetFileSystemForPath) (Tcl_Obj* pathPtr); /* 477 */
Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj * pathPtr); /* 478 */
int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
- void (*tcl_FSMountsChanged) (CONST Tcl_Filesystem * fsPtr); /* 480 */
+ void (*tcl_FSMountsChanged) (const Tcl_Filesystem * fsPtr); /* 480 */
int (*tcl_EvalTokensStandard) (Tcl_Interp * interp, Tcl_Token * tokenPtr, int count); /* 481 */
void (*tcl_GetTime) (Tcl_Time* timeBuf); /* 482 */
Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp* interp, int level, int flags, Tcl_CmdObjTraceProc* objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc* delProc); /* 483 */
int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo* infoPtr); /* 484 */
- int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, CONST Tcl_CmdInfo* infoPtr); /* 485 */
- Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, CONST char * file, int line); /* 486 */
+ int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo* infoPtr); /* 485 */
+ Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char * file, int line); /* 486 */
int (*tcl_GetWideIntFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_WideInt * widePtr); /* 487 */
Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
void (*tcl_SetWideIntObj) (Tcl_Obj * objPtr, Tcl_WideInt wideValue); /* 489 */
Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */
Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
- Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (CONST Tcl_ChannelType * chanTypePtr); /* 493 */
+ Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType * chanTypePtr); /* 493 */
int (*tcl_DictObjPut) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Obj * keyPtr, Tcl_Obj * valuePtr); /* 494 */
int (*tcl_DictObjGet) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Obj * keyPtr, Tcl_Obj ** valuePtrPtr); /* 495 */
int (*tcl_DictObjRemove) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_Obj * keyPtr); /* 496 */
@@ -4217,24 +4217,24 @@ typedef struct TclStubs {
int (*tcl_DictObjFirst) (Tcl_Interp * interp, Tcl_Obj * dictPtr, Tcl_DictSearch * searchPtr, Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr, int * donePtr); /* 498 */
void (*tcl_DictObjNext) (Tcl_DictSearch * searchPtr, Tcl_Obj ** keyPtrPtr, Tcl_Obj ** valuePtrPtr, int * donePtr); /* 499 */
void (*tcl_DictObjDone) (Tcl_DictSearch * searchPtr); /* 500 */
- int (*tcl_DictObjPutKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *CONST * keyv, Tcl_Obj * valuePtr); /* 501 */
- int (*tcl_DictObjRemoveKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *CONST * keyv); /* 502 */
+ int (*tcl_DictObjPutKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *const * keyv, Tcl_Obj * valuePtr); /* 501 */
+ int (*tcl_DictObjRemoveKeyList) (Tcl_Interp * interp, Tcl_Obj * dictPtr, int keyc, Tcl_Obj *const * keyv); /* 502 */
Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
- Tcl_Obj * (*tcl_DbNewDictObj) (CONST char * file, int line); /* 504 */
- void (*tcl_RegisterConfig) (Tcl_Interp* interp, CONST char* pkgName, CONST Tcl_Config* configuration, CONST char* valEncoding); /* 505 */
- Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 506 */
+ Tcl_Obj * (*tcl_DbNewDictObj) (const char * file, int line); /* 504 */
+ void (*tcl_RegisterConfig) (Tcl_Interp* interp, const char* pkgName, const Tcl_Config* configuration, const char* valEncoding); /* 505 */
+ Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, const char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 506 */
void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 507 */
int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); /* 508 */
- int (*tcl_Export) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst); /* 509 */
- int (*tcl_Import) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite); /* 510 */
- int (*tcl_ForgetImport) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern); /* 511 */
+ int (*tcl_Export) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, const char * pattern, int resetListFirst); /* 509 */
+ int (*tcl_Import) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, const char * pattern, int allowOverwrite); /* 510 */
+ int (*tcl_ForgetImport) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, const char * pattern); /* 511 */
Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp * interp); /* 512 */
Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp * interp); /* 513 */
- Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 514 */
- Tcl_Command (*tcl_FindCommand) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 515 */
+ Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp * interp, const char * name, Tcl_Namespace * contextNsPtr, int flags); /* 514 */
+ Tcl_Command (*tcl_FindCommand) (Tcl_Interp * interp, const char * name, Tcl_Namespace * contextNsPtr, int flags); /* 515 */
Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 516 */
void (*tcl_GetCommandFullName) (Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr); /* 517 */
- int (*tcl_FSEvalFileEx) (Tcl_Interp * interp, Tcl_Obj * fileName, CONST char * encodingName); /* 518 */
+ int (*tcl_FSEvalFileEx) (Tcl_Interp * interp, Tcl_Obj * fileName, const char * encodingName); /* 518 */
Tcl_ExitProc * (*tcl_SetExitProc) (Tcl_ExitProc * proc); /* 519 */
void (*tcl_LimitAddHandler) (Tcl_Interp * interp, int type, Tcl_LimitHandlerProc * handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc * deleteProc); /* 520 */
void (*tcl_LimitRemoveHandler) (Tcl_Interp * interp, int type, Tcl_LimitHandlerProc * handlerProc, ClientData clientData); /* 521 */
@@ -4257,7 +4257,7 @@ typedef struct TclStubs {
int (*tcl_SetReturnOptions) (Tcl_Interp * interp, Tcl_Obj * options); /* 538 */
Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp * interp, int result); /* 539 */
int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
- Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * namespacePtr, int flags); /* 541 */
+ Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp * interp, const char * name, Tcl_Namespace * namespacePtr, int flags); /* 541 */
Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp * interp, Tcl_Obj * cmdNameObj, int flags); /* 542 */
int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj * subcmdList); /* 543 */
int (*tcl_SetEnsembleMappingDict) (Tcl_Interp * interp, Tcl_Command token, Tcl_Obj * mapDict); /* 544 */
@@ -4270,14 +4270,14 @@ typedef struct TclStubs {
int (*tcl_GetEnsembleNamespace) (Tcl_Interp * interp, Tcl_Command token, Tcl_Namespace ** namespacePtrPtr); /* 551 */
void (*tcl_SetTimeProc) (Tcl_GetTimeProc* getProc, Tcl_ScaleTimeProc* scaleProc, ClientData clientData); /* 552 */
void (*tcl_QueryTimeProc) (Tcl_GetTimeProc** getProc, Tcl_ScaleTimeProc** scaleProc, ClientData* clientData); /* 553 */
- Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (CONST Tcl_ChannelType * chanTypePtr); /* 554 */
+ Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType * chanTypePtr); /* 554 */
Tcl_Obj* (*tcl_NewBignumObj) (mp_int* value); /* 555 */
- Tcl_Obj* (*tcl_DbNewBignumObj) (mp_int* value, CONST char* file, int line); /* 556 */
+ Tcl_Obj* (*tcl_DbNewBignumObj) (mp_int* value, const char* file, int line); /* 556 */
void (*tcl_SetBignumObj) (Tcl_Obj* obj, mp_int* value); /* 557 */
int (*tcl_GetBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 558 */
int (*tcl_TakeBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 559 */
int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
- Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (CONST Tcl_ChannelType * chanTypePtr); /* 561 */
+ Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType * chanTypePtr); /* 561 */
void (*tcl_SetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj* msg); /* 562 */
void (*tcl_GetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj** msg); /* 563 */
void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj* msg); /* 564 */
@@ -4288,23 +4288,23 @@ typedef struct TclStubs {
int (*tcl_GetEncodingFromObj) (Tcl_Interp* interp, Tcl_Obj* objPtr, Tcl_Encoding* encodingPtr); /* 569 */
Tcl_Obj* (*tcl_GetEncodingSearchPath) (void); /* 570 */
int (*tcl_SetEncodingSearchPath) (Tcl_Obj* searchPath); /* 571 */
- CONST char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString* bufPtr); /* 572 */
- int (*tcl_PkgRequireProc) (Tcl_Interp * interp, CONST char * name, int objc, Tcl_Obj *CONST objv[], ClientData * clientDataPtr); /* 573 */
+ const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString* bufPtr); /* 572 */
+ int (*tcl_PkgRequireProc) (Tcl_Interp * interp, const char * name, int objc, Tcl_Obj *const objv[], ClientData * clientDataPtr); /* 573 */
void (*tcl_AppendObjToErrorInfo) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 574 */
- void (*tcl_AppendLimitedToObj) (Tcl_Obj * objPtr, CONST char * bytes, int length, int limit, CONST char * ellipsis); /* 575 */
- Tcl_Obj * (*tcl_Format) (Tcl_Interp * interp, CONST char * format, int objc, Tcl_Obj * CONST objv[]); /* 576 */
- int (*tcl_AppendFormatToObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST char * format, int objc, Tcl_Obj * CONST objv[]); /* 577 */
- Tcl_Obj * (*tcl_ObjPrintf) (CONST char * format, ...); /* 578 */
- void (*tcl_AppendPrintfToObj) (Tcl_Obj * objPtr, CONST char * format, ...); /* 579 */
+ void (*tcl_AppendLimitedToObj) (Tcl_Obj * objPtr, const char * bytes, int length, int limit, const char * ellipsis); /* 575 */
+ Tcl_Obj * (*tcl_Format) (Tcl_Interp * interp, const char * format, int objc, Tcl_Obj * const objv[]); /* 576 */
+ int (*tcl_AppendFormatToObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, const char * format, int objc, Tcl_Obj * const objv[]); /* 577 */
+ Tcl_Obj * (*tcl_ObjPrintf) (const char * format, ...); /* 578 */
+ void (*tcl_AppendPrintfToObj) (Tcl_Obj * objPtr, const char * format, ...); /* 579 */
int (*tcl_CancelEval) (Tcl_Interp * interp, Tcl_Obj * resultObjPtr, ClientData clientData, int flags); /* 580 */
int (*tcl_Canceled) (Tcl_Interp * interp, int flags); /* 581 */
int (*tcl_CreatePipe) (Tcl_Interp * interp, Tcl_Channel * rchan, Tcl_Channel * wchan, int flags); /* 582 */
- Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp * interp, CONST char * cmdName, Tcl_ObjCmdProc * proc, Tcl_ObjCmdProc * nreProc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); /* 583 */
+ Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp * interp, const char * cmdName, Tcl_ObjCmdProc * proc, Tcl_ObjCmdProc * nreProc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc); /* 583 */
int (*tcl_NREvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); /* 584 */
- int (*tcl_NREvalObjv) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 585 */
- int (*tcl_NRCmdSwap) (Tcl_Interp * interp, Tcl_Command cmd, int objc, Tcl_Obj *CONST objv[], int flags); /* 586 */
+ int (*tcl_NREvalObjv) (Tcl_Interp * interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */
+ int (*tcl_NRCmdSwap) (Tcl_Interp * interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */
void (*tcl_NRAddCallback) (Tcl_Interp * interp, Tcl_NRPostProc * postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */
- int (*tcl_NRCallObjProc) (Tcl_Interp * interp, Tcl_ObjCmdProc * objProc, ClientData clientData, int objc, Tcl_Obj *CONST objv[]); /* 588 */
+ int (*tcl_NRCallObjProc) (Tcl_Interp * interp, Tcl_ObjCmdProc * objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */
unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf * statPtr); /* 589 */
unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf * statPtr); /* 590 */
unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf * statPtr); /* 591 */
@@ -4324,7 +4324,7 @@ typedef struct TclStubs {
} TclStubs;
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
-extern CONST TclStubs *tclStubsPtr;
+extern const TclStubs *tclStubsPtr;
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)