2 * Copyright (c) 2008, Novell Inc.
4 * This program is licensed under the BSD license, read LICENSE.BSD
5 * for further information
11 * debug functions for the SAT solver
21 #include "solver_private.h"
22 #include "solverdebug.h"
32 * create obsoletesmap from solver decisions
34 * for solvables in installed repo:
36 * p - one of the packages that obsolete us
38 * n - number of packages this package obsoletes
42 /* OBSOLETE: use transaction code instead! */
45 solver_create_decisions_obsoletesmap(Solver *solv)
47 Pool *pool = solv->pool;
48 Repo *installed = solv->installed;
49 Id p, *obsoletesmap = NULL;
53 obsoletesmap = (Id *)solv_calloc(pool->nsolvables, sizeof(Id));
56 for (i = 0; i < solv->decisionq.count; i++)
61 n = solv->decisionq.elements[i];
64 if (n == SYSTEMSOLVABLE)
66 s = pool->solvables + n;
67 if (s->repo == installed) /* obsoletes don't count for already installed packages */
69 multi = solv->multiversion.size && MAPTST(&solv->multiversion, n);
70 FOR_PROVIDES(p, pp, s->name)
72 Solvable *ps = pool->solvables + p;
73 if (multi && (s->name != ps->name || s->evr != ps->evr || s->arch != ps->arch))
75 if (!pool->implicitobsoleteusesprovides && s->name != ps->name)
77 if (pool->obsoleteusescolors && !pool_colormatch(pool, s, ps))
79 if (ps->repo == installed && !obsoletesmap[p])
86 for (i = 0; i < solv->decisionq.count; i++)
91 n = solv->decisionq.elements[i];
94 if (n == SYSTEMSOLVABLE)
96 s = pool->solvables + n;
97 if (s->repo == installed) /* obsoletes don't count for already installed packages */
101 if (solv->multiversion.size && MAPTST(&solv->multiversion, n))
103 obsp = s->repo->idarraydata + s->obsoletes;
104 while ((obs = *obsp++) != 0)
106 FOR_PROVIDES(p, pp, obs)
108 Solvable *ps = pool->solvables + p;
109 if (!pool->obsoleteusesprovides && !pool_match_nevr(pool, ps, obs))
111 if (pool->obsoleteusescolors && !pool_colormatch(pool, s, ps))
113 if (pool->solvables[p].repo == installed && !obsoletesmap[p])
126 solver_printruleelement(Solver *solv, int type, Rule *r, Id v)
128 Pool *pool = solv->pool;
132 s = pool->solvables + -v;
133 POOL_DEBUG(type, " !%s [%d]", pool_solvable2str(pool, s), -v);
137 s = pool->solvables + v;
138 POOL_DEBUG(type, " %s [%d]", pool_solvable2str(pool, s), v);
140 if (pool->installed && s->repo == pool->installed)
141 POOL_DEBUG(type, "I");
145 POOL_DEBUG(type, " (w1)");
147 POOL_DEBUG(type, " (w2)");
149 if (solv->decisionmap[s - pool->solvables] > 0)
150 POOL_DEBUG(type, " Install.level%d", solv->decisionmap[s - pool->solvables]);
151 if (solv->decisionmap[s - pool->solvables] < 0)
152 POOL_DEBUG(type, " Conflict.level%d", -solv->decisionmap[s - pool->solvables]);
153 POOL_DEBUG(type, "\n");
162 solver_printrule(Solver *solv, int type, Rule *r)
164 Pool *pool = solv->pool;
168 if (r >= solv->rules && r < solv->rules + solv->nrules) /* r is a solver rule */
169 POOL_DEBUG(type, "Rule #%d:", (int)(r - solv->rules));
171 POOL_DEBUG(type, "Rule:"); /* r is any rule */
173 POOL_DEBUG(type, " (disabled)");
174 POOL_DEBUG(type, "\n");
175 d = r->d < 0 ? -r->d - 1 : r->d;
179 /* print direct literal */
185 /* binary rule --> print w2 as second literal */
189 /* every other which is in d */
190 v = solv->pool->whatprovidesdata[d + i - 1];
193 solver_printruleelement(solv, type, r, v);
195 POOL_DEBUG(type, " next rules: %d %d\n", r->n1, r->n2);
199 solver_printruleclass(Solver *solv, int type, Rule *r)
201 Pool *pool = solv->pool;
202 Id p = r - solv->rules;
204 if (p < solv->learntrules)
205 if (MAPTST(&solv->weakrulemap, p))
206 POOL_DEBUG(type, "WEAK ");
207 if (solv->learntrules && p >= solv->learntrules)
208 POOL_DEBUG(type, "LEARNT ");
209 else if (p >= solv->bestrules && p < solv->bestrules_end)
210 POOL_DEBUG(type, "BEST ");
211 else if (p >= solv->choicerules && p < solv->choicerules_end)
212 POOL_DEBUG(type, "CHOICE ");
213 else if (p >= solv->infarchrules && p < solv->infarchrules_end)
214 POOL_DEBUG(type, "INFARCH ");
215 else if (p >= solv->duprules && p < solv->duprules_end)
216 POOL_DEBUG(type, "DUP ");
217 else if (p >= solv->jobrules && p < solv->jobrules_end)
218 POOL_DEBUG(type, "JOB ");
219 else if (p >= solv->updaterules && p < solv->updaterules_end)
220 POOL_DEBUG(type, "UPDATE ");
221 else if (p >= solv->featurerules && p < solv->featurerules_end)
222 POOL_DEBUG(type, "FEATURE ");
223 solver_printrule(solv, type, r);
227 solver_printproblem(Solver *solv, Id v)
229 Pool *pool = solv->pool;
235 solver_printruleclass(solv, SOLV_DEBUG_SOLUTIONS, solv->rules + v);
239 POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "JOB %d\n", v);
240 jp = solv->ruletojob.elements;
241 for (i = solv->jobrules, r = solv->rules + i; i < solv->jobrules_end; i++, r++, jp++)
244 POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "- ");
245 solver_printrule(solv, SOLV_DEBUG_SOLUTIONS, r);
247 POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "ENDJOB\n");
252 solver_printwatches(Solver *solv, int type)
254 Pool *pool = solv->pool;
257 POOL_DEBUG(type, "Watches: \n");
258 for (counter = -(pool->nsolvables - 1); counter < pool->nsolvables; counter++)
259 POOL_DEBUG(type, " solvable [%d] -- rule [%d]\n", counter, solv->watches[counter + pool->nsolvables]);
263 solver_printdecisionq(Solver *solv, int type)
265 Pool *pool = solv->pool;
269 POOL_DEBUG(type, "Decisions:\n");
270 for (i = 0; i < solv->decisionq.count; i++)
272 p = solv->decisionq.elements[i];
274 POOL_DEBUG(type, "%d %d install %s, ", i, solv->decisionmap[p], pool_solvid2str(pool, p));
276 POOL_DEBUG(type, "%d %d conflict %s, ", i, -solv->decisionmap[-p], pool_solvid2str(pool, -p));
277 why = solv->decisionq_why.elements[i];
280 POOL_DEBUG(type, "forced by ");
281 solver_printruleclass(solv, type, solv->rules + why);
285 POOL_DEBUG(type, "chosen from ");
286 solver_printruleclass(solv, type, solv->rules - why);
289 POOL_DEBUG(type, "picked for some unknown reason.\n");
298 solver_printdecisions(Solver *solv)
300 Pool *pool = solv->pool;
301 Repo *installed = solv->installed;
302 Transaction *trans = solver_create_transaction(solv);
307 Queue recommendations;
311 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
312 POOL_DEBUG(SOLV_DEBUG_RESULT, "transaction:\n");
315 for (i = 0; i < trans->steps.count; i++)
317 p = trans->steps.elements[i];
318 s = pool->solvables + p;
319 type = transaction_type(trans, p, SOLVER_TRANSACTION_SHOW_ACTIVE|SOLVER_TRANSACTION_SHOW_ALL|SOLVER_TRANSACTION_SHOW_OBSOLETES|SOLVER_TRANSACTION_SHOW_MULTIINSTALL);
322 case SOLVER_TRANSACTION_MULTIINSTALL:
323 POOL_DEBUG(SOLV_DEBUG_RESULT, " multi install %s", pool_solvable2str(pool, s));
325 case SOLVER_TRANSACTION_MULTIREINSTALL:
326 POOL_DEBUG(SOLV_DEBUG_RESULT, " multi reinstall %s", pool_solvable2str(pool, s));
328 case SOLVER_TRANSACTION_INSTALL:
329 POOL_DEBUG(SOLV_DEBUG_RESULT, " install %s", pool_solvable2str(pool, s));
331 case SOLVER_TRANSACTION_REINSTALL:
332 POOL_DEBUG(SOLV_DEBUG_RESULT, " reinstall %s", pool_solvable2str(pool, s));
334 case SOLVER_TRANSACTION_DOWNGRADE:
335 POOL_DEBUG(SOLV_DEBUG_RESULT, " downgrade %s", pool_solvable2str(pool, s));
337 case SOLVER_TRANSACTION_CHANGE:
338 POOL_DEBUG(SOLV_DEBUG_RESULT, " change %s", pool_solvable2str(pool, s));
340 case SOLVER_TRANSACTION_UPGRADE:
341 case SOLVER_TRANSACTION_OBSOLETES:
342 POOL_DEBUG(SOLV_DEBUG_RESULT, " upgrade %s", pool_solvable2str(pool, s));
344 case SOLVER_TRANSACTION_ERASE:
345 POOL_DEBUG(SOLV_DEBUG_RESULT, " erase %s", pool_solvable2str(pool, s));
352 case SOLVER_TRANSACTION_INSTALL:
353 case SOLVER_TRANSACTION_ERASE:
354 case SOLVER_TRANSACTION_MULTIINSTALL:
355 case SOLVER_TRANSACTION_MULTIREINSTALL:
356 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
358 case SOLVER_TRANSACTION_REINSTALL:
359 case SOLVER_TRANSACTION_DOWNGRADE:
360 case SOLVER_TRANSACTION_CHANGE:
361 case SOLVER_TRANSACTION_UPGRADE:
362 case SOLVER_TRANSACTION_OBSOLETES:
363 transaction_all_obs_pkgs(trans, p, &iq);
366 POOL_DEBUG(SOLV_DEBUG_RESULT, " (obsoletes");
367 for (j = 0; j < iq.count; j++)
368 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s", pool_solvid2str(pool, iq.elements[j]));
369 POOL_DEBUG(SOLV_DEBUG_RESULT, ")");
371 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
379 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
381 queue_init(&recommendations);
382 queue_init(&suggestions);
383 queue_init(&orphaned);
384 solver_get_recommendations(solv, &recommendations, &suggestions, 0);
385 if (recommendations.count)
387 POOL_DEBUG(SOLV_DEBUG_RESULT, "recommended packages:\n");
388 for (i = 0; i < recommendations.count; i++)
390 s = pool->solvables + recommendations.elements[i];
391 if (solv->decisionmap[recommendations.elements[i]] > 0)
393 if (installed && s->repo == installed)
394 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (installed)\n", pool_solvable2str(pool, s));
396 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (selected)\n", pool_solvable2str(pool, s));
399 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", pool_solvable2str(pool, s));
401 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
404 if (suggestions.count)
406 POOL_DEBUG(SOLV_DEBUG_RESULT, "suggested packages:\n");
407 for (i = 0; i < suggestions.count; i++)
409 s = pool->solvables + suggestions.elements[i];
410 if (solv->decisionmap[suggestions.elements[i]] > 0)
412 if (installed && s->repo == installed)
413 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (installed)\n", pool_solvable2str(pool, s));
415 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (selected)\n", pool_solvable2str(pool, s));
418 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", pool_solvable2str(pool, s));
420 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
424 POOL_DEBUG(SOLV_DEBUG_RESULT, "orphaned packages:\n");
425 for (i = 0; i < orphaned.count; i++)
427 s = pool->solvables + orphaned.elements[i];
428 if (solv->decisionmap[solv->orphaned.elements[i]] > 0)
429 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (kept)\n", pool_solvable2str(pool, s));
431 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (erased)\n", pool_solvable2str(pool, s));
433 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
435 queue_free(&recommendations);
436 queue_free(&suggestions);
437 queue_free(&orphaned);
438 transaction_free(trans);
442 const char *id2strnone(Pool *pool, Id id)
444 return !id || id == 1 ? "(none)" : pool_id2str(pool, id);
448 transaction_print(Transaction *trans)
450 Pool *pool = trans->pool;
452 int i, j, mode, l, linel;
456 queue_init(&classes);
458 mode = SOLVER_TRANSACTION_SHOW_OBSOLETES | SOLVER_TRANSACTION_OBSOLETE_IS_UPGRADE;
459 transaction_classify(trans, mode, &classes);
460 for (i = 0; i < classes.count; i += 4)
462 Id class = classes.elements[i];
463 Id cnt = classes.elements[i + 1];
466 case SOLVER_TRANSACTION_ERASE:
467 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d erased packages:\n", cnt);
469 case SOLVER_TRANSACTION_INSTALL:
470 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d installed packages:\n", cnt);
472 case SOLVER_TRANSACTION_REINSTALLED:
473 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d reinstalled packages:\n", cnt);
475 case SOLVER_TRANSACTION_DOWNGRADED:
476 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d downgraded packages:\n", cnt);
478 case SOLVER_TRANSACTION_CHANGED:
479 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d changed packages:\n", cnt);
481 case SOLVER_TRANSACTION_UPGRADED:
482 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d upgraded packages:\n", cnt);
484 case SOLVER_TRANSACTION_VENDORCHANGE:
485 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d vendor changes from '%s' to '%s':\n", cnt, id2strnone(pool, classes.elements[i + 2]), id2strnone(pool, classes.elements[i + 3]));
487 case SOLVER_TRANSACTION_ARCHCHANGE:
488 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d arch changes from %s to %s:\n", cnt, pool_id2str(pool, classes.elements[i + 2]), pool_id2str(pool, classes.elements[i + 3]));
491 class = SOLVER_TRANSACTION_IGNORE;
494 if (class == SOLVER_TRANSACTION_IGNORE)
496 transaction_classify_pkgs(trans, mode, class, classes.elements[i + 2], classes.elements[i + 3], &pkgs);
499 for (j = 0; j < pkgs.count; j++)
501 Id p = pkgs.elements[j];
502 Solvable *s = pool->solvables + p;
507 case SOLVER_TRANSACTION_DOWNGRADED:
508 case SOLVER_TRANSACTION_UPGRADED:
509 s2 = pool->solvables + transaction_obs_pkg(trans, p);
510 POOL_DEBUG(SOLV_DEBUG_RESULT, " - %s -> %s\n", pool_solvable2str(pool, s), pool_solvable2str(pool, s2));
512 case SOLVER_TRANSACTION_VENDORCHANGE:
513 case SOLVER_TRANSACTION_ARCHCHANGE:
514 n = pool_id2str(pool, s->name);
516 if (l + linel > sizeof(line) - 3)
519 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", line);
523 if (l + linel > sizeof(line) - 3)
524 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", n);
529 strcpy(line + linel, ", ");
532 strcpy(line + linel, n);
537 POOL_DEBUG(SOLV_DEBUG_RESULT, " - %s\n", pool_solvable2str(pool, s));
542 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", line);
543 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
545 queue_free(&classes);
550 solver_printproblemruleinfo(Solver *solv, Id probr)
552 Pool *pool = solv->pool;
553 Id dep, source, target;
554 SolverRuleinfo type = solver_ruleinfo(solv, probr, &source, &target, &dep);
556 POOL_DEBUG(SOLV_DEBUG_RESULT, "%s\n", solver_problemruleinfo2str(solv, type, source, target, dep));
560 solver_printprobleminfo(Solver *solv, Id problem)
562 solver_printproblemruleinfo(solv, solver_findproblemrule(solv, problem));
566 solver_printcompleteprobleminfo(Solver *solv, Id problem)
573 solver_findallproblemrules(solv, problem, &q);
574 for (i = 0; i < q.count; i++)
576 probr = q.elements[i];
577 if (!(probr >= solv->updaterules && probr < solv->updaterules_end) && !(probr >= solv->jobrules && probr < solv->jobrules_end))
583 for (i = 0; i < q.count; i++)
585 probr = q.elements[i];
586 if (nobad && ((probr >= solv->updaterules && probr < solv->updaterules_end) || (probr >= solv->jobrules && probr < solv->jobrules_end)))
588 solver_printproblemruleinfo(solv, probr);
593 static int illegals[] = {
594 POLICY_ILLEGAL_DOWNGRADE,
595 POLICY_ILLEGAL_NAMECHANGE,
596 POLICY_ILLEGAL_ARCHCHANGE,
597 POLICY_ILLEGAL_VENDORCHANGE,
602 solver_printsolution(Solver *solv, Id problem, Id solution)
604 Pool *pool = solv->pool;
608 while ((element = solver_next_solutionelement(solv, problem, solution, element, &p, &rp)) != 0)
612 /* for replacements we want to know why it was illegal */
613 Solvable *s = pool->solvables + p, *rs = pool->solvables + rp;
614 int illegal = policy_is_illegal(solv, s, rs, 0);
618 for (i = 0; illegals[i]; i++)
619 if ((illegal & illegals[i]) != 0)
621 POOL_DEBUG(SOLV_DEBUG_RESULT, " - allow %s\n", policy_illegal2str(solv, illegals[i], s, rs));
622 illegal ^= illegals[i];
628 POOL_DEBUG(SOLV_DEBUG_RESULT, " - %s\n", solver_solutionelement2str(solv, p, rp));
633 solver_printallsolutions(Solver *solv)
635 Pool *pool = solv->pool;
637 Id problem, solution;
639 POOL_DEBUG(SOLV_DEBUG_RESULT, "Encountered problems! Here are the solutions:\n\n");
642 while ((problem = solver_next_problem(solv, problem)) != 0)
645 POOL_DEBUG(SOLV_DEBUG_RESULT, "Problem %d:\n", pcnt);
646 POOL_DEBUG(SOLV_DEBUG_RESULT, "====================================\n");
648 solver_printprobleminfo(solv, problem);
650 solver_printcompleteprobleminfo(solv, problem);
652 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
654 while ((solution = solver_next_solution(solv, problem, solution)) != 0)
656 solver_printsolution(solv, problem, solution);
657 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
663 solver_printtrivial(Solver *solv)
665 Pool *pool = solv->pool;
673 for (p = 1, s = pool->solvables + p; p < solv->pool->nsolvables; p++, s++)
675 n = pool_id2str(pool, s->name);
676 if (strncmp(n, "patch:", 6) != 0 && strncmp(n, "pattern:", 8) != 0)
686 solver_trivial_installable(solv, &in, &out);
687 POOL_DEBUG(SOLV_DEBUG_RESULT, "trivial installable status:\n");
688 for (i = 0; i < in.count; i++)
689 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s: %d\n", pool_solvid2str(pool, in.elements[i]), out.elements[i]);
690 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");