<pre style='margin:0'>
Dan Villiom Podlaski Christiansen (danchr) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/b042c0e754098d7e7d6630e37f9db7ef9657a379">https://github.com/macports/macports-base/commit/b042c0e754098d7e7d6630e37f9db7ef9657a379</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit b042c0e754098d7e7d6630e37f9db7ef9657a379
</span>Author: Dan Villiom Podlaski Christiansen <danchr@gmail.com>
AuthorDate: Fri Feb 17 22:26:48 2017 +0100

<span style='display:block; white-space:pre;color:#404040;'>    Add 'rleaves' alias
</span>---
 doc/port.1        | 11 +++++++++++
 doc/port.1.txt    |  2 ++
 src/port/port.tcl | 21 +++++++++++++++++++++
 3 files changed, 34 insertions(+)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/doc/port.1 b/doc/port.1
</span><span style='display:block; white-space:pre;color:#808080;'>index 811e24c..74dc2fe 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/doc/port.1
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/doc/port.1
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -162,6 +162,17 @@ When passing \fIportnames\fR to an \fIaction\fR, \fBport\fR recognizes various \
</span> \fIleaves\fR: installed ports that are unrequested and have no dependents
 .RE
 .sp
<span style='display:block; white-space:pre;background:#e0ffe0;'>+.RS 4
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+.ie n \{\
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+\h'-04'\(bu\h'+03'\c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+.\}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+.el \{\
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+.sp -1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+.IP \(bu 2.3
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+.\}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+\fIrleaves\fR: installed ports that are unrequested and that no requested ports depend on
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+.RE
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+.sp
</span> Sets of ports can also be specified with \fIpseudo\-portname selectors\fR, which expand to the ports in which the value of the \fIPortfile\fR option corresponding to the selector\(cqs name (in either singular or plural form where applicable) matches the given regular expression\&. Usage is: selector:regex
 .PP
 \fBThe \fR\fB\fIpseudo\-portname selectors\fR\fR\fB are:\fR
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/doc/port.1.txt b/doc/port.1.txt
</span><span style='display:block; white-space:pre;color:#808080;'>index 5d2be2a..db56670 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/doc/port.1.txt
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/doc/port.1.txt
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -52,6 +52,8 @@ available port tree(s). These may be used in the same way as a 'portname'.
</span>     - 'unrequested': installed ports that were installed only to satisfy
       dependencies
     - 'leaves': installed ports that are unrequested and have no dependents
<span style='display:block; white-space:pre;background:#e0ffe0;'>+    - 'rleaves': installed ports that are unrequested and that no
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+      requested ports depend on
</span> 
 Sets of ports can also be specified with 'pseudo-portname selectors', which
 expand to the ports in which the value of the 'Portfile' option corresponding
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span>old mode 100644
new mode 100755
<span style='display:block; white-space:pre;color:#808080;'>index ad1e407..d99fd69
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -934,6 +934,26 @@ proc get_leaves_ports {} {
</span>     return [portlist_sort [opIntersection $results [get_unrequested_ports]]]
 }
 
<span style='display:block; white-space:pre;background:#e0ffe0;'>+proc get_rleaves_ports {} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if { [catch {set ilist [get_unrequested_ports]} result] } {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {$result ne "Registry error: No ports registered as installed."} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_debug $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            fatal "port installed failed: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    registry::open_dep_map
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set requested [get_requested_ports]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set results {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    foreach i $ilist {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set iname [lindex $i 9]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set deplist [get_dependent_ports $iname 1]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {$deplist eq "" || [opIntersection $deplist $requested] eq ""} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            add_to_portlist results $i
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    return [portlist_sort $results]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> proc get_dependent_ports {portname recursive} {
     registry::open_dep_map
     set deplist [registry::list_dependents $portname]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1295,6 +1315,7 @@ proc element { resname } {
</span>         ^(inactive)(@.*)?$    -
         ^(actinact)(@.*)?$    -
         ^(leaves)(@.*)?$      -
<span style='display:block; white-space:pre;background:#e0ffe0;'>+        ^(rleaves)(@.*)?$      -
</span>         ^(outdated)(@.*)?$    -
         ^(obsolete)(@.*)?$    -
         ^(requested)(@.*)?$   -
</pre><pre style='margin:0'>

</pre>