Changeset 232 for trunk/base

Timestamp:

Aug 21, 2002, 11:09:12 AM (22 years ago)

Author:

landonf (Landon Fuller)

Message:

Support lists of swdeps

File:

• trunk/base/src/port1.0/portutil.tcl (modified) (2 diffs)

trunk/base/src/port1.0/portutil.tcl

@@ -126 +126 @@
 # 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>
@@ -150 +150 @@
     } 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
-        }
-        register $name requires $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
+        }
     } elseif {[string equal requires $mode] || [string equal uses $mode] || [string equal provides $mode]} {
         if {[dlist_has_item targets $name]} {