<pre style='margin:0'>
Clemens Lang (neverpanic) pushed a commit to branch master
in repository macports-ports.

</pre>
<p><a href="https://github.com/macports/macports-ports/commit/290f3e201776af02e5bdb78b79068980c6ad17f7">https://github.com/macports/macports-ports/commit/290f3e201776af02e5bdb78b79068980c6ad17f7</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 290f3e201776af02e5bdb78b79068980c6ad17f7
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Thu Jul 10 16:47:57 2025 +1000

<span style='display:block; white-space:pre;color:#404040;'>    mpstats: use macports::_variants_to_variations
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Also remove reference to negated_variants, which hasn't existed in the
</span><span style='display:block; white-space:pre;color:#404040;'>    registry for some time.
</span>---
 sysutils/mpstats/files/mpstats.tcl | 27 +++------------------------
 1 file changed, 3 insertions(+), 24 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/sysutils/mpstats/files/mpstats.tcl b/sysutils/mpstats/files/mpstats.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 48ca8ea1ab5..5df65f7c3b1 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/sysutils/mpstats/files/mpstats.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/sysutils/mpstats/files/mpstats.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -166,23 +166,6 @@ proc json_encode_stats {id os ports} {
</span>             active_ports [json_encode_portlist [dict get $ports active]]]
 }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-##
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# Helper proc to encode the variants list in a canonical way
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-#
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# @param variants
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-#        the string of all variants for any given port
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# @returns
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-#        a Tcl array object converted to a list where the keys are variant names and the values
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-#        are either + or -, depending on whether the variant was selected, or not.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-proc split_variants {variants} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set result {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set l [regexp -all -inline -- {([-+])([[:alpha:]_]+[\w\.]*)} $variants]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    foreach {match sign variant} $l {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        lappend result $variant $sign
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    return $result
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span> ##
 # Helper proc to build a list of all installed ports
 #
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -192,7 +175,7 @@ proc split_variants {variants} {
</span> # @returns
 #        a list of installed ports chosen according to the \a active parameter, where each entry is
 #        the list representation of a Tcl array with the keys name, version, requested and variants.
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#        The variants value is encoded using \c split_variants, the version entry has the form
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#        The variants value is encoded using \c _variants_to_variations, the version entry has the form
</span> #        "$version_$revision".
 proc get_installed_ports {active} {
     set ilist {}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -221,13 +204,9 @@ proc get_installed_ports {active} {
</span>                 set irequested ""
             }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            set nvariants [registry::property_retrieve $regref "negated_variants"]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            if {$nvariants == 0} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                set nvariants ""
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set ivariantlist [split_variants "$ivariants$nvariants"]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set ivariantdict [macports::_variants_to_variations $ivariants]
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            lappend results [list name $iname version "${iversion}_${irevision}" requested $irequested variants $ivariantlist]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            lappend results [list name $iname version "${iversion}_${irevision}" requested $irequested variants $ivariantdict]
</span>         }
     }
 
</pre><pre style='margin:0'>

</pre>