Ticket #5063: dependents.diff

darwinports1.0/darwinports.tcl

@@ -1418 +1418 @@
         return 0
 }
 
+# Return a list of dependents of a port
+proc darwinports::dependents {portname} {
+        registry::open_dep_map
+    set deplist [registry::list_dependents $portname]
+    if { [llength $deplist] > 0 } {
+        set dl [list]
+        # Check the deps first
+        foreach dep $deplist {
+                set depport [lindex $dep 2]
+                ui_msg "$depport depends on this port"
+                # xxx: Should look at making registry::installed return 0 or 
+                # something instead  of erroring.
+                if { ![catch {set installed [registry::installed $depport]} res] } {
+                        if { [llength [registry::installed $depport]] > 0 } {
+                        lappend dl $depport
+                        }
+                }
+        }
+        } else {
+                ui_msg "No dependents"
+        }
+}
+
 proc darwinports::version {} {
         global darwinports::prefix darwinports::rsync_server darwinports::rsync_dir
         

port/port.tcl

@@ -1347 +1347 @@
                         fatal "selfupdate failed: $result"
                 }
         }
+
+        dependents {
+                require_portlist
+
+                foreachport $portlist {
+                        darwinports::dependents $portname
+                }
+        }
         
         upgrade {
         # Otherwise if the user has supplied no ports we'll use the current port