<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/5cfe40138089b263a3f79513789632bc826a1bcd">https://github.com/macports/macports-base/commit/5cfe40138089b263a3f79513789632bc826a1bcd</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 5cfe40138 Regenerate machista_wrap.c with swig 4.3.1
</span>5cfe40138 is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 5cfe40138089b263a3f79513789632bc826a1bcd
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Fri Apr 18 17:49:27 2025 +1000
<span style='display:block; white-space:pre;color:#404040;'> Regenerate machista_wrap.c with swig 4.3.1
</span>---
src/machista1.0/Makefile.in | 2 +-
src/machista1.0/machista_wrap.c | 185 ++++++++++++++++++++++++++--------------
2 files changed, 123 insertions(+), 64 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/machista1.0/Makefile.in b/src/machista1.0/Makefile.in
</span><span style='display:block; white-space:pre;color:#808080;'>index 61a612f97..82f3ea92d 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/machista1.0/Makefile.in
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/machista1.0/Makefile.in
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -37,7 +37,7 @@ else
</span> @echo "Please install swig and re-run configure" >&2
@echo "To use this SWIG, run configure as follows:" >&2
@echo " SWIG=/opt/swig/bin/swig ./configure --your-usual-config-flags" >&2
<span style='display:block; white-space:pre;background:#ffe0e0;'>- @echo "If you checked out from svn you can also run svn revert in base/src/machista1.0 to get rid of this error" >&2
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ @echo "If you checked out from git you can also run git restore in base/src/machista1.0 to get rid of this error" >&2
</span> @exit 1
endif
<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 4e2072036..4486fe05b 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;'>@@ -1,13 +1,13 @@
</span> /* ----------------------------------------------------------------------------
* This file was automatically generated by SWIG (https://www.swig.org).
<span style='display:block; white-space:pre;background:#ffe0e0;'>- * Version 4.1.1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * Version 4.3.1
</span> *
* Do not make changes to this file unless you know what you are doing - modify
* the SWIG interface file instead.
* ----------------------------------------------------------------------------- */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#define SWIG_VERSION 0x040101
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_VERSION 0x040301
</span> #define SWIGTCL
/* -----------------------------------------------------------------------------
* This section contains generic SWIG labels for method/variable
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -133,6 +133,40 @@
</span> # pragma warning disable 592
#endif
<span style='display:block; white-space:pre;background:#e0ffe0;'>+#if defined(__cplusplus) && __cplusplus >=201103L
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# define SWIG_NULLPTR nullptr
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# define SWIG_NULLPTR NULL
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#endif
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* -----------------------------------------------------------------------------
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * swigcompat.swg
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * Macros to provide support compatibility with older C and C++ standards.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * Note that SWIG expects __cplusplus to be defined to the appropriate C++ standard.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * MSVC users are urged to check and examine the /Zc:__cplusplus compiler option.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * See https://learn.microsoft.com/en-us/cpp/build/reference/zc-cplusplus.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * ----------------------------------------------------------------------------- */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* C99 and C++11 should provide snprintf, but define SWIG_NO_SNPRINTF
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * if you're missing it.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#if ((defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L) || \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ (defined __cplusplus && __cplusplus >= 201103L) || \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ defined SWIG_HAVE_SNPRINTF) && \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ !defined SWIG_NO_SNPRINTF
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# define SWIG_snprintf(O,S,F,A) snprintf(O,S,F,A)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# define SWIG_snprintf2(O,S,F,A,B) snprintf(O,S,F,A,B)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Fallback versions ignore the buffer size, but most of our uses either have a
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * fixed maximum possible size or dynamically allocate a buffer that's large
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * enough.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# define SWIG_snprintf(O,S,F,A) sprintf(O,F,A)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# define SWIG_snprintf2(O,S,F,A,B) sprintf(O,F,A,B)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#endif
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span>
#include <stdio.h>
#include <tcl.h>
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -141,6 +175,22 @@
</span> #include <stdarg.h>
#include <ctype.h>
<span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Check, if Tcl version supports Tcl_Size,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ which was introduced in Tcl 8.7 and 9.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+*/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#ifndef TCL_SIZE_MAX
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <limits.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #define TCL_SIZE_MAX INT_MAX
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #ifndef Tcl_Size
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ typedef int Tcl_Size;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #endif
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #define TCL_SIZE_MODIFIER ""
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #define Tcl_GetSizeIntFromObj Tcl_GetIntFromObj
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #define Tcl_NewSizeIntObj Tcl_NewIntObj
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#endif
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> /* -----------------------------------------------------------------------------
* swigrun.swg
*
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -288,7 +338,7 @@
</span> #define SWIG_CASTRANKLIMIT (1 << 8)
/* The NewMask denotes the object was created (using new/malloc) */
#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
<span style='display:block; white-space:pre;background:#ffe0e0;'>-/* The TmpMask is for in/out typemaps that use temporal objects */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* The TmpMask is for in/out typemaps that use temporary objects */
</span> #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
/* Simple returning values */
#define SWIG_BADOBJ (SWIG_ERROR)
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -780,6 +830,9 @@ SWIG_Tcl_ErrorType(int code) {
</span> case SWIG_AttributeError:
type = "AttributeError";
break;
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ case SWIG_NullReferenceError:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ type = "NullReferenceError";
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ break;
</span> default:
type = "RuntimeError";
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -792,15 +845,15 @@ SWIG_Tcl_SetErrorObj(Tcl_Interp *interp, const char *ctype, Tcl_Obj *obj)
</span> {
Tcl_ResetResult(interp);
Tcl_SetObjResult(interp, obj);
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_SetErrorCode(interp, "SWIG", ctype, NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_SetErrorCode(interp, "SWIG", ctype, (char *)NULL);
</span> }
SWIGINTERN void
SWIG_Tcl_SetErrorMsg(Tcl_Interp *interp, const char *ctype, const char *mesg)
{
Tcl_ResetResult(interp);
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_SetErrorCode(interp, "SWIG", ctype, NULL);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_AppendResult(interp, ctype, " ", mesg, NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_SetErrorCode(interp, "SWIG", ctype, (char *)NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_AppendResult(interp, ctype, " ", mesg, (char *)NULL);
</span> /*
Tcl_AddErrorInfo(interp, ctype);
Tcl_AddErrorInfo(interp, " ");
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -841,8 +894,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;'>@@ -881,7 +934,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;'>@@ -995,7 +1048,7 @@ SWIG_Tcl_GetConstantObj(const char *key) {
</span> #define SWIG_Tcl_GetConstant SWIG_Tcl_GetConstantObj
#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 5)
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#define SWIG_TCL_HASHTABLE_INIT {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_TCL_HASHTABLE_INIT {0, {0, 0, 0, 0}, 0, 0, 0, 0, 0, 0, 0, 0, 0}
</span> #else
#define SWIG_TCL_HASHTABLE_INIT {0}
#endif
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1045,6 +1098,8 @@ SWIG_Tcl_Disown(void *ptr) {
</span> return 0;
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIGRUNTIME void SWIG_Tcl_ObjectDelete(ClientData clientData);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> /* Convert a pointer value */
SWIGRUNTIME int
SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swig_type_info *ty, int flags) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1065,7 +1120,7 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi
</span> /* from being called when c is not a command, firing the unknown proc */
if (Tcl_VarEval(interp,"info commands ", c, (char *) NULL) == TCL_OK) {
Tcl_Obj *result = Tcl_GetObjResult(interp);
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (*(Tcl_GetStringFromObj(result, NULL)) == 0) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (*(Tcl_GetString(result)) == 0) {
</span> /* It's not a command, so it can't be a pointer */
Tcl_ResetResult(interp);
return SWIG_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1083,7 +1138,7 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi
</span> return SWIG_ERROR;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- c = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c = Tcl_GetString(Tcl_GetObjResult(interp));
</span> }
cmd_name = c;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1091,10 +1146,16 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi
</span> c = SWIG_UnpackData(c,ptr,sizeof(void *));
if (ty) {
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_CmdInfo info;
</span> tc = c ? SWIG_TypeCheck(c,ty) : 0;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (tc) {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_CmdInfo info;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if (Tcl_GetCommandInfo(interp, cmd_name, &info)) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (!tc) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return SWIG_ERROR;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (Tcl_GetCommandInfo(interp, cmd_name, &info)) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /* When creating a pointer string, SWIG_Tcl_NewInstanceObj calls Tcl_CreateObjCommand and sets
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * info.objClientData to an instance of swig_instance. Detecting when we can cast any info.objClientData
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * to swig_instance is not simple as it may be an unrelated command; we use deleteProc to determine this. */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (info.deleteProc == SWIG_Tcl_ObjectDelete) {
</span> swig_instance *inst = (swig_instance *)info.objClientData;
if (!inst->thisvalue) {
*ptr = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1111,13 +1172,11 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi
</span> }
{
int newmemory = 0;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- *ptr = SWIG_TypeCast(tc,(void *) *ptr,&newmemory);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *ptr = SWIG_TypeCast(tc,(void *) *ptr, &newmemory);
</span> assert(!newmemory); /* newmemory handling not yet implemented */
}
}
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- } else {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- return SWIG_ERROR;
</span> }
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1127,7 +1186,7 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi
</span> /* Convert a pointer value */
SWIGRUNTIMEINLINE int
SWIG_Tcl_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, swig_type_info *ty, int flags) {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- return SWIG_Tcl_ConvertPtrFromString(interp, Tcl_GetStringFromObj(oc,NULL), ptr, ty, flags);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return SWIG_Tcl_ConvertPtrFromString(interp, Tcl_GetString(oc), ptr, ty, flags);
</span> }
/* Convert a pointer value */
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1154,7 +1213,7 @@ SWIG_Tcl_ConvertPacked(Tcl_Interp *SWIGUNUSEDPARM(interp) , Tcl_Obj *obj, void *
</span> const char *c;
if (!obj) goto type_error;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- c = Tcl_GetStringFromObj(obj,NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c = Tcl_GetString(obj);
</span> /* Pointer values must start with leading underscore */
if (*c != '_') goto type_error;
c++;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1253,7 +1312,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;'>@@ -1273,7 +1332,7 @@ SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_
</span> Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
return TCL_ERROR;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- method = Tcl_GetStringFromObj(objv[1],NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ method = Tcl_GetString(objv[1]);
</span> if (strcmp(method,"-acquire") == 0) {
inst->destroy = 1;
SWIG_Acquire(inst->thisvalue);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1336,7 +1395,7 @@ SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_
</span> Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
return TCL_ERROR;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- attrname = Tcl_GetStringFromObj(objv[2],NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ attrname = Tcl_GetString(objv[2]);
</span> attr = cls->attributes;
while (attr && attr->name) {
if ((strcmp(attr->name, attrname) == 0) && (attr->getmethod)) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1370,7 +1429,7 @@ SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_
</span> }
i = 2;
while (i < objc) {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- attrname = Tcl_GetStringFromObj(objv[i],NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ attrname = Tcl_GetString(objv[i]);
</span> attr = cls->attributes;
while (attr && attr->name) {
if ((strcmp(attr->name, attrname) == 0) && (attr->setmethod)) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1439,7 +1498,7 @@ SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *typ
</span> Tcl_CmdInfo ci;
int has_command;
char *name;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- name = Tcl_GetStringFromObj(robj,NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ name = Tcl_GetString(robj);
</span> has_command = Tcl_GetCommandInfo(interp, name, &ci);
if (!has_command || flags) {
swig_instance *newinst = (swig_instance *) malloc(sizeof(swig_instance));
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1448,7 +1507,7 @@ SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *typ
</span> newinst->thisvalue = thisvalue;
newinst->classptr = (swig_class *) type->clientdata;
newinst->destroy = flags;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- newinst->cmdtok = Tcl_CreateObjCommand(interp, Tcl_GetStringFromObj(robj,NULL), (swig_wrapper_func) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ newinst->cmdtok = Tcl_CreateObjCommand(interp, Tcl_GetString(robj), (swig_wrapper_func) SWIG_Tcl_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_Tcl_ObjectDelete);
</span> if (flags) {
SWIG_Acquire(thisvalue);
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1468,7 +1527,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;'>@@ -1485,7 +1544,7 @@ SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc,
</span> }
cons = classptr->constructor;
if (objc > 1) {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- char *s = Tcl_GetStringFromObj(objv[1],NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ char *s = Tcl_GetString(objv[1]);
</span> if (strcmp(s,"-this") == 0) {
thisarg = 2;
cons = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1497,7 +1556,7 @@ SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc,
</span> } else if (objc >= 3) {
char *s1;
name = s;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- s1 = Tcl_GetStringFromObj(objv[2],NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ s1 = Tcl_GetString(objv[2]);
</span> if (strcmp(s1,"-this") == 0) {
thisarg = 3;
cons = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1513,12 +1572,12 @@ SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc,
</span> return result;
}
newObj = Tcl_DuplicateObj(Tcl_GetObjResult(interp));
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (!name) name = Tcl_GetStringFromObj(newObj,NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (!name) name = Tcl_GetString(newObj);
</span> } else if (thisarg > 0) {
if (thisarg < objc) {
destroy = 0;
newObj = Tcl_DuplicateObj(objv[thisarg]);
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (!name) name = Tcl_GetStringFromObj(newObj,NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (!name) name = Tcl_GetString(newObj);
</span> } else {
Tcl_SetResult(interp, (char *) "wrong # args.", TCL_STATIC);
return TCL_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1540,7 +1599,7 @@ SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc,
</span> if (destroy) {
SWIG_Acquire(thisvalue);
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- newinst->cmdtok = Tcl_CreateObjCommand(interp,name, (swig_wrapper) SWIG_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_ObjectDelete);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ newinst->cmdtok = Tcl_CreateObjCommand(interp,name, (swig_wrapper) SWIG_Tcl_MethodCommand, (ClientData) newinst, (swig_delete_func) SWIG_Tcl_ObjectDelete);
</span> return TCL_OK;
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1548,7 +1607,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;'>@@ -1577,7 +1636,7 @@ SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char
</span> vptr = va_arg(ap,void *);
if (vptr) {
if (isupper(*c)) {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- obj = SWIG_Tcl_GetConstantObj(Tcl_GetStringFromObj(objv[argno+1],0));
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ obj = SWIG_Tcl_GetConstantObj(Tcl_GetString(objv[argno+1]));
</span> if (!obj) obj = objv[argno+1];
} else {
obj = objv[argno+1];
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1601,15 +1660,15 @@ SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char
</span> break;
case 's': case 'S':
if (*(c+1) == '#') {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int *vlptr = (int *) va_arg(ap, void *);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Size *vlptr = (Tcl_Size *) va_arg(ap, void *);
</span> *((char **) vptr) = Tcl_GetStringFromObj(obj, vlptr);
c++;
} else {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- *((char **)vptr) = Tcl_GetStringFromObj(obj,NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *((char **)vptr) = Tcl_GetString(obj);
</span> }
break;
case 'c': case 'C':
<span style='display:block; white-space:pre;background:#ffe0e0;'>- *((char *)vptr) = *(Tcl_GetStringFromObj(obj,NULL));
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *((char *)vptr) = *(Tcl_GetString(obj));
</span> break;
case 'p': case 'P':
ty = (swig_type_info *) va_arg(ap, void *);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1634,11 +1693,11 @@ SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char
</span> argerror:
{
char temp[32];
<span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf(temp,"%d", argno+1);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ SWIG_snprintf(temp, sizeof(temp), "%d", argno+1);
</span> c = strchr(fmt,':');
if (!c) c = strchr(fmt,';');
if (!c) c = (char *)"";
<span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl_AppendResult(interp,c," argument ", temp, NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_AppendResult(interp,c," argument ", temp, (char *)NULL);
</span> va_end(ap);
return TCL_ERROR;
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1701,7 +1760,7 @@ SWIGEXPORT int SWIG_init(Tcl_Interp *);
</span>
/* Compatibility version for TCL stubs */
#ifndef SWIG_TCL_STUBS_VERSION
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#define SWIG_TCL_STUBS_VERSION "8.4"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_TCL_STUBS_VERSION "8.4-"
</span> #endif
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1748,7 +1807,7 @@ SWIG_From_int (int value)
</span> SWIGINTERNINLINE Tcl_Obj *
SWIG_FromCharPtrAndSize(const char* carray, size_t size)
{
<span style='display:block; white-space:pre;background:#ffe0e0;'>- return (size < INT_MAX) ? Tcl_NewStringObj(carray, (int)(size)) : NULL;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return (size < TCL_SIZE_MAX) ? Tcl_NewStringObj(carray, (Tcl_Size)(size)) : NULL;
</span> }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1774,7 +1833,7 @@ SWIG_From_unsigned_SS_long (unsigned long value)
</span> return SWIG_From_long ((long)(value));
} else {
char temp[256];
<span style='display:block; white-space:pre;background:#ffe0e0;'>- sprintf(temp, "%lu", value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ SWIG_snprintf(temp, sizeof(temp), "%lu", value);
</span> return Tcl_NewStringObj(temp,-1);
}
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1790,7 +1849,7 @@ SWIG_From_unsigned_SS_int (unsigned int value)
</span> SWIGINTERN int
SWIG_AsCharPtrAndSize(Tcl_Obj *obj, char** cptr, size_t* psize, int *alloc)
{
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int len = 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Size len = 0;
</span> char *cstr = Tcl_GetStringFromObj(obj, &len);
if (cstr) {
if (cptr) *cptr = cstr;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1846,7 +1905,7 @@ SWIG_AsVal_unsigned_SS_long SWIG_TCL_DECL_ARGS_2(Tcl_Obj *obj, unsigned long *va
</span> get it as a string so we can distinguish these cases. */
}
{
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int len = 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Size len = 0;
</span> const char *nptr = Tcl_GetStringFromObj(obj, &len);
if (nptr && len > 0) {
char *endptr;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1900,7 +1959,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, SWIG_TCL_HASHTABLE_INIT };
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;'>@@ -1921,7 +1980,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;'>@@ -1942,7 +2001,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;'>@@ -1963,7 +2022,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;'>@@ -1984,7 +2043,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;'>@@ -2019,7 +2078,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, SWIG_TCL_HASHTABLE_INIT };
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;'>@@ -2040,7 +2099,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;'>@@ -2061,7 +2120,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;'>@@ -2082,7 +2141,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;'>@@ -2103,7 +2162,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;'>@@ -2124,7 +2183,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;'>@@ -2145,7 +2204,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;'>@@ -2182,7 +2241,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, SWIG_TCL_HASHTABLE_INIT };
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;'>@@ -2213,7 +2272,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, SWIG_TCL_HASHTABLE_INIT };
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;'>@@ -2226,7 +2285,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;'>@@ -2246,7 +2305,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;'>@@ -2286,7 +2345,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;'>@@ -2307,7 +2366,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;'>@@ -2328,7 +2387,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 ;
</pre><pre style='margin:0'>
</pre>