Skip to content

Commit

Permalink
Remove CONST to prepare for tcl8.7
Browse files Browse the repository at this point in the history
  • Loading branch information
@resuna @bovine
resuna authored and bovine committed Jan 18, 2024
1 parent 585befe commit c056e34
Show file tree
Hide file tree
Showing 34 changed files with 202 additions and 202 deletions.
2 changes: 1 addition & 1 deletion generic/tclExtdInt.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -244,7 +244,7 @@ TclX_StructOffset (void *nsPtr, size_t offset,
#define TclX_WriteNL(channel) (Tcl_Write (channel, "\n", 1))

extern int
TclX_StrToOffset (CONST char *string,
TclX_StrToOffset (const char *string,
int base,
off_t *offsetPtr);

Expand Down
12 changes: 6 additions & 6 deletions generic/tclExtend.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -99,16 +99,16 @@ EXTERN void TclX_SplitWinCmdLine (int *argcPtr, char ***argvPtr);
*/
EXTERN void TclX_AppendObjResult TCL_VARARGS_DEF(Tcl_Interp *, interpArg);

EXTERN char * TclX_DownShift (char *targetStr, CONST char *sourceStr);
EXTERN char * TclX_DownShift (char *targetStr, const char *sourceStr);

EXTERN int TclX_StrToInt (CONST char *string, int base, int *intPtr);
EXTERN int TclX_StrToInt (const char *string, int base, int *intPtr);

EXTERN int TclX_StrToUnsigned (CONST char *string,
EXTERN int TclX_StrToUnsigned (const char *string,
int base,
unsigned *unsignedPtr);

EXTERN char * TclX_UpShift (char *targetStr,
CONST char *sourceStr);
const char *sourceStr);

/*
* Exported keyed list object manipulation functions.
Expand Down Expand Up @@ -143,7 +143,7 @@ EXTERN void_pt TclX_HandleAlloc (void_pt headerPtr,
EXTERN void TclX_HandleFree (void_pt headerPtr,
void_pt entryPtr);

EXTERN void_pt TclX_HandleTblInit (CONST char *handleBase,
EXTERN void_pt TclX_HandleTblInit (const char *handleBase,
int entrySize,
int initEntries);

Expand All @@ -161,7 +161,7 @@ EXTERN void TclX_WalkKeyToHandle (void_pt headerPtr,

EXTERN void_pt TclX_HandleXlate (Tcl_Interp *interp,
void_pt headerPtr,
CONST char *handle);
const char *handle);

EXTERN void_pt TclX_HandleXlateObj (Tcl_Interp *interp,
void_pt headerPtr,
Expand Down
4 changes: 2 additions & 2 deletions generic/tclXbsearch.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,7 +52,7 @@ static int
TclX_BsearchObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

/*-----------------------------------------------------------------------------
*
Expand Down Expand Up @@ -296,7 +296,7 @@ static int
TclX_BsearchObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
int status;
binSearchCB_t searchCB;
Expand Down
12 changes: 6 additions & 6 deletions generic/tclXchmod.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -39,19 +39,19 @@ static int
TclX_ChmodObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static int
TclX_ChownObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static int
TclX_ChgrpObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);


/*-----------------------------------------------------------------------------
Expand Down Expand Up @@ -306,7 +306,7 @@ ChmodFileIdObj (Tcl_Interp *interp, modeInfo_t modeInfo, Tcl_Obj *fileIdObj)
*-----------------------------------------------------------------------------
*/
static int
TclX_ChmodObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
TclX_ChmodObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
{
int objIdx, idx, fileObjc, fileIds, result;
modeInfo_t modeInfo;
Expand Down Expand Up @@ -371,7 +371,7 @@ TclX_ChmodObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *
*-----------------------------------------------------------------------------
*/
static int
TclX_ChownObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
TclX_ChownObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
{
int objIdx, ownerObjc, fileIds;
Tcl_Obj **ownerObjv = NULL;
Expand Down Expand Up @@ -455,7 +455,7 @@ TclX_ChownObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *
*-----------------------------------------------------------------------------
*/
static int
TclX_ChgrpObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
TclX_ChgrpObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
{
int objIdx, fileIds;
char *fileIdsSwitch, *groupString;
Expand Down
4 changes: 2 additions & 2 deletions generic/tclXcmdloop.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -72,7 +72,7 @@ static int
TclX_CommandloopObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

/*-----------------------------------------------------------------------------
* IsSetVarCmd --
Expand Down Expand Up @@ -665,7 +665,7 @@ TclX_CommandLoop (Tcl_Interp *interp,
*-----------------------------------------------------------------------------
*/
static int
TclX_CommandloopObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
TclX_CommandloopObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
{
int options = 0, async = FALSE, argIdx, interactive;
char *argStr, *endCommand = NULL;
Expand Down
2 changes: 1 addition & 1 deletion generic/tclXcoalesce.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -29,7 +29,7 @@
*-----------------------------------------------------------------------------
*/
static int
TclX_CoalesceObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
TclX_CoalesceObjCmd (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
{
int i;
Tcl_Obj *val;
Expand Down
4 changes: 2 additions & 2 deletions generic/tclXdebug.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -90,7 +90,7 @@ static int
TclX_CmdtraceObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static void
DebugCleanUp (ClientData clientData,
Expand Down Expand Up @@ -387,7 +387,7 @@ static int
TclX_CmdtraceObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
traceInfo_pt infoPtr = (traceInfo_pt) clientData;
int idx;
Expand Down
4 changes: 2 additions & 2 deletions generic/tclXdup.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@ static int
TclX_DupObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);


/*-----------------------------------------------------------------------------
Expand Down Expand Up @@ -193,7 +193,7 @@ static int
TclX_DupObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
Tcl_Channel newChannel;
int bindFnum, fnum;
Expand Down
4 changes: 2 additions & 2 deletions generic/tclXfcntl.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -85,7 +85,7 @@ static int
TclX_FcntlObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);


/*-----------------------------------------------------------------------------
Expand Down Expand Up @@ -279,7 +279,7 @@ static int
TclX_FcntlObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
Tcl_Channel channel;
int mode;
Expand Down
12 changes: 6 additions & 6 deletions generic/tclXfilecmds.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -39,19 +39,19 @@ static int
TclX_PipeObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static int
TclX_FtruncateObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static int
TclX_ReaddirObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);


/*-----------------------------------------------------------------------------
Expand All @@ -67,7 +67,7 @@ static int
TclX_PipeObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
Tcl_Channel channels [2];
const char *channelNames [2];
Expand Down Expand Up @@ -160,7 +160,7 @@ static int
TclX_FtruncateObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
int objIdx, fileIds;
off_t newSize;
Expand Down Expand Up @@ -247,7 +247,7 @@ static int
TclX_ReaddirObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
Tcl_DString pathBuf;
char *dirPath;
Expand Down
12 changes: 6 additions & 6 deletions generic/tclXfilescan.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -84,13 +84,13 @@ static int
TclX_ScancontextObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static int
TclX_ScanmatchObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static void
CopyFileCloseHandler (ClientData clientData);
Expand Down Expand Up @@ -119,7 +119,7 @@ static int
TclX_ScanfileObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static void
FileScanCleanUp (ClientData clientData,
Expand Down Expand Up @@ -331,7 +331,7 @@ static int
TclX_ScancontextObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
char *subCommand;

Expand Down Expand Up @@ -393,7 +393,7 @@ TclX_ScancontextObjCmd (ClientData clientData,
static int
TclX_ScanmatchObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[])
int objc, Tcl_Obj *const objv[])
{
scanContext_t *contextPtr, **tableEntryPtr;
matchDef_t *newmatch;
Expand Down Expand Up @@ -776,7 +776,7 @@ static int
TclX_ScanfileObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
scanContext_t *contextPtr, **tableEntryPtr;
Tcl_Obj *contextHandleObj, *fileHandleObj, *copyFileHandleObj;
Expand Down
12 changes: 6 additions & 6 deletions generic/tclXflock.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -25,21 +25,21 @@
static int
ParseLockUnlockArgs (Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[],
Tcl_Obj *const objv[],
int argIdx,
TclX_FlockInfo *lockInfoPtr);

static int
TclX_FlockObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);

static int
TclX_FunlockObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);


/*-----------------------------------------------------------------------------
Expand All @@ -66,7 +66,7 @@ TclX_FunlockObjCmd (ClientData clientData,
static int
ParseLockUnlockArgs (Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[],
Tcl_Obj *const objv[],
int argIdx,
TclX_FlockInfo *lockInfoPtr)
{
Expand Down Expand Up @@ -124,7 +124,7 @@ static int
TclX_FlockObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
int argIdx;
TclX_FlockInfo lockInfo;
Expand Down Expand Up @@ -208,7 +208,7 @@ static int
TclX_FunlockObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
TclX_FlockInfo lockInfo;

Expand Down
4 changes: 2 additions & 2 deletions generic/tclXfstat.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -74,7 +74,7 @@ static int
TclX_FstatObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
Tcl_Obj *const objv[]);


/*-----------------------------------------------------------------------------
Expand Down Expand Up @@ -316,7 +316,7 @@ static int
TclX_FstatObjCmd (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[])
Tcl_Obj *const objv[])
{
Tcl_Channel channel;
struct stat statBuf;
Expand Down

0 comments on commit c056e34

Please sign in to comment.