Changeset 34977

Timestamp:

03/13/2008 07:13:51 (4 years ago)

Author:

eridius@…

Message:

Add new --recursive option to port uninstall to uninstall dependents (#14637)

Location:

trunk/base

Files:

• ChangeLog (modified) (1 diff)
• doc/port.1 (modified) (1 diff)
• src/registry1.0/portuninstall.tcl (modified) (1 diff)

trunk/base/ChangeLog

@@ -6 +6 @@
 
 Unreleased:
+    - port uninstall now takes --recursive to uninstall all dependents (#14637, eridius in r34977)
+
     - New fetch.type git (#14232, eridius in r34875)
 

trunk/base/doc/port.1

@@ -290 +290 @@
 To uninstall all installed but inactive ports, use
 .Fl u .
+To recursively uninstall all dependents of this port, use
+.Fl -recursive .
+.Pp
 For example:
 .Pp
 .Dl "port uninstall vim"
 .Dl "port -u uninstall"
+.Dl "port uninstall --recursive python24"
 .Ss activate
 Activate the installed

trunk/base/src/registry1.0/portuninstall.tcl

@@ -99 +99 @@
                 # Now see if we need to error
                 if { [llength $dl] > 0 } {
-                        ui_msg "$UI_PREFIX [format [msgcat::mc "Unable to uninstall %s %s_%s%s, the following ports depend on it:"] $portname $version $revision $variants]"
-                        foreach depport $dl {
-                                ui_msg "$UI_PREFIX [format [msgcat::mc "        %s"] $depport]"
-                        }
-                        if { [info exists uninstall.force] && [string equal ${uninstall.force} "yes"] } {
-                                ui_warn "Uninstall forced.  Proceeding despite dependencies."
+                        if {[info exists options(ports_uninstall_recursive)] && $options(ports_uninstall_recursive) eq "yes"} {
+                                foreach depport $dl {
+                                        portuninstall::uninstall $depport "" [array get options]
+                                }
                         } else {
-                                return -code error "Please uninstall the ports that depend on $portname first."
+                                ui_msg "$UI_PREFIX [format [msgcat::mc "Unable to uninstall %s %s_%s%s, the following ports depend on it:"] $portname $version $revision $variants]"
+                                foreach depport $dl {
+                                        ui_msg "$UI_PREFIX [format [msgcat::mc "        %s"] $depport]"
+                                }
+                                if { [info exists uninstall.force] && [string equal ${uninstall.force} "yes"] } {
+                                        ui_warn "Uninstall forced.  Proceeding despite dependencies."
+                                } else {
+                                        return -code error "Please uninstall the ports that depend on $portname first."
+                                }
                         }
                 }