<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/5da56949b336bca47cc8602f1ec39c88eabc3f9b">https://github.com/macports/macports-ports/commit/5da56949b336bca47cc8602f1ec39c88eabc3f9b</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 5da56949b336bca47cc8602f1ec39c88eabc3f9b
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Thu Jul 10 17:54:55 2025 +1000

<span style='display:block; white-space:pre;color:#404040;'>    mpstats: use registry2 API
</span>---
 sysutils/mpstats/Portfile          |  2 +-
 sysutils/mpstats/files/mpstats.tcl | 41 ++++++++++----------------------------
 2 files changed, 11 insertions(+), 32 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/sysutils/mpstats/Portfile b/sysutils/mpstats/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index e35a076063b..fc6d319eeba 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/sysutils/mpstats/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/sysutils/mpstats/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -3,7 +3,7 @@
</span> PortSystem          1.0
 
 name                mpstats
<span style='display:block; white-space:pre;background:#ffe0e0;'>-version             0.2.1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+version             0.3
</span> categories          sysutils macports
 license             BSD
 platforms           {darwin any}
<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 c24aaecfbc9..ca76b57cb94 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;'>@@ -178,39 +178,18 @@ proc json_encode_stats {id os ports} {
</span> #        The variants value is encoded using \c _variants_to_variations, the version entry has the form
 #        "$version_$revision".
 proc get_installed_ports {active} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set ilist {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[catch {set ilist [registry::installed]} result]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {$result ne "Registry error: No ports registered as installed."} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            ui_debug "$::errorInfo"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            return -code error "registry::installed failed: $result"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set results {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    foreach i $ilist {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set iactive [lindex $i 4]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {(${active} eq "yes") == (${iactive} != 0)} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set iname [lindex $i 0]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set iversion [lindex $i 1]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set irevision [lindex $i 2]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set ivariants [lindex $i 3]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set iepoch [lindex $i 5]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set regref [registry::open_entry $iname $iversion $irevision $ivariants $iepoch]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            if {[registry::property_retrieve $regref "requested"]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                set irequested "true"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            } else {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                set irequested ""
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            set ivariantdict [macports::_variants_to_variations $ivariants]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            lappend results [list name $iname version "${iversion}_${irevision}" requested $irequested variants $ivariantdict]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {$active} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set ilist [registry::entry installed]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set ilist [registry::entry search state imaged]
</span>     }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    return $results
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    return [lmap i $ilist {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        list name [$i name] \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            version [$i version]_[$i revision] \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            requested [expr {[$i requested] ? "true" : ""}] \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            variants [macports::_variants_to_variations [$i variants]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }]
</span> }
 
 ##
</pre><pre style='margin:0'>

</pre>