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

[jmr at macports.org]

Revision: 67447
          http://trac.macports.org/changeset/67447
Author:   jmr at macports.org
Date:     2010-05-10 05:59:19 -0700 (Mon, 10 May 2010)
Log Message:
-----------
bring back notice when a port has no deps, show version/variant info in rdeps notices

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-05-10 10:48:01 UTC (rev 67446)
+++ trunk/base/src/port/port.tcl	2010-05-10 12:59:19 UTC (rev 67447)
@@ -2649,6 +2649,7 @@
         }
 
         set deplist {}
+        set ndeps 0
         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 {
@@ -2665,12 +2666,20 @@
                 if {$action == "deps"} {
                     set label "$labeldict($type) Dependencies"
                     puts [wraplabel $label [join $deplist ", "] 0 [string repeat " " 22]]
+                    incr ndeps [llength $deplist]
                     set deplist {}
                 }
             }
         }
 
+        set version $portinfo(version)
+        set revision $portinfo(revision)
+        set variants $portinfo(canonical_active_variants)
+
         if {$action == "deps"} {
+            if {$ndeps == 0} {
+                ui_notice "$portname @${version}_${revision}${variants} has no dependencies."
+            }
             return $status
         }
 
@@ -2729,9 +2738,9 @@
         set pos_stack [list 0]
         array unset seen
         if {[llength $toplist] > 0} {
-            ui_notice "The following ports are dependencies of ${portname}:"
+            ui_notice "The following ports are dependencies of $portname @${version}_${revision}${variants}:"
         } else {
-            ui_notice "No ports are dependencies of ${portname}."
+            ui_notice "$portname @${version}_${revision}${variants} has no dependencies."
         }
         while 1 {
             set cur_portlist [lindex $portstack end]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100510/f3c26016/attachment.html>