[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