[66706] trunk/base/src/port/port.tcl

[jmr at macports.org]

Revision: 66706
          http://trac.macports.org/changeset/66706
Author:   jmr at macports.org
Date:     2010-04-20 15:51:06 -0700 (Tue, 20 Apr 2010)
Log Message:
-----------
show negated variants and platform and arch info if the verbose flag is set in action_installed

Modified Paths:
--------------
    trunk/base/src/port/port.tcl

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-04-20 20:30:49 UTC (rev 66705)
+++ trunk/base/src/port/port.tcl	2010-04-20 22:51:06 UTC (rev 66706)
@@ -2859,10 +2859,27 @@
             set irevision [lindex $i 2]
             set ivariants [lindex $i 3]
             set iactive [lindex $i 4]
+            set extra ""
+            if {[macports::ui_isset ports_verbose]} {
+                set regref [registry::open_entry $iname $iversion $irevision $ivariants [lindex $i 5]]
+                set nvariants [registry::property_retrieve $regref negated_variants]
+                if {$nvariants == 0} {
+                    set nvariants ""
+                }
+                set os_platform [registry::property_retrieve $regref os_platform]
+                set os_major [registry::property_retrieve $regref os_major]
+                set archs [registry::property_retrieve $regref archs]
+                if {$os_platform != 0 && $os_platform != "" && $os_major != 0 && $os_major != ""} {
+                    append extra " platform='$os_platform $os_major'"
+                }
+                if {$archs != 0 && $archs != ""} {
+                    append extra " archs='$archs'"
+                }
+            }
             if { $iactive == 0 } {
-                puts "  $iname @${iversion}_${irevision}${ivariants}"
+                puts "  $iname @${iversion}_${irevision}${ivariants}${nvariants}${extra}"
             } elseif { $iactive == 1 } {
-                puts "  $iname @${iversion}_${irevision}${ivariants} (active)"
+                puts "  $iname @${iversion}_${irevision}${ivariants}${nvariants} (active)${extra}"
             }
         }
     } elseif { $restrictedList } {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100420/5526fc2d/attachment.html>