<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-contrib.
</pre>
<p><a href="https://github.com/macports/macports-contrib/commit/7cc266c464662eed5f030c9e0efa2f10ab9f28da">https://github.com/macports/macports-contrib/commit/7cc266c464662eed5f030c9e0efa2f10ab9f28da</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 7cc266c464662eed5f030c9e0efa2f10ab9f28da
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sat Apr 1 11:42:24 2023 +1100
<span style='display:block; white-space:pre;color:#404040;'> restore_ports: remove commented-out code
</span>---
restore_ports/restore_ports.tcl | 8 +-------
1 file changed, 1 insertion(+), 7 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/restore_ports/restore_ports.tcl b/restore_ports/restore_ports.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index a2f93b6..179bab4 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/restore_ports/restore_ports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/restore_ports/restore_ports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -59,7 +59,6 @@ proc sort_ports {portList} {
</span> set search_str_len [string length $search_str]
foreach port $portList {
set name [lindex $port 0]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- #ui_msg "name = $name"
</span> set version [lindex $port 1]
set remaining [lrange $port 2 end]
set variants ""
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -91,12 +90,11 @@ proc sort_ports {portList} {
</span> set variantstr [string range $variantstr 0 ${next}-1]
}
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- #ui_msg "variants = $variants"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> set active 0
if {[llength $remaining] > 0 && [lindex $remaining 0] eq "(active)"} {
set active 1
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- #ui_msg "active = $active"
</span>
if {![info exists port_in_list($name)]} {
set port_in_list($name) 1
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -133,10 +131,7 @@ proc sort_ports {portList} {
</span> lappend operationList [list $name $variants $active]
incr port_installed($name)
set index [lsearch -exact $newList [list $active $name $variants]]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- #ui_msg "deleting \"[list $active $name $variants]\" from list"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- #ui_msg "list with element: $newList"
</span> set newList [lreplace $newList $index $index]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- #ui_msg "list without element: $newList"
</span> }
}
if {[llength $newList] == $oldLen} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -296,7 +291,6 @@ if {[llength $::argv] == 0} {
</span> set filename [lindex $::argv 0]
}
set portList [read_portlist $filename]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#ui_msg "portlist = $portList"
</span>
set operationList [sort_ports $portList]
</pre><pre style='margin:0'>
</pre>