<pre style='margin:0'>
Perry E. Metzger (pmetzger) pushed a commit to branch master
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/28401f22b52d7a075abf7a1627246c584de5f891">https://github.com/macports/macports-base/commit/28401f22b52d7a075abf7a1627246c584de5f891</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new 28401f22b CONST is deprecated; migrate usage to const
</span>28401f22b is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 28401f22b52d7a075abf7a1627246c584de5f891
</span>Author: Christopher Chavez <chrischavez@gmx.us>
AuthorDate: Mon Oct 30 04:34:05 2023 -0500
<span style='display:block; white-space:pre;color:#404040;'> CONST is deprecated; migrate usage to const
</span>---
src/machista1.0/machista_wrap.c | 50 +++++++++++------------
src/macports1.0/get_systemconfiguration_proxies.c | 4 +-
src/macports1.0/get_systemconfiguration_proxies.h | 2 +-
src/macports1.0/sysctl.c | 2 +-
src/macports1.0/sysctl.h | 2 +-
src/pextlib1.0/Pextlib.c | 32 +++++++--------
src/pextlib1.0/adv-flock.c | 2 +-
src/pextlib1.0/adv-flock.h | 2 +-
src/pextlib1.0/curl.c | 18 ++++----
src/pextlib1.0/curl.h | 2 +-
src/pextlib1.0/filemap.c | 46 ++++++++++-----------
src/pextlib1.0/filemap.h | 2 +-
src/pextlib1.0/fs-traverse.c | 8 ++--
src/pextlib1.0/fs-traverse.h | 2 +-
src/pextlib1.0/md5cmd.c | 2 +-
src/pextlib1.0/md5cmd.h | 2 +-
src/pextlib1.0/mktemp.c | 6 +--
src/pextlib1.0/mktemp.h | 6 +--
src/pextlib1.0/pipe.c | 2 +-
src/pextlib1.0/pipe.h | 2 +-
src/pextlib1.0/readdir.c | 2 +-
src/pextlib1.0/readdir.h | 2 +-
src/pextlib1.0/readline.c | 4 +-
src/pextlib1.0/readline.h | 4 +-
src/pextlib1.0/realpath.c | 2 +-
src/pextlib1.0/realpath.h | 2 +-
src/pextlib1.0/rmd160cmd.c | 2 +-
src/pextlib1.0/rmd160cmd.h | 2 +-
src/pextlib1.0/sha1cmd.c | 2 +-
src/pextlib1.0/sha1cmd.h | 2 +-
src/pextlib1.0/sha256cmd.c | 2 +-
src/pextlib1.0/sha256cmd.h | 2 +-
src/pextlib1.0/system.c | 2 +-
src/pextlib1.0/system.h | 2 +-
src/pextlib1.0/tracelib.c | 8 ++--
src/pextlib1.0/tracelib.h | 2 +-
src/pextlib1.0/tty.c | 4 +-
src/pextlib1.0/tty.h | 4 +-
src/pextlib1.0/uid.c | 28 ++++++-------
src/pextlib1.0/uid.h | 28 ++++++-------
src/pextlib1.0/vercomp.c | 2 +-
src/pextlib1.0/vercomp.h | 2 +-
src/pextlib1.0/xinstall.c | 2 +-
src/pextlib1.0/xinstall.h | 2 +-
src/registry2.0/entry.c | 22 +++++-----
src/registry2.0/entry.h | 2 +-
src/registry2.0/entryobj.c | 24 +++++------
src/registry2.0/entryobj.h | 2 +-
src/registry2.0/file.c | 10 ++---
src/registry2.0/file.h | 2 +-
src/registry2.0/fileobj.c | 6 +--
src/registry2.0/fileobj.h | 2 +-
src/registry2.0/portgroup.c | 10 ++---
src/registry2.0/portgroup.h | 2 +-
src/registry2.0/portgroupobj.c | 6 +--
src/registry2.0/portgroupobj.h | 2 +-
src/registry2.0/registry.c | 10 ++---
src/registry2.0/util.c | 2 +-
src/registry2.0/util.h | 2 +-
59 files changed, 206 insertions(+), 206 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/machista1.0/machista_wrap.c b/src/machista1.0/machista_wrap.c
</span><span style='display:block; white-space:pre;color:#808080;'>index eb04b779b..7abc01b3e 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/machista1.0/machista_wrap.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/machista1.0/machista_wrap.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -828,8 +828,8 @@ typedef struct swig_const_info {
</span> swig_type_info **ptype;
} swig_const_info;
<span style='display:block; white-space:pre;background:#ffe0e0;'>-typedef int (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-typedef int (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+typedef int (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *const []);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+typedef int (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *const []);
</span> typedef char *(*swig_variable_func)(ClientData, Tcl_Interp *, char *, char *, int);
typedef void (*swig_delete_func)(ClientData);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -868,7 +868,7 @@ typedef struct swig_instance {
</span> /* Structure for command table */
typedef struct {
const char *name;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *const []);
</span> ClientData clientdata;
} swig_command_info;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1213,7 +1213,7 @@ SWIG_Tcl_ObjectDelete(ClientData clientData) {
</span>
/* Function to invoke object methods given an instance */
SWIGRUNTIME int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const _objv[]) {
</span> char *method, *attrname;
swig_instance *inst = (swig_instance *) clientData;
swig_method *meth;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1418,7 +1418,7 @@ SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *typ
</span>
/* Function to create objects */
SWIGRUNTIME int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> Tcl_Obj *newObj = 0;
void *thisvalue = 0;
swig_instance *newinst = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1498,7 +1498,7 @@ SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc,
</span> * Get arguments
* -----------------------------------------------------------------------------*/
SWIGRUNTIME int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt, ...) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *fmt, ...) {
</span> int argno = 0, opt = 0;
long tempi;
double tempd;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1854,7 +1854,7 @@ static swig_class *swig_macho_handle_bases[] = {0};
</span> static const char * swig_macho_handle_base_names[] = {0};
static swig_class _wrap_class_macho_handle = { "macho_handle", &SWIGTYPE_p_macho_handle,0,0, swig_macho_handle_methods, swig_macho_handle_attributes, swig_macho_handle_bases,swig_macho_handle_base_names, &swig_module };
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_mlt_install_name_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_mlt_install_name_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1875,7 +1875,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_mlt_type_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_mlt_type_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1896,7 +1896,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_mlt_comp_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_mlt_comp_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1917,7 +1917,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_mlt_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_mlt_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1938,7 +1938,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_next_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_next_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1973,7 +1973,7 @@ static swig_class *swig_macho_loadcmd_bases[] = {0};
</span> static const char * swig_macho_loadcmd_base_names[] = {0};
static swig_class _wrap_class_macho_loadcmd = { "macho_loadcmd", &SWIGTYPE_p_macho_loadcmd,0,0, swig_macho_loadcmd_methods, swig_macho_loadcmd_attributes, swig_macho_loadcmd_bases,swig_macho_loadcmd_base_names, &swig_module };
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_install_name_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_install_name_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1994,7 +1994,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_rpath_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_rpath_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2015,7 +2015,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_arch_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_arch_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2036,7 +2036,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_comp_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_comp_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2057,7 +2057,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2078,7 +2078,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_loadcmds_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_loadcmds_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2099,7 +2099,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_next_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_next_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2136,7 +2136,7 @@ static swig_class *swig_macho_arch_bases[] = {0};
</span> static const char * swig_macho_arch_base_names[] = {0};
static swig_class _wrap_class_macho_arch = { "macho_arch", &SWIGTYPE_p_macho_arch,0,0, swig_macho_arch_methods, swig_macho_arch_attributes, swig_macho_arch_bases,swig_macho_arch_base_names, &swig_module };
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_mt_archs_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_mt_archs_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho *arg1 = (struct macho *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2167,7 +2167,7 @@ static swig_class *swig_macho_bases[] = {0};
</span> static const char * swig_macho_base_names[] = {0};
static swig_class _wrap_class_macho = { "macho", &SWIGTYPE_p_macho,0,0, swig_macho_methods, swig_macho_attributes, swig_macho_bases,swig_macho_base_names, &swig_module };
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_create_handle(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_create_handle(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_handle *result = 0 ;
if (SWIG_GetArgs(interp, objc, objv,":machista::create_handle ") == TCL_ERROR) SWIG_fail;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2180,7 +2180,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_destroy_handle(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_destroy_handle(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_handle *arg1 = (struct macho_handle *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2200,7 +2200,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_parse_file(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_parse_file(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> struct macho_handle *arg1 = (struct macho_handle *) 0 ;
char *arg2 = (char *) 0 ;
struct macho **arg3 = (struct macho **) 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2240,7 +2240,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_strerror(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_strerror(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> int arg1 ;
int val1 ;
int ecode1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2261,7 +2261,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_get_arch_name(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_get_arch_name(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> cpu_type_t arg1 ;
int val1 ;
int ecode1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2282,7 +2282,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_format_dylib_version(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_format_dylib_version(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> uint32_t arg1 ;
unsigned int val1 ;
int ecode1 = 0 ;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/get_systemconfiguration_proxies.c b/src/macports1.0/get_systemconfiguration_proxies.c
</span><span style='display:block; white-space:pre;color:#808080;'>index bf03f57c1..43fe02ae2 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/get_systemconfiguration_proxies.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/get_systemconfiguration_proxies.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -55,9 +55,9 @@ char *cfStringToCStringASCII( CFStringRef cfString );
</span> * Synopsis: array set someArray get_systemconfiguration_proxies
*/
#ifdef HAVE_FRAMEWORK_SYSTEMCONFIGURATION
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int GetSystemConfigurationProxiesCmd( ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *CONST objv[] UNUSED )
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int GetSystemConfigurationProxiesCmd( ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *const objv[] UNUSED )
</span> #else
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int GetSystemConfigurationProxiesCmd( ClientData clientData UNUSED, Tcl_Interp *interp UNUSED, int objc UNUSED, Tcl_Obj *CONST objv[] UNUSED )
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int GetSystemConfigurationProxiesCmd( ClientData clientData UNUSED, Tcl_Interp *interp UNUSED, int objc UNUSED, Tcl_Obj *const objv[] UNUSED )
</span> #endif
{
int cmdResult = TCL_OK;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/get_systemconfiguration_proxies.h b/src/macports1.0/get_systemconfiguration_proxies.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 1c6a1c336..fd01b53a0 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/get_systemconfiguration_proxies.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/get_systemconfiguration_proxies.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -34,7 +34,7 @@
</span>
#include <tcl.h>
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int GetSystemConfigurationProxiesCmd( ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[] );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int GetSystemConfigurationProxiesCmd( ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[] );
</span>
#endif /* _GETSYSTEMCONFIGURATIONPROXIES_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/sysctl.c b/src/macports1.0/sysctl.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 4cf1e8d56..0a57805d3 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/sysctl.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/sysctl.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -51,7 +51,7 @@
</span> /*
* Read-only wrapper for sysctlbyname(3). Only works for values of type CTLTYPE_INT and CTLTYPE_QUAD.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SysctlCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SysctlCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
#if defined HAVE_SYSCTLBYNAME && !defined __linux__
const char error_message[] = "sysctl failed: ";
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/sysctl.h b/src/macports1.0/sysctl.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 81e4cf079..f53dbc838 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/sysctl.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/sysctl.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -30,4 +30,4 @@
</span> */
/* Read-only wrapper for sysctlbyname(3) */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SysctlCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SysctlCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/Pextlib.c b/src/pextlib1.0/Pextlib.c
</span><span style='display:block; white-space:pre;color:#808080;'>index ed3186be0..77b31168d 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/Pextlib.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/Pextlib.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -187,7 +187,7 @@ void ui_debug(Tcl_Interp *interp, const char *format, ...) {
</span> va_end(va);
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int StrsedCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int StrsedCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *pattern, *string, *res;
int range[2];
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -211,7 +211,7 @@ int StrsedCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span> return TCL_OK;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int ExistsuserCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int ExistsuserCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Obj *tcl_result;
struct passwd *pwent;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -239,7 +239,7 @@ int ExistsuserCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tc
</span> return TCL_OK;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int ExistsgroupCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int ExistsgroupCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Obj *tcl_result;
struct group *grent;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -270,7 +270,7 @@ int ExistsgroupCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, T
</span> /* Find the first unused UID > 500
UIDs > 500 are visible on the macOS login screen,
but UIDs < 500 are reserved by Apple */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int NextuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *CONST objv[] UNUSED)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int NextuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *const objv[] UNUSED)
</span> {
Tcl_Obj *tcl_result;
int cur;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -287,7 +287,7 @@ int NextuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED
</span> }
/* Just as with NextuidCmd, return the first unused gid > 500 */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int NextgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *CONST objv[] UNUSED)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int NextgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *const objv[] UNUSED)
</span> {
Tcl_Obj *tcl_result;
int cur;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -303,7 +303,7 @@ int NextgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED
</span> return TCL_OK;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int UmaskCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int UmaskCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Obj *tcl_result;
char *tcl_mask, *p;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -354,7 +354,7 @@ int UmaskCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj
</span> * Create a symbolic link at target pointing to value
* See symlink(2) for possible errors
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int CreateSymlinkCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int CreateSymlinkCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *value, *target;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -381,7 +381,7 @@ int CreateSymlinkCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc,
</span> * Syntax is:
* unsetenv name (* for all)
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int UnsetEnvCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int UnsetEnvCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *name;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -449,9 +449,9 @@ int UnsetEnvCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_
</span> *
* Synopsis: lchown filename user ?group?
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int lchownCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int lchownCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- CONST char *path;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ const char *path;
</span> long user;
long group = -1;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -462,7 +462,7 @@ int lchownCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span>
path = Tcl_GetString(objv[1]);
if (Tcl_GetLongFromObj(NULL, objv[2], &user) != TCL_OK) {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- CONST char *userString = Tcl_GetString(objv[2]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ const char *userString = Tcl_GetString(objv[2]);
</span> struct passwd *pwent = getpwnam(userString);
if (pwent == NULL) {
Tcl_SetResult(interp, "Unknown user given", TCL_STATIC);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -472,7 +472,7 @@ int lchownCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span> }
if (objc == 4) {
if (Tcl_GetLongFromObj(NULL, objv[3], &group) != TCL_OK) {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- CONST char *groupString = Tcl_GetString(objv[3]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ const char *groupString = Tcl_GetString(objv[3]);
</span> struct group *grent = getgrnam(groupString);
if (grent == NULL) {
Tcl_SetResult(interp, "Unknown group given", TCL_STATIC);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -498,7 +498,7 @@ int lchownCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span> *
* Synopsis: fileIsBinary filename
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int fileIsBinaryCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int fileIsBinaryCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> const char *path;
FILE *file;
uint32_t magic;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -590,7 +590,7 @@ static int fileIsBinaryCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int
</span>
/* Check if the configured DNS server(s) incorrectly return a result for
a nonexistent hostname. Returns true if broken, false if OK. */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int CheckBrokenDNSCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *CONST objv[] UNUSED)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int CheckBrokenDNSCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *const objv[] UNUSED)
</span> {
static int already_checked = 0;
Tcl_Obj *tcl_result;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -623,7 +623,7 @@ int CheckBrokenDNSCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc
</span>
raises the limit of open files to the maximum
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SetMaxOpenFilesCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *CONST objv[] UNUSED)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SetMaxOpenFilesCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc UNUSED, Tcl_Obj *const objv[] UNUSED)
</span> {
struct rlimit rl;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1037,7 +1037,7 @@ int fs_case_sensitive_fallback(Tcl_Interp *interp, const char *path, mount_cs_ca
</span> * Returns 1 if the FS is case-sensitive, 0 otherwise.
* Errors out if the case-sensitivity could not be determined.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int FSCaseSensitiveCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FSCaseSensitiveCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> Tcl_Obj *tcl_result;
int ret = -1;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/adv-flock.c b/src/pextlib1.0/adv-flock.c
</span><span style='display:block; white-space:pre;color:#808080;'>index b59a6cc72..3debbbb71 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/adv-flock.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/adv-flock.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -60,7 +60,7 @@ static void alarmHandler(int sig UNUSED) {
</span> }
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-AdvFlockCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+AdvFlockCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> static const char errorstr[] = "use one of \"-shared\", \"-exclusive\", or \"-unlock\", and optionally \"-noblock\"";
int operation = 0, fd, i, ret, sigret = TCL_OK;
int errnoval = 0;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/adv-flock.h b/src/pextlib1.0/adv-flock.h
</span><span style='display:block; white-space:pre;color:#808080;'>index b213bf2f3..4739b2e41 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/adv-flock.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/adv-flock.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,4 +29,4 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int AdvFlockCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int AdvFlockCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/curl.c b/src/pextlib1.0/curl.c
</span><span style='display:block; white-space:pre;color:#808080;'>index cb904b7fa..3292005e5 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/curl.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/curl.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -87,10 +87,10 @@ static CURL* theHandle = NULL;
</span> * ------------------------------------------------------------------------- */
int SetResultFromCurlErrorCode(Tcl_Interp* interp, CURLcode inErrorCode);
int SetResultFromCurlMErrorCode(Tcl_Interp* interp, CURLMcode inErrorCode);
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int CurlFetchCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int CurlIsNewerCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int CurlGetSizeCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int CurlPostCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int CurlFetchCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int CurlIsNewerCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int CurlGetSizeCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int CurlPostCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span>
typedef struct {
Tcl_Interp *interp;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -163,7 +163,7 @@ SetResultFromCurlMErrorCode(Tcl_Interp *interp, CURLMcode inErrorCode)
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-CurlFetchCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+CurlFetchCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
bool handleAdded = false;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -756,7 +756,7 @@ CurlFetchCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-CurlIsNewerCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+CurlIsNewerCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
FILE* theFile = NULL;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -992,7 +992,7 @@ CurlIsNewerCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-CurlGetSizeCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+CurlGetSizeCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
FILE* theFile = NULL;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1200,7 +1200,7 @@ CurlGetSizeCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-CurlPostCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+CurlPostCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
FILE* theFile = NULL;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1448,7 +1448,7 @@ CurlCmd(
</span> ClientData clientData UNUSED,
Tcl_Interp* interp,
int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[])
</span> {
typedef enum {
kCurlFetch,
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/curl.h b/src/pextlib1.0/curl.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 59b449c24..7551f63ef 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/curl.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/curl.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -52,7 +52,7 @@
</span> * Determine the file size of some resource. Try to not fetch the resource
* if possible. The size returned is the number of bytes.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int CurlCmd(ClientData clientData, Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int CurlCmd(ClientData clientData, Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span>
#endif
/* _CURL_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/filemap.c b/src/pextlib1.0/filemap.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 15867486a..b967e1ae9 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/filemap.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/filemap.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -161,17 +161,17 @@ void UpdateStringOfFilemap(Tcl_Obj* inObjPtr);
</span> int SetFilemapFromAny(Tcl_Interp* inInterp, Tcl_Obj* inObjPtr);
int SetResultFromErrorCode(Tcl_Interp* interp, int inErrorCode);
SFilemapObject* GetObjectFromVarName(Tcl_Interp* interp, Tcl_Obj* inVarName);
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapCloseCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapCreateCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapExistsCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapGetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapIsReadOnlyCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapListCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapOpenCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapRevertCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapSaveCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapSetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapUnsetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapCloseCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapCreateCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapExistsCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapGetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapIsReadOnlyCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapListCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapOpenCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapRevertCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapSaveCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapSetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapUnsetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span>
/* ------------------------------------------------------------------------- **
* ObjType definition
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1315,7 +1315,7 @@ GetObjectFromVarName(Tcl_Interp* interp, Tcl_Obj* inVarName)
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapCloseCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapCloseCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1368,7 +1368,7 @@ FilemapCloseCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapCreateCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapCreateCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
Tcl_Obj* theObject;
SFilemapObject* theFilemapObject;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1414,7 +1414,7 @@ FilemapCreateCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapExistsCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapExistsCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1456,7 +1456,7 @@ FilemapExistsCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapGetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapGetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1498,7 +1498,7 @@ FilemapGetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapIsReadOnlyCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapIsReadOnlyCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1535,7 +1535,7 @@ FilemapIsReadOnlyCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapListCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapListCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1577,7 +1577,7 @@ FilemapListCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapOpenCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapOpenCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theErr = 0;
char isReadOnly = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1715,7 +1715,7 @@ FilemapOpenCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapRevertCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapRevertCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1768,7 +1768,7 @@ FilemapRevertCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapSaveCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapSaveCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1826,7 +1826,7 @@ FilemapSaveCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapSetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapSetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1880,7 +1880,7 @@ FilemapSetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span> * @param objv parameters
*/
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FilemapUnsetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FilemapUnsetCmd(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[])
</span> {
int theResult = TCL_OK;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1937,7 +1937,7 @@ FilemapCmd(
</span> ClientData clientData UNUSED,
Tcl_Interp* interp,
int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[])
</span> {
typedef enum {
kFilemapClose,
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/filemap.h b/src/pextlib1.0/filemap.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 2ab22213a..c0a609bcf 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/filemap.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/filemap.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -85,7 +85,7 @@
</span> * filemap unset filemapVarName path
* remove a key,value pair from the database.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int FilemapCmd(ClientData clientData, Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FilemapCmd(ClientData clientData, Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span>
#endif
/* _FILEMAP_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/fs-traverse.c b/src/pextlib1.0/fs-traverse.c
</span><span style='display:block; white-space:pre;color:#808080;'>index cf0343b07..0efd14e63 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/fs-traverse.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/fs-traverse.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -54,7 +54,7 @@
</span>
#include "fs-traverse.h"
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int do_traverse(Tcl_Interp *interp, int flags, char * CONST *targets, Tcl_Obj *varname, Tcl_Obj *body);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int do_traverse(Tcl_Interp *interp, int flags, char * const *targets, Tcl_Obj *varname, Tcl_Obj *body);
</span>
#define F_DEPTH 0x1
#define F_IGNORE_ERRORS 0x2
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -62,14 +62,14 @@ static int do_traverse(Tcl_Interp *interp, int flags, char * CONST *targets, Tcl
</span>
/* fs-traverse ?-depth? ?-ignoreErrors? ?-tails? ?--? varname target-list body */
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-FsTraverseCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+FsTraverseCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Obj *varname;
Tcl_Obj *body;
int flags = 0;
int rval = TCL_OK;
Tcl_Obj *listPtr;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj *CONST *objv_orig = objv;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj *const *objv_orig = objv;
</span> int lobjc;
Tcl_Obj **lobjv;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -164,7 +164,7 @@ do_compare(const FTSENT **a, const FTSENT **b)
</span> }
static int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-do_traverse(Tcl_Interp *interp, int flags, char * CONST *targets, Tcl_Obj *varname, Tcl_Obj *body)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+do_traverse(Tcl_Interp *interp, int flags, char * const *targets, Tcl_Obj *varname, Tcl_Obj *body)
</span> {
int rval = TCL_OK;
FTS *root_fts;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/fs-traverse.h b/src/pextlib1.0/fs-traverse.h
</span><span style='display:block; white-space:pre;color:#808080;'>index e9c66df18..fa942b6b7 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/fs-traverse.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/fs-traverse.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,4 +29,4 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int FsTraverseCmd(ClientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int FsTraverseCmd(ClientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/md5cmd.c b/src/pextlib1.0/md5cmd.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 293c9e426..df70ddad6 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/md5cmd.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/md5cmd.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -72,7 +72,7 @@ CHECKSUMFile(MD5_, MD5_CTX)
</span> #error CommonCrypto, libmd or libcrypto required
#endif
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int MD5Cmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int MD5Cmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *file, *action;
char buf[33];
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/md5cmd.h b/src/pextlib1.0/md5cmd.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 9a0d29e27..219afda88 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/md5cmd.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/md5cmd.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,4 +29,4 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int MD5Cmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int MD5Cmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/mktemp.c b/src/pextlib1.0/mktemp.c
</span><span style='display:block; white-space:pre;color:#808080;'>index f07213916..83b5257fa 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/mktemp.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/mktemp.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -50,7 +50,7 @@
</span>
#include "mktemp.h"
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int MkdtempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int MkdtempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *template, *sp;
Tcl_Obj *tcl_result;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -76,7 +76,7 @@ int MkdtempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_O
</span> return TCL_OK;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int MktempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int MktempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *template, *sp;
Tcl_Obj *tcl_result;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -102,7 +102,7 @@ int MktempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span> return TCL_OK;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int MkstempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int MkstempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Channel channel;
char *template, *channelname;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/mktemp.h b/src/pextlib1.0/mktemp.h
</span><span style='display:block; white-space:pre;color:#808080;'>index dfc8c6627..431421176 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/mktemp.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/mktemp.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,6 +29,6 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int MkdtempCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int MktempCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int MkstempCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int MkdtempCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int MktempCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int MkstempCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/pipe.c b/src/pextlib1.0/pipe.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 9b5e8d82b..937585231 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/pipe.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/pipe.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -50,7 +50,7 @@
</span> * Return a list with the file descriptors of the pipe. The first item is the
* readable fd.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int PipeCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int PipeCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Obj* result;
int fildes[2];
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/pipe.h b/src/pextlib1.0/pipe.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 3f8f5ab88..ac015bc9e 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/pipe.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/pipe.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,4 +29,4 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int PipeCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int PipeCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/readdir.c b/src/pextlib1.0/readdir.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 06d452afb..087bff75b 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/readdir.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/readdir.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -46,7 +46,7 @@
</span> *
* Synopsis: readdir directory
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int ReaddirCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int ReaddirCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
DIR *dirp;
struct dirent *mp;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/readdir.h b/src/pextlib1.0/readdir.h
</span><span style='display:block; white-space:pre;color:#808080;'>index bdabd3a2c..909e5efe7 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/readdir.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/readdir.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,4 +29,4 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int ReaddirCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int ReaddirCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/readline.c b/src/pextlib1.0/readline.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 7bf39f2f5..c9760cedd 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/readline.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/readline.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -158,7 +158,7 @@ attempted_completion_function(const char* word, int start, int end)
</span> read -attempted_completion proc line ?prompt?
completion_matches text function
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int ReadlineCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int ReadlineCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char* action;
Tcl_Obj *tcl_result;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -276,7 +276,7 @@ int ReadlineCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_
</span> stifle max
unstifle
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int RLHistoryCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int RLHistoryCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char* action = NULL;
#ifdef HAVE_LIBREADLINE
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/readline.h b/src/pextlib1.0/readline.h
</span><span style='display:block; white-space:pre;color:#808080;'>index b70866d36..b7714ad93 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/readline.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/readline.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3,5 +3,5 @@
</span> *
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int ReadlineCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int RLHistoryCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int ReadlineCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int RLHistoryCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/realpath.c b/src/pextlib1.0/realpath.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 1616f6a43..b3f828668 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/realpath.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/realpath.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -53,7 +53,7 @@
</span> * @param objc number of parameters
* @param objv parameters
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int RealpathCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int RealpathCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
const char error_message[] = "realpath failed: ";
Tcl_Obj *tcl_result;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/realpath.h b/src/pextlib1.0/realpath.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 6cf9530bf..f00d1de73 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/realpath.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/realpath.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -43,6 +43,6 @@
</span> * Fixes a problem with Tcl installations affected by not defining HAVE_REALPATH (this is
* the case with the Tcl in Mac OS X prior to 10.6)
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int RealpathCmd(ClientData clientData, Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int RealpathCmd(ClientData clientData, Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span>
#endif /* _REALPATH_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/rmd160cmd.c b/src/pextlib1.0/rmd160cmd.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 035d16333..385a5d4c6 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/rmd160cmd.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/rmd160cmd.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -75,7 +75,7 @@ CHECKSUMFile(RMD160, RMD160_CTX)
</span> CHECKSUMData(RMD160, RMD160_CTX)
#endif
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int RMD160Cmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int RMD160Cmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *file, *instr, *action;
int inlen;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/rmd160cmd.h b/src/pextlib1.0/rmd160cmd.h
</span><span style='display:block; white-space:pre;color:#808080;'>index fbb7a1ac7..6d692c882 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/rmd160cmd.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/rmd160cmd.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -37,7 +37,7 @@
</span> /**
* A native command for rmd160 checksums.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int RMD160Cmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int RMD160Cmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span>
#endif
/* _RMD160CMD_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/sha1cmd.c b/src/pextlib1.0/sha1cmd.c
</span><span style='display:block; white-space:pre;color:#808080;'>index a7c815a94..84e95fd40 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/sha1cmd.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/sha1cmd.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -73,7 +73,7 @@ CHECKSUMFile(SHA1_, SHA_CTX)
</span> #error CommonCrypto, libmd or libcrypto required
#endif
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SHA1Cmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SHA1Cmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *file, *action;
char buf[2*SHA_DIGEST_LENGTH + 1];
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/sha1cmd.h b/src/pextlib1.0/sha1cmd.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 2e4042cc6..2b06335b5 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/sha1cmd.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/sha1cmd.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -30,4 +30,4 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SHA1Cmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SHA1Cmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/sha256cmd.c b/src/pextlib1.0/sha256cmd.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 963ff01d9..4a8650b42 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/sha256cmd.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/sha256cmd.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -86,7 +86,7 @@ CHECKSUMEnd(SHA256_, SHA256_CTX, SHA256_DIGEST_LENGTH)
</span> CHECKSUMFile(SHA256_, SHA256_CTX)
#endif
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SHA256Cmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SHA256Cmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *file, *action;
char buf[2*SHA256_DIGEST_LENGTH + 1];
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/sha256cmd.h b/src/pextlib1.0/sha256cmd.h
</span><span style='display:block; white-space:pre;color:#808080;'>index a124ad5a0..dc2b7ab2a 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/sha256cmd.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/sha256cmd.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -37,7 +37,7 @@
</span> /**
* A native command for sha256 checksums.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SHA256Cmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SHA256Cmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span>
#endif
/* _SHA256CMD_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/system.c b/src/pextlib1.0/system.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 7de5bbba9..d9ea2f4be 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/system.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/system.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -284,7 +284,7 @@ static void handle_sigint(int s) {
</span> }
/* usage: system ?-callback proc? ?-notty? ?-nodup? ?-nice value? ?-W path? command */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SystemCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SystemCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
char *args[7];
char *cmdstring;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/system.h b/src/pextlib1.0/system.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 0bca5ef2f..f722f3403 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/system.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/system.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -29,4 +29,4 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int SystemCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int SystemCmd(ClientData, Tcl_Interp *, int, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/tracelib.c b/src/pextlib1.0/tracelib.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 410356349..e3eda2659 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/tracelib.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/tracelib.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -334,7 +334,7 @@ static int error2tcl(const char *msg, int err, Tcl_Interp *interp) {
</span> * \param[in] objv the parameters
* \return a Tcl return code
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int TracelibSetNameCmd(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int TracelibSetNameCmd(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> if (objc != 3) {
Tcl_WrongNumArgs(interp, 2, objv, "number of arguments should be exactly 3");
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -363,7 +363,7 @@ static int TracelibSetNameCmd(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[
</span> * \param[in] objv the parameters
* \return a Tcl return code
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int TracelibSetSandboxCmd(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int TracelibSetSandboxCmd(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> char *src, *dst;
enum { NORMAL, ACTION, ESCAPE } state = NORMAL;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1038,7 +1038,7 @@ static int TracelibCloseSocketCmd(Tcl_Interp *interp UNUSED) {
</span> return TCL_OK;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int TracelibSetDeps(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int TracelibSetDeps(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> Tcl_Obj **objects;
int length;
if (objc != 3) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1095,7 +1095,7 @@ static int TracelibEnableFence(Tcl_Interp *interp UNUSED) {
</span> }
#endif /* defined(HAVE_TRACEMODE_SUPPORT) */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int TracelibCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int TracelibCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> int result = TCL_OK;
/* There is no args for commands now. */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/tracelib.h b/src/pextlib1.0/tracelib.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 51e132dba..da927c966 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/tracelib.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/tracelib.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -58,7 +58,7 @@
</span> * tracelib enablefence
* - enable dep/sandbox checking
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int TracelibCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int TracelibCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span>
#endif
/* _PEXTLIB_TRACELIB_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/tty.c b/src/pextlib1.0/tty.c
</span><span style='display:block; white-space:pre;color:#808080;'>index c98e3070a..81ca54c37 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/tty.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/tty.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -46,7 +46,7 @@
</span> #include "tty.h"
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-IsattyCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+IsattyCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Obj *tcl_result;
Tcl_Channel chan;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -80,7 +80,7 @@ IsattyCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *C
</span> }
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-TermGetSizeCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+TermGetSizeCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Obj *tcl_result;
Tcl_Channel chan;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/tty.h b/src/pextlib1.0/tty.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 5b1642d91..d382c4067 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/tty.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/tty.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -38,13 +38,13 @@
</span> /**
* A wrapper for isatty(3)
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int IsattyCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int IsattyCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span>
/**
* Determines current size of tty
*
* @returns list with 2 elements, rows and columns
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int TermGetSizeCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int TermGetSizeCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span>
#endif /* _PEXTLIB_TTY_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/uid.c b/src/pextlib1.0/uid.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 585d2d395..ab979978a 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/uid.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/uid.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -31,7 +31,7 @@
</span>
synopsis: getuid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int getuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int getuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
/* Check the arg count */
if (objc != 1) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -48,7 +48,7 @@ int getuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span>
synopsis: geteuid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int geteuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int geteuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
/* Check the arg count */
if (objc != 1) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -63,7 +63,7 @@ int geteuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_O
</span> /*
getgid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int getgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int getgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
if (objc != 1) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -77,7 +77,7 @@ int getgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span> /*
getegid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int getegidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int getegidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
if (objc != 1) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -93,7 +93,7 @@ int getegidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_O
</span>
synopsis: setuid uid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int setuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int setuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
long uid = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -123,7 +123,7 @@ int setuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span>
synopsis: seteuid uid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int seteuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int seteuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
long uid = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -151,7 +151,7 @@ int seteuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_O
</span> /*
setgid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int setgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int setgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
long gid;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -177,7 +177,7 @@ int setgidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span> /*
setegid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int setegidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int setegidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
long gid;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -206,7 +206,7 @@ int setegidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_O
</span> * getpwuid <uid> [<field>]
*
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int getpwuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int getpwuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span> uid_t uid;
const char *field = NULL;
struct passwd *pw;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -310,7 +310,7 @@ int getpwuidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_
</span>
synopsis: name_to_uid name
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int name_to_uidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int name_to_uidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
struct passwd *pwent;
char* name = NULL;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -342,7 +342,7 @@ int name_to_uidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, T
</span>
synopsis: uid_to_name uid
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int uid_to_nameCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int uid_to_nameCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
long uid = 0;
struct passwd *pwent;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -371,7 +371,7 @@ int uid_to_nameCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, T
</span> synopsis: uname_to_gid name
this function takes a *user* name
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int uname_to_gidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int uname_to_gidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
struct passwd *pwent;
char* name = NULL;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -404,7 +404,7 @@ int uname_to_gidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc,
</span> synopsis: name_to_gid name
this function takes a *group* name
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int name_to_gidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int name_to_gidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
struct group *grent;
char *name;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -431,7 +431,7 @@ int name_to_gidCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, T
</span> /*
gid_to_name
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int gid_to_nameCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int gid_to_nameCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
long gid;
struct group *grent;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/uid.h b/src/pextlib1.0/uid.h
</span><span style='display:block; white-space:pre;color:#808080;'>index f960d9162..cda569efa 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/uid.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/uid.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -34,20 +34,20 @@
</span>
#include <tcl.h>
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int getuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int geteuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int getgidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int getegidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int setuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int seteuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int setgidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int setegidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int getpwuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int name_to_uidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int uid_to_nameCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int uname_to_gidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int name_to_gidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-int gid_to_nameCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int getuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int geteuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int getgidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int getegidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int setuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int seteuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int setgidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int setegidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int getpwuidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int name_to_uidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int uid_to_nameCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int uname_to_gidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int name_to_gidCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int gid_to_nameCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span>
#endif
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/vercomp.c b/src/pextlib1.0/vercomp.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 6b2ef1291..bed869f93 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/vercomp.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/vercomp.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -174,7 +174,7 @@ static int vercmp_op(const char *versionA, const char *operator, const char *ver
</span> return -1;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int VercompCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int VercompCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
Tcl_Obj *tcl_result;
const char *versionA, *versionB, *operator;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/vercomp.h b/src/pextlib1.0/vercomp.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 4739fa658..a40a162bb 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/vercomp.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/vercomp.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -31,4 +31,4 @@
</span> * POSSIBILITY OF SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int VercompCmd(ClientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int VercompCmd(ClientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/xinstall.c b/src/pextlib1.0/xinstall.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 51b770f1c..bc990178a 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/xinstall.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/xinstall.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -143,7 +143,7 @@ static int trymmap(int);
</span> static void usage(Tcl_Interp *interp);
int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-InstallCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+InstallCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
</span> {
struct stat from_sb, to_sb;
mode_t *set;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/xinstall.h b/src/pextlib1.0/xinstall.h
</span><span style='display:block; white-space:pre;color:#808080;'>index c264ac0d1..2f9062212 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/xinstall.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/xinstall.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -27,4 +27,4 @@
</span> * SUCH DAMAGE.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int InstallCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int InstallCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]);
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/entry.c b/src/registry2.0/entry.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 758305936..9b5e994c9 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/entry.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/entry.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -95,7 +95,7 @@ static int list_obj_to_entry(Tcl_Interp* interp, reg_entry*** entries,
</span> * required. That's OK because there's only one place this function is called,
* and it's called with all of them there.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_create(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_create(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 7) {
Tcl_WrongNumArgs(interp, 2, objv, "name version revision variants "
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -129,7 +129,7 @@ static int entry_create(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span> * Deletes an entry from the registry (then closes it). If this is done within a
* transaction and the transaction is rolled back, the entry will remain valid.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_delete(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_delete(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "delete entry");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -187,7 +187,7 @@ static int entry_delete(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span> *
* Opens an entry matching the given parameters.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_open(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_open(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 7) {
Tcl_WrongNumArgs(interp, 1, objv, "open portname version revision "
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -221,7 +221,7 @@ static int entry_open(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span> *
* Closes an entry. It will remain in the registry until next time.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_close(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_close(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "close entry");
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -260,7 +260,7 @@ static strategy_type strategies[] = {
</span> * Can be given an option of -exact, -glob, -regexp or -null to specify the
* matching strategy; defaults to exact.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_search(Tcl_Interp* interp, int objc, Tcl_Obj* CONST *objv) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_search(Tcl_Interp* interp, int objc, Tcl_Obj* const *objv) {
</span> reg_registry *reg = registry_for(interp, reg_attached);
if (!reg) {
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -355,7 +355,7 @@ cleanup_error:
</span> * simply checks if the given string is a valid entry object in the current
* interp. No query to the database will be made.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_exists(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_exists(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> reg_error error;
if (objc != 3) {
Tcl_WrongNumArgs(interp, 2, objv, "name");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -389,7 +389,7 @@ static int entry_exists(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span> *
* TODO: add more arguments (epoch, revision, variants), maybe
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_imaged(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_imaged(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc == 5 || objc > 6) {
Tcl_WrongNumArgs(interp, 2, objv, "?name ?version ?revision variants???");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -432,7 +432,7 @@ static int entry_imaged(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span> * installed ports in 'direct' mode. That is, any port which is capable of
* satisfying a dependency.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_installed(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]){
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_installed(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]){
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc > 3) {
Tcl_WrongNumArgs(interp, 2, objv, "?name?");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -470,7 +470,7 @@ static int entry_installed(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]){
</span> *
* Returns the port that owns the given filename (empty string if none).
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int entry_owner(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int entry_owner(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
int cs = 1;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -508,7 +508,7 @@ static int entry_owner(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span>
typedef struct {
char* name;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int (*function)(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int (*function)(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span> } entry_cmd_type;
static entry_cmd_type entry_cmds[] = {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -533,7 +533,7 @@ static entry_cmd_type entry_cmds[] = {
</span> * represents ports too, but not those in the registry.
*/
int entry_cmd(ClientData clientData UNUSED, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int cmd_index;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "cmd ?arg ...?");
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/entry.h b/src/registry2.0/entry.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 3144f1fb5..d9aa115eb 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/entry.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/entry.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -36,6 +36,6 @@
</span> void delete_entry(ClientData clientData);
int entry_cmd(ClientData clientData UNUSED, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span>
#endif /* _ENTRY_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/entryobj.c b/src/registry2.0/entryobj.c
</span><span style='display:block; white-space:pre;color:#808080;'>index c4ff1eb27..1ebc2b258 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/entryobj.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/entryobj.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -62,7 +62,7 @@ const char* entry_props[] = {
</span>
/* ${entry} prop ?value? */
static int entry_obj_prop(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int index;
if (objc > 3) {
Tcl_WrongNumArgs(interp, 2, objv, "?value?");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -122,7 +122,7 @@ static filemap_op filemap_cmds[] = {
</span> };
static int entry_obj_filemap(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
int op;
if (objc != 3) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -157,7 +157,7 @@ static int entry_obj_filemap(Tcl_Interp* interp, reg_entry* entry, int objc,
</span> }
static int entry_obj_files(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "files");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -191,7 +191,7 @@ static int entry_obj_files(Tcl_Interp* interp, reg_entry* entry, int objc,
</span> }
static int entry_obj_imagefiles(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "imagefiles");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -225,7 +225,7 @@ static int entry_obj_imagefiles(Tcl_Interp* interp, reg_entry* entry, int objc,
</span> }
static int entry_obj_activate(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc > 4) {
Tcl_WrongNumArgs(interp, 1, objv, "activate file-list ?as-file-list?");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -277,7 +277,7 @@ static int entry_obj_activate(Tcl_Interp* interp, reg_entry* entry, int objc,
</span> }
static int entry_obj_dependencies(Tcl_Interp* interp, reg_entry* entry,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int objc, Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "dependencies");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -307,7 +307,7 @@ static int entry_obj_dependencies(Tcl_Interp* interp, reg_entry* entry,
</span> }
static int entry_obj_dependents(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "dependents");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -337,7 +337,7 @@ static int entry_obj_dependents(Tcl_Interp* interp, reg_entry* entry, int objc,
</span> }
static int entry_obj_depends(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "depends portname");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -355,7 +355,7 @@ static int entry_obj_depends(Tcl_Interp* interp, reg_entry* entry, int objc,
</span> }
static int entry_obj_add_portgroup(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 6) {
Tcl_WrongNumArgs(interp, 1, objv, "addgroup name version sha256 size");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -378,7 +378,7 @@ static int entry_obj_add_portgroup(Tcl_Interp* interp, reg_entry* entry, int obj
</span> }
static int entry_obj_get_portgroups(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "groups_used");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -410,7 +410,7 @@ static int entry_obj_get_portgroups(Tcl_Interp* interp, reg_entry* entry, int ob
</span> typedef struct {
char* name;
int (*function)(Tcl_Interp* interp, reg_entry* entry, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span> } entry_obj_cmd_type;
static entry_obj_cmd_type entry_cmds[] = {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -459,7 +459,7 @@ static entry_obj_cmd_type entry_cmds[] = {
</span> * chance to touch it.
*/
int entry_obj_cmd(ClientData clientData, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int cmd_index;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "cmd ?arg ...?");
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/entryobj.h b/src/registry2.0/entryobj.h
</span><span style='display:block; white-space:pre;color:#808080;'>index c77e279a3..c9c9989c4 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/entryobj.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/entryobj.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -42,6 +42,6 @@ typedef struct {
</span> extern const char* entry_props[];
int entry_obj_cmd(ClientData clientData, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span>
#endif /* _ENTRY_OBJ_CMD_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/file.c b/src/registry2.0/file.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 4a2177687..eb0c3c38d 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/file.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/file.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -78,7 +78,7 @@ void delete_file(ClientData clientData) {
</span> *
* Opens a file matching the given parameters.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int file_open(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int file_open(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 4) {
Tcl_WrongNumArgs(interp, 1, objv, "open portid path");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -107,7 +107,7 @@ static int file_open(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span> *
* Closes a file. It will remain in the registry.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int file_close(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int file_close(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "close file");
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -146,7 +146,7 @@ static strategy_type strategies[] = {
</span> * For each key, can be given an option of -exact, -glob, -regexp or -null to
* specify the matching strategy; defaults to exact.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int file_search(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int file_search(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> int i, j;
reg_registry* reg = registry_for(interp, reg_attached);
if (reg == NULL) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -271,7 +271,7 @@ static int file_search(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span>
typedef struct {
char* name;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int (*function)(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int (*function)(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span> } file_cmd_type;
static file_cmd_type file_cmds[] = {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -288,7 +288,7 @@ static file_cmd_type file_cmds[] = {
</span> * Commands manipulating file entries in the registry. This can be called `registry::file`
*/
int file_cmd(ClientData clientData UNUSED, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int cmd_index;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "cmd ?arg ...?");
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/file.h b/src/registry2.0/file.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 1f6a73070..e3b516240 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/file.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/file.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -37,7 +37,7 @@
</span> void delete_file(ClientData clientData);
int file_cmd(ClientData clientData UNUSED, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span>
#endif /* _FILE_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/fileobj.c b/src/registry2.0/fileobj.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 5c262944e..0b80c764b 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/fileobj.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/fileobj.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -50,7 +50,7 @@ const char* file_props[] = {
</span>
/* ${file} prop ?value? */
static int file_obj_prop(Tcl_Interp* interp, reg_file* file, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int index;
if (objc > 3) {
Tcl_WrongNumArgs(interp, 2, objv, "?value?");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -99,7 +99,7 @@ static int file_obj_prop(Tcl_Interp* interp, reg_file* file, int objc,
</span> typedef struct {
char* name;
int (*function)(Tcl_Interp* interp, reg_file* file, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span> } file_obj_cmd_type;
static file_obj_cmd_type file_cmds[] = {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -120,7 +120,7 @@ static file_obj_cmd_type file_cmds[] = {
</span> * chance to touch it.
*/
int file_obj_cmd(ClientData clientData, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int cmd_index;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "cmd ?arg ...?");
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/fileobj.h b/src/registry2.0/fileobj.h
</span><span style='display:block; white-space:pre;color:#808080;'>index a5e41b828..afc25af81 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/fileobj.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/fileobj.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -38,6 +38,6 @@
</span> extern const char* file_props[];
int file_obj_cmd(ClientData clientData, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span>
#endif /* _FILE_OBJ_CMD_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/portgroup.c b/src/registry2.0/portgroup.c
</span><span style='display:block; white-space:pre;color:#808080;'>index f6590a5e7..d49c77a1e 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/portgroup.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/portgroup.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -73,7 +73,7 @@ void delete_portgroup(ClientData clientData) {
</span> *
* Opens a portgroup matching the given parameters.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int portgroup_open(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int portgroup_open(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> reg_registry* reg = registry_for(interp, reg_attached);
if (objc != 7) {
Tcl_WrongNumArgs(interp, 1, objv, "open id name version size sha256");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -106,7 +106,7 @@ static int portgroup_open(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span> *
* Closes a portgroup. It will remain in the registry.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int portgroup_close(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int portgroup_close(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "close portgroup");
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -145,7 +145,7 @@ static strategy_type strategies[] = {
</span> * For each key, can be given an option of -exact, -glob, -regexp or -null to
* specify the matching strategy; defaults to exact.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static int portgroup_search(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static int portgroup_search(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]) {
</span> int i, j;
reg_registry* reg = registry_for(interp, reg_attached);
if (reg == NULL) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -270,7 +270,7 @@ static int portgroup_search(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
</span>
typedef struct {
char* name;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int (*function)(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int (*function)(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[]);
</span> } portgroup_cmd_type;
static portgroup_cmd_type portgroup_cmds[] = {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -287,7 +287,7 @@ static portgroup_cmd_type portgroup_cmds[] = {
</span> * Commands manipulating portgroup entries in the registry. This can be called `registry::portgroup`
*/
int portgroup_cmd(ClientData clientData UNUSED, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int cmd_index;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "cmd ?arg ...?");
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/portgroup.h b/src/registry2.0/portgroup.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 1f1f84742..002ae0917 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/portgroup.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/portgroup.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -36,6 +36,6 @@
</span> void delete_portgroup(ClientData clientData);
int portgroup_cmd(ClientData clientData UNUSED, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span>
#endif /* _PORTGROUP_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/portgroupobj.c b/src/registry2.0/portgroupobj.c
</span><span style='display:block; white-space:pre;color:#808080;'>index b8a17dae3..e642d8cc7 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/portgroupobj.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/portgroupobj.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -48,7 +48,7 @@ const char* portgroup_props[] = {
</span>
/* ${portgroup} prop ?value? */
static int portgroup_obj_prop(Tcl_Interp* interp, reg_portgroup* portgroup, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int index;
if (objc > 3) {
Tcl_WrongNumArgs(interp, 2, objv, "?value?");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -97,7 +97,7 @@ static int portgroup_obj_prop(Tcl_Interp* interp, reg_portgroup* portgroup, int
</span> typedef struct {
char* name;
int (*function)(Tcl_Interp* interp, reg_portgroup* portgroup, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span> } portgroup_obj_cmd_type;
static portgroup_obj_cmd_type portgroup_cmds[] = {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -118,7 +118,7 @@ static portgroup_obj_cmd_type portgroup_cmds[] = {
</span> * chance to touch it.
*/
int portgroup_obj_cmd(ClientData clientData, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> int cmd_index;
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "cmd ?arg ...?");
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/portgroupobj.h b/src/registry2.0/portgroupobj.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 8866c0eb2..0a17fb4b3 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/portgroupobj.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/portgroupobj.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -37,6 +37,6 @@
</span> extern const char* portgroup_props[];
int portgroup_obj_cmd(ClientData clientData, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]);
</span>
#endif /* _PORTGROUP_OBJ_CMD_H */
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/registry.c b/src/registry2.0/registry.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 336b19fb0..bb9d1bed4 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/registry.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/registry.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -200,7 +200,7 @@ reg_registry* registry_for(Tcl_Interp* interp, int status) {
</span> }
static int registry_open(ClientData clientData UNUSED, Tcl_Interp* interp,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int objc, Tcl_Obj* const objv[]) {
</span> if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "db-file");
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -224,7 +224,7 @@ static int registry_open(ClientData clientData UNUSED, Tcl_Interp* interp,
</span> }
static int registry_close(ClientData clientData UNUSED, Tcl_Interp* interp,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int objc, Tcl_Obj* const objv[]) {
</span> if (objc != 1) {
Tcl_WrongNumArgs(interp, 1, objv, NULL);
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -252,7 +252,7 @@ static int registry_close(ClientData clientData UNUSED, Tcl_Interp* interp,
</span> }
static int registry_read(ClientData clientData UNUSED, Tcl_Interp* interp,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int objc, Tcl_Obj* const objv[]) {
</span> if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "command");
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -288,7 +288,7 @@ static int registry_read(ClientData clientData UNUSED, Tcl_Interp* interp,
</span> }
static int registry_write(ClientData clientData UNUSED, Tcl_Interp* interp,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int objc, Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int objc, Tcl_Obj* const objv[]) {
</span> if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "command");
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -343,7 +343,7 @@ static int registry_write(ClientData clientData UNUSED, Tcl_Interp* interp,
</span> * Commands manipulating metadata in the registry. This can be called `registry::metadata`
*/
int metadata_cmd(ClientData clientData UNUSED, Tcl_Interp* interp, int objc,
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_Obj* CONST objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Obj* const objv[]) {
</span> if (objc < 3) {
Tcl_WrongNumArgs(interp, 1, objv, "cmd key ?value?");
return TCL_ERROR;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/util.c b/src/registry2.0/util.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 5c7f08423..355cbcc35 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/util.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/util.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -99,7 +99,7 @@ char* unique_name(Tcl_Interp* interp, char* prefix, unsigned int* lower_bound) {
</span> * use for this yet, so it's not a priority, but it should be there for
* completeness.
*/
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int parse_flags(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[], int* start,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int parse_flags(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[], int* start,
</span> option_spec options[], int* flags) {
int i;
int index;
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/registry2.0/util.h b/src/registry2.0/util.h
</span><span style='display:block; white-space:pre;color:#808080;'>index 07b0bc711..b9c0ab694 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/registry2.0/util.h
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/registry2.0/util.h
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -49,7 +49,7 @@ typedef struct {
</span>
char* unique_name(Tcl_Interp* interp, char* prefix, unsigned int* lower_bound);
<span style='display:block; white-space:pre;background:#ffe0e0;'>-int parse_flags(Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[], int* start,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+int parse_flags(Tcl_Interp* interp, int objc, Tcl_Obj* const objv[], int* start,
</span> option_spec options[], int* flags);
void* get_object(Tcl_Interp* interp, char* name, char* type,
</pre><pre style='margin:0'>
</pre>