Changeset 2081 for trunk/base

Timestamp:

Feb 26, 2003, 8:36:25 AM (21 years ago)

Author:

kevin

Message:

Added darwinports_dlist package for dependency list evaluation in both the
DarwinPorts API and Port API.

Location:

trunk/base/src/darwinports1.0

Files:

• Makefile (modified) (1 diff)
• darwinports.tcl (modified) (2 diffs)
• darwinports_dlist.tcl (added)
• test_dlist.tcl (added)

trunk/base/src/darwinports1.0/Makefile

@@ -1 @@
-SRCS=           darwinports.tcl
+SRCS=           darwinports.tcl darwinports_dlist.tcl
 
 all:

trunk/base/src/darwinports1.0/darwinports.tcl

@@ -253 +253 @@
                 return 1
         }
+
+        set name [$workername eval return \$portname]
+        puts "xxx: $name depends: [dportdepends $name 1 1]"
+        
+        
         
         return [$workername eval eval_targets $target]
@@ -332 +337 @@
     interp delete $workername
 }
+
+##### Private Depspec API #####
+# This API should be considered work in progress and subject to change without notice.
+##### "
+
+# dportdepends returns a list of port names which the given port depends on.
+# xxx: should return the depspec itself once we have better depspec processing.
+# - optionally includes the build dependencies in the list.
+# - optionally recurses through the dependencies, looking for dependencies
+#       of dependencies.
+
+proc dportdepends {portname includeBuildDeps recurseDeps} {
+        set result {}
+
+        if {[catch {set res [dportsearch "^$portname\$"]} error]} {
+                ui_puts err "Internal error: port search failed: $error"
+                return
+        }
+
+        foreach {name array} $res {
+                array set portinfo $array
+                set depends {}
+                if {[info exists portinfo(depends_run)]} { eval "lappend depends $portinfo(depends_run)" }
+                if {[info exists portinfo(depends_lib)]} { eval "lappend depends $portinfo(depends_lib)" }
+                if {$includeBuildDeps != "" && [info exists portinfo(depends_build)]} {
+                        eval "lappend depends $portinfo(depends_build)"
+                }
+                foreach depspec $depends {
+                        # grab the portname portion of the depspec
+                        set dep [lindex [split $depspec :] 2]
+                        
+                        lappend result $dep
+                        
+                        if {$recurseDeps != ""} {
+                                set rdeps [dportdepends $dep $includeBuildDeps $recurseDeps]
+                                if {$rdeps == -1} {
+                                        return -1
+                                } else {
+                                        eval "lappend result $rdeps"
+                                }
+                        }
+                }
+        }
+        
+        return $result
+}