[138172] branches/gsoc15-dependency/base/src/macports1.0/macports_libsolv. tcl
Revision: 138172 https://trac.macports.org/changeset/138172 Author: ijackson@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" + } } }
participants (1)
-
ijackson@macports.org