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

jmr at macports.org jmr at macports.org
Fri Apr 23 18:16:49 PDT 2010


Revision: 66860
          http://trac.macports.org/changeset/66860
Author:   jmr at macports.org
Date:     2010-04-23 18:16:48 -0700 (Fri, 23 Apr 2010)
Log Message:
-----------
bring back old formatting for port deps

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-04-24 00:47:50 UTC (rev 66859)
+++ trunk/base/src/port/port.tcl	2010-04-24 01:16:48 UTC (rev 66860)
@@ -2659,18 +2659,34 @@
         }
 
         set deplist {}
+        array set labeldict {depends_fetch Fetch depends_extract Extract depends_build Build depends_lib Library depends_run Runtime}
         # get list of direct deps
         foreach type $deptypes {
             if {[info exists portinfo($type)]} {
-                foreach dep $portinfo($type) {
-                    lappend deplist $dep
+                if {$action == "rdeps" || [macports::ui_isset ports_verbose]} {
+                    foreach dep $portinfo($type) {
+                        lappend deplist $dep
+                    }
+                } else {
+                    foreach dep $portinfo($type) {
+                        lappend deplist [lindex [split $dep :] end]
+                    }
                 }
+                if {$action == "deps"} {
+                    set label "$labeldict($type) Dependencies"
+                    puts [wraplabel $label [join $deplist ", "] 0 [string repeat " " 22]]
+                    set deplist {}
+                }
             }
         }
 
+        if {$action == "deps"} {
+            return $status
+        }
+
         set toplist $deplist
         # gather all the deps
-        while {${action} == "rdeps"} {
+        while 1 {
             set newlist {}
             foreach dep $deplist {
                 set depname [lindex [split $dep :] end]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100423/35c1695f/attachment-0001.html>


More information about the macports-changes mailing list