[138172] branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv. tcl

[ijackson at macports.org]

Revision: 138172
          https://trac.macports.org/changeset/138172
Author:   ijackson at macports.org
Date:     2015-07-01 00:50:33 -0700 (Wed, 01 Jul 2015)
Log Message:
-----------
WIP: Dependency Calculation using libsolv
Create a list 'jobs' which will return the list of
packages to be installed. Remove unwanted puts statements.

Modified Paths:
--------------
    branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv.tcl

Modified: branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv.tcl
===================================================================
--- branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv.tcl	2015-07-01 07:41:29 UTC (rev 138171)
+++ branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv.tcl	2015-07-01 07:50:33 UTC (rev 138172)
@@ -163,7 +163,6 @@
                             ## Add Conflicts to the solvables
                             if {[info exists portinfo(conflicts)]} {
                                 foreach conf $portinfo(conflicts) {
-                                    puts "Conflicts: $conf"
                                     $solvable add_deparray $solv::SOLVABLE_CONFLICTS \
                                     [$pool str2id $conf 1]
                                 }
@@ -171,7 +170,6 @@
                             ## Add Obsoletes(replaced_by) to the solvables
                             if {[info exists portinfo(replaced_by)]} {
                                 foreach conf $portinfo(replaced_by) {
-                                    puts "Conflicts: $conf"
                                     $solvable add_deparray $solv::SOLVABLE_OBSOLETES \
                                     [$pool str2id $conf 1]
                                 }
@@ -287,6 +285,10 @@
     ## Dependency calculation using libsolv
     proc dep_calc {portname} {
         ui_msg -nonewline "$macports::ui_prefix Computing dependencies for $portname using libsolv"
-
+        set jobs [list]
+        foreach arg $portname {
+            lappend jobs [$solv::pool_Job $solv::Job_SOLVER_SOLVABLE [$arg cget -id]]
+            puts "Jobs = $jobs"
+        }
     }
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150701/2257dc5e/attachment.html>