Changeset 232


Ignore:
Timestamp:
Aug 21, 2002, 11:09:12 AM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

Support lists of swdeps

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r229 r232  
    126126# The following modes are supported:
    127127#       <identifier> target <chain> <procedure to execute> [run type]
    128 #       <identifier> swdep <chain> <dependency option name>
     128#       <identifier> swdep <chain> <list of dependency option names>
    129129#       <identifier> provides <list of target names>
    130130#       <identifier> requires <list of target names>
     
    150150    } elseif {[string equal swdep $mode]} {
    151151        set chain [lindex $args 0]
    152         set depname [lindex $args 1]
    153         if {![dlist_has_key targets $depname procedure,$chain]} {
    154             register $depname target $chain swdep_resolve
    155             register $depname provides $depname
    156             options $depname
    157         }
    158         register $name requires $depname
     152        foreach depname [lrange $args 1 end] {
     153            if {![dlist_has_key targets $depname procedure,$chain]} {
     154                register $depname target $chain swdep_resolve
     155                register $depname provides $depname
     156                options $depname
     157            }
     158            register $name requires $depname
     159        }
    159160    } elseif {[string equal requires $mode] || [string equal uses $mode] || [string equal provides $mode]} {
    160161        if {[dlist_has_item targets $name]} {
Note: See TracChangeset for help on using the changeset viewer.