<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>[137286] branches/gsoc15-dependency/base</title>
</head>
<body>
<style type="text/css"><!--
#msg dl.meta { border: 1px #006 solid; background: #369; padding: 6px; color: #fff; }
#msg dl.meta dt { float: left; width: 6em; font-weight: bold; }
#msg dt:after { content:':';}
#msg dl, #msg dt, #msg ul, #msg li, #header, #footer, #logmsg { font-family: verdana,arial,helvetica,sans-serif; font-size: 10pt; }
#msg dl a { font-weight: bold}
#msg dl a:link { color:#fc3; }
#msg dl a:active { color:#ff0; }
#msg dl a:visited { color:#cc6; }
h3 { font-family: verdana,arial,helvetica,sans-serif; font-size: 10pt; font-weight: bold; }
#msg pre { overflow: auto; background: #ffc; border: 1px #fa0 solid; padding: 6px; }
#logmsg { background: #ffc; border: 1px #fa0 solid; padding: 1em 1em 0 1em; }
#logmsg p, #logmsg pre, #logmsg blockquote { margin: 0 0 1em 0; }
#logmsg p, #logmsg li, #logmsg dt, #logmsg dd { line-height: 14pt; }
#logmsg h1, #logmsg h2, #logmsg h3, #logmsg h4, #logmsg h5, #logmsg h6 { margin: .5em 0; }
#logmsg h1:first-child, #logmsg h2:first-child, #logmsg h3:first-child, #logmsg h4:first-child, #logmsg h5:first-child, #logmsg h6:first-child { margin-top: 0; }
#logmsg ul, #logmsg ol { padding: 0; list-style-position: inside; margin: 0 0 0 1em; }
#logmsg ul { text-indent: -1em; padding-left: 1em; }#logmsg ol { text-indent: -1.5em; padding-left: 1.5em; }
#logmsg > ul, #logmsg > ol { margin: 0 0 1em 0; }
#logmsg pre { background: #eee; padding: 1em; }
#logmsg blockquote { border: 1px solid #fa0; border-left-width: 10px; padding: 1em 1em 0 1em; background: white;}
#logmsg dl { margin: 0; }
#logmsg dt { font-weight: bold; }
#logmsg dd { margin: 0; padding: 0 0 0.5em 0; }
#logmsg dd:before { content:'\00bb';}
#logmsg table { border-spacing: 0px; border-collapse: collapse; border-top: 4px solid #fa0; border-bottom: 1px solid #fa0; background: #fff; }
#logmsg table th { text-align: left; font-weight: normal; padding: 0.2em 0.5em; border-top: 1px dotted #fa0; }
#logmsg table td { text-align: right; border-top: 1px dotted #fa0; padding: 0.2em 0.5em; }
#logmsg table thead th { text-align: center; border-bottom: 1px solid #fa0; }
#logmsg table th.Corner { text-align: left; }
#logmsg hr { border: none 0; border-top: 2px dashed #fa0; height: 1px; }
#header, #footer { color: #fff; background: #636; border: 1px #300 solid; padding: 6px; }
#patch { width: 100%; }
#patch h4 {font-family: verdana,arial,helvetica,sans-serif;font-size:10pt;padding:8px;background:#369;color:#fff;margin:0;}
#patch .propset h4, #patch .binary h4 {margin:0;}
#patch pre {padding:0;line-height:1.2em;margin:0;}
#patch .diff {width:100%;background:#eee;padding: 0 0 10px 0;overflow:auto;}
#patch .propset .diff, #patch .binary .diff {padding:10px 0;}
#patch span {display:block;padding:0 10px;}
#patch .modfile, #patch .addfile, #patch .delfile, #patch .propset, #patch .binary, #patch .copfile {border:1px solid #ccc;margin:10px 0;}
#patch ins {background:#dfd;text-decoration:none;display:block;padding:0 10px;}
#patch del {background:#fdd;text-decoration:none;display:block;padding:0 10px;}
#patch .lines, .info {color:#888;background:#fff;}
--></style>
<div id="msg">
<dl class="meta">
<dt>Revision</dt> <dd><a href="https://trac.macports.org/changeset/137286">137286</a></dd>
<dt>Author</dt> <dd>ijackson@macports.org</dd>
<dt>Date</dt> <dd>2015-06-08 00:49:38 -0700 (Mon, 08 Jun 2015)</dd>
</dl>
<h3>Log Message</h3>
<pre>Merge macports-trunk/base with branches/gsoc15-dependency/base
Merge updated machista SWIG.</pre>
<h3>Modified Paths</h3>
<ul>
<li><a href="#branchesgsoc15dependencybasesrcmachista10machistai">branches/gsoc15-dependency/base/src/machista1.0/machista.i</a></li>
<li><a href="#branchesgsoc15dependencybasesrcmachista10machista_wrapc">branches/gsoc15-dependency/base/src/machista1.0/machista_wrap.c</a></li>
<li><a href="#branchesgsoc15dependencybasesrcmacports10macportstcl">branches/gsoc15-dependency/base/src/macports1.0/macports.tcl</a></li>
<li><a href="#branchesgsoc15dependencybasesrcport10portconfiguretcl">branches/gsoc15-dependency/base/src/port1.0/portconfigure.tcl</a></li>
</ul>
<h3>Property Changed</h3>
<ul>
<li><a href="#branchesgsoc15dependencybase">branches/gsoc15-dependency/base/</a></li>
</ul>
</div>
<div id="patch">
<h3>Diff</h3>
<a id="branchesgsoc15dependencybase"></a>
<div class="propset"><h4>Property changes: branches/gsoc15-dependency/base</h4>
<pre class="diff"><span>
</span></pre></div>
<a id="svnmergeinfo"></a>
<div class="modfile"><h4>Modified: svn:mergeinfo</h4></div>
<span class="cx">/branches/gsoc09-logging/base:51231-60371
</span><span class="cx">/branches/gsoc11-rev-upgrade/base:78828-88375
</span><span class="cx">/branches/gsoc11-statistics/base:79520,79666
</span><span class="cx">/branches/gsoc13-tests:106692-111324
</span><span class="cx">/branches/gsoc14-cleanup:123738-124046
</span><span class="cx">/branches/gsoc14-interactive/base:119516-124240
</span><span class="cx">/branches/universal-sanity/base:51872-52323
</span><span class="cx">/branches/variant-descs-14482/base:34469-34855,34900-37508,37511-37512,41040-41463,42575-42626,42640-42659
</span><span class="cx">/users/perry/base-bugs_and_notes:45682-46060
</span><span class="cx">/users/perry/base-select:44044-44692
</span><span class="cx"> + /branches/gsoc08-privileges/base:37343-46937
</span><span class="cx">/branches/gsoc09-logging/base:51231-60371
</span><span class="cx">/branches/gsoc11-rev-upgrade/base:78828-88375
</span><span class="cx">/branches/gsoc11-statistics/base:79520,79666
</span><span class="cx">/branches/gsoc13-tests:106692-111324
</span><span class="cx">/branches/gsoc14-cleanup:123738-124046
</span><span class="cx">/branches/gsoc14-interactive/base:119516-124240
</span><span class="cx">/branches/universal-sanity/base:51872-52323
</span><span class="cx">/branches/variant-descs-14482/base:34469-34855,34900-37508,37511-37512,41040-41463,42575-42626,42640-42659
</span><span class="cx">/trunk/base:136782-137284
</span><span class="cx">/users/perry/base-bugs_and_notes:45682-46060
</span><span class="cx">/users/perry/base-select:44044-44692
</span><a id="branchesgsoc15dependencybasesrcmachista10machistai"></a>
<div class="modfile"><h4>Modified: branches/gsoc15-dependency/base/src/machista1.0/machista.i (137285 => 137286)</h4>
<pre class="diff"><span>
<span class="info">--- branches/gsoc15-dependency/base/src/machista1.0/machista.i 2015-06-08 07:48:53 UTC (rev 137285)
+++ branches/gsoc15-dependency/base/src/machista1.0/machista.i 2015-06-08 07:49:38 UTC (rev 137286)
</span><span class="lines">@@ -2,7 +2,8 @@
</span><span class="cx"> %module machista
</span><span class="cx">
</span><span class="cx"> %{
</span><del>- #include "libmachista.h"
</del><ins>+#include <tcl.h>
+#include "libmachista.h"
</ins><span class="cx"> %}
</span><span class="cx">
</span><span class="cx"> %inline %{
</span></span></pre></div>
<a id="branchesgsoc15dependencybasesrcmachista10machista_wrapc"></a>
<div class="modfile"><h4>Modified: branches/gsoc15-dependency/base/src/machista1.0/machista_wrap.c (137285 => 137286)</h4>
<pre class="diff"><span>
<span class="info">--- branches/gsoc15-dependency/base/src/machista1.0/machista_wrap.c 2015-06-08 07:48:53 UTC (rev 137285)
+++ branches/gsoc15-dependency/base/src/machista1.0/machista_wrap.c 2015-06-08 07:49:38 UTC (rev 137286)
</span><span class="lines">@@ -1,11 +1,11 @@
</span><span class="cx"> /* ----------------------------------------------------------------------------
</span><span class="cx"> * This file was automatically generated by SWIG (http://www.swig.org).
</span><del>- * Version 1.3.40
- *
- * This file is not intended to be easily readable and contains a number of
</del><ins>+ * Version 3.0.5
+ *
+ * This file is not intended to be easily readable and contains a number of
</ins><span class="cx"> * coding conventions designed to improve portability and efficiency. Do not make
</span><del>- * changes to this file unless you know what you are doing--modify the SWIG
- * interface file instead.
</del><ins>+ * changes to this file unless you know what you are doing--modify the SWIG
+ * interface file instead.
</ins><span class="cx"> * ----------------------------------------------------------------------------- */
</span><span class="cx">
</span><span class="cx"> #define SWIGTCL
</span><span class="lines">@@ -41,28 +41,28 @@
</span><span class="cx"> #ifndef SWIGUNUSED
</span><span class="cx"> # if defined(__GNUC__)
</span><span class="cx"> # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
</span><del>-# define SWIGUNUSED __attribute__ ((__unused__))
</del><ins>+# define SWIGUNUSED __attribute__ ((__unused__))
</ins><span class="cx"> # else
</span><span class="cx"> # define SWIGUNUSED
</span><span class="cx"> # endif
</span><span class="cx"> # elif defined(__ICC)
</span><del>-# define SWIGUNUSED __attribute__ ((__unused__))
</del><ins>+# define SWIGUNUSED __attribute__ ((__unused__))
</ins><span class="cx"> # else
</span><del>-# define SWIGUNUSED
</del><ins>+# define SWIGUNUSED
</ins><span class="cx"> # endif
</span><span class="cx"> #endif
</span><span class="cx">
</span><span class="cx"> #ifndef SWIG_MSC_UNSUPPRESS_4505
</span><span class="cx"> # if defined(_MSC_VER)
</span><span class="cx"> # pragma warning(disable : 4505) /* unreferenced local function has been removed */
</span><del>-# endif
</del><ins>+# endif
</ins><span class="cx"> #endif
</span><span class="cx">
</span><span class="cx"> #ifndef SWIGUNUSEDPARM
</span><span class="cx"> # ifdef __cplusplus
</span><span class="cx"> # define SWIGUNUSEDPARM(p)
</span><span class="cx"> # else
</span><del>-# define SWIGUNUSEDPARM(p) p SWIGUNUSED
</del><ins>+# define SWIGUNUSEDPARM(p) p SWIGUNUSED
</ins><span class="cx"> # endif
</span><span class="cx"> #endif
</span><span class="cx">
</span><span class="lines">@@ -105,7 +105,7 @@
</span><span class="cx"> # define SWIGSTDCALL __stdcall
</span><span class="cx"> # else
</span><span class="cx"> # define SWIGSTDCALL
</span><del>-# endif
</del><ins>+# endif
</ins><span class="cx"> #endif
</span><span class="cx">
</span><span class="cx"> /* Deal with Microsoft's attempt at deprecating C standard runtime functions */
</span><span class="lines">@@ -151,7 +151,7 @@
</span><span class="cx"> You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
</span><span class="cx"> creating a static or dynamic library from the SWIG runtime code.
</span><span class="cx"> In 99.9% of the cases, SWIG just needs to declare them as 'static'.
</span><del>-
</del><ins>+
</ins><span class="cx"> But only do this if strictly necessary, ie, if you have problems
</span><span class="cx"> with your compiler or suchlike.
</span><span class="cx"> */
</span><span class="lines">@@ -177,16 +177,16 @@
</span><span class="cx"> #define SWIG_POINTER_OWN 0x1
</span><span class="cx">
</span><span class="cx">
</span><del>-/*
</del><ins>+/*
</ins><span class="cx"> Flags/methods for returning states.
</span><del>-
- The SWIG conversion methods, as ConvertPtr, return and integer
</del><ins>+
+ The SWIG conversion methods, as ConvertPtr, return an integer
</ins><span class="cx"> that tells if the conversion was successful or not. And if not,
</span><span class="cx"> an error code can be returned (see swigerrors.swg for the codes).
</span><del>-
</del><ins>+
</ins><span class="cx"> Use the following macros/flags to set or process the returning
</span><span class="cx"> states.
</span><del>-
</del><ins>+
</ins><span class="cx"> In old versions of SWIG, code such as the following was usually written:
</span><span class="cx">
</span><span class="cx"> if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
</span><span class="lines">@@ -219,23 +219,23 @@
</span><span class="cx"> } else {
</span><span class="cx"> // fail code
</span><span class="cx"> }
</span><del>-
</del><ins>+
</ins><span class="cx"> I.e., now SWIG_ConvertPtr can return new objects and you can
</span><span class="cx"> identify the case and take care of the deallocation. Of course that
</span><span class="cx"> also requires SWIG_ConvertPtr to return new result values, such as
</span><span class="cx">
</span><del>- int SWIG_ConvertPtr(obj, ptr,...) {
- if (<obj is ok>) {
- if (<need new object>) {
- *ptr = <ptr to new allocated object>;
- return SWIG_NEWOBJ;
- } else {
- *ptr = <ptr to old object>;
- return SWIG_OLDOBJ;
- }
- } else {
- return SWIG_BADOBJ;
- }
</del><ins>+ int SWIG_ConvertPtr(obj, ptr,...) {
+ if (<obj is ok>) {
+ if (<need new object>) {
+ *ptr = <ptr to new allocated object>;
+ return SWIG_NEWOBJ;
+ } else {
+ *ptr = <ptr to old object>;
+ return SWIG_OLDOBJ;
+ }
+ } else {
+ return SWIG_BADOBJ;
+ }
</ins><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
</span><span class="lines">@@ -249,17 +249,17 @@
</span><span class="cx"> int fooi(int);
</span><span class="cx">
</span><span class="cx"> and you call
</span><del>-
</del><ins>+
</ins><span class="cx"> food(1) // cast rank '1' (1 -> 1.0)
</span><span class="cx"> fooi(1) // cast rank '0'
</span><span class="cx">
</span><span class="cx"> just use the SWIG_AddCast()/SWIG_CheckState()
</span><span class="cx"> */
</span><span class="cx">
</span><del>-#define SWIG_OK (0)
</del><ins>+#define SWIG_OK (0)
</ins><span class="cx"> #define SWIG_ERROR (-1)
</span><span class="cx"> #define SWIG_IsOK(r) (r >= 0)
</span><del>-#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
</del><ins>+#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
</ins><span class="cx">
</span><span class="cx"> /* The CastRankLimit says how many bits are used for the cast rank */
</span><span class="cx"> #define SWIG_CASTRANKLIMIT (1 << 8)
</span><span class="lines">@@ -290,14 +290,14 @@
</span><span class="cx"> # endif
</span><span class="cx"> # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
</span><span class="cx"> # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
</span><del>-SWIGINTERNINLINE int SWIG_AddCast(int r) {
</del><ins>+SWIGINTERNINLINE int SWIG_AddCast(int r) {
</ins><span class="cx"> return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
</span><span class="cx"> }
</span><del>-SWIGINTERNINLINE int SWIG_CheckState(int r) {
- return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
</del><ins>+SWIGINTERNINLINE int SWIG_CheckState(int r) {
+ return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
</ins><span class="cx"> }
</span><span class="cx"> #else /* no cast-rank mode */
</span><del>-# define SWIG_AddCast
</del><ins>+# define SWIG_AddCast(r) (r)
</ins><span class="cx"> # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
</span><span class="cx"> #endif
</span><span class="cx">
</span><span class="lines">@@ -341,7 +341,7 @@
</span><span class="cx"> void *clientdata; /* Language specific module data */
</span><span class="cx"> } swig_module_info;
</span><span class="cx">
</span><del>-/*
</del><ins>+/*
</ins><span class="cx"> Compare two type names skipping the space characters, therefore
</span><span class="cx"> "char*" == "char *" and "Class<int>" == "Class<int >", etc.
</span><span class="cx">
</span><span class="lines">@@ -361,18 +361,18 @@
</span><span class="cx">
</span><span class="cx"> /*
</span><span class="cx"> Check type equivalence in a name list like <name1>|<name2>|...
</span><del>- Return 0 if not equal, 1 if equal
</del><ins>+ Return 0 if equal, -1 if nb < tb, 1 if nb > tb
</ins><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME int
</span><del>-SWIG_TypeEquiv(const char *nb, const char *tb) {
- int equiv = 0;
</del><ins>+SWIG_TypeCmp(const char *nb, const char *tb) {
+ int equiv = 1;
</ins><span class="cx"> const char* te = tb + strlen(tb);
</span><span class="cx"> const char* ne = nb;
</span><del>- while (!equiv && *ne) {
</del><ins>+ while (equiv != 0 && *ne) {
</ins><span class="cx"> for (nb = ne; *ne; ++ne) {
</span><span class="cx"> if (*ne == '|') break;
</span><span class="cx"> }
</span><del>- equiv = (SWIG_TypeNameComp(nb, ne, tb, te) == 0) ? 1 : 0;
</del><ins>+ equiv = SWIG_TypeNameComp(nb, ne, tb, te);
</ins><span class="cx"> if (*ne) ++ne;
</span><span class="cx"> }
</span><span class="cx"> return equiv;
</span><span class="lines">@@ -380,24 +380,13 @@
</span><span class="cx">
</span><span class="cx"> /*
</span><span class="cx"> Check type equivalence in a name list like <name1>|<name2>|...
</span><del>- Return 0 if equal, -1 if nb < tb, 1 if nb > tb
</del><ins>+ Return 0 if not equal, 1 if equal
</ins><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME int
</span><del>-SWIG_TypeCompare(const char *nb, const char *tb) {
- int equiv = 0;
- const char* te = tb + strlen(tb);
- const char* ne = nb;
- while (!equiv && *ne) {
- for (nb = ne; *ne; ++ne) {
- if (*ne == '|') break;
- }
- equiv = (SWIG_TypeNameComp(nb, ne, tb, te) == 0) ? 1 : 0;
- if (*ne) ++ne;
- }
- return equiv;
</del><ins>+SWIG_TypeEquiv(const char *nb, const char *tb) {
+ return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
</ins><span class="cx"> }
</span><span class="cx">
</span><del>-
</del><span class="cx"> /*
</span><span class="cx"> Check the typename
</span><span class="cx"> */
</span><span class="lines">@@ -425,7 +414,7 @@
</span><span class="cx"> return 0;
</span><span class="cx"> }
</span><span class="cx">
</span><del>-/*
</del><ins>+/*
</ins><span class="cx"> Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
</span><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME swig_cast_info *
</span><span class="lines">@@ -460,7 +449,7 @@
</span><span class="cx"> return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
</span><span class="cx"> }
</span><span class="cx">
</span><del>-/*
</del><ins>+/*
</ins><span class="cx"> Dynamic pointer casting. Down an inheritance hierarchy
</span><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME swig_type_info *
</span><span class="lines">@@ -504,7 +493,7 @@
</span><span class="cx"> return type->name;
</span><span class="cx"> }
</span><span class="cx">
</span><del>-/*
</del><ins>+/*
</ins><span class="cx"> Set the clientdata field for a type
</span><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME void
</span><span class="lines">@@ -512,14 +501,14 @@
</span><span class="cx"> swig_cast_info *cast = ti->cast;
</span><span class="cx"> /* if (ti->clientdata == clientdata) return; */
</span><span class="cx"> ti->clientdata = clientdata;
</span><del>-
</del><ins>+
</ins><span class="cx"> while (cast) {
</span><span class="cx"> if (!cast->converter) {
</span><span class="cx"> swig_type_info *tc = cast->type;
</span><span class="cx"> if (!tc->clientdata) {
</span><span class="cx"> SWIG_TypeClientData(tc, clientdata);
</span><span class="cx"> }
</span><del>- }
</del><ins>+ }
</ins><span class="cx"> cast = cast->next;
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="lines">@@ -528,31 +517,31 @@
</span><span class="cx"> SWIG_TypeClientData(ti, clientdata);
</span><span class="cx"> ti->owndata = 1;
</span><span class="cx"> }
</span><del>-
</del><ins>+
</ins><span class="cx"> /*
</span><span class="cx"> Search for a swig_type_info structure only by mangled name
</span><span class="cx"> Search is a O(log #types)
</span><del>-
- We start searching at module start, and finish searching when start == end.
</del><ins>+
+ We start searching at module start, and finish searching when start == end.
</ins><span class="cx"> Note: if start == end at the beginning of the function, we go all the way around
</span><span class="cx"> the circular list.
</span><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME swig_type_info *
</span><del>-SWIG_MangledTypeQueryModule(swig_module_info *start,
- swig_module_info *end,
</del><ins>+SWIG_MangledTypeQueryModule(swig_module_info *start,
+ swig_module_info *end,
</ins><span class="cx"> const char *name) {
</span><span class="cx"> swig_module_info *iter = start;
</span><span class="cx"> do {
</span><span class="cx"> if (iter->size) {
</span><del>- register size_t l = 0;
- register size_t r = iter->size - 1;
</del><ins>+ size_t l = 0;
+ size_t r = iter->size - 1;
</ins><span class="cx"> do {
</span><span class="cx"> /* since l+r >= 0, we can (>> 1) instead (/ 2) */
</span><del>- register size_t i = (l + r) >> 1;
</del><ins>+ size_t i = (l + r) >> 1;
</ins><span class="cx"> const char *iname = iter->types[i]->name;
</span><span class="cx"> if (iname) {
</span><del>- register int compare = strcmp(name, iname);
- if (compare == 0) {
</del><ins>+ int compare = strcmp(name, iname);
+ if (compare == 0) {
</ins><span class="cx"> return iter->types[i];
</span><span class="cx"> } else if (compare < 0) {
</span><span class="cx"> if (i) {
</span><span class="lines">@@ -577,14 +566,14 @@
</span><span class="cx"> Search for a swig_type_info structure for either a mangled name or a human readable name.
</span><span class="cx"> It first searches the mangled names of the types, which is a O(log #types)
</span><span class="cx"> If a type is not found it then searches the human readable names, which is O(#types).
</span><del>-
- We start searching at module start, and finish searching when start == end.
</del><ins>+
+ We start searching at module start, and finish searching when start == end.
</ins><span class="cx"> Note: if start == end at the beginning of the function, we go all the way around
</span><span class="cx"> the circular list.
</span><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME swig_type_info *
</span><del>-SWIG_TypeQueryModule(swig_module_info *start,
- swig_module_info *end,
</del><ins>+SWIG_TypeQueryModule(swig_module_info *start,
+ swig_module_info *end,
</ins><span class="cx"> const char *name) {
</span><span class="cx"> /* STEP 1: Search the name field using binary search */
</span><span class="cx"> swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
</span><span class="lines">@@ -595,7 +584,7 @@
</span><span class="cx"> of the str field (the human readable name) */
</span><span class="cx"> swig_module_info *iter = start;
</span><span class="cx"> do {
</span><del>- register size_t i = 0;
</del><ins>+ size_t i = 0;
</ins><span class="cx"> for (; i < iter->size; ++i) {
</span><span class="cx"> if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
</span><span class="cx"> return iter->types[i];
</span><span class="lines">@@ -603,56 +592,56 @@
</span><span class="cx"> iter = iter->next;
</span><span class="cx"> } while (iter != end);
</span><span class="cx"> }
</span><del>-
</del><ins>+
</ins><span class="cx"> /* neither found a match */
</span><span class="cx"> return 0;
</span><span class="cx"> }
</span><span class="cx">
</span><del>-/*
</del><ins>+/*
</ins><span class="cx"> Pack binary data into a string
</span><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME char *
</span><span class="cx"> SWIG_PackData(char *c, void *ptr, size_t sz) {
</span><span class="cx"> static const char hex[17] = "0123456789abcdef";
</span><del>- register const unsigned char *u = (unsigned char *) ptr;
- register const unsigned char *eu = u + sz;
</del><ins>+ const unsigned char *u = (unsigned char *) ptr;
+ const unsigned char *eu = u + sz;
</ins><span class="cx"> for (; u != eu; ++u) {
</span><del>- register unsigned char uu = *u;
</del><ins>+ unsigned char uu = *u;
</ins><span class="cx"> *(c++) = hex[(uu & 0xf0) >> 4];
</span><span class="cx"> *(c++) = hex[uu & 0xf];
</span><span class="cx"> }
</span><span class="cx"> return c;
</span><span class="cx"> }
</span><span class="cx">
</span><del>-/*
</del><ins>+/*
</ins><span class="cx"> Unpack binary data from a string
</span><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME const char *
</span><span class="cx"> SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
</span><del>- register unsigned char *u = (unsigned char *) ptr;
- register const unsigned char *eu = u + sz;
</del><ins>+ unsigned char *u = (unsigned char *) ptr;
+ const unsigned char *eu = u + sz;
</ins><span class="cx"> for (; u != eu; ++u) {
</span><del>- register char d = *(c++);
- register unsigned char uu;
</del><ins>+ char d = *(c++);
+ unsigned char uu;
</ins><span class="cx"> if ((d >= '0') && (d <= '9'))
</span><span class="cx"> uu = ((d - '0') << 4);
</span><span class="cx"> else if ((d >= 'a') && (d <= 'f'))
</span><span class="cx"> uu = ((d - ('a'-10)) << 4);
</span><del>- else
</del><ins>+ else
</ins><span class="cx"> return (char *) 0;
</span><span class="cx"> d = *(c++);
</span><span class="cx"> if ((d >= '0') && (d <= '9'))
</span><span class="cx"> uu |= (d - '0');
</span><span class="cx"> else if ((d >= 'a') && (d <= 'f'))
</span><span class="cx"> uu |= (d - ('a'-10));
</span><del>- else
</del><ins>+ else
</ins><span class="cx"> return (char *) 0;
</span><span class="cx"> *u = uu;
</span><span class="cx"> }
</span><span class="cx"> return c;
</span><span class="cx"> }
</span><span class="cx">
</span><del>-/*
</del><ins>+/*
</ins><span class="cx"> Pack 'void *' into a string buffer.
</span><span class="cx"> */
</span><span class="cx"> SWIGRUNTIME char *
</span><span class="lines">@@ -712,18 +701,18 @@
</span><span class="cx"> #endif
</span><span class="cx">
</span><span class="cx"> /* Errors in SWIG */
</span><del>-#define SWIG_UnknownError -1
-#define SWIG_IOError -2
-#define SWIG_RuntimeError -3
-#define SWIG_IndexError -4
-#define SWIG_TypeError -5
-#define SWIG_DivisionByZero -6
-#define SWIG_OverflowError -7
-#define SWIG_SyntaxError -8
-#define SWIG_ValueError -9
</del><ins>+#define SWIG_UnknownError -1
+#define SWIG_IOError -2
+#define SWIG_RuntimeError -3
+#define SWIG_IndexError -4
+#define SWIG_TypeError -5
+#define SWIG_DivisionByZero -6
+#define SWIG_OverflowError -7
+#define SWIG_SyntaxError -8
+#define SWIG_ValueError -9
</ins><span class="cx"> #define SWIG_SystemError -10
</span><span class="cx"> #define SWIG_AttributeError -11
</span><del>-#define SWIG_MemoryError -12
</del><ins>+#define SWIG_MemoryError -12
</ins><span class="cx"> #define SWIG_NullReferenceError -13
</span><span class="cx">
</span><span class="cx">
</span><span class="lines">@@ -856,6 +845,7 @@
</span><span class="cx"> struct swig_class **bases;
</span><span class="cx"> const char **base_names;
</span><span class="cx"> swig_module_info *module;
</span><ins>+ Tcl_HashTable hashtable;
</ins><span class="cx"> } swig_class;
</span><span class="cx">
</span><span class="cx"> typedef struct swig_instance {
</span><span class="lines">@@ -914,9 +904,6 @@
</span><span class="cx">
</span><span class="cx">
</span><span class="cx"> /* -----------------------------------------------------------------------------
</span><del>- * See the LICENSE file for information on copyright, usage and redistribution
- * of SWIG, and the README file for authors - http://www.swig.org/release.html.
- *
</del><span class="cx"> * tclrun.swg
</span><span class="cx"> *
</span><span class="cx"> * This file contains the runtime support for Tcl modules and includes
</span><span class="lines">@@ -989,10 +976,7 @@
</span><span class="cx">
</span><span class="cx"> #ifdef __cplusplus
</span><span class="cx"> extern "C" {
</span><del>-#if 0
-} /* cc-mode */
</del><span class="cx"> #endif
</span><del>-#endif
</del><span class="cx">
</span><span class="cx"> /* Object support */
</span><span class="cx">
</span><span class="lines">@@ -1198,7 +1182,7 @@
</span><span class="cx"> /* create a new pointer */
</span><span class="cx"> data = SWIG_PackData(buf, &module, sizeof(swig_type_info **));
</span><span class="cx"> *data = 0;
</span><del>- Tcl_SetVar(interp, (char *)"swig_runtime_data_type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, buf, 0);
</del><ins>+ Tcl_SetVar(interp, (char *)"swig_runtime_data_type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME, buf, TCL_GLOBAL_ONLY);
</ins><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> /* -----------------------------------------------------------------------------*
</span><span class="lines">@@ -1261,6 +1245,7 @@
</span><span class="cx"> cls_stack_bi[cls_stack_top] = -1;
</span><span class="cx"> cls = inst->classptr;
</span><span class="cx"> while (1) {
</span><ins>+ Tcl_HashEntry* hashentry;
</ins><span class="cx"> bi = cls_stack_bi[cls_stack_top];
</span><span class="cx"> cls = cls_stack[cls_stack_top];
</span><span class="cx"> if (bi != -1) {
</span><span class="lines">@@ -1285,19 +1270,17 @@
</span><span class="cx"> }
</span><span class="cx"> cls_stack_bi[cls_stack_top]++;
</span><span class="cx">
</span><del>- meth = cls->methods;
- /* Check for methods */
- while (meth && meth->name) {
- if (strcmp(meth->name,method) == 0) {
</del><ins>+ hashentry = Tcl_FindHashEntry(&(cls->hashtable), method);
+ if (hashentry) {
+ ClientData cd = Tcl_GetHashValue(hashentry);
+ swig_wrapper method_wrapper = (swig_wrapper)cd;
</ins><span class="cx"> oldarg = objv[1];
</span><span class="cx"> objv[1] = inst->thisptr;
</span><span class="cx"> Tcl_IncrRefCount(inst->thisptr);
</span><del>- rcode = (*meth->method)(clientData,interp,objc,objv);
</del><ins>+ rcode = (method_wrapper)(clientData,interp,objc,objv);
</ins><span class="cx"> objv[1] = oldarg;
</span><span class="cx"> Tcl_DecrRefCount(inst->thisptr);
</span><span class="cx"> return rcode;
</span><del>- }
- meth++;
</del><span class="cx"> }
</span><span class="cx"> /* Check class methods for a match */
</span><span class="cx"> if (strcmp(method,"cget") == 0) {
</span><span class="lines">@@ -1404,7 +1387,7 @@
</span><span class="cx"> SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *type, int flags) {
</span><span class="cx"> Tcl_Obj *robj = SWIG_NewPointerObj(thisvalue, type,0);
</span><span class="cx"> /* Check to see if this pointer belongs to a class or not */
</span><del>- if ((type->clientdata) && (interp)) {
</del><ins>+ if (thisvalue && (type->clientdata) && (interp)) {
</ins><span class="cx"> Tcl_CmdInfo ci;
</span><span class="cx"> char *name;
</span><span class="cx"> name = Tcl_GetStringFromObj(robj,NULL);
</span><span class="lines">@@ -1603,9 +1586,6 @@
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> #ifdef __cplusplus
</span><del>-#if 0
-{ /* cc-mode */
-#endif
</del><span class="cx"> }
</span><span class="cx"> #endif
</span><span class="cx">
</span><span class="lines">@@ -1641,7 +1621,7 @@
</span><span class="cx">
</span><span class="cx"> #define SWIG_version "1.0"
</span><span class="cx">
</span><del>-#define SWIGVERSION 0x010340
</del><ins>+#define SWIGVERSION 0x030005
</ins><span class="cx"> #define SWIG_VERSION SWIGVERSION
</span><span class="cx">
</span><span class="cx">
</span><span class="lines">@@ -1671,7 +1651,8 @@
</span><span class="cx">
</span><span class="cx">
</span><span class="cx">
</span><del>- #include "libmachista.h"
</del><ins>+#include <tcl.h>
+#include "libmachista.h"
</ins><span class="cx">
</span><span class="cx">
</span><span class="cx"> #ifdef __MACH__
</span><span class="lines">@@ -2401,18 +2382,18 @@
</span><span class="cx"> #endif
</span><span class="cx"> /* -----------------------------------------------------------------------------
</span><span class="cx"> * Type initialization:
</span><del>- * This problem is tough by the requirement that no dynamic
- * memory is used. Also, since swig_type_info structures store pointers to
</del><ins>+ * This problem is tough by the requirement that no dynamic
+ * memory is used. Also, since swig_type_info structures store pointers to
</ins><span class="cx"> * swig_cast_info structures and swig_cast_info structures store pointers back
</span><del>- * to swig_type_info structures, we need some lookup code at initialization.
- * The idea is that swig generates all the structures that are needed.
- * The runtime then collects these partially filled structures.
- * The SWIG_InitializeModule function takes these initial arrays out of
</del><ins>+ * to swig_type_info structures, we need some lookup code at initialization.
+ * The idea is that swig generates all the structures that are needed.
+ * The runtime then collects these partially filled structures.
+ * The SWIG_InitializeModule function takes these initial arrays out of
</ins><span class="cx"> * swig_module, and does all the lookup, filling in the swig_module.types
</span><span class="cx"> * array with the correct data and linking the correct swig_cast_info
</span><span class="cx"> * structures together.
</span><span class="cx"> *
</span><del>- * The generated swig_type_info structures are assigned staticly to an initial
</del><ins>+ * The generated swig_type_info structures are assigned statically to an initial
</ins><span class="cx"> * array. We just loop through that array, and handle each type individually.
</span><span class="cx"> * First we lookup if this type has been already loaded, and if so, use the
</span><span class="cx"> * loaded structure instead of the generated one. Then we have to fill in the
</span><span class="lines">@@ -2422,17 +2403,17 @@
</span><span class="cx"> * a column is one of the swig_cast_info structures for that type.
</span><span class="cx"> * The cast_initial array is actually an array of arrays, because each row has
</span><span class="cx"> * a variable number of columns. So to actually build the cast linked list,
</span><del>- * we find the array of casts associated with the type, and loop through it
</del><ins>+ * we find the array of casts associated with the type, and loop through it
</ins><span class="cx"> * adding the casts to the list. The one last trick we need to do is making
</span><span class="cx"> * sure the type pointer in the swig_cast_info struct is correct.
</span><span class="cx"> *
</span><del>- * First off, we lookup the cast->type name to see if it is already loaded.
</del><ins>+ * First off, we lookup the cast->type name to see if it is already loaded.
</ins><span class="cx"> * There are three cases to handle:
</span><span class="cx"> * 1) If the cast->type has already been loaded AND the type we are adding
</span><span class="cx"> * casting info to has not been loaded (it is in this module), THEN we
</span><span class="cx"> * replace the cast->type pointer with the type pointer that has already
</span><span class="cx"> * been loaded.
</span><del>- * 2) If BOTH types (the one we are adding casting info to, and the
</del><ins>+ * 2) If BOTH types (the one we are adding casting info to, and the
</ins><span class="cx"> * cast->type) are loaded, THEN the cast info has already been loaded by
</span><span class="cx"> * the previous module so we just ignore it.
</span><span class="cx"> * 3) Finally, if cast->type has not already been loaded, then we add that
</span><span class="lines">@@ -2456,7 +2437,7 @@
</span><span class="cx"> SWIG_InitializeModule(void *clientdata) {
</span><span class="cx"> size_t i;
</span><span class="cx"> swig_module_info *module_head, *iter;
</span><del>- int found, init;
</del><ins>+ int init;
</ins><span class="cx">
</span><span class="cx"> /* check to see if the circular list has been setup, if not, set it up */
</span><span class="cx"> if (swig_module.next==0) {
</span><span class="lines">@@ -2475,27 +2456,23 @@
</span><span class="cx"> /* This is the first module loaded for this interpreter */
</span><span class="cx"> /* so set the swig module into the interpreter */
</span><span class="cx"> SWIG_SetModule(clientdata, &swig_module);
</span><del>- module_head = &swig_module;
</del><span class="cx"> } else {
</span><span class="cx"> /* the interpreter has loaded a SWIG module, but has it loaded this one? */
</span><del>- found=0;
</del><span class="cx"> iter=module_head;
</span><span class="cx"> do {
</span><span class="cx"> if (iter==&swig_module) {
</span><del>- found=1;
- break;
</del><ins>+ /* Our module is already in the list, so there's nothing more to do. */
+ return;
</ins><span class="cx"> }
</span><span class="cx"> iter=iter->next;
</span><span class="cx"> } while (iter!= module_head);
</span><span class="cx">
</span><del>- /* if the is found in the list, then all is done and we may leave */
- if (found) return;
- /* otherwise we must add out module into the list */
</del><ins>+ /* otherwise we must add our module into the list */
</ins><span class="cx"> swig_module.next = module_head->next;
</span><span class="cx"> module_head->next = &swig_module;
</span><span class="cx"> }
</span><span class="cx">
</span><del>- /* When multiple interpeters are used, a module could have already been initialized in
</del><ins>+ /* When multiple interpreters are used, a module could have already been initialized in
</ins><span class="cx"> a different interpreter, but not yet have a pointer in this interpreter.
</span><span class="cx"> In this case, we do not want to continue adding types... everything should be
</span><span class="cx"> set up already */
</span><span class="lines">@@ -2647,7 +2624,7 @@
</span><span class="cx">
</span><span class="cx"> SWIGINTERN void
</span><span class="cx"> SWIG_Tcl_InstallConstants(Tcl_Interp *interp, swig_const_info constants[]) {
</span><del>- int i;
</del><ins>+ size_t i;
</ins><span class="cx"> Tcl_Obj *obj;
</span><span class="cx">
</span><span class="cx"> if (!swigconstTableinit) {
</span><span class="lines">@@ -2672,6 +2649,27 @@
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="cx">
</span><ins>+ /* Create fast method lookup tables */
+
+ SWIGINTERN void
+ SWIG_Tcl_InstallMethodLookupTables(void) {
+ size_t i;
+
+ for (i = 0; i < swig_module.size; ++i) {
+ swig_type_info *type = swig_module.type_initial[i];
+ if (type->clientdata) {
+ swig_class* klass = (swig_class*) type->clientdata;
+ swig_method* meth;
+ Tcl_InitHashTable(&(klass->hashtable), TCL_STRING_KEYS);
+ for (meth = klass->methods; meth && meth->name; ++meth) {
+ int newEntry;
+ Tcl_HashEntry* hashentry = Tcl_CreateHashEntry(&(klass->hashtable), meth->name, &newEntry);
+ Tcl_SetHashValue(hashentry, (ClientData)meth->method);
+ }
+ }
+ }
+ }
+
</ins><span class="cx"> #ifdef __cplusplus
</span><span class="cx"> }
</span><span class="cx"> #endif
</span><span class="lines">@@ -2681,7 +2679,7 @@
</span><span class="cx"> * -----------------------------------------------------------------------------*/
</span><span class="cx">
</span><span class="cx"> SWIGEXPORT int SWIG_init(Tcl_Interp *interp) {
</span><del>- int i;
</del><ins>+ size_t i;
</ins><span class="cx"> if (interp == 0) return TCL_ERROR;
</span><span class="cx"> #ifdef USE_TCL_STUBS
</span><span class="cx"> /* (char*) cast is required to avoid compiler warning/error for Tcl < 8.4. */
</span><span class="lines">@@ -2718,6 +2716,7 @@
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> SWIG_Tcl_InstallConstants(interp, swig_constants);
</span><ins>+ SWIG_Tcl_InstallMethodLookupTables();
</ins><span class="cx">
</span><span class="cx">
</span><span class="cx"> SWIG_Tcl_SetConstantObj(interp, "machista::SUCCESS", SWIG_From_int((int)((0x00))));
</span></span></pre></div>
<a id="branchesgsoc15dependencybasesrcmacports10macportstcl"></a>
<div class="modfile"><h4>Modified: branches/gsoc15-dependency/base/src/macports1.0/macports.tcl (137285 => 137286)</h4>
<pre class="diff"><span>
<span class="info">--- branches/gsoc15-dependency/base/src/macports1.0/macports.tcl 2015-06-08 07:48:53 UTC (rev 137285)
+++ branches/gsoc15-dependency/base/src/macports1.0/macports.tcl 2015-06-08 07:49:38 UTC (rev 137286)
</span><span class="lines">@@ -115,9 +115,7 @@
</span><span class="cx"> # ui_options accessor
</span><span class="cx"> proc macports::ui_isset {val} {
</span><span class="cx"> if {[info exists macports::ui_options($val)]} {
</span><del>- if {$macports::ui_options($val) eq {yes}} {
- return 1
- }
</del><ins>+ return [string is true -strict $macports::ui_options($val)]
</ins><span class="cx"> }
</span><span class="cx"> return 0
</span><span class="cx"> }
</span><span class="lines">@@ -126,9 +124,7 @@
</span><span class="cx"> # global_options accessor
</span><span class="cx"> proc macports::global_option_isset {val} {
</span><span class="cx"> if {[info exists macports::global_options($val)]} {
</span><del>- if {$macports::global_options($val) eq {yes}} {
- return 1
- }
</del><ins>+ return [string is true -strict $macports::global_options($val)]
</ins><span class="cx"> }
</span><span class="cx"> return 0
</span><span class="cx"> }
</span><span class="lines">@@ -212,7 +208,7 @@
</span><span class="cx"> proc set_phase {phase} {
</span><span class="cx"> global macports::current_phase
</span><span class="cx"> set macports::current_phase $phase
</span><del>- if {$phase ne {main}} {
</del><ins>+ if {$phase ne "main"} {
</ins><span class="cx"> set cur_time [clock format [clock seconds] -format {%+}]
</span><span class="cx"> ui_debug "$phase phase started at $cur_time"
</span><span class="cx"> }
</span><span class="lines">@@ -227,7 +223,7 @@
</span><span class="cx"> switch [llength $args] {
</span><span class="cx"> 0 - 1 {}
</span><span class="cx"> 2 {
</span><del>- if {[lindex $args 0] ne {-nonewline}} {
</del><ins>+ if {[lindex $args 0] ne "-nonewline"} {
</ins><span class="cx"> set hint "error: when 5 arguments are given, 2nd last must be \"-newnewline\""
</span><span class="cx"> error "$hint\nusage: ui_message priority prefix phase ?-nonewline? string"
</span><span class="cx"> }
</span><span class="lines">@@ -239,20 +235,20 @@
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> foreach chan $macports::channels($priority) {
</span><del>- if {[info exists ::debuglog] && ($chan eq {debuglog})} {
</del><ins>+ if {[info exists ::debuglog] && ($chan eq "debuglog")} {
</ins><span class="cx"> set chan $::debuglog
</span><span class="cx"> if {[info exists macports::current_phase]} {
</span><span class="cx"> set phase $macports::current_phase
</span><span class="cx"> }
</span><span class="cx"> set strprefix ":${priority}:$phase "
</span><del>- if {[lindex $args 0] eq {-nonewline}} {
</del><ins>+ if {[lindex $args 0] eq "-nonewline"} {
</ins><span class="cx"> puts -nonewline $chan $strprefix[lindex $args 1]
</span><span class="cx"> } else {
</span><span class="cx"> puts $chan $strprefix[lindex $args 0]
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> } else {
</span><del>- if {[lindex $args 0] eq {-nonewline}} {
</del><ins>+ if {[lindex $args 0] eq "-nonewline"} {
</ins><span class="cx"> puts -nonewline $chan $prefix[lindex $args 1]
</span><span class="cx"> } else {
</span><span class="cx"> puts $chan $prefix[lindex $args 0]
</span><span class="lines">@@ -366,7 +362,7 @@
</span><span class="cx"> # find a binary either in a path defined at MacPorts' configuration time
</span><span class="cx"> # or in the PATH environment variable through macports::binaryInPath (fallback)
</span><span class="cx"> proc macports::findBinary {prog {autoconf_hint {}}} {
</span><del>- if {$autoconf_hint ne {} && [file executable $autoconf_hint]} {
</del><ins>+ if {$autoconf_hint ne "" && [file executable $autoconf_hint]} {
</ins><span class="cx"> return $autoconf_hint
</span><span class="cx"> } else {
</span><span class="cx"> if {[catch {set cmd_path [macports::binaryInPath $prog]} result] == 0} {
</span><span class="lines">@@ -632,8 +628,8 @@
</span><span class="cx">
</span><span class="cx"> # set up platform info variables
</span><span class="cx"> set os_arch $tcl_platform(machine)
</span><del>- if {$os_arch eq {Power Macintosh}} {set os_arch "powerpc"}
- if {$os_arch eq {i586} || $os_arch eq {i686} || $os_arch eq {x86_64}} {set os_arch "i386"}
</del><ins>+ if {$os_arch eq "Power Macintosh"} {set os_arch "powerpc"}
+ if {$os_arch eq "i586" || $os_arch eq "i686" || $os_arch eq "x86_64"} {set os_arch "i386"}
</ins><span class="cx"> set os_version $tcl_platform(osVersion)
</span><span class="cx"> set os_major [lindex [split $os_version .] 0]
</span><span class="cx"> set os_minor [lindex [split $os_version .] 1]
</span><span class="lines">@@ -661,10 +657,10 @@
</span><span class="cx"> if {[info exists env(HOME)]} {
</span><span class="cx"> set macports::user_home $env(HOME)
</span><span class="cx"> set macports::macports_user_dir [file normalize $macports::autoconf::macports_user_dir]
</span><del>- } elseif {[info exists env(SUDO_USER)] && $os_platform eq {darwin}} {
</del><ins>+ } elseif {[info exists env(SUDO_USER)] && $os_platform eq "darwin"} {
</ins><span class="cx"> set macports::user_home [exec dscl -q . -read /Users/$env(SUDO_USER) NFSHomeDirectory | cut -d ' ' -f 2]
</span><span class="cx"> set macports::macports_user_dir [file join $macports::user_home [string range $macports::autoconf::macports_user_dir 2 end]]
</span><del>- } elseif {[exec id -u] != 0 && $os_platform eq {darwin}} {
</del><ins>+ } elseif {[exec id -u] != 0 && $os_platform eq "darwin"} {
</ins><span class="cx"> set macports::user_home [exec dscl -q . -read /Users/[exec id -un] NFSHomeDirectory | cut -d ' ' -f 2]
</span><span class="cx"> set macports::macports_user_dir [file join $macports::user_home [string range $macports::autoconf::macports_user_dir 2 end]]
</span><span class="cx"> } else {
</span><span class="lines">@@ -732,7 +728,7 @@
</span><span class="cx"> if {[lsearch -exact [list nosync default] $flag] == -1} {
</span><span class="cx"> ui_warn "$sources_conf source '$line' specifies invalid flag '$flag'"
</span><span class="cx"> }
</span><del>- if {$flag eq {default}} {
</del><ins>+ if {$flag eq "default"} {
</ins><span class="cx"> if {[info exists sources_default]} {
</span><span class="cx"> ui_warn "More than one default port source is defined."
</span><span class="cx"> }
</span><span class="lines">@@ -820,7 +816,7 @@
</span><span class="cx">
</span><span class="cx"> # Format for receipts; currently only "sqlite" is allowed
</span><span class="cx"> # could previously be "flat", so we switch that to sqlite
</span><del>- if {![info exists portdbformat] || $portdbformat eq {flat} || $portdbformat eq {sqlite}} {
</del><ins>+ if {![info exists portdbformat] || $portdbformat eq "flat" || $portdbformat eq "sqlite"} {
</ins><span class="cx"> set registry.format receipt_sqlite
</span><span class="cx"> } else {
</span><span class="cx"> return -code error "unknown registry format '$portdbformat' set in macports.conf"
</span><span class="lines">@@ -858,13 +854,13 @@
</span><span class="cx"> if {![info exists macports::global_options(ports_binary_only)]
</span><span class="cx"> && ![info exists macports::global_options(ports_source_only)]
</span><span class="cx"> && [info exists macports::buildfromsource]} {
</span><del>- if {$macports::buildfromsource eq {never}} {
</del><ins>+ if {$macports::buildfromsource eq "never"} {
</ins><span class="cx"> set macports::global_options(ports_binary_only) yes
</span><span class="cx"> set temp_options(ports_binary_only) yes
</span><del>- } elseif {$macports::buildfromsource eq {always}} {
</del><ins>+ } elseif {$macports::buildfromsource eq "always"} {
</ins><span class="cx"> set macports::global_options(ports_source_only) yes
</span><span class="cx"> set temp_options(ports_source_only) yes
</span><del>- } elseif {$macports::buildfromsource ne {ifneeded}} {
</del><ins>+ } elseif {$macports::buildfromsource ne "ifneeded"} {
</ins><span class="cx"> ui_warn "'buildfromsource' set to unknown value '$macports::buildfromsource', using 'ifneeded' instead"
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="lines">@@ -986,7 +982,7 @@
</span><span class="cx">
</span><span class="cx"> # Default arch to build for
</span><span class="cx"> if {![info exists macports::build_arch]} {
</span><del>- if {$os_platform eq {darwin}} {
</del><ins>+ if {$os_platform eq "darwin"} {
</ins><span class="cx"> if {$os_major >= 10} {
</span><span class="cx"> if {[sysctl hw.cpu64bit_capable] == 1} {
</span><span class="cx"> set macports::build_arch x86_64
</span><span class="lines">@@ -994,7 +990,7 @@
</span><span class="cx"> set macports::build_arch i386
</span><span class="cx"> }
</span><span class="cx"> } else {
</span><del>- if {$os_arch eq {powerpc}} {
</del><ins>+ if {$os_arch eq "powerpc"} {
</ins><span class="cx"> set macports::build_arch ppc
</span><span class="cx"> } else {
</span><span class="cx"> set macports::build_arch i386
</span><span class="lines">@@ -1076,7 +1072,7 @@
</span><span class="cx"> # don't keep unusable TMPDIR/TMP values
</span><span class="cx"> foreach var {TMP TMPDIR} {
</span><span class="cx"> if {[info exists env($var)] && [file writable $env($var)] &&
</span><del>- ([getuid] != 0 || $macportsuser eq {root} ||
</del><ins>+ ([getuid] != 0 || $macportsuser eq "root" ||
</ins><span class="cx"> [file attributes $env($var) -owner] eq $macportsuser)} {
</span><span class="cx"> lappend keepenvkeys $var
</span><span class="cx"> }
</span><span class="lines">@@ -1090,7 +1086,7 @@
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> # unset environment an extra time, to work around bugs in Leopard Tcl
</span><del>- if {$macosx_version eq {10.5}} {
</del><ins>+ if {$macosx_version eq "10.5"} {
</ins><span class="cx"> foreach envkey $env_names {
</span><span class="cx"> if {[lsearch -exact $keepenvkeys $envkey] == -1} {
</span><span class="cx"> unsetenv $envkey
</span><span class="lines">@@ -1105,20 +1101,20 @@
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> if {![info exists developer_dir]} {
</span><del>- if {$os_platform eq {darwin}} {
</del><ins>+ if {$os_platform eq "darwin"} {
</ins><span class="cx"> trace add variable macports::developer_dir read macports::set_developer_dir
</span><span class="cx"> } else {
</span><span class="cx"> set macports::developer_dir {}
</span><span class="cx"> }
</span><span class="cx"> } else {
</span><del>- if {$os_platform eq {darwin} && ![file isdirectory $developer_dir]} {
</del><ins>+ if {$os_platform eq "darwin" && ![file isdirectory $developer_dir]} {
</ins><span class="cx"> ui_warn "Your developer_dir setting in macports.conf points to a non-existing directory.\
</span><span class="cx"> Since this is known to cause problems, please correct the setting or comment it and let\
</span><span class="cx"> macports auto-discover the correct path."
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {[getuid] == 0 && $os_major >= 11 && $os_platform eq {darwin} &&
</del><ins>+ if {[getuid] == 0 && $os_major >= 11 && $os_platform eq "darwin" &&
</ins><span class="cx"> [file isfile "${macports::user_home}/Library/Preferences/com.apple.dt.Xcode.plist"]} {
</span><span class="cx"> macports::copy_xcode_plist $env(HOME)
</span><span class="cx"> }
</span><span class="lines">@@ -1139,39 +1135,39 @@
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> # Proxy handling (done this late since Pextlib is needed)
</span><del>- if {![info exists proxy_override_env]} {
</del><ins>+ if {![info exists proxy_override_env] || ![string is true -strict $proxy_override_env]} {
</ins><span class="cx"> set proxy_override_env no
</span><span class="cx"> }
</span><span class="cx"> if {[catch {array set sysConfProxies [get_systemconfiguration_proxies]} result]} {
</span><span class="cx"> return -code error "Unable to get proxy configuration from system: $result"
</span><span class="cx"> }
</span><del>- if {![info exists env(http_proxy)] || $proxy_override_env eq {yes}} {
</del><ins>+ if {![info exists env(http_proxy)] || $proxy_override_env} {
</ins><span class="cx"> if {[info exists proxy_http]} {
</span><span class="cx"> set env(http_proxy) $proxy_http
</span><span class="cx"> } elseif {[info exists sysConfProxies(proxy_http)]} {
</span><span class="cx"> set env(http_proxy) $sysConfProxies(proxy_http)
</span><span class="cx"> }
</span><span class="cx"> }
</span><del>- if {![info exists env(HTTPS_PROXY)] || $proxy_override_env eq {yes}} {
</del><ins>+ if {![info exists env(HTTPS_PROXY)] || $proxy_override_env} {
</ins><span class="cx"> if {[info exists proxy_https]} {
</span><span class="cx"> set env(HTTPS_PROXY) $proxy_https
</span><span class="cx"> } elseif {[info exists sysConfProxies(proxy_https)]} {
</span><span class="cx"> set env(HTTPS_PROXY) $sysConfProxies(proxy_https)
</span><span class="cx"> }
</span><span class="cx"> }
</span><del>- if {![info exists env(FTP_PROXY)] || $proxy_override_env eq {yes}} {
</del><ins>+ if {![info exists env(FTP_PROXY)] || $proxy_override_env} {
</ins><span class="cx"> if {[info exists proxy_ftp]} {
</span><span class="cx"> set env(FTP_PROXY) $proxy_ftp
</span><span class="cx"> } elseif {[info exists sysConfProxies(proxy_ftp)]} {
</span><span class="cx"> set env(FTP_PROXY) $sysConfProxies(proxy_ftp)
</span><span class="cx"> }
</span><span class="cx"> }
</span><del>- if {![info exists env(RSYNC_PROXY)] || $proxy_override_env eq {yes}} {
</del><ins>+ if {![info exists env(RSYNC_PROXY)] || $proxy_override_env} {
</ins><span class="cx"> if {[info exists proxy_rsync]} {
</span><span class="cx"> set env(RSYNC_PROXY) $proxy_rsync
</span><span class="cx"> }
</span><span class="cx"> }
</span><del>- if {![info exists env(NO_PROXY)] || $proxy_override_env eq {yes}} {
</del><ins>+ if {![info exists env(NO_PROXY)] || $proxy_override_env} {
</ins><span class="cx"> if {[info exists proxy_skip]} {
</span><span class="cx"> set env(NO_PROXY) $proxy_skip
</span><span class="cx"> } elseif {[info exists sysConfProxies(proxy_skip)]} {
</span><span class="lines">@@ -1205,7 +1201,7 @@
</span><span class="cx">
</span><span class="cx"> if {![info exists macports::ui_options(ports_no_old_index_warning)]} {
</span><span class="cx"> set default_source_url [lindex $sources_default 0]
</span><del>- if {[macports::getprotocol $default_source_url] eq {file} || [macports::getprotocol $default_source_url] eq {rsync}} {
</del><ins>+ if {[macports::getprotocol $default_source_url] eq "file" || [macports::getprotocol $default_source_url] eq "rsync"} {
</ins><span class="cx"> set default_portindex [macports::getindex $default_source_url]
</span><span class="cx"> if {[file exists $default_portindex] && [clock seconds] - [file mtime $default_portindex] > 1209600} {
</span><span class="cx"> ui_warn "port definitions are more than two weeks old, consider updating them by running 'port selfupdate'."
</span><span class="lines">@@ -1504,7 +1500,7 @@
</span><span class="cx"> ui_msg "$macports::ui_prefix Fetching port $url"
</span><span class="cx"> set fetchfile [file tail $url]
</span><span class="cx"> set progressflag {}
</span><del>- if {$macports::portverbose eq {yes}} {
</del><ins>+ if {$macports::portverbose} {
</ins><span class="cx"> set progressflag "--progress builtin"
</span><span class="cx"> } elseif {[info exists macports::ui_options(progress_download)]} {
</span><span class="cx"> set progressflag "--progress ${macports::ui_options(progress_download)}"
</span><span class="lines">@@ -1654,7 +1650,7 @@
</span><span class="cx"> # append requested path
</span><span class="cx"> set proposedpath [file join $proposedpath _resources $path]
</span><span class="cx">
</span><del>- if {$fallback eq {yes} && ![file exists $proposedpath]} {
</del><ins>+ if {$fallback && ![file exists $proposedpath]} {
</ins><span class="cx"> return [getdefaultportresourcepath $path]
</span><span class="cx"> }
</span><span class="cx">
</span><span class="lines">@@ -1670,7 +1666,7 @@
</span><span class="cx"> global macports::sources_default
</span><span class="cx">
</span><span class="cx"> set default_source_url [lindex $sources_default 0]
</span><del>- if {[getprotocol $default_source_url] eq {file}} {
</del><ins>+ if {[getprotocol $default_source_url] eq "file"} {
</ins><span class="cx"> set proposedpath [getportdir $default_source_url]
</span><span class="cx"> } else {
</span><span class="cx"> set proposedpath [getsourcepath $default_source_url]
</span><span class="lines">@@ -1709,12 +1705,12 @@
</span><span class="cx">
</span><span class="cx"> # Look for an already-open MPort with the same URL.
</span><span class="cx"> # if found, return the existing reference and bump the refcount.
</span><del>- if {$nocache ne {}} {
- set mport {}
</del><ins>+ if {$nocache ne ""} {
+ set mport ""
</ins><span class="cx"> } else {
</span><span class="cx"> set mport [dlist_match_multi $macports::open_mports [list porturl $porturl variations $variations options $options]]
</span><span class="cx"> }
</span><del>- if {$mport ne {}} {
</del><ins>+ if {$mport ne ""} {
</ins><span class="cx"> # just in case more than one somehow matches
</span><span class="cx"> set mport [lindex $mport 0]
</span><span class="cx"> set refcnt [ditem_key $mport refcnt]
</span><span class="lines">@@ -1788,7 +1784,7 @@
</span><span class="cx"> foreach pg [$regref groups_used] {
</span><span class="cx"> lappend pgdirlist [file join ${registry.path} registry portgroups [$pg sha256]-[$pg size]]
</span><span class="cx"> }
</span><del>- if {$pgdirlist ne {}} {
</del><ins>+ if {$pgdirlist ne ""} {
</ins><span class="cx"> set options_array(_portgroup_search_dirs) [list $pgdirlist]
</span><span class="cx"> }
</span><span class="cx">
</span><span class="lines">@@ -1817,7 +1813,7 @@
</span><span class="cx"> foreach category [lsort -increasing -unique [readdir $root]] {
</span><span class="cx"> set pathToCategory [file join $root $category]
</span><span class="cx"> # process the category dirs but not _resources
</span><del>- if {[file isdirectory $pathToCategory] && [string index [file tail $pathToCategory] 0] ne {_}} {
</del><ins>+ if {[file isdirectory $pathToCategory] && [string index [file tail $pathToCategory] 0] ne "_"} {
</ins><span class="cx"> # Iterate on port directories.
</span><span class="cx"> foreach port [lsort -increasing -unique [readdir $pathToCategory]] {
</span><span class="cx"> set pathToPort [file join $pathToCategory $port]
</span><span class="lines">@@ -1994,7 +1990,7 @@
</span><span class="cx"> ![catch {$workername eval check_supported_archs} result] && $result == 0 &&
</span><span class="cx"> ![catch {$workername eval eval_targets $target} result] && $result == 0} {
</span><span class="cx"> # If auto-clean mode, clean-up after dependency install
</span><del>- if {$macports::portautoclean eq {yes}} {
</del><ins>+ if {$macports::portautoclean} {
</ins><span class="cx"> # Make sure we are back in the port path before clean
</span><span class="cx"> # otherwise if the current directory had been changed to
</span><span class="cx"> # inside the port, the next port may fail when trying to
</span><span class="lines">@@ -2032,7 +2028,7 @@
</span><span class="cx"> return 1
</span><span class="cx"> }
</span><span class="cx"> set portname [_mportkey $mport subport]
</span><del>- if {$target ne {clean}} {
</del><ins>+ if {$target ne "clean"} {
</ins><span class="cx"> macports::push_log $mport
</span><span class="cx"> }
</span><span class="cx">
</span><span class="lines">@@ -2110,7 +2106,7 @@
</span><span class="cx">
</span><span class="cx"> registry::exclusive_unlock
</span><span class="cx">
</span><del>- if {$result ne {}} {
</del><ins>+ if {$result ne ""} {
</ins><span class="cx"> ##
</span><span class="cx"> # When this happens, the failing port usually already printed an
</span><span class="cx"> # error message. Omit this one to avoid cluttering the output and
</span><span class="lines">@@ -2133,13 +2129,13 @@
</span><span class="cx"> }
</span><span class="cx"> } else {
</span><span class="cx"> # No dependencies, but we still need to check for conflicts.
</span><del>- if {$target eq {} || $target eq {install} || $target eq {activate}} {
</del><ins>+ if {$target eq "" || $target eq "install" || $target eq "activate"} {
</ins><span class="cx"> _mporterrorifconflictsinstalled $mport
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> set clean 0
</span><del>- if {$macports::portautoclean eq {yes} && ($target eq {install} || $target eq {activate})} {
</del><ins>+ if {$macports::portautoclean && ($target eq "install" || $target eq "activate")} {
</ins><span class="cx"> # If we're doing an install, check if we should clean after
</span><span class="cx"> set clean 1
</span><span class="cx"> }
</span><span class="lines">@@ -2188,13 +2184,13 @@
</span><span class="cx"> }
</span><span class="cx"> foreach depspec $portinfo($deptype) {
</span><span class="cx"> set dep_portname [$workername eval _get_dep_port $depspec]
</span><del>- if {$dep_portname ne {} && ![info exists depscache(port:$dep_portname)] && [$test $dep_portname]} {
</del><ins>+ if {$dep_portname ne "" && ![info exists depscache(port:$dep_portname)] && [$test $dep_portname]} {
</ins><span class="cx"> set variants {}
</span><span class="cx">
</span><span class="cx"> # check that the dep has the required archs
</span><span class="cx"> set active_archs [_get_registry_archs $dep_portname]
</span><span class="cx"> if {$deptype ni {depends_fetch depends_extract} && $active_archs ni {{} noarch}
</span><del>- && $required_archs ne {noarch} && $dep_portname ni $depends_skip_archcheck} {
</del><ins>+ && $required_archs ne "noarch" && $dep_portname ni $depends_skip_archcheck} {
</ins><span class="cx"> set missing {}
</span><span class="cx"> foreach arch $required_archs {
</span><span class="cx"> if {$arch ni $active_archs} {
</span><span class="lines">@@ -2325,7 +2321,7 @@
</span><span class="cx">
</span><span class="cx"> proc macports::getindex {source} {
</span><span class="cx"> # Special case file:// sources
</span><del>- if {[macports::getprotocol $source] eq {file}} {
</del><ins>+ if {[macports::getprotocol $source] eq "file"} {
</ins><span class="cx"> return [file join [macports::getportdir $source] PortIndex]
</span><span class="cx"> }
</span><span class="cx">
</span><span class="lines">@@ -2465,7 +2461,7 @@
</span><span class="cx"> set destdir [file dirname $destdir]
</span><span class="cx"> } else {
</span><span class="cx"> # Keep rsync happy with a trailing slash
</span><del>- if {[string index $source end] ne {/}} {
</del><ins>+ if {[string index $source end] ne "/"} {
</ins><span class="cx"> append source /
</span><span class="cx"> }
</span><span class="cx"> # don't sync PortIndex yet; we grab the platform specific one afterwards
</span><span class="lines">@@ -2606,7 +2602,7 @@
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {(![info exists options(ports_force)] || $options(ports_force) ne {yes}) && $updated <= 0} {
</del><ins>+ if {(![info exists options(ports_force)] || !$options(ports_force)) && $updated <= 0} {
</ins><span class="cx"> ui_info "No updates for $source"
</span><span class="cx"> continue
</span><span class="cx"> }
</span><span class="lines">@@ -2614,7 +2610,7 @@
</span><span class="cx"> file mkdir $destdir
</span><span class="cx">
</span><span class="cx"> set progressflag {}
</span><del>- if {$macports::portverbose eq {yes}} {
</del><ins>+ if {$macports::portverbose} {
</ins><span class="cx"> set progressflag "--progress builtin"
</span><span class="cx"> set verboseflag "-v"
</span><span class="cx"> } elseif {[info exists macports::ui_options(progress_download)]} {
</span><span class="lines">@@ -2740,7 +2736,7 @@
</span><span class="cx"> proc mportsearch {pattern {case_sensitive yes} {matchstyle regexp} {field name}} {
</span><span class="cx"> global macports::sources
</span><span class="cx"> set matches [list]
</span><del>- set easy [expr {$field eq {name}}]
</del><ins>+ set easy [expr {$field eq "name"}]
</ins><span class="cx">
</span><span class="cx"> set found 0
</span><span class="cx"> foreach source $sources {
</span><span class="lines">@@ -2769,7 +2765,7 @@
</span><span class="cx">
</span><span class="cx"> switch -- $matchstyle {
</span><span class="cx"> exact {
</span><del>- if {$case_sensitive eq "yes"} {
</del><ins>+ if {$case_sensitive} {
</ins><span class="cx"> set compres [string compare $pattern $target]
</span><span class="cx"> } else {
</span><span class="cx"> set compres [string compare -nocase $pattern $target]
</span><span class="lines">@@ -2777,14 +2773,14 @@
</span><span class="cx"> set matchres [expr {0 == $compres}]
</span><span class="cx"> }
</span><span class="cx"> glob {
</span><del>- if {$case_sensitive eq "yes"} {
</del><ins>+ if {$case_sensitive} {
</ins><span class="cx"> set matchres [string match $pattern $target]
</span><span class="cx"> } else {
</span><span class="cx"> set matchres [string match -nocase $pattern $target]
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="cx"> regexp {
</span><del>- if {$case_sensitive eq "yes"} {
</del><ins>+ if {$case_sensitive} {
</ins><span class="cx"> set matchres [regexp -- $pattern $target]
</span><span class="cx"> } else {
</span><span class="cx"> set matchres [regexp -nocase -- $pattern $target]
</span><span class="lines">@@ -3193,7 +3189,7 @@
</span><span class="cx"> set nrequired [llength $required_archs]
</span><span class="cx"> foreach key $prev_seenkeys {
</span><span class="cx"> set key_archs [lrange [split $key ,] 1 end]
</span><del>- if {$key_archs eq {noarch} || $required_archs eq {noarch} || [llength $key_archs] > $nrequired} {
</del><ins>+ if {$key_archs eq "noarch" || $required_archs eq "noarch" || [llength $key_archs] > $nrequired} {
</ins><span class="cx"> set seen 1
</span><span class="cx"> set seenkey $key
</span><span class="cx"> break
</span><span class="lines">@@ -3212,12 +3208,12 @@
</span><span class="cx"> # If we don't skip or if it is not, add it to the list.
</span><span class="cx"> set present [_mportispresent $mport $depspec]
</span><span class="cx">
</span><del>- if {!$skipSatisfied && $dep_portname eq {}} {
</del><ins>+ if {!$skipSatisfied && $dep_portname eq ""} {
</ins><span class="cx"> set dep_portname [lindex [split $depspec :] end]
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> set check_archs 0
</span><del>- if {$dep_portname ne {} && $deptype ni {depends_fetch depends_extract}
</del><ins>+ if {$dep_portname ne "" && $deptype ni {depends_fetch depends_extract}
</ins><span class="cx"> && $dep_portname ni $depends_skip_archcheck} {
</span><span class="cx"> set check_archs 1
</span><span class="cx"> }
</span><span class="lines">@@ -3260,7 +3256,7 @@
</span><span class="cx"> # because mportexec only closes each open mport once.
</span><span class="cx"> set depport [dlist_match_multi $macports::open_mports [list porturl $dep_portinfo(porturl) options $dep_options]]
</span><span class="cx">
</span><del>- if {$depport eq {}} {
</del><ins>+ if {$depport eq ""} {
</ins><span class="cx"> # We haven't opened this one yet.
</span><span class="cx"> set depport [mportopen $dep_portinfo(porturl) $dep_options $variations]
</span><span class="cx"> }
</span><span class="lines">@@ -3280,7 +3276,7 @@
</span><span class="cx"> if {[info exists dep_portinfo(variants)] && {universal} in $dep_portinfo(variants)} {
</span><span class="cx"> # a universal variant is offered
</span><span class="cx"> set has_universal 1
</span><del>- if {![info exists variation_array(universal)] || $variation_array(universal) ne {+}} {
</del><ins>+ if {![info exists variation_array(universal)] || $variation_array(universal) ne "+"} {
</ins><span class="cx"> set variation_array(universal) +
</span><span class="cx"> # try again with +universal
</span><span class="cx"> set depport [mportopen $dep_portinfo(porturl) $dep_options [array get variation_array]]
</span><span class="lines">@@ -3306,7 +3302,7 @@
</span><span class="cx"> ditem_append_unique $mport requires $depport_provides
</span><span class="cx"> # record actual archs we ended up getting
</span><span class="cx"> set port_seen(${dep_portname},[join [macports::_mport_archs $depport] ,]) $depport_provides
</span><del>- } elseif {$present && $dep_portname ne {}} {
</del><ins>+ } elseif {$present && $dep_portname ne ""} {
</ins><span class="cx"> # record actual installed archs
</span><span class="cx"> set port_seen(${dep_portname},[join [macports::_active_archs $dep_portname] ,]) 0
</span><span class="cx"> }
</span><span class="lines">@@ -3319,7 +3315,7 @@
</span><span class="cx"> foreach depport $depPorts {
</span><span class="cx"> # Any of these may have been closed by a previous recursive call
</span><span class="cx"> # and replaced by a universal version. This is fine, just skip.
</span><del>- if {[ditem_key $depport] ne {}} {
</del><ins>+ if {[ditem_key $depport] ne ""} {
</ins><span class="cx"> set res [mportdepends $depport {} $recurseDeps $skipSatisfied 1]
</span><span class="cx"> if {$res != 0} {
</span><span class="cx"> return $res
</span><span class="lines">@@ -3333,11 +3329,11 @@
</span><span class="cx">
</span><span class="cx"> # check if the given mport can support dependents with the given archs
</span><span class="cx"> proc macports::_mport_supports_archs {mport required_archs} {
</span><del>- if {$required_archs eq {noarch}} {
</del><ins>+ if {$required_archs eq "noarch"} {
</ins><span class="cx"> return 1
</span><span class="cx"> }
</span><span class="cx"> set provided_archs [_mport_archs $mport]
</span><del>- if {$provided_archs eq {noarch}} {
</del><ins>+ if {$provided_archs eq "noarch"} {
</ins><span class="cx"> return 1
</span><span class="cx"> }
</span><span class="cx"> foreach arch $required_archs {
</span><span class="lines">@@ -3356,14 +3352,14 @@
</span><span class="cx">
</span><span class="cx"> # check if the active version of a port supports the given archs
</span><span class="cx"> proc macports::_active_supports_archs {portname required_archs} {
</span><del>- if {$required_archs eq {noarch}} {
</del><ins>+ if {$required_archs eq "noarch"} {
</ins><span class="cx"> return 1
</span><span class="cx"> }
</span><span class="cx"> if {[catch {registry::active $portname}]} {
</span><span class="cx"> return 0
</span><span class="cx"> }
</span><span class="cx"> set provided_archs [_active_archs $portname]
</span><del>- if {$provided_archs eq {noarch} || $provided_archs eq {} || $provided_archs == 0} {
</del><ins>+ if {$provided_archs eq "noarch" || $provided_archs eq "" || $provided_archs == 0} {
</ins><span class="cx"> return 1
</span><span class="cx"> }
</span><span class="cx"> foreach arch $required_archs {
</span><span class="lines">@@ -3394,7 +3390,7 @@
</span><span class="cx"> set s [expr {[llength $required_archs] == 1 ? "" : "s"}]
</span><span class="cx">
</span><span class="cx"> ui_error "Cannot install $port for the arch${s} '$required_archs' because"
</span><del>- if {$supported_archs ne {}} {
</del><ins>+ if {$supported_archs ne ""} {
</ins><span class="cx"> set ss [expr {[llength $supported_archs] == 1 ? "" : "s"}]
</span><span class="cx"> foreach arch $required_archs {
</span><span class="cx"> if {[lsearch -exact $supported_archs $arch] == -1} {
</span><span class="lines">@@ -3422,7 +3418,7 @@
</span><span class="cx"> proc macports::_mport_has_deptypes {mport deptypes} {
</span><span class="cx"> array set portinfo [mportinfo $mport]
</span><span class="cx"> foreach type $deptypes {
</span><del>- if {[info exists portinfo($type)] && $portinfo($type) ne {}} {
</del><ins>+ if {[info exists portinfo($type)] && $portinfo($type) ne ""} {
</ins><span class="cx"> return 1
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="lines">@@ -3497,18 +3493,18 @@
</span><span class="cx"> array set options $optionslist
</span><span class="cx">
</span><span class="cx"> # variable that indicates whether we actually updated base
</span><del>- if {$updatestatusvar ne {}} {
</del><ins>+ if {$updatestatusvar ne ""} {
</ins><span class="cx"> upvar $updatestatusvar updatestatus
</span><span class="cx"> set updatestatus no
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> # are we syncing a tarball? (implies detached signature)
</span><span class="cx"> set is_tarball 0
</span><del>- if {[string range $rsync_dir end-3 end] eq {.tar}} {
</del><ins>+ if {[string range $rsync_dir end-3 end] eq ".tar"} {
</ins><span class="cx"> set is_tarball 1
</span><span class="cx"> set mp_source_path [file join $portdbpath sources $rsync_server [file dirname $rsync_dir]]
</span><span class="cx"> } else {
</span><del>- if {[string index $rsync_dir end] ne {/}} {
</del><ins>+ if {[string index $rsync_dir end] ne "/"} {
</ins><span class="cx"> append rsync_dir /
</span><span class="cx"> }
</span><span class="cx"> set mp_source_path [file join $portdbpath sources $rsync_server $rsync_dir]
</span><span class="lines">@@ -3567,7 +3563,7 @@
</span><span class="cx"> # echo current MacPorts version
</span><span class="cx"> ui_msg "MacPorts base version $macports::autoconf::macports_version installed,"
</span><span class="cx">
</span><del>- if {[info exists options(ports_force)] && $options(ports_force) eq {yes}} {
</del><ins>+ if {[info exists options(ports_force)] && $options(ports_force)} {
</ins><span class="cx"> set use_the_force_luke yes
</span><span class="cx"> ui_debug "Forcing a rebuild and reinstallation of MacPorts"
</span><span class="cx"> } else {
</span><span class="lines">@@ -3592,7 +3588,7 @@
</span><span class="cx"> set comp [vercmp $macports_version_new $macports::autoconf::macports_version]
</span><span class="cx">
</span><span class="cx"> # syncing ports tree.
</span><del>- if {![info exists options(ports_selfupdate_nosync)] || $options(ports_selfupdate_nosync) ne {yes}} {
</del><ins>+ if {![info exists options(ports_selfupdate_nosync)] || !$options(ports_selfupdate_nosync)} {
</ins><span class="cx"> if {$comp > 0} {
</span><span class="cx"> # updated portfiles potentially need new base to parse - tell sync to try to
</span><span class="cx"> # use prefabricated PortIndex files and signal if it couldn't
</span><span class="lines">@@ -3603,8 +3599,8 @@
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {$use_the_force_luke eq {yes} || $comp > 0} {
- if {[info exists options(ports_dryrun)] && $options(ports_dryrun) eq {yes}} {
</del><ins>+ if {$use_the_force_luke || $comp > 0} {
+ if {[info exists options(ports_dryrun)] && $options(ports_dryrun)} {
</ins><span class="cx"> ui_msg "$macports::ui_prefix MacPorts base is outdated, selfupdate would install $macports_version_new (dry run)"
</span><span class="cx"> } else {
</span><span class="cx"> ui_msg "$macports::ui_prefix MacPorts base is outdated, installing new version $macports_version_new"
</span><span class="lines">@@ -3613,27 +3609,27 @@
</span><span class="cx"> set owner [file attributes $prefix -owner]
</span><span class="cx"> set group [file attributes $prefix -group]
</span><span class="cx"> set perms [string range [file attributes $prefix -permissions] end-3 end]
</span><del>- if {$tcl_platform(user) ne {root} && $tcl_platform(user) ne $owner} {
</del><ins>+ if {$tcl_platform(user) ne "root" && $tcl_platform(user) ne $owner} {
</ins><span class="cx"> return -code error "User $tcl_platform(user) does not own $prefix - try using sudo"
</span><span class="cx"> }
</span><span class="cx"> ui_debug "Permissions OK"
</span><span class="cx">
</span><span class="cx"> set configure_args "--prefix=[macports::shellescape $prefix] --with-install-user=[macports::shellescape $owner] --with-install-group=[macports::shellescape $group] --with-directory-mode=[macports::shellescape $perms]"
</span><span class="cx"> # too many users have an incompatible readline in /usr/local, see ticket #10651
</span><del>- if {$tcl_platform(os) ne {Darwin} || $prefix eq {/usr/local}
- || ([glob -nocomplain /usr/local/lib/lib{readline,history}*] eq {} && [glob -nocomplain /usr/local/include/readline/*.h] eq {})} {
</del><ins>+ if {$tcl_platform(os) ne "Darwin" || $prefix eq "/usr/local"
+ || ([glob -nocomplain /usr/local/lib/lib{readline,history}*] eq "" && [glob -nocomplain /usr/local/include/readline/*.h] eq "")} {
</ins><span class="cx"> append configure_args " --enable-readline"
</span><span class="cx"> } else {
</span><span class="cx"> ui_warn "Disabling readline support due to readline in /usr/local"
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {$prefix eq {/usr/local} || $prefix eq {/usr}} {
</del><ins>+ if {$prefix eq "/usr/local" || $prefix eq "/usr"} {
</ins><span class="cx"> append configure_args " --with-unsupported-prefix"
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> # Choose a sane compiler
</span><span class="cx"> set cc_arg {}
</span><del>- if {$::macports::os_platform eq {darwin}} {
</del><ins>+ if {$::macports::os_platform eq "darwin"} {
</ins><span class="cx"> set cc_arg "CC=/usr/bin/cc OBJC=/usr/bin/cc "
</span><span class="cx"> }
</span><span class="cx">
</span><span class="lines">@@ -3659,7 +3655,7 @@
</span><span class="cx"> return -code error "Couldn't change permissions of the MacPorts sources at $mp_source_path to ${sources_owner}: $result"
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {![info exists options(ports_selfupdate_nosync)] || $options(ports_selfupdate_nosync) ne {yes}} {
</del><ins>+ if {![info exists options(ports_selfupdate_nosync)] || !$options(ports_selfupdate_nosync)} {
</ins><span class="cx"> if {[info exists needed_portindex]} {
</span><span class="cx"> ui_msg "Not all sources could be fully synced using the old version of MacPorts."
</span><span class="cx"> ui_msg "Please run selfupdate again now that MacPorts base has been updated."
</span><span class="lines">@@ -3684,7 +3680,7 @@
</span><span class="cx"> ui_error "$portname is not installed"
</span><span class="cx"> return 3
</span><span class="cx"> }
</span><del>- if {$depscachename ne {}} {
</del><ins>+ if {$depscachename ne ""} {
</ins><span class="cx"> upvar $depscachename depscache
</span><span class="cx"> } else {
</span><span class="cx"> array set depscache {}
</span><span class="lines">@@ -3711,13 +3707,13 @@
</span><span class="cx"> global macports::global_variations
</span><span class="cx"> array set options $optionslist
</span><span class="cx">
</span><del>- if {$depscachename ne {}} {
</del><ins>+ if {$depscachename ne ""} {
</ins><span class="cx"> upvar $depscachename depscache
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> # Is this a dry run?
</span><span class="cx"> set is_dryrun no
</span><del>- if {[info exists options(ports_dryrun)] && $options(ports_dryrun) eq {yes}} {
</del><ins>+ if {[info exists options(ports_dryrun)] && $options(ports_dryrun)} {
</ins><span class="cx"> set is_dryrun yes
</span><span class="cx"> }
</span><span class="cx">
</span><span class="lines">@@ -3745,7 +3741,7 @@
</span><span class="cx"> return 1
</span><span class="cx"> }
</span><span class="cx"> # argh! port doesnt exist!
</span><del>- if {$result eq {}} {
</del><ins>+ if {$result eq ""} {
</ins><span class="cx"> ui_warn "No port $portname found in the index."
</span><span class="cx"> return 2
</span><span class="cx"> }
</span><span class="lines">@@ -3840,7 +3836,7 @@
</span><span class="cx"> set version [lindex $i 1]
</span><span class="cx"> set revision [lindex $i 2]
</span><span class="cx"> set epoch [lindex $i 5]
</span><del>- if {$version_installed eq {} || ($epoch > $epoch_installed && $version ne $version_installed) ||
</del><ins>+ if {$version_installed eq "" || ($epoch > $epoch_installed && $version ne $version_installed) ||
</ins><span class="cx"> ($epoch >= $epoch_installed && [vercmp $version $version_installed] > 0)
</span><span class="cx"> || ($epoch >= $epoch_installed
</span><span class="cx"> && [vercmp $version $version_installed] == 0
</span><span class="lines">@@ -3937,7 +3933,7 @@
</span><span class="cx"> ui_error "port lookup failed: $result"
</span><span class="cx"> return 1
</span><span class="cx"> }
</span><del>- if {$result eq {}} {
</del><ins>+ if {$result eq ""} {
</ins><span class="cx"> ui_error "No port $portinfo(replaced_by) found."
</span><span class="cx"> return 1
</span><span class="cx"> }
</span><span class="lines">@@ -3989,10 +3985,10 @@
</span><span class="cx"> } elseif {$epoch_installed < $epoch_in_tree && $version_installed ne $version_in_tree} {
</span><span class="cx"> set build_override 1
</span><span class="cx"> ui_debug "epoch override ... upgrading!"
</span><del>- } elseif {[info exists options(ports_upgrade_enforce-variants)] && $options(ports_upgrade_enforce-variants) eq {yes}
</del><ins>+ } elseif {[info exists options(ports_upgrade_enforce-variants)] && $options(ports_upgrade_enforce-variants)
</ins><span class="cx"> && [info exists portinfo(canonical_active_variants)] && $portinfo(canonical_active_variants) ne $oldvariant} {
</span><span class="cx"> ui_debug "variant override ... upgrading!"
</span><del>- } elseif {$os_platform_installed ne {} && $os_major_installed ne {} && $os_platform_installed != 0
</del><ins>+ } elseif {$os_platform_installed ne "" && $os_major_installed ne "" && $os_platform_installed != 0
</ins><span class="cx"> && ([_mportkey $mport {{os.platform}}] ne $os_platform_installed
</span><span class="cx"> || [_mportkey $mport {{os.major}}] != $os_major_installed)} {
</span><span class="cx"> ui_debug "platform mismatch ... upgrading!"
</span><span class="lines">@@ -4121,7 +4117,7 @@
</span><span class="cx"> set options(ports_force) yes
</span><span class="cx"> set existing_epoch [lindex [registry::installed $newname ${version_in_tree}_${revision_in_tree}$portinfo(canonical_active_variants)] 0 5]
</span><span class="cx"> set newregref [registry::open_entry $newname $version_in_tree $revision_in_tree $portinfo(canonical_active_variants) $existing_epoch]
</span><del>- if {$is_dryrun eq {yes}} {
</del><ins>+ if {$is_dryrun} {
</ins><span class="cx"> ui_msg "Skipping uninstall $newname @${version_in_tree}_${revision_in_tree}$portinfo(canonical_active_variants) (dry run)"
</span><span class="cx"> } elseif {![registry::run_target $newregref uninstall [array get options]]
</span><span class="cx"> && [catch {registry_uninstall::uninstall $newname $version_in_tree $revision_in_tree $portinfo(canonical_active_variants) [array get options]} result]} {
</span><span class="lines">@@ -4144,7 +4140,7 @@
</span><span class="cx"> # we have to force the deactivate in case of dependents
</span><span class="cx"> set force_cur [info exists options(ports_force)]
</span><span class="cx"> set options(ports_force) yes
</span><del>- if {$is_dryrun eq {yes}} {
</del><ins>+ if {$is_dryrun} {
</ins><span class="cx"> ui_msg "Skipping deactivate $portname @${version_active}_${revision_active}$variant_active (dry run)"
</span><span class="cx"> } elseif {![catch {registry::active $portname}] &&
</span><span class="cx"> ![registry::run_target $regref deactivate [array get options]]
</span><span class="lines">@@ -4166,7 +4162,7 @@
</span><span class="cx"> set uninstall_later yes
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {$is_dryrun eq {yes}} {
</del><ins>+ if {$is_dryrun} {
</ins><span class="cx"> if {$anyactive} {
</span><span class="cx"> ui_msg "Skipping deactivate $portname @${version_active}_${revision_active}$variant_active (dry run)"
</span><span class="cx"> }
</span><span class="lines">@@ -4210,7 +4206,7 @@
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {[info exists uninstall_later] && $uninstall_later eq "yes"} {
</del><ins>+ if {[info exists uninstall_later] && $uninstall_later} {
</ins><span class="cx"> foreach i $ilist {
</span><span class="cx"> set version [lindex $i 1]
</span><span class="cx"> set revision [lindex $i 2]
</span><span class="lines">@@ -4221,7 +4217,7 @@
</span><span class="cx"> set epoch [lindex $i 5]
</span><span class="cx"> ui_debug "Uninstalling $portname ${version}_${revision}$variant"
</span><span class="cx"> set regref [registry::open_entry $portname $version $revision $variant $epoch]
</span><del>- if {$is_dryrun eq {yes}} {
</del><ins>+ if {$is_dryrun} {
</ins><span class="cx"> ui_msg "Skipping uninstall $portname @${version}_${revision}$variant (dry run)"
</span><span class="cx"> } elseif {![registry::run_target $regref uninstall $optionslist]
</span><span class="cx"> && [catch {registry_uninstall::uninstall $portname $version $revision $variant $optionslist} result]} {
</span><span class="lines">@@ -4277,7 +4273,7 @@
</span><span class="cx"> foreach i $portinfo($dtype) {
</span><span class="cx"> set d [$parentworker eval _get_dep_port $i]
</span><span class="cx"> if {![llength [array get depscache port:$d]] && ![llength [array get depscache $i]]} {
</span><del>- if {$d ne {}} {
</del><ins>+ if {$d ne ""} {
</ins><span class="cx"> set dspec port:$d
</span><span class="cx"> } else {
</span><span class="cx"> set dspec $i
</span><span class="lines">@@ -4325,7 +4321,7 @@
</span><span class="cx"> foreach v $versions {
</span><span class="cx"> # Only the file name corresponds to the version name.
</span><span class="cx"> set v [file tail $v]
</span><del>- if {$v eq {base} || $v eq {current}} {
</del><ins>+ if {$v eq "base" || $v eq "current"} {
</ins><span class="cx"> continue
</span><span class="cx"> }
</span><span class="cx"> lappend lversions [file tail $v]
</span><span class="lines">@@ -4344,7 +4340,7 @@
</span><span class="cx"> }
</span><span class="cx"> set {
</span><span class="cx"> # Use ${conf_path}/$version to read in sources.
</span><del>- if {$version eq {} || $version eq {base} || $version eq {current}
</del><ins>+ if {$version eq "" || $version eq "base" || $version eq "current"
</ins><span class="cx"> || [catch {set src_file [open "${conf_path}/$version"]} result]} {
</span><span class="cx"> global errorInfo
</span><span class="cx"> ui_debug "${result}: $errorInfo"
</span><span class="lines">@@ -4432,12 +4428,12 @@
</span><span class="cx"> # check if the system we're on can run code of the given architecture
</span><span class="cx"> proc macports::arch_runnable {arch} {
</span><span class="cx"> global macports::os_major macports::os_arch macports::os_platform
</span><del>- if {$macports::os_platform eq {darwin}} {
</del><ins>+ if {$macports::os_platform eq "darwin"} {
</ins><span class="cx"> if {$macports::os_major >= 11 && [string first ppc $arch] == 0} {
</span><span class="cx"> return no
</span><del>- } elseif {$macports::os_arch eq {i386} && $arch eq {ppc64}} {
</del><ins>+ } elseif {$macports::os_arch eq "i386" && $arch eq "ppc64"} {
</ins><span class="cx"> return no
</span><del>- } elseif {$macports::os_major <= 8 && $arch eq {x86_64}} {
</del><ins>+ } elseif {$macports::os_major <= 8 && $arch eq "x86_64"} {
</ins><span class="cx"> return no
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="lines">@@ -4578,7 +4574,7 @@
</span><span class="cx"> if {$binary_count > 0} {
</span><span class="cx"> ui_msg "$macports::ui_prefix Scanning binaries for linking errors"
</span><span class="cx"> set handle [machista::create_handle]
</span><del>- if {$handle eq {NULL}} {
</del><ins>+ if {$handle eq "NULL"} {
</ins><span class="cx"> error "Error creating libmachista handle"
</span><span class="cx"> }
</span><span class="cx"> array unset files_warned_about
</span><span class="lines">@@ -4619,15 +4615,15 @@
</span><span class="cx"> }
</span><span class="cx">
</span><span class="cx"> set architecture [$result cget -mt_archs]
</span><del>- while {$architecture ne {NULL}} {
- if {[info exists options(ports_rev-upgrade_id-loadcmd-check)] && $options(ports_rev-upgrade_id-loadcmd-check) eq {yes}} {
- if {[$architecture cget -mat_install_name] ne {NULL} && [$architecture cget -mat_install_name] ne {}} {
</del><ins>+ while {$architecture ne "NULL"} {
+ if {[info exists options(ports_rev-upgrade_id-loadcmd-check)] && $options(ports_rev-upgrade_id-loadcmd-check)} {
+ if {[$architecture cget -mat_install_name] ne "NULL" && [$architecture cget -mat_install_name] ne ""} {
</ins><span class="cx"> # check if this lib's install name actually refers to this file itself
</span><span class="cx"> # if this is not the case software linking against this library might have erroneous load commands
</span><span class="cx"> if {0 == [catch {set idloadcmdpath [revupgrade_handle_special_paths $bpath [$architecture cget -mat_install_name]]}]} {
</span><del>- if {[string index $idloadcmdpath 0] ne {/}} {
</del><ins>+ if {[string index $idloadcmdpath 0] ne "/"} {
</ins><span class="cx"> set port [registry::entry owner $bpath]
</span><del>- if {$port ne {}} {
</del><ins>+ if {$port ne ""} {
</ins><span class="cx"> set portname [$port name]
</span><span class="cx"> } else {
</span><span class="cx"> set portname <unknown-port>
</span><span class="lines">@@ -4638,7 +4634,7 @@
</span><span class="cx"> ui_warn "ID load command in ${bpath}, arch [machista::get_arch_name [$architecture cget -mat_arch]] (belonging to port $portname) contains relative path"
</span><span class="cx"> } elseif {![file exists $idloadcmdpath]} {
</span><span class="cx"> set port [registry::entry owner $bpath]
</span><del>- if {$port ne {}} {
</del><ins>+ if {$port ne ""} {
</ins><span class="cx"> set portname [$port name]
</span><span class="cx"> } else {
</span><span class="cx"> set portname <unknown-port>
</span><span class="lines">@@ -4646,7 +4642,7 @@
</span><span class="cx"> if {$fancy_output} {
</span><span class="cx"> $revupgrade_progress intermission
</span><span class="cx"> }
</span><del>- ui_warn "ID load command in ${bpath}, arch [machista::get_arch_name [$architecture cget -mat_arch]] refers to non-existant file $idloadcmdpath"
</del><ins>+ ui_warn "ID load command in ${bpath}, arch [machista::get_arch_name [$architecture cget -mat_arch]] refers to non-existent file $idloadcmdpath"
</ins><span class="cx"> ui_warn "This is probably a bug in the $portname port and might cause problems in libraries linking against this file"
</span><span class="cx"> } else {
</span><span class="cx"> set hash_this [sha256 file $bpath]
</span><span class="lines">@@ -4654,7 +4650,7 @@
</span><span class="cx">
</span><span class="cx"> if {$hash_this ne $hash_idloadcmd} {
</span><span class="cx"> set port [registry::entry owner $bpath]
</span><del>- if {$port ne {}} {
</del><ins>+ if {$port ne ""} {
</ins><span class="cx"> set portname [$port name]
</span><span class="cx"> } else {
</span><span class="cx"> set portname <unknown-port>
</span><span class="lines">@@ -4679,7 +4675,7 @@
</span><span class="cx">
</span><span class="cx"> set loadcommand [$architecture cget -mat_loadcmds]
</span><span class="cx">
</span><del>- while {$loadcommand ne {NULL}} {
</del><ins>+ while {$loadcommand ne "NULL"} {
</ins><span class="cx"> if {0 != [catch {set filepath [revupgrade_handle_special_paths $bpath [$loadcommand cget -mlt_install_name]]}]} {
</span><span class="cx"> set loadcommand [$loadcommand cget -next]
</span><span class="cx"> continue;
</span><span class="lines">@@ -4710,7 +4706,7 @@
</span><span class="cx">
</span><span class="cx"> set libarchitecture [$libresult cget -mt_archs]
</span><span class="cx"> set libarch_found false;
</span><del>- while {$libarchitecture ne {NULL}} {
</del><ins>+ while {$libarchitecture ne "NULL"} {
</ins><span class="cx"> if {[$architecture cget -mat_arch] ne [$libarchitecture cget -mat_arch]} {
</span><span class="cx"> set libarchitecture [$libarchitecture cget -next]
</span><span class="cx"> continue;
</span><span class="lines">@@ -4729,7 +4725,7 @@
</span><span class="cx"> break;
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {$libarch_found eq "false"} {
</del><ins>+ if {!$libarch_found} {
</ins><span class="cx"> ui_debug "Missing architecture [machista::get_arch_name [$architecture cget -mat_arch]] in file $filepath"
</span><span class="cx"> if {[path_is_in_prefix $filepath]} {
</span><span class="cx"> ui_debug "Marking $bpath as broken"
</span><span class="lines">@@ -4769,7 +4765,7 @@
</span><span class="cx"> set broken_files [lsort -unique $broken_files]
</span><span class="cx"> foreach file $broken_files {
</span><span class="cx"> set port [registry::entry owner $file]
</span><del>- if {$port ne {}} {
</del><ins>+ if {$port ne ""} {
</ins><span class="cx"> lappend broken_ports $port
</span><span class="cx"> lappend broken_files_by_port($port) $file
</span><span class="cx"> } else {
</span><span class="lines">@@ -4778,7 +4774,7 @@
</span><span class="cx"> }
</span><span class="cx"> set broken_ports [lsort -unique $broken_ports]
</span><span class="cx">
</span><del>- if {$macports::revupgrade_mode eq {rebuild}} {
</del><ins>+ if {$macports::revupgrade_mode eq "rebuild"} {
</ins><span class="cx"> # don't try to rebuild ports that don't exist in the tree
</span><span class="cx"> set temp_broken_ports {}
</span><span class="cx"> foreach port $broken_ports {
</span><span class="lines">@@ -4829,7 +4825,7 @@
</span><span class="cx"> set num_broken_ports [llength $broken_ports]
</span><span class="cx"> set s [expr {$num_broken_ports == 1 ? "" : "s"}]
</span><span class="cx">
</span><del>- if {$macports::revupgrade_mode ne {rebuild}} {
</del><ins>+ if {$macports::revupgrade_mode ne "rebuild"} {
</ins><span class="cx"> ui_msg "$macports::ui_prefix Found $num_broken_ports broken port${s}:"
</span><span class="cx"> foreach port $broken_ports {
</span><span class="cx"> ui_msg " [$port name] @[$port version] [$port variants][$port negated_variants]"
</span><span class="lines">@@ -4962,7 +4958,7 @@
</span><span class="cx"> }
</span><span class="cx"> }
</span><span class="cx">
</span><del>- if {[info exists options(ports_dryrun)] && $options(ports_dryrun) eq {yes}} {
</del><ins>+ if {[info exists options(ports_dryrun)] && $options(ports_dryrun)} {
</ins><span class="cx"> ui_warn "If this was no dry run, rev-upgrade would now run the checks again to find unresolved and newly created problems"
</span><span class="cx"> return 0
</span><span class="cx"> }
</span><span class="lines">@@ -5089,12 +5085,12 @@
</span><span class="cx"> while {[gets $fd line] >= 0} {
</span><span class="cx"> if {[regexp {^(\w+)([ \t]+(.*))?$} $line match option ignore val] == 1} {
</span><span class="cx"> if {[lsearch -exact $conf_options $option] >= 0} {
</span><del>- if {$option eq {name}} {
</del><ins>+ if {$option eq "name"} {
</ins><span class="cx"> set cur_name $val
</span><span class="cx"> lappend all_names $val
</span><span class="cx"> } elseif {[info exists cur_name]} {
</span><span class="cx"> set trimmedval [string trim $val]
</span><del>- if {$option eq {urls}} {
</del><ins>+ if {$option eq "urls"} {
</ins><span class="cx"> set processed_urls {}
</span><span class="cx"> foreach url $trimmedval {
</span><span class="cx"> lappend processed_urls ${url}:nosubdir
</span></span></pre></div>
<a id="branchesgsoc15dependencybasesrcport10portconfiguretcl"></a>
<div class="modfile"><h4>Modified: branches/gsoc15-dependency/base/src/port1.0/portconfigure.tcl (137285 => 137286)</h4>
<pre class="diff"><span>
<span class="info">--- branches/gsoc15-dependency/base/src/port1.0/portconfigure.tcl 2015-06-08 07:48:53 UTC (rev 137285)
+++ branches/gsoc15-dependency/base/src/port1.0/portconfigure.tcl 2015-06-08 07:49:38 UTC (rev 137286)
</span><span class="lines">@@ -478,8 +478,6 @@
</span><span class="cx"> return $default_compilers
</span><span class="cx"> } elseif {$xcodeversion eq "none" || $xcodeversion eq ""} {
</span><span class="cx"> return {cc}
</span><del>- } elseif {[vercmp $xcodeversion 6.0] >= 0 && [vercmp $macosx_deployment_target 10.10] >= 0} {
- return {clang macports-clang-3.4 macports-clang-3.3}
</del><span class="cx"> } elseif {[vercmp $xcodeversion 5.0] >= 0} {
</span><span class="cx"> return {clang macports-clang-3.4 macports-clang-3.3 macports-llvm-gcc-4.2 apple-gcc-4.2}
</span><span class="cx"> } elseif {[vercmp $xcodeversion 4.3] >= 0} {
</span></span></pre>
</div>
</div>
</body>
</html>