[45079] users/perry/port_cutleaves

[perry at macports.org]

Revision: 45079
          http://trac.macports.org/changeset/45079
Author:   perry at macports.org
Date:     2009-01-08 00:57:57 -0800 (Thu, 08 Jan 2009)
Log Message:
-----------
perry/port_cutleaves - Added a README and made minor changes to the script.

Modified Paths:
--------------
    users/perry/port_cutleaves/port_cutleaves

Added Paths:
-----------
    users/perry/port_cutleaves/README

Added: users/perry/port_cutleaves/README
===================================================================
--- users/perry/port_cutleaves/README	                        (rev 0)
+++ users/perry/port_cutleaves/README	2009-01-08 08:57:57 UTC (rev 45079)
@@ -0,0 +1,14 @@
+$Id$
+
+Inspired by FreeBSD's pkg_cutleaves, port_cutleaves is an interactive script
+that eases the uninstallation of "leaf" ports - ports that have no dependents.
+
+port_cutleaves iterates through the list of leaf ports, prompting the user to:
+    * keep the specified port.
+    * uninstall the specified port.
+    * flush any uninstallation operations.
+    * abort the procedure.
+
+Upon flush or reaching the end of the list, (1) any ports marked for
+uninstallation are uninstalled and (2) a summary of operations is displayed
+(e.g., which ports were installed).


Property changes on: users/perry/port_cutleaves/README
___________________________________________________________________
Added: svn:keywords
   + Id
Added: svn:eol-style
   + native

Modified: users/perry/port_cutleaves/port_cutleaves
===================================================================
--- users/perry/port_cutleaves/port_cutleaves	2009-01-08 08:01:23 UTC (rev 45078)
+++ users/perry/port_cutleaves/port_cutleaves	2009-01-08 08:57:57 UTC (rev 45079)
@@ -10,7 +10,8 @@
 #   * flush any uninstallation operations.
 #   * abort the procedure.
 # Upon flush or reaching the end of the list, (1) any ports marked for
-# uninstallation are uninstalled and (2) a summary is displayed.
+# uninstallation are uninstalled and (2) a summary of operations is displayed
+# (e.g., which ports were installed).
 proc cut_leaves {ports} {
     set current_port        1
     set total_ports         [llength $ports]
@@ -40,15 +41,15 @@
 
         gets stdin action
         switch -glob $action {
-            a*      {
+            a* {
                 puts "** Aborting..."
                 exit 0
             }
-            f*      {
+            f* {
                 puts "** Flushing...\n"
                 break
             }
-            u*      {
+            u* {
                 puts "** Marked $port for uninstallation.\n"
                 lappend ports_to_uninstall [list $name $composite_version]
             }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090108/49c7637d/attachment.html>