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

[jmr at macports.org]

Revision: 66199
          http://trac.macports.org/changeset/66199
Author:   jmr at macports.org
Date:     2010-04-06 21:33:18 -0700 (Tue, 06 Apr 2010)
Log Message:
-----------
add --full option for rdeps and rdependents actions

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

Modified: trunk/base/src/port/port.tcl
===================================================================
--- trunk/base/src/port/port.tcl	2010-04-07 03:50:25 UTC (rev 66198)
+++ trunk/base/src/port/port.tcl	2010-04-07 04:33:18 UTC (rev 66199)
@@ -2552,7 +2552,7 @@
                     set cur_port [lindex $cur_portlist $cur_pos]
                     set cur_portname [lindex $cur_port 2]
                     set spaces [string repeat " " [expr {[llength $pos_stack] * 2}]]
-                    if {![info exists seen($cur_portname)]} {
+                    if {![info exists seen($cur_portname)] || ([info exists options(ports_rdependents_full)] && [string is true -strict $options(ports_rdependents_full)])} {
                         puts "${spaces}${cur_portname}"
                         set seen($cur_portname) 1
                         incr cur_pos
@@ -2740,7 +2740,7 @@
             set cur_port [lindex $cur_portlist $cur_pos]
             set cur_portname [lindex [split $cur_port :] end]
             set spaces [string repeat " " [expr {[llength $pos_stack] * 2}]]
-            if {![info exists seen($cur_portname)]} {
+            if {![info exists seen($cur_portname)] || ([info exists options(ports_rdeps_full)] && [string is true -strict $options(ports_rdeps_full)])} {
                 if {[macports::ui_isset ports_verbose]} {
                     puts "${spaces}${cur_port}"
                 } else {
@@ -3822,7 +3822,8 @@
                  line long_description
                  maintainer maintainers name platform platforms portdir pretty
                  replaced_by revision variant variants version}
-    rdeps       {index no-build}
+    rdeps       {index no-build full}
+    rdependents {full}
     search      {case-sensitive category categories depends_fetch
                  depends_extract depends_build depends_lib depends_run
                  depends description epoch exact glob homepage line
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100406/2fe9d91a/attachment-0001.html>