<pre style='margin:0'>
Rainer Müller (raimue) pushed a commit to branch release-2.3
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/29434d9c7bea2f2883b2e0b2edf76b7b18082b7e">https://github.com/macports/macports-base/commit/29434d9c7bea2f2883b2e0b2edf76b7b18082b7e</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 29434d9c7bea2f2883b2e0b2edf76b7b18082b7e
</span>Author: Rainer Müller <raimue@macports.org>
AuthorDate: Thu Nov 24 21:35:36 2016 +0100

<span style='display:block; white-space:pre;color:#404040;'>    port info: Slight refactoring of field formatting
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Remove one level of indentation, no functional changes.
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    (cherry picked from commit 8d73019a461cf076bebfaa64397757ef5663ff47)
</span>---
 src/port/port.tcl | 75 ++++++++++++++++++++++++++++---------------------------
 1 file changed, 38 insertions(+), 37 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 99ff4cd..30abf99 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2220,47 +2220,48 @@ proc action_info { action portlist opts } {
</span>                 }
                 set inf $infresult
             }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            #     ... special formatting for certain fields when prettyprinting
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            if {$pretty_print} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                if {$ropt eq "variants"} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    # Use the new format for variants iff it exists in
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    # PortInfo. This key currently does not exist outside of
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    # trunk (1.8.0).
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    array unset vinfo
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    if {[info exists portinfo(vinfo)]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        array set vinfo $portinfo(vinfo)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    }
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                    set pi_vars $inf
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    set inf {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    foreach v [lsort $pi_vars] {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        set varmodifier ""
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        if {[info exists variations($v)]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            # selected by command line, prefixed with +/-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            set varmodifier $variations($v)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        } elseif {[info exists global_variations($v)]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            # selected by variants.conf, prefixed with (+)/(-)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            set varmodifier "($global_variations($v))"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            # Retrieve additional information from the new key.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        } elseif {[info exists vinfo]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            array unset variant
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            array set variant $vinfo($v)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            if {[info exists variant(is_default)]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                                set varmodifier "\[$variant(is_default)]"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                            }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            # Format variants
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {$pretty_print && $ropt eq "variants"} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                array unset vinfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                if {[info exists portinfo(vinfo)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    array set vinfo $portinfo(vinfo)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set pi_vars $inf
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set inf {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                foreach v [lsort $pi_vars] {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    set varmodifier ""
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    if {[info exists variations($v)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        # selected by command line, prefixed with +/-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        set varmodifier $variations($v)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    } elseif {[info exists global_variations($v)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        # selected by variants.conf, prefixed with (+)/(-)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        set varmodifier "($global_variations($v))"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        # Retrieve additional information from the new key.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    } elseif {[info exists vinfo]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        array unset variant
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        array set variant $vinfo($v)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        if {[info exists variant(is_default)]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                            set varmodifier "\[$variant(is_default)]"
</span>                         }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                        lappend inf "$varmodifier$v"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                } elseif {[string match "depend*" $ropt] 
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                          && ![macports::ui_isset ports_verbose]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    set pi_deps $inf
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    set inf {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    foreach d $pi_deps {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        lappend inf [lindex [split $d :] end]
</span>                     }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+                    lappend inf "$varmodifier$v"
</span>                 }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            } 
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            #End of special pretty-print formatting for certain fields
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            # Show full depspec only in verbose mode
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {[string match "depend*" $ropt]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        && ![macports::ui_isset ports_verbose]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set pi_deps $inf
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set inf {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                foreach d $pi_deps {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    lappend inf [lindex [split $d :] end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            # End of special pretty-print formatting for certain fields
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span>             if {[info exists list_map($ropt)]} {
                 set field [join $inf [lindex $list_map($ropt) $list_map_index]]
             } else {
</pre><pre style='margin:0'>

</pre>