<pre style='margin:0'>
Zero King (l2dy) pushed a commit to branch master
in repository macports-contrib.

</pre>
<p><a href="https://github.com/macports/macports-contrib/commit/299af8d88934584e71bc2e3b0afe89ac4ceff028">https://github.com/macports/macports-contrib/commit/299af8d88934584e71bc2e3b0afe89ac4ceff028</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'>     new 299af8d  Add some additional debugging statements to restore_ports.tcl (#10)
</span>299af8d is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 299af8d88934584e71bc2e3b0afe89ac4ceff028
</span>Author: Eric Gallager <egall@gwmail.gwu.edu>
AuthorDate: Fri Sep 29 22:47:22 2023 -0400

<span style='display:block; white-space:pre;color:#404040;'>    Add some additional debugging statements to restore_ports.tcl (#10)
</span>---
 .gitignore                      |  1 +
 restore_ports/restore_ports.tcl | 19 +++++++++++++++++--
 2 files changed, 18 insertions(+), 2 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/.gitignore b/.gitignore
</span><span style='display:block; white-space:pre;color:#808080;'>index 79b5594..2bdd8bb 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/.gitignore
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/.gitignore
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1 +1,2 @@
</span> **/.DS_Store
<span style='display:block; white-space:pre;background:#e0ffe0;'>+*.swp
</span><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 179bab4..4a120cf 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;'>@@ -28,6 +28,8 @@ proc dependenciesForPort {portName variantInfo} {
</span>    if {[llength $portSearchResult] < 2} {
       ui_warn "Skipping $portName (not in the ports tree)"
       return $dependencyList
<span style='display:block; white-space:pre;background:#e0ffe0;'>+   } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+       ui_debug "Continuing with $portName"
</span>    }
    array set portInfo [lindex $portSearchResult 1]
    if {[catch {set mport [mportopen $portInfo(porturl) [list subport $portInfo(name)] $variantInfo]} result]} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -59,6 +61,7 @@ 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:#e0ffe0;'>+        ui_debug "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;'>@@ -90,11 +93,12 @@ proc sort_ports {portList} {
</span>                 set variantstr [string range $variantstr 0 ${next}-1]
             }
         }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        ui_debug "variants = \"$variants\""
</span>         set active 0
         if {[llength $remaining] > 0 && [lindex $remaining 0] eq "(active)"} {
             set active 1
         }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+        ui_debug "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;'>@@ -131,10 +135,17 @@ 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:#e0ffe0;'>+                ui_debug "deleting \"[list $active $name $variants]\" from list"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                ui_debug "list with element: \"$newList\""
</span>                 set newList [lreplace $newList $index $index]
<span style='display:block; white-space:pre;background:#e0ffe0;'>+                ui_debug "list without element: \"$newList\""
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                ui_debug "uninstallable(?) port: \"$name\""
</span>             }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_debug "newList length is now [llength $newList]"
</span>         }
         if {[llength $newList] == $oldLen} {
<span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_debug "we appear to be stuck (newList is same length as old one: $oldLen)"
</span>             ui_error "All remaining ports have unsatisfied dependencies (circular dependency?):"
             ui_error $newList
             return -code error "infinite loop"
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -159,7 +170,7 @@ proc install_ports {operationList} {
</span>         if {[catch {set res [mportlookup $name]} result]} {
             global errorInfo
             ui_debug "$errorInfo"
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            return -code error "lookup of portname $name failed: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return -code error "lookup of portname $name failed: \"$result\""
</span>         }
         if {[llength $res] < 2} {
             # not in the index, but we already warned about that earlier
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -241,6 +252,9 @@ while {[string index [lindex $::argv 0] 0] eq "-"} {
</span>       v {
         set ui_options(ports_verbose) yes
       }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+      d {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set ui_options(ports_debug) yes
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      }
</span>       default {
          puts stderr "Unknown option [lindex $::argv 0]"
          printUsage
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -291,6 +305,7 @@ if {[llength $::argv] == 0} {
</span>     set filename [lindex $::argv 0]
 }
 set portList [read_portlist $filename]
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ui_debug "portlist = \"$portList\""
</span> 
 set operationList [sort_ports $portList]
 
</pre><pre style='margin:0'>

</pre>