Changeset 76919


Ignore:
Timestamp:
Mar 13, 2011, 9:45:55 AM (9 years ago)
Author:
afb@…
Message:

try to record @pkgdep in +CONTENTS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/package1.0/portarchive.tcl

    r73332 r76919  
    355355        }
    356356    }
     357    set res [mport_lookup $name]
     358    if {[llength $res] < 2} {
     359        ui_error "Port $name not found"
     360    } else {
     361        array set portinfo [lindex $res 1]
     362        foreach key "depends_lib depends_run" {
     363             if {[info exists portinfo($key)]} {
     364                 foreach depspec $portinfo($key) {
     365                     set depname [lindex [split $depspec :] end]
     366                     set dep [mport_lookup $depname]
     367                     if {[llength $dep] < 2} {
     368                         ui_error "Dependency $dep not found"
     369                     } else {
     370                         array set portinfo [lindex $dep 1]
     371                         set depver $portinfo(version)
     372                         set deprev $portinfo(revision)
     373                         puts $fd "@pkgdep ${depname}-${depver}_${deprev}"
     374                     }
     375                 }
     376             }
     377        }
     378    }
    357379    fs-traverse -depth fullpath $destpath {
    358380        if {[file isdirectory $fullpath]} {
Note: See TracChangeset for help on using the changeset viewer.