Ticket #5063: dependents.2.diff

port/port.tcl

@@ -1347 +1347 @@
                         fatal "selfupdate failed: $result"
                 }
         }
-        
+
+        dependents {
+                require_portlist
+
+                foreachport $portlist {
+                        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 $portname"
+                                # 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 "$portname has no dependents!"
+                        }
+                }
+        }
+
         upgrade {
         # Otherwise if the user has supplied no ports we'll use the current port
                 require_portlist