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 solver_printruleelement(Solver *solv, int type, Rule *r, Id v)
34 Pool *pool = solv->pool;
38 s = pool->solvables + -v;
39 POOL_DEBUG(type, " !%s [%d]", pool_solvable2str(pool, s), -v);
43 s = pool->solvables + v;
44 POOL_DEBUG(type, " %s [%d]", pool_solvable2str(pool, s), v);
46 if (pool->installed && s->repo == pool->installed)
47 POOL_DEBUG(type, "I");
51 POOL_DEBUG(type, " (w1)");
53 POOL_DEBUG(type, " (w2)");
55 if (solv->decisionmap[s - pool->solvables] > 0)
56 POOL_DEBUG(type, " Install.level%d", solv->decisionmap[s - pool->solvables]);
57 if (solv->decisionmap[s - pool->solvables] < 0)
58 POOL_DEBUG(type, " Conflict.level%d", -solv->decisionmap[s - pool->solvables]);
59 POOL_DEBUG(type, "\n");
68 solver_printrule(Solver *solv, int type, Rule *r)
70 Pool *pool = solv->pool;
74 if (r >= solv->rules && r < solv->rules + solv->nrules) /* r is a solver rule */
75 POOL_DEBUG(type, "Rule #%d:", (int)(r - solv->rules));
77 POOL_DEBUG(type, "Rule:"); /* r is any rule */
79 POOL_DEBUG(type, " (disabled)");
80 POOL_DEBUG(type, "\n");
81 d = r->d < 0 ? -r->d - 1 : r->d;
85 /* print direct literal */
91 /* binary rule --> print w2 as second literal */
95 /* every other which is in d */
96 v = solv->pool->whatprovidesdata[d + i - 1];
99 solver_printruleelement(solv, type, r, v);
101 POOL_DEBUG(type, " next rules: %d %d\n", r->n1, r->n2);
105 solver_printruleclass(Solver *solv, int type, Rule *r)
107 Pool *pool = solv->pool;
108 Id p = r - solv->rules;
110 if (p < solv->learntrules)
111 if (MAPTST(&solv->weakrulemap, p))
112 POOL_DEBUG(type, "WEAK ");
113 if (solv->learntrules && p >= solv->learntrules)
114 POOL_DEBUG(type, "LEARNT ");
115 else if (p >= solv->bestrules && p < solv->bestrules_end)
116 POOL_DEBUG(type, "BEST ");
117 else if (p >= solv->choicerules && p < solv->choicerules_end)
118 POOL_DEBUG(type, "CHOICE ");
119 else if (p >= solv->infarchrules && p < solv->infarchrules_end)
120 POOL_DEBUG(type, "INFARCH ");
121 else if (p >= solv->duprules && p < solv->duprules_end)
122 POOL_DEBUG(type, "DUP ");
123 else if (p >= solv->jobrules && p < solv->jobrules_end)
124 POOL_DEBUG(type, "JOB ");
125 else if (p >= solv->updaterules && p < solv->updaterules_end)
126 POOL_DEBUG(type, "UPDATE ");
127 else if (p >= solv->featurerules && p < solv->featurerules_end)
128 POOL_DEBUG(type, "FEATURE ");
129 else if (p >= solv->yumobsrules && p < solv->yumobsrules_end)
130 POOL_DEBUG(type, "YUMOBS ");
131 solver_printrule(solv, type, r);
135 solver_printproblem(Solver *solv, Id v)
137 Pool *pool = solv->pool;
143 solver_printruleclass(solv, SOLV_DEBUG_SOLUTIONS, solv->rules + v);
147 POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "JOB %d\n", v);
148 jp = solv->ruletojob.elements;
149 for (i = solv->jobrules, r = solv->rules + i; i < solv->jobrules_end; i++, r++, jp++)
152 POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "- ");
153 solver_printrule(solv, SOLV_DEBUG_SOLUTIONS, r);
155 POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "ENDJOB\n");
160 solver_printwatches(Solver *solv, int type)
162 Pool *pool = solv->pool;
165 POOL_DEBUG(type, "Watches: \n");
166 for (counter = -(pool->nsolvables - 1); counter < pool->nsolvables; counter++)
167 POOL_DEBUG(type, " solvable [%d] -- rule [%d]\n", counter, solv->watches[counter + pool->nsolvables]);
171 solver_printdecisionq(Solver *solv, int type)
173 Pool *pool = solv->pool;
177 POOL_DEBUG(type, "Decisions:\n");
178 for (i = 0; i < solv->decisionq.count; i++)
180 p = solv->decisionq.elements[i];
182 POOL_DEBUG(type, "%d %d install %s, ", i, solv->decisionmap[p], pool_solvid2str(pool, p));
184 POOL_DEBUG(type, "%d %d conflict %s, ", i, -solv->decisionmap[-p], pool_solvid2str(pool, -p));
185 why = solv->decisionq_why.elements[i];
188 POOL_DEBUG(type, "forced by ");
189 solver_printruleclass(solv, type, solv->rules + why);
193 POOL_DEBUG(type, "chosen from ");
194 solver_printruleclass(solv, type, solv->rules - why);
197 POOL_DEBUG(type, "picked for some unknown reason.\n");
206 solver_printdecisions(Solver *solv)
208 Pool *pool = solv->pool;
209 Repo *installed = solv->installed;
210 Transaction *trans = solver_create_transaction(solv);
215 Queue recommendations;
219 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
220 POOL_DEBUG(SOLV_DEBUG_RESULT, "transaction:\n");
223 for (i = 0; i < trans->steps.count; i++)
225 p = trans->steps.elements[i];
226 s = pool->solvables + p;
227 type = transaction_type(trans, p, SOLVER_TRANSACTION_SHOW_ACTIVE|SOLVER_TRANSACTION_SHOW_ALL|SOLVER_TRANSACTION_SHOW_OBSOLETES|SOLVER_TRANSACTION_SHOW_MULTIINSTALL);
230 case SOLVER_TRANSACTION_MULTIINSTALL:
231 POOL_DEBUG(SOLV_DEBUG_RESULT, " multi install %s", pool_solvable2str(pool, s));
233 case SOLVER_TRANSACTION_MULTIREINSTALL:
234 POOL_DEBUG(SOLV_DEBUG_RESULT, " multi reinstall %s", pool_solvable2str(pool, s));
236 case SOLVER_TRANSACTION_INSTALL:
237 POOL_DEBUG(SOLV_DEBUG_RESULT, " install %s", pool_solvable2str(pool, s));
239 case SOLVER_TRANSACTION_REINSTALL:
240 POOL_DEBUG(SOLV_DEBUG_RESULT, " reinstall %s", pool_solvable2str(pool, s));
242 case SOLVER_TRANSACTION_DOWNGRADE:
243 POOL_DEBUG(SOLV_DEBUG_RESULT, " downgrade %s", pool_solvable2str(pool, s));
245 case SOLVER_TRANSACTION_CHANGE:
246 POOL_DEBUG(SOLV_DEBUG_RESULT, " change %s", pool_solvable2str(pool, s));
248 case SOLVER_TRANSACTION_UPGRADE:
249 case SOLVER_TRANSACTION_OBSOLETES:
250 POOL_DEBUG(SOLV_DEBUG_RESULT, " upgrade %s", pool_solvable2str(pool, s));
252 case SOLVER_TRANSACTION_ERASE:
253 POOL_DEBUG(SOLV_DEBUG_RESULT, " erase %s", pool_solvable2str(pool, s));
260 case SOLVER_TRANSACTION_INSTALL:
261 case SOLVER_TRANSACTION_ERASE:
262 case SOLVER_TRANSACTION_MULTIINSTALL:
263 case SOLVER_TRANSACTION_MULTIREINSTALL:
264 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
266 case SOLVER_TRANSACTION_REINSTALL:
267 case SOLVER_TRANSACTION_DOWNGRADE:
268 case SOLVER_TRANSACTION_CHANGE:
269 case SOLVER_TRANSACTION_UPGRADE:
270 case SOLVER_TRANSACTION_OBSOLETES:
271 transaction_all_obs_pkgs(trans, p, &iq);
274 POOL_DEBUG(SOLV_DEBUG_RESULT, " (obsoletes");
275 for (j = 0; j < iq.count; j++)
276 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s", pool_solvid2str(pool, iq.elements[j]));
277 POOL_DEBUG(SOLV_DEBUG_RESULT, ")");
279 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
287 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
289 queue_init(&recommendations);
290 queue_init(&suggestions);
291 queue_init(&orphaned);
292 solver_get_recommendations(solv, &recommendations, &suggestions, 0);
293 solver_get_orphaned(solv, &orphaned);
294 if (recommendations.count)
296 POOL_DEBUG(SOLV_DEBUG_RESULT, "recommended packages:\n");
297 for (i = 0; i < recommendations.count; i++)
299 s = pool->solvables + recommendations.elements[i];
300 if (solv->decisionmap[recommendations.elements[i]] > 0)
302 if (installed && s->repo == installed)
303 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (installed)\n", pool_solvable2str(pool, s));
305 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (selected)\n", pool_solvable2str(pool, s));
308 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", pool_solvable2str(pool, s));
310 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
313 if (suggestions.count)
315 POOL_DEBUG(SOLV_DEBUG_RESULT, "suggested packages:\n");
316 for (i = 0; i < suggestions.count; i++)
318 s = pool->solvables + suggestions.elements[i];
319 if (solv->decisionmap[suggestions.elements[i]] > 0)
321 if (installed && s->repo == installed)
322 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (installed)\n", pool_solvable2str(pool, s));
324 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (selected)\n", pool_solvable2str(pool, s));
327 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", pool_solvable2str(pool, s));
329 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
333 POOL_DEBUG(SOLV_DEBUG_RESULT, "orphaned packages:\n");
334 for (i = 0; i < orphaned.count; i++)
336 s = pool->solvables + orphaned.elements[i];
337 if (solv->decisionmap[solv->orphaned.elements[i]] > 0)
338 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (kept)\n", pool_solvable2str(pool, s));
340 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s (erased)\n", pool_solvable2str(pool, s));
342 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
344 queue_free(&recommendations);
345 queue_free(&suggestions);
346 queue_free(&orphaned);
347 transaction_free(trans);
351 const char *id2strnone(Pool *pool, Id id)
353 return !id || id == 1 ? "(none)" : pool_id2str(pool, id);
357 transaction_print(Transaction *trans)
359 Pool *pool = trans->pool;
361 int i, j, mode, l, linel;
365 queue_init(&classes);
367 mode = SOLVER_TRANSACTION_SHOW_OBSOLETES | SOLVER_TRANSACTION_OBSOLETE_IS_UPGRADE;
368 transaction_classify(trans, mode, &classes);
369 for (i = 0; i < classes.count; i += 4)
371 Id class = classes.elements[i];
372 Id cnt = classes.elements[i + 1];
375 case SOLVER_TRANSACTION_ERASE:
376 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d erased packages:\n", cnt);
378 case SOLVER_TRANSACTION_INSTALL:
379 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d installed packages:\n", cnt);
381 case SOLVER_TRANSACTION_REINSTALLED:
382 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d reinstalled packages:\n", cnt);
384 case SOLVER_TRANSACTION_DOWNGRADED:
385 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d downgraded packages:\n", cnt);
387 case SOLVER_TRANSACTION_CHANGED:
388 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d changed packages:\n", cnt);
390 case SOLVER_TRANSACTION_UPGRADED:
391 POOL_DEBUG(SOLV_DEBUG_RESULT, "%d upgraded packages:\n", cnt);
393 case SOLVER_TRANSACTION_VENDORCHANGE:
394 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]));
396 case SOLVER_TRANSACTION_ARCHCHANGE:
397 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]));
400 class = SOLVER_TRANSACTION_IGNORE;
403 if (class == SOLVER_TRANSACTION_IGNORE)
405 transaction_classify_pkgs(trans, mode, class, classes.elements[i + 2], classes.elements[i + 3], &pkgs);
408 for (j = 0; j < pkgs.count; j++)
410 Id p = pkgs.elements[j];
411 Solvable *s = pool->solvables + p;
416 case SOLVER_TRANSACTION_DOWNGRADED:
417 case SOLVER_TRANSACTION_UPGRADED:
418 s2 = pool->solvables + transaction_obs_pkg(trans, p);
419 POOL_DEBUG(SOLV_DEBUG_RESULT, " - %s -> %s\n", pool_solvable2str(pool, s), pool_solvable2str(pool, s2));
421 case SOLVER_TRANSACTION_VENDORCHANGE:
422 case SOLVER_TRANSACTION_ARCHCHANGE:
423 n = pool_id2str(pool, s->name);
425 if (l + linel > sizeof(line) - 3)
428 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", line);
432 if (l + linel > sizeof(line) - 3)
433 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", n);
438 strcpy(line + linel, ", ");
441 strcpy(line + linel, n);
446 POOL_DEBUG(SOLV_DEBUG_RESULT, " - %s\n", pool_solvable2str(pool, s));
451 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s\n", line);
452 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
454 queue_free(&classes);
459 solver_printproblemruleinfo(Solver *solv, Id probr)
461 Pool *pool = solv->pool;
462 Id dep, source, target;
463 SolverRuleinfo type = solver_ruleinfo(solv, probr, &source, &target, &dep);
465 POOL_DEBUG(SOLV_DEBUG_RESULT, "%s\n", solver_problemruleinfo2str(solv, type, source, target, dep));
469 solver_printprobleminfo(Solver *solv, Id problem)
471 solver_printproblemruleinfo(solv, solver_findproblemrule(solv, problem));
475 solver_printcompleteprobleminfo(Solver *solv, Id problem)
482 solver_findallproblemrules(solv, problem, &q);
483 for (i = 0; i < q.count; i++)
485 probr = q.elements[i];
486 if (!(probr >= solv->updaterules && probr < solv->updaterules_end) && !(probr >= solv->jobrules && probr < solv->jobrules_end))
492 for (i = 0; i < q.count; i++)
494 probr = q.elements[i];
495 if (nobad && ((probr >= solv->updaterules && probr < solv->updaterules_end) || (probr >= solv->jobrules && probr < solv->jobrules_end)))
497 solver_printproblemruleinfo(solv, probr);
502 static int illegals[] = {
503 POLICY_ILLEGAL_DOWNGRADE,
504 POLICY_ILLEGAL_NAMECHANGE,
505 POLICY_ILLEGAL_ARCHCHANGE,
506 POLICY_ILLEGAL_VENDORCHANGE,
511 solver_printsolution(Solver *solv, Id problem, Id solution)
513 Pool *pool = solv->pool;
517 while ((element = solver_next_solutionelement(solv, problem, solution, element, &p, &rp)) != 0)
521 /* for replacements we want to know why it was illegal */
522 Solvable *s = pool->solvables + p, *rs = pool->solvables + rp;
523 int illegal = policy_is_illegal(solv, s, rs, 0);
527 for (i = 0; illegals[i]; i++)
528 if ((illegal & illegals[i]) != 0)
530 POOL_DEBUG(SOLV_DEBUG_RESULT, " - allow %s\n", policy_illegal2str(solv, illegals[i], s, rs));
531 illegal ^= illegals[i];
537 POOL_DEBUG(SOLV_DEBUG_RESULT, " - %s\n", solver_solutionelement2str(solv, p, rp));
542 solver_printallsolutions(Solver *solv)
544 Pool *pool = solv->pool;
546 Id problem, solution;
548 POOL_DEBUG(SOLV_DEBUG_RESULT, "Encountered problems! Here are the solutions:\n\n");
551 while ((problem = solver_next_problem(solv, problem)) != 0)
554 POOL_DEBUG(SOLV_DEBUG_RESULT, "Problem %d:\n", pcnt);
555 POOL_DEBUG(SOLV_DEBUG_RESULT, "====================================\n");
557 solver_printprobleminfo(solv, problem);
559 solver_printcompleteprobleminfo(solv, problem);
561 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
563 while ((solution = solver_next_solution(solv, problem, solution)) != 0)
565 solver_printsolution(solv, problem, solution);
566 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");
572 solver_printtrivial(Solver *solv)
574 Pool *pool = solv->pool;
582 for (p = 1, s = pool->solvables + p; p < solv->pool->nsolvables; p++, s++)
584 n = pool_id2str(pool, s->name);
585 if (strncmp(n, "patch:", 6) != 0 && strncmp(n, "pattern:", 8) != 0)
595 solver_trivial_installable(solv, &in, &out);
596 POOL_DEBUG(SOLV_DEBUG_RESULT, "trivial installable status:\n");
597 for (i = 0; i < in.count; i++)
598 POOL_DEBUG(SOLV_DEBUG_RESULT, " %s: %d\n", pool_solvid2str(pool, in.elements[i]), out.elements[i]);
599 POOL_DEBUG(SOLV_DEBUG_RESULT, "\n");