Skip to content
Permalink
Browse files

Support lists of swdeps

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@232 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
landonf committed Aug 21, 2002
1 parent 4a9aa09 commit 7906783e1638ce7f6115d6cce3d13805e3ec7244
Showing with 8 additions and 7 deletions.
  1. +8 −7 src/port1.0/portutil.tcl
@@ -125,7 +125,7 @@ proc swdep_resolve {name chain} {
# Arguments: <identifier> <mode> <args ...>
# The following modes are supported:
# <identifier> target <chain> <procedure to execute> [run type]
# <identifier> swdep <chain> <dependency option name>
# <identifier> swdep <chain> <list of dependency option names>
# <identifier> provides <list of target names>
# <identifier> requires <list of target names>
# <identifier> uses <list of target names>
@@ -149,13 +149,14 @@ proc register {name mode args} {
}
} elseif {[string equal swdep $mode]} {
set chain [lindex $args 0]
set depname [lindex $args 1]
if {![dlist_has_key targets $depname procedure,$chain]} {
register $depname target $chain swdep_resolve
register $depname provides $depname
options $depname
foreach depname [lrange $args 1 end] {
if {![dlist_has_key targets $depname procedure,$chain]} {
register $depname target $chain swdep_resolve
register $depname provides $depname
options $depname
}
register $name requires $depname
}
register $name requires $depname
} elseif {[string equal requires $mode] || [string equal uses $mode] || [string equal provides $mode]} {
if {[dlist_has_item targets $name]} {
dlist_append_key targets $name $mode $args

0 comments on commit 7906783

Please sign in to comment.
You can’t perform that action at this time.