[67448] branches/release_1_9

[jmr at macports.org]

Revision: 67448
          http://trac.macports.org/changeset/67448
Author:   jmr at macports.org
Date:     2010-05-10 06:02:25 -0700 (Mon, 10 May 2010)
Log Message:
-----------
merge r67447 from trunk:
 bring back notice when a port has no deps, show version/variant info in rdeps notices

Revision Links:
--------------
    http://trac.macports.org/changeset/67447

Modified Paths:
--------------
    branches/release_1_9/base/src/port/port.tcl

Property Changed:
----------------
    branches/release_1_9/
    branches/release_1_9/base/


Property changes on: branches/release_1_9
___________________________________________________________________
Modified: svn:mergeinfo
   - /trunk:67304-67305,67307,67384
   + /trunk:67304-67305,67307,67384,67447


Property changes on: branches/release_1_9/base
___________________________________________________________________
Modified: svn:mergeinfo
   - /branches/gsoc08-privileges/base:37343-46937
/branches/gsoc09-logging/base:51231-60371
/branches/universal-sanity/base:51872-52323
/branches/variant-descs-14482/base:34469-34855,34900-37508,37511-37512,41040-41463,42575-42626,42640-42659
/trunk/base:67304-67305,67307,67384
/users/perry/base-bugs_and_notes:45682-46060
/users/perry/base-select:44044-44692
   + /branches/gsoc08-privileges/base:37343-46937
/branches/gsoc09-logging/base:51231-60371
/branches/universal-sanity/base:51872-52323
/branches/variant-descs-14482/base:34469-34855,34900-37508,37511-37512,41040-41463,42575-42626,42640-42659
/trunk/base:67304-67305,67307,67384,67447
/users/perry/base-bugs_and_notes:45682-46060
/users/perry/base-select:44044-44692

Modified: branches/release_1_9/base/src/port/port.tcl
===================================================================
--- branches/release_1_9/base/src/port/port.tcl	2010-05-10 12:59:19 UTC (rev 67447)
+++ branches/release_1_9/base/src/port/port.tcl	2010-05-10 13:02:25 UTC (rev 67448)
@@ -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/17dc5dc0/attachment.html>