Ticket #5063: dependents.2.diff

File dependents.2.diff, 1.6 KB (added by olegb@…, 19 years ago)

dependents target

  • port/port.tcl

    ? Makefile
    ? config.h
    ? darwinports1.0/.darwinports.tcl.swp
    ? darwinports1.0/Darwinports.dylib
    ? darwinports1.0/darwinports_autoconf.tcl
    ? darwinports1.0/darwinports_fastload.tcl
    ? darwintracelib1.0/darwintrace.dylib
    ? pextlib1.0/Pextlib.dylib
    ? port/.port.tcl.swp
    ? port/port
    ? port/portindex
    ? port1.0/port_autoconf.tcl
    ? programs/Makefile
    ? programs/daemondo/Makefile
    ? programs/daemondo/build
    RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/port.tcl,v
    retrieving revision 1.145
    diff -u -r1.145 port.tcl
     
    13471347                        fatal "selfupdate failed: $result"
    13481348                }
    13491349        }
    1350        
     1350
     1351        dependents {
     1352                require_portlist
     1353
     1354                foreachport $portlist {
     1355                        registry::open_dep_map
     1356                set deplist [registry::list_dependents $portname]
     1357
     1358                if { [llength $deplist] > 0 } {
     1359                        set dl [list]
     1360                        # Check the deps first
     1361                        foreach dep $deplist {
     1362                                set depport [lindex $dep 2]
     1363                                ui_msg "$depport depends on $portname"
     1364                                # xxx: Should look at making registry::installed return 0 or
     1365                                # something instead  of erroring.
     1366                                if { ![catch {set installed [registry::installed $depport]} res] } {
     1367                                        if { [llength [registry::installed $depport]] > 0 } {
     1368                                                lappend dl $depport
     1369                                        }
     1370                                        }
     1371                                }
     1372                } else {
     1373                                ui_msg "$portname has no dependents!"
     1374                        }
     1375                }
     1376        }
     1377
    13511378        upgrade {
    13521379        # Otherwise if the user has supplied no ports we'll use the current port
    13531380                require_portlist