- fix cleandeps mistake handling
[platform/upstream/libsolv.git] / src / rules.c
1 /*
2  * Copyright (c) 2007-2009, Novell Inc.
3  *
4  * This program is licensed under the BSD license, read LICENSE.BSD
5  * for further information
6  */
7
8 /*
9  * rules.c
10  *
11  * SAT based dependency solver
12  */
13
14 #include <stdio.h>
15 #include <stdlib.h>
16 #include <unistd.h>
17 #include <string.h>
18 #include <assert.h>
19
20 #include "solver.h"
21 #include "solver_private.h"
22 #include "bitmap.h"
23 #include "pool.h"
24 #include "poolarch.h"
25 #include "util.h"
26 #include "evr.h"
27 #include "policy.h"
28 #include "solverdebug.h"
29
30 #define RULES_BLOCK 63
31
32 static void addrpmruleinfo(Solver *solv, Id p, Id d, int type, Id dep);
33 static void solver_createcleandepsmap(Solver *solv, Map *cleandepsmap, int unneeded);
34
35 /*-------------------------------------------------------------------
36  * Check if dependency is possible
37  * 
38  * mirrors solver_dep_fulfilled but uses map m instead of the decisionmap
39  * used in solver_addrpmrulesforweak and solver_createcleandepsmap
40  */
41
42 static inline int
43 dep_possible(Solver *solv, Id dep, Map *m)
44 {
45   Pool *pool = solv->pool;
46   Id p, pp;
47
48   if (ISRELDEP(dep))
49     {
50       Reldep *rd = GETRELDEP(pool, dep);
51       if (rd->flags >= 8)
52         {
53           if (rd->flags == REL_AND)
54             {
55               if (!dep_possible(solv, rd->name, m))
56                 return 0;
57               return dep_possible(solv, rd->evr, m);
58             }
59           if (rd->flags == REL_NAMESPACE && rd->name == NAMESPACE_SPLITPROVIDES)
60             return solver_splitprovides(solv, rd->evr);
61           if (rd->flags == REL_NAMESPACE && rd->name == NAMESPACE_INSTALLED)
62             return solver_dep_installed(solv, rd->evr);
63         }
64     }
65   FOR_PROVIDES(p, pp, dep)
66     {
67       if (MAPTST(m, p))
68         return 1;
69     }
70   return 0;
71 }
72
73 /********************************************************************
74  *
75  * Rule handling
76  *
77  * - unify rules, remove duplicates
78  */
79
80 /*-------------------------------------------------------------------
81  *
82  * compare rules for unification sort
83  *
84  */
85
86 static int
87 unifyrules_sortcmp(const void *ap, const void *bp, void *dp)
88 {
89   Pool *pool = dp;
90   Rule *a = (Rule *)ap;
91   Rule *b = (Rule *)bp;
92   Id *ad, *bd;
93   int x;
94
95   x = a->p - b->p;
96   if (x)
97     return x;                          /* p differs */
98
99   /* identical p */
100   if (a->d == 0 && b->d == 0)
101     return a->w2 - b->w2;              /* assertion: return w2 diff */
102
103   if (a->d == 0)                       /* a is assertion, b not */
104     {
105       x = a->w2 - pool->whatprovidesdata[b->d];
106       return x ? x : -1;
107     }
108
109   if (b->d == 0)                       /* b is assertion, a not */
110     {
111       x = pool->whatprovidesdata[a->d] - b->w2;
112       return x ? x : 1;
113     }
114
115   /* compare whatprovidesdata */
116   ad = pool->whatprovidesdata + a->d;
117   bd = pool->whatprovidesdata + b->d;
118   while (*bd)
119     if ((x = *ad++ - *bd++) != 0)
120       return x;
121   return *ad;
122 }
123
124 int
125 solver_samerule(Solver *solv, Rule *r1, Rule *r2)
126 {
127   return unifyrules_sortcmp(r1, r2, solv->pool);
128 }
129
130
131 /*-------------------------------------------------------------------
132  *
133  * unify rules
134  * go over all rules and remove duplicates
135  */
136
137 void
138 solver_unifyrules(Solver *solv)
139 {
140   Pool *pool = solv->pool;
141   int i, j;
142   Rule *ir, *jr;
143
144   if (solv->nrules <= 2)               /* nothing to unify */
145     return;
146
147   /* sort rules first */
148   solv_sort(solv->rules + 1, solv->nrules - 1, sizeof(Rule), unifyrules_sortcmp, solv->pool);
149
150   /* prune rules
151    * i = unpruned
152    * j = pruned
153    */
154   jr = 0;
155   for (i = j = 1, ir = solv->rules + i; i < solv->nrules; i++, ir++)
156     {
157       if (jr && !unifyrules_sortcmp(ir, jr, pool))
158         continue;                      /* prune! */
159       jr = solv->rules + j++;          /* keep! */
160       if (ir != jr)
161         *jr = *ir;
162     }
163
164   /* reduced count from nrules to j rules */
165   POOL_DEBUG(SOLV_DEBUG_STATS, "pruned rules from %d to %d\n", solv->nrules, j);
166
167   /* adapt rule buffer */
168   solv->nrules = j;
169   solv->rules = solv_extend_resize(solv->rules, solv->nrules, sizeof(Rule), RULES_BLOCK);
170
171   /*
172    * debug: log rule statistics
173    */
174   IF_POOLDEBUG (SOLV_DEBUG_STATS)
175     {
176       int binr = 0;
177       int lits = 0;
178       Id *dp;
179       Rule *r;
180
181       for (i = 1; i < solv->nrules; i++)
182         {
183           r = solv->rules + i;
184           if (r->d == 0)
185             binr++;
186           else
187             {
188               dp = solv->pool->whatprovidesdata + r->d;
189               while (*dp++)
190                 lits++;
191             }
192         }
193       POOL_DEBUG(SOLV_DEBUG_STATS, "  binary: %d\n", binr);
194       POOL_DEBUG(SOLV_DEBUG_STATS, "  normal: %d, %d literals\n", solv->nrules - 1 - binr, lits);
195     }
196 }
197
198 #if 0
199
200 /*
201  * hash rule
202  */
203
204 static Hashval
205 hashrule(Solver *solv, Id p, Id d, int n)
206 {
207   unsigned int x = (unsigned int)p;
208   int *dp;
209
210   if (n <= 1)
211     return (x * 37) ^ (unsigned int)d;
212   dp = solv->pool->whatprovidesdata + d;
213   while (*dp)
214     x = (x * 37) ^ (unsigned int)*dp++;
215   return x;
216 }
217 #endif
218
219
220 /*-------------------------------------------------------------------
221  * 
222  */
223
224 /*
225  * add rule
226  *  p = direct literal; always < 0 for installed rpm rules
227  *  d, if < 0 direct literal, if > 0 offset into whatprovides, if == 0 rule is assertion (look at p only)
228  *
229  *
230  * A requires b, b provided by B1,B2,B3 => (-A|B1|B2|B3)
231  *
232  * p < 0 : pkg id of A
233  * d > 0 : Offset in whatprovidesdata (list of providers of b)
234  *
235  * A conflicts b, b provided by B1,B2,B3 => (-A|-B1), (-A|-B2), (-A|-B3)
236  * p < 0 : pkg id of A
237  * d < 0 : Id of solvable (e.g. B1)
238  *
239  * d == 0: unary rule, assertion => (A) or (-A)
240  *
241  *   Install:    p > 0, d = 0   (A)             user requested install
242  *   Remove:     p < 0, d = 0   (-A)            user requested remove (also: uninstallable)
243  *   Requires:   p < 0, d > 0   (-A|B1|B2|...)  d: <list of providers for requirement of p>
244  *   Updates:    p > 0, d > 0   (A|B1|B2|...)   d: <list of updates for solvable p>
245  *   Conflicts:  p < 0, d < 0   (-A|-B)         either p (conflict issuer) or d (conflict provider) (binary rule)
246  *                                              also used for obsoletes
247  *   ?:          p > 0, d < 0   (A|-B)          
248  *   No-op ?:    p = 0, d = 0   (null)          (used as policy rule placeholder)
249  *
250  *   resulting watches:
251  *   ------------------
252  *   Direct assertion (no watch needed) --> d = 0, w1 = p, w2 = 0
253  *   Binary rule: p = first literal, d = 0, w2 = second literal, w1 = p
254  *   every other : w1 = p, w2 = whatprovidesdata[d];
255  *   Disabled rule: w1 = 0
256  *
257  *   always returns a rule for non-rpm rules
258  */
259
260 Rule *
261 solver_addrule(Solver *solv, Id p, Id d)
262 {
263   Pool *pool = solv->pool;
264   Rule *r = 0;
265   Id *dp = 0;
266
267   int n = 0;                           /* number of literals in rule - 1
268                                           0 = direct assertion (single literal)
269                                           1 = binary rule
270                                           >1 = 
271                                         */
272
273   /* it often happenes that requires lead to adding the same rpm rule
274    * multiple times, so we prune those duplicates right away to make
275    * the work for unifyrules a bit easier */
276
277   if (!solv->rpmrules_end)              /* we add rpm rules */
278     {
279       r = solv->rules + solv->nrules - 1;       /* get the last added rule */
280       if (r->p == p && r->d == d && (d != 0 || !r->w2))
281         return r;
282     }
283
284     /*
285      * compute number of literals (n) in rule
286      */
287     
288   if (d < 0)
289     {
290       /* always a binary rule */
291       if (p == d)
292         return 0;                      /* ignore self conflict */
293       n = 1;
294     }
295   else if (d > 0)
296     {
297       for (dp = pool->whatprovidesdata + d; *dp; dp++, n++)
298         if (*dp == -p)
299           return 0;                     /* rule is self-fulfilling */
300         
301       if (n == 1)                       /* convert to binary rule */
302         d = dp[-1];
303     }
304
305   if (n == 1 && p > d && !solv->rpmrules_end)
306     {
307       /* smallest literal first so we can find dups */
308       n = p; p = d; d = n;             /* p <-> d */
309       n = 1;                           /* re-set n, was used as temp var */
310     }
311
312   /*
313    * check for duplicate
314    */
315     
316   /* check if the last added rule (r) is exactly the same as what we're looking for. */
317   if (r && n == 1 && !r->d && r->p == p && r->w2 == d)
318     return r;  /* binary rule */
319
320     /* have n-ary rule with same first literal, check other literals */
321   if (r && n > 1 && r->d && r->p == p)
322     {
323       /* Rule where d is an offset in whatprovidesdata */
324       Id *dp2;
325       if (d == r->d)
326         return r;
327       dp2 = pool->whatprovidesdata + r->d;
328       for (dp = pool->whatprovidesdata + d; *dp; dp++, dp2++)
329         if (*dp != *dp2)
330           break;
331       if (*dp == *dp2)
332         return r;
333    }
334
335   /*
336    * allocate new rule
337    */
338
339   /* extend rule buffer */
340   solv->rules = solv_extend(solv->rules, solv->nrules, 1, sizeof(Rule), RULES_BLOCK);
341   r = solv->rules + solv->nrules++;    /* point to rule space */
342
343     /*
344      * r = new rule
345      */
346     
347   r->p = p;
348   if (n == 0)
349     {
350       /* direct assertion, no watch needed */
351       r->d = 0;
352       r->w1 = p;
353       r->w2 = 0;
354     }
355   else if (n == 1)
356     {
357       /* binary rule */
358       r->d = 0;
359       r->w1 = p;
360       r->w2 = d;
361     }
362   else
363     {
364       r->d = d;
365       r->w1 = p;
366       r->w2 = pool->whatprovidesdata[d];
367     }
368   r->n1 = 0;
369   r->n2 = 0;
370
371   IF_POOLDEBUG (SOLV_DEBUG_RULE_CREATION)
372     {
373       POOL_DEBUG(SOLV_DEBUG_RULE_CREATION, "  Add rule: ");
374       solver_printrule(solv, SOLV_DEBUG_RULE_CREATION, r);
375     }
376
377   return r;
378 }
379
380
381 /******************************************************************************
382  ***
383  *** rpm rule part: create rules representing the package dependencies
384  ***
385  ***/
386
387 /*
388  *  special multiversion patch conflict handling:
389  *  a patch conflict is also satisfied if some other
390  *  version with the same name/arch that doesn't conflict
391  *  gets installed. The generated rule is thus:
392  *  -patch|-cpack|opack1|opack2|...
393  */
394 static Id
395 makemultiversionconflict(Solver *solv, Id n, Id con)
396 {
397   Pool *pool = solv->pool;
398   Solvable *s, *sn;
399   Queue q;
400   Id p, pp, qbuf[64];
401
402   sn = pool->solvables + n;
403   queue_init_buffer(&q, qbuf, sizeof(qbuf)/sizeof(*qbuf));
404   queue_push(&q, -n);
405   FOR_PROVIDES(p, pp, sn->name)
406     {
407       s = pool->solvables + p;
408       if (s->name != sn->name || s->arch != sn->arch)
409         continue;
410       if (!MAPTST(&solv->noobsoletes, p))
411         continue;
412       if (pool_match_nevr(pool, pool->solvables + p, con))
413         continue;
414       /* here we have a multiversion solvable that doesn't conflict */
415       /* thus we're not in conflict if it is installed */
416       queue_push(&q, p);
417     }
418   if (q.count == 1)
419     return -n;  /* no other package found, generate normal conflict */
420   return pool_queuetowhatprovides(pool, &q);
421 }
422
423 static inline void
424 addrpmrule(Solver *solv, Id p, Id d, int type, Id dep)
425 {
426   if (!solv->ruleinfoq)
427     solver_addrule(solv, p, d);
428   else
429     addrpmruleinfo(solv, p, d, type, dep);
430 }
431
432 /*-------------------------------------------------------------------
433  * 
434  * add (install) rules for solvable
435  * 
436  * s: Solvable for which to add rules
437  * m: m[s] = 1 for solvables which have rules, prevent rule duplication
438  * 
439  * Algorithm: 'visit all nodes of a graph'. The graph nodes are
440  *  solvables, the edges their dependencies.
441  *  Starting from an installed solvable, this will create all rules
442  *  representing the graph created by the solvables dependencies.
443  * 
444  * for unfulfilled requirements, conflicts, obsoletes,....
445  * add a negative assertion for solvables that are not installable
446  * 
447  * It will also create rules for all solvables referenced by 's'
448  *  i.e. descend to all providers of requirements of 's'
449  *
450  */
451
452 void
453 solver_addrpmrulesforsolvable(Solver *solv, Solvable *s, Map *m)
454 {
455   Pool *pool = solv->pool;
456   Repo *installed = solv->installed;
457
458   /* 'work' queue. keeps Ids of solvables we still have to work on.
459      And buffer for it. */
460   Queue workq;
461   Id workqbuf[64];
462     
463   int i;
464     /* if to add rules for broken deps ('rpm -V' functionality)
465      * 0 = yes, 1 = no
466      */
467   int dontfix;
468     /* Id var and pointer for each dependency
469      * (not used in parallel)
470      */
471   Id req, *reqp;
472   Id con, *conp;
473   Id obs, *obsp;
474   Id rec, *recp;
475   Id sug, *sugp;
476   Id p, pp;             /* whatprovides loops */
477   Id *dp;               /* ptr to 'whatprovides' */
478   Id n;                 /* Id for current solvable 's' */
479
480   queue_init_buffer(&workq, workqbuf, sizeof(workqbuf)/sizeof(*workqbuf));
481   queue_push(&workq, s - pool->solvables);      /* push solvable Id to work queue */
482
483   /* loop until there's no more work left */
484   while (workq.count)
485     {
486       /*
487        * n: Id of solvable
488        * s: Pointer to solvable
489        */
490
491       n = queue_shift(&workq);          /* 'pop' next solvable to work on from queue */
492       if (m)
493         {
494           if (MAPTST(m, n))             /* continue if already visited */
495             continue;
496           MAPSET(m, n);                 /* mark as visited */
497         }
498
499       s = pool->solvables + n;          /* s = Solvable in question */
500
501       dontfix = 0;
502       if (installed                     /* Installed system available */
503           && s->repo == installed       /* solvable is installed */
504           && !solv->fixmap_all          /* NOT repair errors in rpm dependency graph */
505           && !(solv->fixmap.size && MAPTST(&solv->fixmap, n - installed->start)))
506         {
507           dontfix = 1;                  /* dont care about broken rpm deps */
508         }
509
510       if (!dontfix
511           && s->arch != ARCH_SRC
512           && s->arch != ARCH_NOSRC
513           && !pool_installable(pool, s))
514         {
515           POOL_DEBUG(SOLV_DEBUG_RULE_CREATION, "package %s [%d] is not installable\n", pool_solvable2str(pool, s), (Id)(s - pool->solvables));
516           addrpmrule(solv, -n, 0, SOLVER_RULE_RPM_NOT_INSTALLABLE, 0);
517         }
518
519       /* yet another SUSE hack, sigh */
520       if (pool->nscallback && !strncmp("product:", pool_id2str(pool, s->name), 8))
521         {
522           Id buddy = pool->nscallback(pool, pool->nscallbackdata, NAMESPACE_PRODUCTBUDDY, n);
523           if (buddy > 0 && buddy != SYSTEMSOLVABLE && buddy != n && buddy < pool->nsolvables)
524             {
525               addrpmrule(solv, n, -buddy, SOLVER_RULE_RPM_PACKAGE_REQUIRES, solvable_selfprovidedep(pool->solvables + n));
526               addrpmrule(solv, buddy, -n, SOLVER_RULE_RPM_PACKAGE_REQUIRES, solvable_selfprovidedep(pool->solvables + buddy)); 
527               if (m && !MAPTST(m, buddy))
528                 queue_push(&workq, buddy);
529             }
530         }
531
532       /*-----------------------------------------
533        * check requires of s
534        */
535
536       if (s->requires)
537         {
538           reqp = s->repo->idarraydata + s->requires;
539           while ((req = *reqp++) != 0)            /* go through all requires */
540             {
541               if (req == SOLVABLE_PREREQMARKER)   /* skip the marker */
542                 continue;
543
544               /* find list of solvables providing 'req' */
545               dp = pool_whatprovides_ptr(pool, req);
546
547               if (*dp == SYSTEMSOLVABLE)          /* always installed */
548                 continue;
549
550               if (dontfix)
551                 {
552                   /* the strategy here is to not insist on dependencies
553                    * that are already broken. so if we find one provider
554                    * that was already installed, we know that the
555                    * dependency was not broken before so we enforce it */
556                  
557                   /* check if any of the providers for 'req' is installed */
558                   for (i = 0; (p = dp[i]) != 0; i++)
559                     {
560                       if (pool->solvables[p].repo == installed)
561                         break;          /* provider was installed */
562                     }
563                   /* didn't find an installed provider: previously broken dependency */
564                   if (!p)
565                     {
566                       POOL_DEBUG(SOLV_DEBUG_RULE_CREATION, "ignoring broken requires %s of installed package %s\n", pool_dep2str(pool, req), pool_solvable2str(pool, s));
567                       continue;
568                     }
569                 }
570
571               if (!*dp)
572                 {
573                   /* nothing provides req! */
574                   POOL_DEBUG(SOLV_DEBUG_RULE_CREATION, "package %s [%d] is not installable (%s)\n", pool_solvable2str(pool, s), (Id)(s - pool->solvables), pool_dep2str(pool, req));
575                   addrpmrule(solv, -n, 0, SOLVER_RULE_RPM_NOTHING_PROVIDES_DEP, req);
576                   continue;
577                 }
578
579               IF_POOLDEBUG (SOLV_DEBUG_RULE_CREATION)
580                 {
581                   POOL_DEBUG(SOLV_DEBUG_RULE_CREATION,"  %s requires %s\n", pool_solvable2str(pool, s), pool_dep2str(pool, req));
582                   for (i = 0; dp[i]; i++)
583                     POOL_DEBUG(SOLV_DEBUG_RULE_CREATION, "   provided by %s\n", pool_solvid2str(pool, dp[i]));
584                 }
585
586               /* add 'requires' dependency */
587               /* rule: (-requestor|provider1|provider2|...|providerN) */
588               addrpmrule(solv, -n, dp - pool->whatprovidesdata, SOLVER_RULE_RPM_PACKAGE_REQUIRES, req);
589
590               /* descend the dependency tree
591                  push all non-visited providers on the work queue */
592               if (m)
593                 {
594                   for (; *dp; dp++)
595                     {
596                       if (!MAPTST(m, *dp))
597                         queue_push(&workq, *dp);
598                     }
599                 }
600
601             } /* while, requirements of n */
602
603         } /* if, requirements */
604
605       /* that's all we check for src packages */
606       if (s->arch == ARCH_SRC || s->arch == ARCH_NOSRC)
607         continue;
608
609       /*-----------------------------------------
610        * check conflicts of s
611        */
612
613       if (s->conflicts)
614         {
615           int ispatch = 0;
616
617           /* we treat conflicts in patches a bit differen:
618            * - nevr matching
619            * - multiversion handling
620            * XXX: we should really handle this different, looking
621            * at the name is a bad hack
622            */
623           if (!strncmp("patch:", pool_id2str(pool, s->name), 6))
624             ispatch = 1;
625           conp = s->repo->idarraydata + s->conflicts;
626           /* foreach conflicts of 's' */
627           while ((con = *conp++) != 0)
628             {
629               /* foreach providers of a conflict of 's' */
630               FOR_PROVIDES(p, pp, con)
631                 {
632                   if (ispatch && !pool_match_nevr(pool, pool->solvables + p, con))
633                     continue;
634                   /* dontfix: dont care about conflicts with already installed packs */
635                   if (dontfix && pool->solvables[p].repo == installed)
636                     continue;
637                   /* p == n: self conflict */
638                   if (p == n && pool->forbidselfconflicts)
639                     {
640                       if (ISRELDEP(con))
641                         {
642                           Reldep *rd = GETRELDEP(pool, con);
643                           if (rd->flags == REL_NAMESPACE && rd->name == NAMESPACE_OTHERPROVIDERS)
644                             continue;
645                         }
646                       p = 0;    /* make it a negative assertion, aka 'uninstallable' */
647                     }
648                   if (p && ispatch && solv->noobsoletes.size && MAPTST(&solv->noobsoletes, p) && ISRELDEP(con))
649                     {
650                       /* our patch conflicts with a noobsoletes (aka multiversion) package */
651                       p = -makemultiversionconflict(solv, p, con);
652                     }
653                  /* rule: -n|-p: either solvable _or_ provider of conflict */
654                   addrpmrule(solv, -n, -p, p ? SOLVER_RULE_RPM_PACKAGE_CONFLICT : SOLVER_RULE_RPM_SELF_CONFLICT, con);
655                 }
656             }
657         }
658
659       /*-----------------------------------------
660        * check obsoletes and implicit obsoletes of a package
661        * if ignoreinstalledsobsoletes is not set, we're also checking
662        * obsoletes of installed packages (like newer rpm versions)
663        */
664       if ((!installed || s->repo != installed) || !pool->noinstalledobsoletes)
665         {
666           int noobs = solv->noobsoletes.size && MAPTST(&solv->noobsoletes, n);
667           int isinstalled = (installed && s->repo == installed);
668           if (s->obsoletes && !noobs)
669             {
670               obsp = s->repo->idarraydata + s->obsoletes;
671               /* foreach obsoletes */
672               while ((obs = *obsp++) != 0)
673                 {
674                   /* foreach provider of an obsoletes of 's' */ 
675                   FOR_PROVIDES(p, pp, obs)
676                     {
677                       Solvable *ps = pool->solvables + p;
678                       if (p == n)
679                         continue;
680                       if (isinstalled && dontfix && ps->repo == installed)
681                         continue;       /* don't repair installed/installed problems */
682                       if (!pool->obsoleteusesprovides /* obsoletes are matched names, not provides */
683                           && !pool_match_nevr(pool, ps, obs))
684                         continue;
685                       if (pool->obsoleteusescolors && !pool_colormatch(pool, s, ps))
686                         continue;
687                       if (!isinstalled)
688                         addrpmrule(solv, -n, -p, SOLVER_RULE_RPM_PACKAGE_OBSOLETES, obs);
689                       else
690                         addrpmrule(solv, -n, -p, SOLVER_RULE_RPM_INSTALLEDPKG_OBSOLETES, obs);
691                     }
692                 }
693             }
694           /* check implicit obsoletes
695            * for installed packages we only need to check installed/installed problems (and
696            * only when dontfix is not set), as the others are picked up when looking at the
697            * uninstalled package.
698            */
699           if (!isinstalled || !dontfix)
700             {
701               FOR_PROVIDES(p, pp, s->name)
702                 {
703                   Solvable *ps = pool->solvables + p;
704                   if (p == n)
705                     continue;
706                   if (isinstalled && ps->repo != installed)
707                     continue;
708                   /* we still obsolete packages with same nevra, like rpm does */
709                   /* (actually, rpm mixes those packages. yuck...) */
710                   if (noobs && (s->name != ps->name || s->evr != ps->evr || s->arch != ps->arch))
711                     continue;
712                   if (!pool->implicitobsoleteusesprovides && s->name != ps->name)
713                     continue;
714                   if (pool->obsoleteusescolors && !pool_colormatch(pool, s, ps))
715                     continue;
716                   if (s->name == ps->name)
717                     addrpmrule(solv, -n, -p, SOLVER_RULE_RPM_SAME_NAME, 0);
718                   else
719                     addrpmrule(solv, -n, -p, SOLVER_RULE_RPM_IMPLICIT_OBSOLETES, s->name);
720                 }
721             }
722         }
723
724       /*-----------------------------------------
725        * add recommends to the work queue
726        */
727       if (s->recommends && m)
728         {
729           recp = s->repo->idarraydata + s->recommends;
730           while ((rec = *recp++) != 0)
731             {
732               FOR_PROVIDES(p, pp, rec)
733                 if (!MAPTST(m, p))
734                   queue_push(&workq, p);
735             }
736         }
737       if (s->suggests && m)
738         {
739           sugp = s->repo->idarraydata + s->suggests;
740           while ((sug = *sugp++) != 0)
741             {
742               FOR_PROVIDES(p, pp, sug)
743                 if (!MAPTST(m, p))
744                   queue_push(&workq, p);
745             }
746         }
747     }
748   queue_free(&workq);
749 }
750
751
752 /*-------------------------------------------------------------------
753  * 
754  * Add rules for packages possibly selected in by weak dependencies
755  *
756  * m: already added solvables
757  */
758
759 void
760 solver_addrpmrulesforweak(Solver *solv, Map *m)
761 {
762   Pool *pool = solv->pool;
763   Solvable *s;
764   Id sup, *supp;
765   int i, n;
766
767   /* foreach solvable in pool */
768   for (i = n = 1; n < pool->nsolvables; i++, n++)
769     {
770       if (i == pool->nsolvables)                /* wrap i */
771         i = 1;
772       if (MAPTST(m, i))                         /* already added that one */
773         continue;
774
775       s = pool->solvables + i;
776       if (!pool_installable(pool, s))           /* only look at installable ones */
777         continue;
778
779       sup = 0;
780       if (s->supplements)
781         {
782           /* find possible supplements */
783           supp = s->repo->idarraydata + s->supplements;
784           while ((sup = *supp++) != 0)
785             if (dep_possible(solv, sup, m))
786               break;
787         }
788
789       /* if nothing found, check for enhances */
790       if (!sup && s->enhances)
791         {
792           supp = s->repo->idarraydata + s->enhances;
793           while ((sup = *supp++) != 0)
794             if (dep_possible(solv, sup, m))
795               break;
796         }
797       /* if nothing found, goto next solvables */
798       if (!sup)
799         continue;
800       solver_addrpmrulesforsolvable(solv, s, m);
801       n = 0;                    /* check all solvables again because we added solvables to m */
802     }
803 }
804
805
806 /*-------------------------------------------------------------------
807  * 
808  * add package rules for possible updates
809  * 
810  * s: solvable
811  * m: map of already visited solvables
812  * allow_all: 0 = dont allow downgrades, 1 = allow all candidates
813  */
814
815 void
816 solver_addrpmrulesforupdaters(Solver *solv, Solvable *s, Map *m, int allow_all)
817 {
818   Pool *pool = solv->pool;
819   int i;
820     /* queue and buffer for it */
821   Queue qs;
822   Id qsbuf[64];
823
824   queue_init_buffer(&qs, qsbuf, sizeof(qsbuf)/sizeof(*qsbuf));
825     /* find update candidates for 's' */
826   policy_findupdatepackages(solv, s, &qs, allow_all);
827     /* add rule for 's' if not already done */
828   if (!MAPTST(m, s - pool->solvables))
829     solver_addrpmrulesforsolvable(solv, s, m);
830     /* foreach update candidate, add rule if not already done */
831   for (i = 0; i < qs.count; i++)
832     if (!MAPTST(m, qs.elements[i]))
833       solver_addrpmrulesforsolvable(solv, pool->solvables + qs.elements[i], m);
834   queue_free(&qs);
835 }
836
837
838 /***********************************************************************
839  ***
840  ***  Update/Feature rule part
841  ***
842  ***  Those rules make sure an installed package isn't silently deleted
843  ***
844  ***/
845
846 static Id
847 finddistupgradepackages(Solver *solv, Solvable *s, Queue *qs, int allow_all)
848 {
849   Pool *pool = solv->pool;
850   int i;
851
852   policy_findupdatepackages(solv, s, qs, allow_all ? allow_all : 2);
853   if (!qs->count)
854     {
855       if (allow_all)
856         return 0;       /* orphaned, don't create feature rule */
857       /* check if this is an orphaned package */
858       policy_findupdatepackages(solv, s, qs, 1);
859       if (!qs->count)
860         return 0;       /* orphaned, don't create update rule */
861       qs->count = 0;
862       return -SYSTEMSOLVABLE;   /* supported but not installable */
863     }
864   if (allow_all)
865     return s - pool->solvables;
866   /* check if it is ok to keep the installed package */
867   for (i = 0; i < qs->count; i++)
868     {
869       Solvable *ns = pool->solvables + qs->elements[i];
870       if (s->evr == ns->evr && solvable_identical(s, ns))
871         return s - pool->solvables;
872     }
873   /* nope, it must be some other package */
874   return -SYSTEMSOLVABLE;
875 }
876
877 /* add packages from the dup repositories to the update candidates
878  * this isn't needed for the global dup mode as all packages are
879  * from dup repos in that case */
880 static void
881 addduppackages(Solver *solv, Solvable *s, Queue *qs)
882 {
883   Queue dupqs;
884   Id p, dupqsbuf[64];
885   int i;
886   int oldnoupdateprovide = solv->noupdateprovide;
887
888   queue_init_buffer(&dupqs, dupqsbuf, sizeof(dupqsbuf)/sizeof(*dupqsbuf));
889   solv->noupdateprovide = 1;
890   policy_findupdatepackages(solv, s, &dupqs, 2);
891   solv->noupdateprovide = oldnoupdateprovide;
892   for (i = 0; i < dupqs.count; i++)
893     {
894       p = dupqs.elements[i];
895       if (MAPTST(&solv->dupmap, p))
896         queue_pushunique(qs, p);
897     }
898   queue_free(&dupqs);
899 }
900
901 /*-------------------------------------------------------------------
902  * 
903  * add rule for update
904  *   (A|A1|A2|A3...)  An = update candidates for A
905  *
906  * s = (installed) solvable
907  */
908
909 void
910 solver_addupdaterule(Solver *solv, Solvable *s, int allow_all)
911 {
912   /* installed packages get a special upgrade allowed rule */
913   Pool *pool = solv->pool;
914   Id p, d;
915   Queue qs;
916   Id qsbuf[64];
917
918   queue_init_buffer(&qs, qsbuf, sizeof(qsbuf)/sizeof(*qsbuf));
919   p = s - pool->solvables;
920   /* find update candidates for 's' */
921   if (solv->dupmap_all)
922     p = finddistupgradepackages(solv, s, &qs, allow_all);
923   else
924     policy_findupdatepackages(solv, s, &qs, allow_all);
925   if (!allow_all && !solv->dupmap_all && solv->dupinvolvedmap.size && MAPTST(&solv->dupinvolvedmap, p))
926     addduppackages(solv, s, &qs);
927
928   if (!allow_all && qs.count && solv->noobsoletes.size)
929     {
930       int i, j;
931
932       d = pool_queuetowhatprovides(pool, &qs);
933       /* filter out all noobsoletes packages as they don't update */
934       for (i = j = 0; i < qs.count; i++)
935         {
936           if (MAPTST(&solv->noobsoletes, qs.elements[i]))
937             {
938               /* it's ok if they have same nevra */
939               Solvable *ps = pool->solvables + qs.elements[i];
940               if (ps->name != s->name || ps->evr != s->evr || ps->arch != s->arch)
941                 continue;
942             }
943           qs.elements[j++] = qs.elements[i];
944         }
945       if (j < qs.count)
946         {
947           if (d && solv->installed && s->repo == solv->installed &&
948               (solv->updatemap_all || (solv->updatemap.size && MAPTST(&solv->updatemap, s - pool->solvables - solv->installed->start))))
949             {
950               if (!solv->multiversionupdaters)
951                 solv->multiversionupdaters = solv_calloc(solv->installed->end - solv->installed->start, sizeof(Id));
952               solv->multiversionupdaters[s - pool->solvables - solv->installed->start] = d;
953             }
954           if (j == 0 && p == -SYSTEMSOLVABLE && solv->dupmap_all)
955             {
956               queue_push(&solv->orphaned, s - pool->solvables); /* treat as orphaned */
957               j = qs.count;
958             }
959           qs.count = j;
960         }
961     }
962   if (qs.count && p == -SYSTEMSOLVABLE)
963     p = queue_shift(&qs);
964   d = qs.count ? pool_queuetowhatprovides(pool, &qs) : 0;
965   queue_free(&qs);
966   solver_addrule(solv, p, d);   /* allow update of s */
967 }
968
969 static inline void 
970 disableupdaterule(Solver *solv, Id p)
971 {
972   Rule *r;
973
974   MAPSET(&solv->noupdate, p - solv->installed->start);
975   r = solv->rules + solv->updaterules + (p - solv->installed->start);
976   if (r->p && r->d >= 0)
977     solver_disablerule(solv, r);
978   r = solv->rules + solv->featurerules + (p - solv->installed->start);
979   if (r->p && r->d >= 0)
980     solver_disablerule(solv, r);
981 }
982
983 static inline void 
984 reenableupdaterule(Solver *solv, Id p)
985 {
986   Pool *pool = solv->pool;
987   Rule *r;
988
989   MAPCLR(&solv->noupdate, p - solv->installed->start);
990   r = solv->rules + solv->updaterules + (p - solv->installed->start);
991   if (r->p)
992     {    
993       if (r->d >= 0)
994         return;
995       solver_enablerule(solv, r);
996       IF_POOLDEBUG (SOLV_DEBUG_SOLUTIONS)
997         {
998           POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "@@@ re-enabling ");
999           solver_printruleclass(solv, SOLV_DEBUG_SOLUTIONS, r);
1000         }
1001       return;
1002     }
1003   r = solv->rules + solv->featurerules + (p - solv->installed->start);
1004   if (r->p && r->d < 0)
1005     {
1006       solver_enablerule(solv, r);
1007       IF_POOLDEBUG (SOLV_DEBUG_SOLUTIONS)
1008         {
1009           POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "@@@ re-enabling ");
1010           solver_printruleclass(solv, SOLV_DEBUG_SOLUTIONS, r);
1011         }
1012     }
1013 }
1014
1015
1016 /***********************************************************************
1017  ***
1018  ***  Infarch rule part
1019  ***
1020  ***  Infarch rules make sure the solver uses the best architecture of
1021  ***  a package if multiple archetectures are available
1022  ***
1023  ***/
1024
1025 void
1026 solver_addinfarchrules(Solver *solv, Map *addedmap)
1027 {
1028   Pool *pool = solv->pool;
1029   int first, i, j;
1030   Id p, pp, a, aa, bestarch;
1031   Solvable *s, *ps, *bests;
1032   Queue badq, allowedarchs;
1033
1034   queue_init(&badq);
1035   queue_init(&allowedarchs);
1036   solv->infarchrules = solv->nrules;
1037   for (i = 1; i < pool->nsolvables; i++)
1038     {
1039       if (i == SYSTEMSOLVABLE || !MAPTST(addedmap, i))
1040         continue;
1041       s = pool->solvables + i;
1042       first = i;
1043       bestarch = 0;
1044       bests = 0;
1045       queue_empty(&allowedarchs);
1046       FOR_PROVIDES(p, pp, s->name)
1047         {
1048           ps = pool->solvables + p;
1049           if (ps->name != s->name || !MAPTST(addedmap, p))
1050             continue;
1051           if (p == i)
1052             first = 0;
1053           if (first)
1054             break;
1055           a = ps->arch;
1056           a = (a <= pool->lastarch) ? pool->id2arch[a] : 0;
1057           if (a != 1 && pool->installed && ps->repo == pool->installed)
1058             {
1059               if (!solv->dupmap_all && !(solv->dupinvolvedmap.size && MAPTST(&solv->dupinvolvedmap, p)))
1060                 queue_pushunique(&allowedarchs, ps->arch);      /* also ok to keep this architecture */
1061               continue;         /* ignore installed solvables when calculating the best arch */
1062             }
1063           if (a && a != 1 && (!bestarch || a < bestarch))
1064             {
1065               bestarch = a;
1066               bests = ps;
1067             }
1068         }
1069       if (first)
1070         continue;
1071       /* speed up common case where installed package already has best arch */
1072       if (allowedarchs.count == 1 && bests && allowedarchs.elements[0] == bests->arch)
1073         allowedarchs.count--;   /* installed arch is best */
1074       queue_empty(&badq);
1075       FOR_PROVIDES(p, pp, s->name)
1076         {
1077           ps = pool->solvables + p;
1078           if (ps->name != s->name || !MAPTST(addedmap, p))
1079             continue;
1080           a = ps->arch;
1081           a = (a <= pool->lastarch) ? pool->id2arch[a] : 0;
1082           if (a != 1 && bestarch && ((a ^ bestarch) & 0xffff0000) != 0)
1083             {
1084               if (pool->installed && ps->repo == pool->installed)
1085                 continue;       /* always ok to keep an installed package */
1086               for (j = 0; j < allowedarchs.count; j++)
1087                 {
1088                   aa = allowedarchs.elements[j];
1089                   if (ps->arch == aa)
1090                     break;
1091                   aa = (aa <= pool->lastarch) ? pool->id2arch[aa] : 0;
1092                   if (aa && ((a ^ aa) & 0xffff0000) == 0)
1093                     break;      /* compatible */
1094                 }
1095               if (j == allowedarchs.count)
1096                 queue_push(&badq, p);
1097             }
1098         }
1099       if (!badq.count)
1100         continue;
1101       /* block all solvables in the badq! */
1102       for (j = 0; j < badq.count; j++)
1103         {
1104           p = badq.elements[j];
1105           solver_addrule(solv, -p, 0);
1106         }
1107     }
1108   queue_free(&badq);
1109   queue_free(&allowedarchs);
1110   solv->infarchrules_end = solv->nrules;
1111 }
1112
1113 static inline void
1114 disableinfarchrule(Solver *solv, Id name)
1115 {
1116   Pool *pool = solv->pool;
1117   Rule *r;
1118   int i;
1119   for (i = solv->infarchrules, r = solv->rules + i; i < solv->infarchrules_end; i++, r++)
1120     {
1121       if (r->p < 0 && r->d >= 0 && pool->solvables[-r->p].name == name)
1122         solver_disablerule(solv, r);
1123     }
1124 }
1125
1126 static inline void
1127 reenableinfarchrule(Solver *solv, Id name)
1128 {
1129   Pool *pool = solv->pool;
1130   Rule *r;
1131   int i;
1132   for (i = solv->infarchrules, r = solv->rules + i; i < solv->infarchrules_end; i++, r++)
1133     {
1134       if (r->p < 0 && r->d < 0 && pool->solvables[-r->p].name == name)
1135         {
1136           solver_enablerule(solv, r);
1137           IF_POOLDEBUG (SOLV_DEBUG_SOLUTIONS)
1138             {
1139               POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "@@@ re-enabling ");
1140               solver_printruleclass(solv, SOLV_DEBUG_SOLUTIONS, r);
1141             }
1142         }
1143     }
1144 }
1145
1146
1147 /***********************************************************************
1148  ***
1149  ***  Dup rule part
1150  ***
1151  ***  Dup rules make sure a package is selected from the specified dup
1152  ***  repositories if an update candidate is included in one of them.
1153  ***
1154  ***/
1155
1156 void
1157 solver_createdupmaps(Solver *solv)
1158 {
1159   Queue *job = &solv->job;
1160   Pool *pool = solv->pool;
1161   Repo *repo;
1162   Id how, what, p, pi, pp, obs, *obsp;
1163   Solvable *s, *ps;
1164   int i;
1165
1166   map_init(&solv->dupmap, pool->nsolvables);
1167   map_init(&solv->dupinvolvedmap, pool->nsolvables);
1168   for (i = 0; i < job->count; i += 2)
1169     {
1170       how = job->elements[i];
1171       what = job->elements[i + 1];
1172       switch (how & SOLVER_JOBMASK)
1173         {
1174         case SOLVER_DISTUPGRADE:
1175           if ((how & SOLVER_SELECTMASK) != SOLVER_SOLVABLE_REPO)
1176             break;
1177           if (what <= 0 || what > pool->nrepos)
1178             break;
1179           repo = pool_id2repo(pool, what);
1180           FOR_REPO_SOLVABLES(repo, p, s)
1181             {
1182               MAPSET(&solv->dupmap, p);
1183               FOR_PROVIDES(pi, pp, s->name)
1184                 {
1185                   ps = pool->solvables + pi;
1186                   if (ps->name != s->name)
1187                     continue;
1188                   MAPSET(&solv->dupinvolvedmap, pi);
1189                 }
1190               if (s->obsoletes)
1191                 {
1192                   /* FIXME: check obsoletes/provides combination */
1193                   obsp = s->repo->idarraydata + s->obsoletes;
1194                   while ((obs = *obsp++) != 0)
1195                     {
1196                       FOR_PROVIDES(pi, pp, obs)
1197                         {
1198                           Solvable *pis = pool->solvables + pi;
1199                           if (!pool->obsoleteusesprovides && !pool_match_nevr(pool, pis, obs))
1200                             continue;
1201                           if (pool->obsoleteusescolors && !pool_colormatch(pool, s, pis))
1202                             continue;
1203                           MAPSET(&solv->dupinvolvedmap, pi);
1204                         }
1205                     }
1206                 }
1207             }
1208           break;
1209         default:
1210           break;
1211         }
1212     }
1213   MAPCLR(&solv->dupinvolvedmap, SYSTEMSOLVABLE);
1214 }
1215
1216 void
1217 solver_freedupmaps(Solver *solv)
1218 {
1219   map_free(&solv->dupmap);
1220   /* we no longer free solv->dupinvolvedmap as we need it in
1221    * policy's priority pruning code. sigh. */
1222 }
1223
1224 void
1225 solver_addduprules(Solver *solv, Map *addedmap)
1226 {
1227   Pool *pool = solv->pool;
1228   Id p, pp;
1229   Solvable *s, *ps;
1230   int first, i;
1231
1232   solv->duprules = solv->nrules;
1233   for (i = 1; i < pool->nsolvables; i++)
1234     {
1235       if (i == SYSTEMSOLVABLE || !MAPTST(addedmap, i))
1236         continue;
1237       s = pool->solvables + i;
1238       first = i;
1239       FOR_PROVIDES(p, pp, s->name)
1240         {
1241           ps = pool->solvables + p;
1242           if (ps->name != s->name || !MAPTST(addedmap, p))
1243             continue;
1244           if (p == i)
1245             first = 0;
1246           if (first)
1247             break;
1248           if (!MAPTST(&solv->dupinvolvedmap, p))
1249             continue;
1250           if (solv->installed && ps->repo == solv->installed)
1251             {
1252               if (!solv->updatemap.size)
1253                 map_grow(&solv->updatemap, solv->installed->end - solv->installed->start);
1254               MAPSET(&solv->updatemap, p - solv->installed->start);
1255               if (!MAPTST(&solv->dupmap, p))
1256                 {
1257                   Id ip, ipp;
1258                   /* is installed identical to a good one? */
1259                   FOR_PROVIDES(ip, ipp, ps->name)
1260                     {
1261                       Solvable *is = pool->solvables + ip;
1262                       if (!MAPTST(&solv->dupmap, ip))
1263                         continue;
1264                       if (is->evr == ps->evr && solvable_identical(ps, is))
1265                         break;
1266                     }
1267                   if (!ip)
1268                     solver_addrule(solv, -p, 0);        /* no match, sorry */
1269                 }
1270             }
1271           else if (!MAPTST(&solv->dupmap, p))
1272             solver_addrule(solv, -p, 0);
1273         }
1274     }
1275   solv->duprules_end = solv->nrules;
1276 }
1277
1278
1279 static inline void
1280 disableduprule(Solver *solv, Id name)
1281 {
1282   Pool *pool = solv->pool;
1283   Rule *r;
1284   int i;
1285   for (i = solv->duprules, r = solv->rules + i; i < solv->duprules_end; i++, r++) 
1286     {    
1287       if (r->p < 0 && r->d >= 0 && pool->solvables[-r->p].name == name)
1288         solver_disablerule(solv, r);
1289     }    
1290 }
1291
1292 static inline void 
1293 reenableduprule(Solver *solv, Id name)
1294 {
1295   Pool *pool = solv->pool;
1296   Rule *r;
1297   int i;
1298   for (i = solv->duprules, r = solv->rules + i; i < solv->duprules_end; i++, r++) 
1299     {    
1300       if (r->p < 0 && r->d < 0 && pool->solvables[-r->p].name == name)
1301         {
1302           solver_enablerule(solv, r);
1303           IF_POOLDEBUG (SOLV_DEBUG_SOLUTIONS)
1304             {
1305               POOL_DEBUG(SOLV_DEBUG_SOLUTIONS, "@@@ re-enabling ");
1306               solver_printruleclass(solv, SOLV_DEBUG_SOLUTIONS, r);
1307             }
1308         }
1309     }
1310 }
1311
1312
1313 /***********************************************************************
1314  ***
1315  ***  Policy rule disabling/reenabling
1316  ***
1317  ***  Disable all policy rules that conflict with our jobs. If a job
1318  ***  gets disabled later on, reenable the involved policy rules again.
1319  ***
1320  ***/
1321
1322 #define DISABLE_UPDATE  1
1323 #define DISABLE_INFARCH 2
1324 #define DISABLE_DUP     3
1325
1326 /* 
1327  * add all installed packages that package p obsoletes to Queue q.
1328  * Package p is not installed and not in oobs map.
1329  * Entries may get added multiple times.
1330  */
1331 static void
1332 add_obsoletes(Solver *solv, Id p, Queue *q)
1333 {
1334   Pool *pool = solv->pool;
1335   Repo *installed = solv->installed;
1336   Id p2, pp2;
1337   Solvable *s = pool->solvables + p;
1338   Id obs, *obsp;
1339   Id lastp2 = 0;
1340
1341   /* we already know: p is not installed, p is not noobs */
1342   FOR_PROVIDES(p2, pp2, s->name)
1343     {
1344       Solvable *ps = pool->solvables + p2;
1345       if (ps->repo != installed)
1346         continue;
1347       if (!pool->implicitobsoleteusesprovides && ps->name != s->name)
1348         continue;
1349       if (pool->obsoleteusescolors && !pool_colormatch(pool, s, ps)) 
1350         continue;
1351       queue_push(q, p2);
1352       lastp2 = p2;
1353     }
1354   if (!s->obsoletes)
1355     return;
1356   obsp = s->repo->idarraydata + s->obsoletes;
1357   while ((obs = *obsp++) != 0)
1358     FOR_PROVIDES(p2, pp2, obs) 
1359       {
1360         Solvable *ps = pool->solvables + p2;
1361         if (ps->repo != installed)
1362           continue;
1363         if (!pool->obsoleteusesprovides && !pool_match_nevr(pool, ps, obs))
1364           continue;
1365         if (pool->obsoleteusescolors && !pool_colormatch(pool, s, ps)) 
1366           continue;
1367         if (p2 == lastp2)
1368           continue;
1369         queue_push(q, p2);
1370         lastp2 = p2;
1371       }
1372 }
1373
1374 /*
1375  * Call add_obsoletes and intersect the result with the
1376  * elements in Queue q starting at qstart.
1377  * Assumes that it's the first call if qstart == q->count.
1378  * May use auxillary map m for the intersection process, all
1379  * elements of q starting at qstart must have their bit cleared.
1380  * (This is also true after the function returns.)
1381  */
1382 static void
1383 intersect_obsoletes(Solver *solv, Id p, Queue *q, int qstart, Map *m)
1384 {
1385   int i, j;
1386   int qcount = q->count;
1387
1388   add_obsoletes(solv, p, q);
1389   if (qcount == qstart)
1390     return;     /* first call */
1391   if (qcount == q->count)
1392     j = qstart; 
1393   else if (qcount == qstart + 1)
1394     {
1395       /* easy if there's just one element */
1396       j = qstart;
1397       for (i = qcount; i < q->count; i++)
1398         if (q->elements[i] == q->elements[qstart])
1399           {
1400             j++;        /* keep the element */
1401             break;
1402           }
1403     }
1404   else if (!m->size && q->count - qstart <= 8)
1405     {
1406       /* faster than a map most of the time */
1407       int k;
1408       for (i = j = qstart; i < qcount; i++)
1409         {
1410           Id ip = q->elements[i];
1411           for (k = qcount; k < q->count; k++)
1412             if (q->elements[k] == ip)
1413               {
1414                 q->elements[j++] = ip;
1415                 break;
1416               }
1417         }
1418     }
1419   else
1420     {
1421       /* for the really pathologic cases we use the map */
1422       Repo *installed = solv->installed;
1423       if (!m->size)
1424         map_init(m, installed->end - installed->start);
1425       for (i = qcount; i < q->count; i++)
1426         MAPSET(m, q->elements[i] - installed->start);
1427       for (i = j = qstart; i < qcount; i++)
1428         if (MAPTST(m, q->elements[i] - installed->start))
1429           {
1430             MAPCLR(m, q->elements[i] - installed->start);
1431             q->elements[j++] = q->elements[i];
1432           }
1433     }
1434   queue_truncate(q, j);
1435 }
1436
1437 static void
1438 jobtodisablelist(Solver *solv, Id how, Id what, Queue *q)
1439 {
1440   Pool *pool = solv->pool;
1441   Id select, p, pp;
1442   Repo *installed;
1443   Solvable *s;
1444   int i, j, set, qstart;
1445   Map omap;
1446
1447   installed = solv->installed;
1448   select = how & SOLVER_SELECTMASK;
1449   switch (how & SOLVER_JOBMASK)
1450     {
1451     case SOLVER_INSTALL:
1452       set = how & SOLVER_SETMASK;
1453       if (!(set & SOLVER_NOAUTOSET))
1454         {
1455           /* automatically add set bits by analysing the job */
1456           if (select == SOLVER_SOLVABLE)
1457             set |= SOLVER_SETARCH | SOLVER_SETVENDOR | SOLVER_SETREPO | SOLVER_SETEVR;
1458           else if ((select == SOLVER_SOLVABLE_NAME || select == SOLVER_SOLVABLE_PROVIDES) && ISRELDEP(what))
1459             {
1460               Reldep *rd = GETRELDEP(pool, what);
1461               if (rd->flags == REL_EQ && select == SOLVER_SOLVABLE_NAME)
1462                 {
1463 #if !defined(DEBIAN_SEMANTICS)
1464                   const char *evr = pool_id2str(pool, rd->evr);
1465                   if (strchr(evr, '-'))
1466                     set |= SOLVER_SETEVR;
1467                   else
1468                     set |= SOLVER_SETEV;
1469 #else
1470                   set |= SOLVER_SETEVR;
1471 #endif
1472                 }
1473               if (rd->flags <= 7 && ISRELDEP(rd->name))
1474                 rd = GETRELDEP(pool, rd->name);
1475               if (rd->flags == REL_ARCH)
1476                 set |= SOLVER_SETARCH;
1477             }
1478         }
1479       else
1480         set &= ~SOLVER_NOAUTOSET;
1481       if (!set)
1482         return;
1483       if ((set & SOLVER_SETARCH) != 0 && solv->infarchrules != solv->infarchrules_end)
1484         {
1485           if (select == SOLVER_SOLVABLE)
1486             queue_push2(q, DISABLE_INFARCH, pool->solvables[what].name);
1487           else
1488             {
1489               int qcnt = q->count;
1490               FOR_JOB_SELECT(p, pp, select, what)
1491                 {
1492                   s = pool->solvables + p;
1493                   /* unify names */
1494                   for (i = qcnt; i < q->count; i += 2)
1495                     if (q->elements[i + 1] == s->name)
1496                       break;
1497                   if (i < q->count)
1498                     continue;
1499                   queue_push2(q, DISABLE_INFARCH, s->name);
1500                 }
1501             }
1502         }
1503       if ((set & SOLVER_SETREPO) != 0 && solv->duprules != solv->duprules_end)
1504         {
1505           if (select == SOLVER_SOLVABLE)
1506             queue_push2(q, DISABLE_DUP, pool->solvables[what].name);
1507           else
1508             {
1509               int qcnt = q->count;
1510               FOR_JOB_SELECT(p, pp, select, what)
1511                 {
1512                   s = pool->solvables + p;
1513                   /* unify names */
1514                   for (i = qcnt; i < q->count; i += 2)
1515                     if (q->elements[i + 1] == s->name)
1516                       break;
1517                   if (i < q->count)
1518                     continue;
1519                   queue_push2(q, DISABLE_DUP, s->name);
1520                 }
1521             }
1522         }
1523       if (!installed || installed->end == installed->start)
1524         return;
1525       /* now the hard part: disable some update rules */
1526
1527       /* first check if we have noobs or installed packages in the job */
1528       i = j = 0;
1529       FOR_JOB_SELECT(p, pp, select, what)
1530         {
1531           if (pool->solvables[p].repo == installed)
1532             j = p;
1533           else if (solv->noobsoletes.size && MAPTST(&solv->noobsoletes, p))
1534             return;
1535           i++;
1536         }
1537       if (j)    /* have installed packages */
1538         {
1539           /* this is for dupmap_all jobs, it can go away if we create
1540            * duprules for them */
1541           if (i == 1 && (set & SOLVER_SETREPO) != 0)
1542             queue_push2(q, DISABLE_UPDATE, j);
1543           return;
1544         }
1545
1546       omap.size = 0;
1547       qstart = q->count;
1548       FOR_JOB_SELECT(p, pp, select, what)
1549         {
1550           intersect_obsoletes(solv, p, q, qstart, &omap);
1551           if (q->count == qstart)
1552             break;
1553         }
1554       if (omap.size)
1555         map_free(&omap);
1556
1557       if (qstart == q->count)
1558         return;         /* nothing to prune */
1559
1560       /* convert result to (DISABLE_UPDATE, p) pairs */
1561       i = q->count;
1562       for (j = qstart; j < i; j++)
1563         queue_push(q, q->elements[j]);
1564       for (j = qstart; j < q->count; j += 2)
1565         {
1566           q->elements[j] = DISABLE_UPDATE;
1567           q->elements[j + 1] = q->elements[i++];
1568         }
1569
1570       /* now that we know which installed packages are obsoleted check each of them */
1571       if ((set & (SOLVER_SETEVR | SOLVER_SETARCH | SOLVER_SETVENDOR)) == (SOLVER_SETEVR | SOLVER_SETARCH | SOLVER_SETVENDOR))
1572         return;         /* all is set, nothing to do */
1573
1574       for (i = j = qstart; i < q->count; i += 2)
1575         {
1576           Solvable *is = pool->solvables + q->elements[i + 1];
1577           FOR_JOB_SELECT(p, pp, select, what)
1578             {
1579               int illegal = 0;
1580               s = pool->solvables + p;
1581               if ((set & SOLVER_SETEVR) != 0)
1582                 illegal |= POLICY_ILLEGAL_DOWNGRADE;    /* ignore */
1583               if ((set & SOLVER_SETARCH) != 0)
1584                 illegal |= POLICY_ILLEGAL_ARCHCHANGE;   /* ignore */
1585               if ((set & SOLVER_SETVENDOR) != 0)
1586                 illegal |= POLICY_ILLEGAL_VENDORCHANGE; /* ignore */
1587               illegal = policy_is_illegal(solv, is, s, illegal);
1588               if (illegal && illegal == POLICY_ILLEGAL_DOWNGRADE && (set & SOLVER_SETEV) != 0)
1589                 {
1590                   /* it's ok if the EV is different */
1591                   if (pool_evrcmp(pool, is->evr, s->evr, EVRCMP_COMPARE_EVONLY) != 0)
1592                     illegal = 0;
1593                 }
1594               if (illegal)
1595                 break;
1596             }
1597           if (!p)
1598             {   
1599               /* no package conflicts with the update rule */
1600               /* thus keep the DISABLE_UPDATE */
1601               q->elements[j + 1] = q->elements[i + 1];
1602               j += 2;
1603             }
1604         }
1605       queue_truncate(q, j);
1606       return;
1607
1608     case SOLVER_ERASE:
1609       if (!installed)
1610         break;
1611       FOR_JOB_SELECT(p, pp, select, what)
1612         if (pool->solvables[p].repo == installed)
1613           queue_push2(q, DISABLE_UPDATE, p);
1614       return;
1615     default:
1616       return;
1617     }
1618 }
1619
1620 /* disable all policy rules that are in conflict with our job list */
1621 void
1622 solver_disablepolicyrules(Solver *solv)
1623 {
1624   Queue *job = &solv->job;
1625   int i, j;
1626   Queue allq;
1627   Rule *r;
1628   Id lastjob = -1;
1629   Id allqbuf[128];
1630
1631   queue_init_buffer(&allq, allqbuf, sizeof(allqbuf)/sizeof(*allqbuf));
1632
1633   for (i = solv->jobrules; i < solv->jobrules_end; i++)
1634     {
1635       r = solv->rules + i;
1636       if (r->d < 0)     /* disabled? */
1637         continue;
1638       j = solv->ruletojob.elements[i - solv->jobrules];
1639       if (j == lastjob)
1640         continue;
1641       lastjob = j;
1642       jobtodisablelist(solv, job->elements[j], job->elements[j + 1], &allq);
1643     }
1644   if (solv->cleandepsmap.size)
1645     {
1646       solver_createcleandepsmap(solv, &solv->cleandepsmap, 0);
1647       for (i = solv->installed->start; i < solv->installed->end; i++)
1648         if (MAPTST(&solv->cleandepsmap, i - solv->installed->start))
1649           queue_push2(&allq, DISABLE_UPDATE, i);
1650     }
1651   MAPZERO(&solv->noupdate);
1652   for (i = 0; i < allq.count; i += 2)
1653     {
1654       Id type = allq.elements[i], arg = allq.elements[i + 1];
1655       switch(type)
1656         {
1657         case DISABLE_UPDATE:
1658           disableupdaterule(solv, arg);
1659           break;
1660         case DISABLE_INFARCH:
1661           disableinfarchrule(solv, arg);
1662           break;
1663         case DISABLE_DUP:
1664           disableduprule(solv, arg);
1665           break;
1666         default:
1667           break;
1668         }
1669     }
1670   queue_free(&allq);
1671 }
1672
1673 /* we just disabled job #jobidx, now reenable all policy rules that were
1674  * disabled because of this job */
1675 void
1676 solver_reenablepolicyrules(Solver *solv, int jobidx)
1677 {
1678   Queue *job = &solv->job;
1679   int i, j;
1680   Queue q, allq;
1681   Rule *r;
1682   Id lastjob = -1;
1683   Id qbuf[32], allqbuf[128];
1684
1685   queue_init_buffer(&q, qbuf, sizeof(qbuf)/sizeof(*qbuf));
1686   queue_init_buffer(&allq, allqbuf, sizeof(allqbuf)/sizeof(*allqbuf));
1687   jobtodisablelist(solv, job->elements[jobidx - 1], job->elements[jobidx], &q);
1688   if (!q.count)
1689     return;
1690   for (i = solv->jobrules; i < solv->jobrules_end; i++)
1691     {
1692       r = solv->rules + i;
1693       if (r->d < 0)     /* disabled? */
1694         continue;
1695       j = solv->ruletojob.elements[i - solv->jobrules];
1696       if (j == lastjob)
1697         continue;
1698       lastjob = j;
1699       jobtodisablelist(solv, job->elements[j], job->elements[j + 1], &allq);
1700     }
1701   if (solv->cleandepsmap.size)
1702     {
1703       solver_createcleandepsmap(solv, &solv->cleandepsmap, 0);
1704       for (i = solv->installed->start; i < solv->installed->end; i++)
1705         if (MAPTST(&solv->cleandepsmap, i - solv->installed->start))
1706           queue_push2(&allq, DISABLE_UPDATE, i);
1707     }
1708   for (j = 0; j < q.count; j += 2)
1709     {
1710       Id type = q.elements[j], arg = q.elements[j + 1];
1711       for (i = 0; i < allq.count; i += 2)
1712         if (allq.elements[i] == type && allq.elements[i + 1] == arg)
1713           break;
1714       if (i < allq.count)
1715         continue;       /* still disabled */
1716       switch(type)
1717         {
1718         case DISABLE_UPDATE:
1719           reenableupdaterule(solv, arg);
1720           break;
1721         case DISABLE_INFARCH:
1722           reenableinfarchrule(solv, arg);
1723           break;
1724         case DISABLE_DUP:
1725           reenableduprule(solv, arg);
1726           break;
1727         }
1728     }
1729   queue_free(&allq);
1730   queue_free(&q);
1731 }
1732
1733 /* we just removed a package from the cleandeps map, now reenable all policy rules that were
1734  * disabled because of this */
1735 void
1736 solver_reenablepolicyrules_cleandeps(Solver *solv, Id pkg)
1737 {
1738   Queue *job = &solv->job;
1739   int i, j;
1740   Queue allq;
1741   Rule *r;
1742   Id lastjob = -1;
1743   Id allqbuf[128];
1744
1745   queue_init_buffer(&allq, allqbuf, sizeof(allqbuf)/sizeof(*allqbuf));
1746   for (i = solv->jobrules; i < solv->jobrules_end; i++)
1747     {
1748       r = solv->rules + i;
1749       if (r->d < 0)     /* disabled? */
1750         continue;
1751       j = solv->ruletojob.elements[i - solv->jobrules];
1752       if (j == lastjob)
1753         continue;
1754       lastjob = j;
1755       jobtodisablelist(solv, job->elements[j], job->elements[j + 1], &allq);
1756     }
1757   for (i = 0; i < allq.count; i += 2)
1758     if (allq.elements[i] == DISABLE_UPDATE && allq.elements[i + 1] == pkg)
1759       break;
1760   if (i == allq.count)
1761     reenableupdaterule(solv, pkg);
1762   queue_free(&allq);
1763 }
1764
1765
1766 /***********************************************************************
1767  ***
1768  ***  Rule info part, tell the user what the rule is about.
1769  ***
1770  ***/
1771
1772 static void
1773 addrpmruleinfo(Solver *solv, Id p, Id d, int type, Id dep)
1774 {
1775   Pool *pool = solv->pool;
1776   Rule *r;
1777   Id w2, op, od, ow2;
1778
1779   /* check if this creates the rule we're searching for */
1780   r = solv->rules + solv->ruleinfoq->elements[0];
1781   op = r->p;
1782   od = r->d < 0 ? -r->d - 1 : r->d;
1783   ow2 = 0;
1784
1785   /* normalize */
1786   w2 = d > 0 ? 0 : d;
1787   if (p < 0 && d > 0 && (!pool->whatprovidesdata[d] || !pool->whatprovidesdata[d + 1]))
1788     {
1789       w2 = pool->whatprovidesdata[d];
1790       d = 0;
1791
1792     }
1793   if (p > 0 && d < 0)           /* this hack is used for buddy deps */
1794     {
1795       w2 = p;
1796       p = d;
1797     }
1798
1799   if (d > 0)
1800     {
1801       if (p != op && !od)
1802         return;
1803       if (d != od)
1804         {
1805           Id *dp = pool->whatprovidesdata + d;
1806           Id *odp = pool->whatprovidesdata + od;
1807           while (*dp)
1808             if (*dp++ != *odp++)
1809               return;
1810           if (*odp)
1811             return;
1812         }
1813       w2 = 0;
1814       /* handle multiversion conflict rules */
1815       if (p < 0 && pool->whatprovidesdata[d] < 0)
1816         {
1817           w2 = pool->whatprovidesdata[d];
1818           /* XXX: free memory */
1819         }
1820     }
1821   else
1822     {
1823       if (od)
1824         return;
1825       ow2 = r->w2;
1826       if (p > w2)
1827         {
1828           if (w2 != op || p != ow2)
1829             return;
1830         }
1831       else
1832         {
1833           if (p != op || w2 != ow2)
1834             return;
1835         }
1836     }
1837   /* yep, rule matches. record info */
1838   queue_push(solv->ruleinfoq, type);
1839   if (type == SOLVER_RULE_RPM_SAME_NAME)
1840     {
1841       /* we normalize same name order */
1842       queue_push(solv->ruleinfoq, op < 0 ? -op : 0);
1843       queue_push(solv->ruleinfoq, ow2 < 0 ? -ow2 : 0);
1844     }
1845   else
1846     {
1847       queue_push(solv->ruleinfoq, p < 0 ? -p : 0);
1848       queue_push(solv->ruleinfoq, w2 < 0 ? -w2 : 0);
1849     }
1850   queue_push(solv->ruleinfoq, dep);
1851 }
1852
1853 static int
1854 solver_allruleinfos_cmp(const void *ap, const void *bp, void *dp)
1855 {
1856   const Id *a = ap, *b = bp;
1857   int r;
1858
1859   r = a[0] - b[0];
1860   if (r)
1861     return r;
1862   r = a[1] - b[1];
1863   if (r)
1864     return r;
1865   r = a[2] - b[2];
1866   if (r)
1867     return r;
1868   r = a[3] - b[3];
1869   if (r)
1870     return r;
1871   return 0;
1872 }
1873
1874 int
1875 solver_allruleinfos(Solver *solv, Id rid, Queue *rq)
1876 {
1877   Pool *pool = solv->pool;
1878   Rule *r = solv->rules + rid;
1879   int i, j;
1880
1881   queue_empty(rq);
1882   if (rid <= 0 || rid >= solv->rpmrules_end)
1883     {
1884       Id type, from, to, dep;
1885       type = solver_ruleinfo(solv, rid, &from, &to, &dep);
1886       queue_push(rq, type);
1887       queue_push(rq, from);
1888       queue_push(rq, to);
1889       queue_push(rq, dep);
1890       return 1;
1891     }
1892   if (r->p >= 0)
1893     return 0;
1894   queue_push(rq, rid);
1895   solv->ruleinfoq = rq;
1896   solver_addrpmrulesforsolvable(solv, pool->solvables - r->p, 0);
1897   /* also try reverse direction for conflicts */
1898   if ((r->d == 0 || r->d == -1) && r->w2 < 0)
1899     solver_addrpmrulesforsolvable(solv, pool->solvables - r->w2, 0);
1900   solv->ruleinfoq = 0;
1901   queue_shift(rq);
1902   /* now sort & unify em */
1903   if (!rq->count)
1904     return 0;
1905   solv_sort(rq->elements, rq->count / 4, 4 * sizeof(Id), solver_allruleinfos_cmp, 0);
1906   /* throw out identical entries */
1907   for (i = j = 0; i < rq->count; i += 4)
1908     {
1909       if (j)
1910         {
1911           if (rq->elements[i] == rq->elements[j - 4] && 
1912               rq->elements[i + 1] == rq->elements[j - 3] &&
1913               rq->elements[i + 2] == rq->elements[j - 2] &&
1914               rq->elements[i + 3] == rq->elements[j - 1])
1915             continue;
1916         }
1917       rq->elements[j++] = rq->elements[i];
1918       rq->elements[j++] = rq->elements[i + 1];
1919       rq->elements[j++] = rq->elements[i + 2];
1920       rq->elements[j++] = rq->elements[i + 3];
1921     }
1922   rq->count = j;
1923   return j / 4;
1924 }
1925
1926 SolverRuleinfo
1927 solver_ruleinfo(Solver *solv, Id rid, Id *fromp, Id *top, Id *depp)
1928 {
1929   Pool *pool = solv->pool;
1930   Rule *r = solv->rules + rid;
1931   SolverRuleinfo type = SOLVER_RULE_UNKNOWN;
1932
1933   if (fromp)
1934     *fromp = 0;
1935   if (top)
1936     *top = 0;
1937   if (depp)
1938     *depp = 0;
1939   if (rid > 0 && rid < solv->rpmrules_end)
1940     {
1941       Queue rq;
1942       int i;
1943
1944       if (r->p >= 0)
1945         return SOLVER_RULE_RPM;
1946       if (fromp)
1947         *fromp = -r->p;
1948       queue_init(&rq);
1949       queue_push(&rq, rid);
1950       solv->ruleinfoq = &rq;
1951       solver_addrpmrulesforsolvable(solv, pool->solvables - r->p, 0);
1952       /* also try reverse direction for conflicts */
1953       if ((r->d == 0 || r->d == -1) && r->w2 < 0)
1954         solver_addrpmrulesforsolvable(solv, pool->solvables - r->w2, 0);
1955       solv->ruleinfoq = 0;
1956       type = SOLVER_RULE_RPM;
1957       for (i = 1; i < rq.count; i += 4)
1958         {
1959           Id qt, qo, qp, qd;
1960           qt = rq.elements[i];
1961           qp = rq.elements[i + 1];
1962           qo = rq.elements[i + 2];
1963           qd = rq.elements[i + 3];
1964           if (type == SOLVER_RULE_RPM || type > qt)
1965             {
1966               type = qt;
1967               if (fromp)
1968                 *fromp = qp;
1969               if (top)
1970                 *top = qo;
1971               if (depp)
1972                 *depp = qd;
1973             }
1974         }
1975       queue_free(&rq);
1976       return type;
1977     }
1978   if (rid >= solv->jobrules && rid < solv->jobrules_end)
1979     {
1980       Id jidx = solv->ruletojob.elements[rid - solv->jobrules];
1981       if (fromp)
1982         *fromp = jidx;
1983       if (top)
1984         *top = solv->job.elements[jidx];
1985       if (depp)
1986         *depp = solv->job.elements[jidx + 1];
1987       if ((r->d == 0 || r->d == -1) && r->w2 == 0 && r->p == -SYSTEMSOLVABLE && (solv->job.elements[jidx] & SOLVER_SELECTMASK) != SOLVER_SOLVABLE_ONE_OF)
1988         return SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP;
1989       return SOLVER_RULE_JOB;
1990     }
1991   if (rid >= solv->updaterules && rid < solv->updaterules_end)
1992     {
1993       if (fromp)
1994         *fromp = solv->installed->start + (rid - solv->updaterules);
1995       return SOLVER_RULE_UPDATE;
1996     }
1997   if (rid >= solv->featurerules && rid < solv->featurerules_end)
1998     {
1999       if (fromp)
2000         *fromp = solv->installed->start + (rid - solv->featurerules);
2001       return SOLVER_RULE_FEATURE;
2002     }
2003   if (rid >= solv->duprules && rid < solv->duprules_end)
2004     {
2005       if (fromp)
2006         *fromp = -r->p;
2007       if (depp)
2008         *depp = pool->solvables[-r->p].name;
2009       return SOLVER_RULE_DISTUPGRADE;
2010     }
2011   if (rid >= solv->infarchrules && rid < solv->infarchrules_end)
2012     {
2013       if (fromp)
2014         *fromp = -r->p;
2015       if (depp)
2016         *depp = pool->solvables[-r->p].name;
2017       return SOLVER_RULE_INFARCH;
2018     }
2019   if (rid >= solv->choicerules && rid < solv->choicerules_end)
2020     {
2021       return SOLVER_RULE_CHOICE;
2022     }
2023   if (rid >= solv->learntrules)
2024     {
2025       return SOLVER_RULE_LEARNT;
2026     }
2027   return SOLVER_RULE_UNKNOWN;
2028 }
2029
2030 SolverRuleinfo
2031 solver_ruleclass(Solver *solv, Id rid)
2032 {
2033   if (rid <= 0)
2034     return SOLVER_RULE_UNKNOWN;
2035   if (rid > 0 && rid < solv->rpmrules_end)
2036     return SOLVER_RULE_RPM;
2037   if (rid >= solv->jobrules && rid < solv->jobrules_end)
2038     return SOLVER_RULE_JOB;
2039   if (rid >= solv->updaterules && rid < solv->updaterules_end)
2040     return SOLVER_RULE_UPDATE;
2041   if (rid >= solv->featurerules && rid < solv->featurerules_end)
2042     return SOLVER_RULE_FEATURE;
2043   if (rid >= solv->duprules && rid < solv->duprules_end)
2044     return SOLVER_RULE_DISTUPGRADE;
2045   if (rid >= solv->infarchrules && rid < solv->infarchrules_end)
2046     return SOLVER_RULE_INFARCH;
2047   if (rid >= solv->choicerules && rid < solv->choicerules_end)
2048     return SOLVER_RULE_CHOICE;
2049   if (rid >= solv->learntrules)
2050     return SOLVER_RULE_LEARNT;
2051   return SOLVER_RULE_UNKNOWN;
2052 }
2053
2054 void
2055 solver_ruleliterals(Solver *solv, Id rid, Queue *q)
2056 {
2057   Pool *pool = solv->pool;
2058   Id p, *pp;
2059   Rule *r;
2060
2061   queue_empty(q);
2062   r = solv->rules + rid;
2063   FOR_RULELITERALS(p, pp, r)
2064     if (p != -SYSTEMSOLVABLE)
2065       queue_push(q, p);
2066   if (!q->count)
2067     queue_push(q, -SYSTEMSOLVABLE);     /* hmm, better to return an empty result? */
2068 }
2069
2070 int
2071 solver_rule2jobidx(Solver *solv, Id rid)
2072 {
2073   if (rid < solv->jobrules || rid >= solv->jobrules_end)
2074     return 0;
2075   return solv->ruletojob.elements[rid - solv->jobrules] + 1;
2076 }
2077
2078 Id
2079 solver_rule2job(Solver *solv, Id rid, Id *whatp)
2080 {
2081   int idx;
2082   if (rid < solv->jobrules || rid >= solv->jobrules_end)
2083     {
2084       if (whatp)
2085         *whatp = 0;
2086       return 0;
2087     }
2088   idx = solv->ruletojob.elements[rid - solv->jobrules];
2089   if (whatp)
2090     *whatp = solv->job.elements[idx + 1];
2091   return solv->job.elements[idx];
2092 }
2093
2094 void
2095 solver_addchoicerules(Solver *solv)
2096 {
2097   Pool *pool = solv->pool;
2098   Map m, mneg;
2099   Rule *r;
2100   Queue q, qi;
2101   int i, j, rid, havechoice;
2102   Id p, d, *pp;
2103   Id p2, pp2;
2104   Solvable *s, *s2;
2105
2106   solv->choicerules = solv->nrules;
2107   if (!pool->installed)
2108     {
2109       solv->choicerules_end = solv->nrules;
2110       return;
2111     }
2112   solv->choicerules_ref = solv_calloc(solv->rpmrules_end, sizeof(Id));
2113   queue_init(&q);
2114   queue_init(&qi);
2115   map_init(&m, pool->nsolvables);
2116   map_init(&mneg, pool->nsolvables);
2117   /* set up negative assertion map from infarch and dup rules */
2118   for (rid = solv->infarchrules, r = solv->rules + rid; rid < solv->infarchrules_end; rid++, r++)
2119     if (r->p < 0 && !r->w2 && (r->d == 0 || r->d == -1))
2120       MAPSET(&mneg, -r->p);
2121   for (rid = solv->duprules, r = solv->rules + rid; rid < solv->duprules_end; rid++, r++)
2122     if (r->p < 0 && !r->w2 && (r->d == 0 || r->d == -1))
2123       MAPSET(&mneg, -r->p);
2124   for (rid = 1; rid < solv->rpmrules_end ; rid++)
2125     {
2126       r = solv->rules + rid;
2127       if (r->p >= 0 || ((r->d == 0 || r->d == -1) && r->w2 < 0))
2128         continue;       /* only look at requires rules */
2129       /* solver_printrule(solv, SOLV_DEBUG_RESULT, r); */
2130       queue_empty(&q);
2131       queue_empty(&qi);
2132       havechoice = 0;
2133       FOR_RULELITERALS(p, pp, r)
2134         {
2135           if (p < 0)
2136             continue;
2137           s = pool->solvables + p;
2138           if (!s->repo)
2139             continue;
2140           if (s->repo == pool->installed)
2141             {
2142               queue_push(&q, p);
2143               continue;
2144             }
2145           /* check if this package is "blocked" by a installed package */
2146           s2 = 0;
2147           FOR_PROVIDES(p2, pp2, s->name)
2148             {
2149               s2 = pool->solvables + p2;
2150               if (s2->repo != pool->installed)
2151                 continue;
2152               if (!pool->implicitobsoleteusesprovides && s->name != s2->name)
2153                 continue;
2154               if (pool->obsoleteusescolors && !pool_colormatch(pool, s, s2))
2155                 continue;
2156               break;
2157             }
2158           if (p2)
2159             {
2160               /* found installed package p2 that we can update to p */
2161               if (MAPTST(&mneg, p))
2162                 continue;
2163               if (policy_is_illegal(solv, s2, s, 0))
2164                 continue;
2165               queue_push(&qi, p2);
2166               queue_push(&q, p);
2167               continue;
2168             }
2169           if (s->obsoletes)
2170             {
2171               Id obs, *obsp = s->repo->idarraydata + s->obsoletes;
2172               s2 = 0;
2173               while ((obs = *obsp++) != 0)
2174                 {
2175                   FOR_PROVIDES(p2, pp2, obs)
2176                     {
2177                       s2 = pool->solvables + p2;
2178                       if (s2->repo != pool->installed)
2179                         continue;
2180                       if (!pool->obsoleteusesprovides && !pool_match_nevr(pool, pool->solvables + p2, obs))
2181                         continue;
2182                       if (pool->obsoleteusescolors && !pool_colormatch(pool, s, s2))
2183                         continue;
2184                       break;
2185                     }
2186                   if (p2)
2187                     break;
2188                 }
2189               if (obs)
2190                 {
2191                   /* found installed package p2 that we can update to p */
2192                   if (MAPTST(&mneg, p))
2193                     continue;
2194                   if (policy_is_illegal(solv, s2, s, 0))
2195                     continue;
2196                   queue_push(&qi, p2);
2197                   queue_push(&q, p);
2198                   continue;
2199                 }
2200             }
2201           /* package p is independent of the installed ones */
2202           havechoice = 1;
2203         }
2204       if (!havechoice || !q.count)
2205         continue;       /* no choice */
2206
2207       /* now check the update rules of the installed package.
2208        * if all packages of the update rules are contained in
2209        * the dependency rules, there's no need to set up the choice rule */
2210       map_empty(&m);
2211       FOR_RULELITERALS(p, pp, r)
2212         if (p > 0)
2213           MAPSET(&m, p);
2214       for (i = 0; i < qi.count; i++)
2215         {
2216           Rule *ur;
2217           if (!qi.elements[i])
2218             continue;
2219           ur = solv->rules + solv->updaterules + (qi.elements[i] - pool->installed->start);
2220           if (!ur->p)
2221             ur = solv->rules + solv->featurerules + (qi.elements[i] - pool->installed->start);
2222           if (!ur->p)
2223             continue;
2224           FOR_RULELITERALS(p, pp, ur)
2225             if (!MAPTST(&m, p))
2226               break;
2227           if (p)
2228             break;
2229           for (j = i + 1; j < qi.count; j++)
2230             if (qi.elements[i] == qi.elements[j])
2231               qi.elements[j] = 0;
2232         }
2233       if (i == qi.count)
2234         {
2235 #if 0
2236           printf("skipping choice ");
2237           solver_printrule(solv, SOLV_DEBUG_RESULT, solv->rules + rid);
2238 #endif
2239           continue;
2240         }
2241       d = q.count ? pool_queuetowhatprovides(pool, &q) : 0;
2242       solver_addrule(solv, r->p, d);
2243       queue_push(&solv->weakruleq, solv->nrules - 1);
2244       solv->choicerules_ref[solv->nrules - 1 - solv->choicerules] = rid;
2245 #if 0
2246       printf("OLD ");
2247       solver_printrule(solv, SOLV_DEBUG_RESULT, solv->rules + rid);
2248       printf("WEAK CHOICE ");
2249       solver_printrule(solv, SOLV_DEBUG_RESULT, solv->rules + solv->nrules - 1);
2250 #endif
2251     }
2252   queue_free(&q);
2253   queue_free(&qi);
2254   map_free(&m);
2255   map_free(&mneg);
2256   solv->choicerules_end = solv->nrules;
2257 }
2258
2259 /* called when a choice rule is disabled by analyze_unsolvable. We also
2260  * have to disable all other choice rules so that the best packages get
2261  * picked */
2262 void
2263 solver_disablechoicerules(Solver *solv, Rule *r)
2264 {
2265   Id rid, p, *pp;
2266   Pool *pool = solv->pool;
2267   Map m;
2268   Rule *or;
2269
2270   or = solv->rules + solv->choicerules_ref[(r - solv->rules) - solv->choicerules];
2271   map_init(&m, pool->nsolvables);
2272   FOR_RULELITERALS(p, pp, or)
2273     if (p > 0)
2274       MAPSET(&m, p);
2275   FOR_RULELITERALS(p, pp, r)
2276     if (p > 0)
2277       MAPCLR(&m, p);
2278   for (rid = solv->choicerules; rid < solv->choicerules_end; rid++)
2279     {
2280       r = solv->rules + rid;
2281       if (r->d < 0)
2282         continue;
2283       or = solv->rules + solv->choicerules_ref[(r - solv->rules) - solv->choicerules];
2284       FOR_RULELITERALS(p, pp, or)
2285         if (p > 0 && MAPTST(&m, p))
2286           break;
2287       if (p)
2288         solver_disablerule(solv, r);
2289     }
2290 }
2291
2292 #undef CLEANDEPSDEBUG
2293
2294 /*
2295  * This functions collects all packages that are looked at
2296  * when a dependency is checked. We need it to "pin" installed
2297  * packages when removing a supplemented package in createcleandepsmap.
2298  * Here's an not uncommon example:
2299  *   A contains "Supplements: packageand(B, C)"
2300  *   B contains "Requires: A"
2301  * Now if we remove C, the supplements is no longer true,
2302  * thus we also remove A. Without the dep_pkgcheck function, we
2303  * would now also remove B, but this is wrong, as adding back
2304  * C doesn't make the supplements true again. Thus we "pin" B
2305  * when we remove A.
2306  * There's probably a better way to do this, but I haven't come
2307  * up with it yet ;)
2308  */
2309 static inline void
2310 dep_pkgcheck(Solver *solv, Id dep, Map *m, Queue *q)
2311 {
2312   Pool *pool = solv->pool;
2313   Id p, pp;
2314
2315   if (ISRELDEP(dep))
2316     {
2317       Reldep *rd = GETRELDEP(pool, dep);
2318       if (rd->flags >= 8)
2319         {
2320           if (rd->flags == REL_AND)
2321             {
2322               dep_pkgcheck(solv, rd->name, m, q);
2323               dep_pkgcheck(solv, rd->evr, m, q);
2324               return;
2325             }
2326           if (rd->flags == REL_NAMESPACE && rd->name == NAMESPACE_SPLITPROVIDES)
2327             return;
2328           if (rd->flags == REL_NAMESPACE && rd->name == NAMESPACE_INSTALLED)
2329             return;
2330         }
2331     }
2332   FOR_PROVIDES(p, pp, dep)
2333     if (!m || MAPTST(m, p))
2334       queue_push(q, p);
2335 }
2336
2337 /*
2338  * Find all installed packages that are no longer
2339  * needed regarding the current solver job.
2340  *
2341  * The algorithm is:
2342  * - remove pass: remove all packages that could have
2343  *   been dragged in by the obsoleted packages.
2344  *   i.e. if package A is obsolete and contains "Requires: B",
2345  *   also remove B, as installing A will have pulled in B.
2346  *   after this pass, we have a set of still installed packages
2347  *   with broken dependencies.
2348  * - add back pass:
2349  *   now add back all packages that the still installed packages
2350  *   require.
2351  *
2352  * The cleandeps packages are the packages removed in the first
2353  * pass and not added back in the second pass.
2354  *
2355  * If we search for unneeded packages (unneeded is true), we
2356  * simply remove all packages except the userinstalled ones in
2357  * the first pass.
2358  */
2359 static void
2360 solver_createcleandepsmap(Solver *solv, Map *cleandepsmap, int unneeded)
2361 {
2362   Pool *pool = solv->pool;
2363   Repo *installed = solv->installed;
2364   Queue *job = &solv->job;
2365   Map userinstalled;
2366   Map im;
2367   Map installedm;
2368   Rule *r;
2369   Id rid, how, what, select;
2370   Id p, pp, ip, *jp;
2371   Id req, *reqp, sup, *supp;
2372   Solvable *s;
2373   Queue iq;
2374   int i;
2375
2376   map_empty(cleandepsmap);
2377   if (!installed || installed->end == installed->start)
2378     return;
2379   map_init(&userinstalled, installed->end - installed->start);
2380   map_init(&im, pool->nsolvables);
2381   map_init(&installedm, pool->nsolvables);
2382   queue_init(&iq);
2383
2384   for (i = 0; i < job->count; i += 2)
2385     {
2386       how = job->elements[i];
2387       if ((how & SOLVER_JOBMASK) == SOLVER_USERINSTALLED)
2388         {
2389           what = job->elements[i + 1];
2390           select = how & SOLVER_SELECTMASK;
2391           FOR_JOB_SELECT(p, pp, select, what)
2392             if (pool->solvables[p].repo == installed)
2393               MAPSET(&userinstalled, p - installed->start);
2394         }
2395     }
2396
2397   /* also add visible patterns to userinstalled for openSUSE */
2398   if (1)
2399     {
2400       Dataiterator di;
2401       dataiterator_init(&di, pool, 0, 0, SOLVABLE_ISVISIBLE, 0, 0);
2402       while (dataiterator_step(&di))
2403         {
2404           Id *dp;
2405           if (di.solvid <= 0)
2406             continue;
2407           s = pool->solvables + di.solvid;
2408           if (!s->requires)
2409             continue;
2410           if (!pool_installable(pool, s))
2411             continue;
2412           if (strncmp(pool_id2str(pool, s->name), "pattern:", 8) != 0)
2413             continue;
2414           dp = s->repo->idarraydata + s->requires;
2415           for (dp = s->repo->idarraydata + s->requires; *dp; dp++)
2416             FOR_PROVIDES(p, pp, *dp)
2417               if (pool->solvables[p].repo == installed)
2418                 {
2419                   if (strncmp(pool_id2str(pool, pool->solvables[p].name), "pattern", 7) != 0)
2420                     continue;
2421                   MAPSET(&userinstalled, p - installed->start);
2422             }
2423         }
2424       dataiterator_free(&di);
2425     }
2426   if (1)
2427     {
2428       /* all products and their buddies are userinstalled */
2429       for (p = installed->start; p < installed->end; p++)
2430         {
2431           Solvable *s = pool->solvables + p;
2432           if (s->repo != installed)
2433             continue;
2434           if (!strncmp("product:", pool_id2str(pool, s->name), 8))
2435             {
2436               MAPSET(&userinstalled, p - installed->start);
2437               if (pool->nscallback)
2438                 {
2439                   Id buddy = pool->nscallback(pool, pool->nscallbackdata, NAMESPACE_PRODUCTBUDDY, p);
2440                   if (buddy >= installed->start && buddy < installed->end && pool->solvables[buddy].repo == installed)
2441                     MAPSET(&userinstalled, buddy);
2442                 }
2443             }
2444         }
2445     }
2446   
2447   /* add all positive elements (e.g. locks) to "userinstalled" */
2448   for (rid = solv->jobrules; rid < solv->jobrules_end; rid++)
2449     {
2450       r = solv->rules + rid;
2451       if (r->d < 0)
2452         continue;
2453       i = solv->ruletojob.elements[rid - solv->jobrules];
2454       if ((job->elements[i] & SOLVER_CLEANDEPS) == SOLVER_CLEANDEPS)
2455         continue;
2456       FOR_RULELITERALS(p, jp, r)
2457         if (p > 0 && pool->solvables[p].repo == installed)
2458           MAPSET(&userinstalled, p - installed->start);
2459     }
2460
2461   /* add all cleandeps candidates to iq */
2462   for (rid = solv->jobrules; rid < solv->jobrules_end; rid++)
2463     {
2464       r = solv->rules + rid;
2465       if (r->d < 0)
2466         continue;
2467       if (r->d == 0 && r->p < 0 && r->w2 == 0)
2468         {
2469           p = -r->p;
2470           if (pool->solvables[p].repo != installed)
2471             continue;
2472           MAPCLR(&userinstalled, p - installed->start);
2473           if (unneeded)
2474             continue;
2475           i = solv->ruletojob.elements[rid - solv->jobrules];
2476           how = job->elements[i];
2477           if ((how & (SOLVER_JOBMASK|SOLVER_CLEANDEPS)) == (SOLVER_ERASE|SOLVER_CLEANDEPS))
2478             queue_push(&iq, p);
2479         }
2480       else if (r->p > 0)
2481         {
2482           if (unneeded)
2483             continue;
2484           i = solv->ruletojob.elements[rid - solv->jobrules];
2485           if ((job->elements[i] & SOLVER_CLEANDEPS) == SOLVER_CLEANDEPS)
2486             {
2487               /* check if the literals all obsolete some installed package */
2488               Map om;
2489               int iqstart;
2490
2491               /* just one installed literal */
2492               if (r->d == 0 && r->w2 == 0 && pool->solvables[r->p].repo == installed)
2493                 continue;
2494               /* noobs is bad */
2495               if (solv->noobsoletes.size)
2496                 {
2497                   FOR_RULELITERALS(p, jp, r)
2498                     if (MAPTST(&solv->noobsoletes, p))
2499                       break;
2500                   if (p)
2501                     continue;
2502                 }
2503
2504               om.size = 0;
2505               iqstart = iq.count;
2506               FOR_RULELITERALS(p, jp, r)
2507                 {
2508                   if (p < 0)
2509                     {
2510                       queue_truncate(&iq, iqstart);     /* abort */
2511                       break;
2512                     }
2513                   if (pool->solvables[p].repo == installed)
2514                     {
2515                       if (iq.count == iqstart)
2516                         queue_push(&iq, p);
2517                       else
2518                         {
2519                           for (i = iqstart; i < iq.count; i++)
2520                             if (iq.elements[i] == p)
2521                               break;
2522                           queue_truncate(&iq, iqstart);
2523                           if (i < iq.count)
2524                             queue_push(&iq, p);
2525                         }
2526                     }
2527                   else
2528                     intersect_obsoletes(solv, p, &iq, iqstart, &om);
2529                   if (iq.count == iqstart)
2530                     break;
2531                 }
2532               if (om.size)
2533                 map_free(&om);
2534             }
2535         }
2536     }
2537
2538   if (!unneeded)
2539     {
2540       if (solv->cleandeps_updatepkgs)
2541         for (i = 0; i < solv->cleandeps_updatepkgs->count; i++)
2542           queue_push(&iq, solv->cleandeps_updatepkgs->elements[i]);
2543     }
2544
2545   if (unneeded)
2546     queue_empty(&iq);   /* just in case... */
2547
2548   for (p = installed->start; p < installed->end; p++)
2549     {
2550       if (pool->solvables[p].repo != installed)
2551         continue;
2552       MAPSET(&installedm, p);
2553       if (unneeded && !MAPTST(&userinstalled, p - installed->start))
2554         continue;
2555       MAPSET(&im, p);
2556     }
2557
2558 #ifdef CLEANDEPSDEBUG
2559   printf("REMOVE PASS\n");
2560 #endif
2561
2562   for (;;)
2563     {
2564       if (!iq.count)
2565         {
2566           if (unneeded)
2567             break;
2568           /* supplements pass */
2569           for (ip = solv->installed->start; ip < solv->installed->end; ip++)
2570             {
2571               if (!MAPTST(&installedm, ip))
2572                 continue;
2573               s = pool->solvables + ip;
2574               if (!s->supplements)
2575                 continue;
2576               if (!MAPTST(&im, ip))
2577                 continue;
2578               supp = s->repo->idarraydata + s->supplements;
2579               while ((sup = *supp++) != 0)
2580                 if (dep_possible(solv, sup, &im))
2581                   break;
2582               if (!sup)
2583                 {
2584                   supp = s->repo->idarraydata + s->supplements;
2585                   while ((sup = *supp++) != 0)
2586                     if (dep_possible(solv, sup, &installedm))
2587                       {
2588                         /* no longer supplemented, also erase */
2589                         int iqcount = iq.count;
2590                         /* pin packages, see comment above dep_pkgcheck */
2591                         dep_pkgcheck(solv, sup, &im, &iq);
2592                         for (i = iqcount; i < iq.count; i++)
2593                           {
2594                             Id pqp = iq.elements[i];
2595                             if (pool->solvables[pqp].repo == installed)
2596                               MAPSET(&userinstalled, pqp - installed->start);
2597                           }
2598                         queue_truncate(&iq, iqcount);
2599 #ifdef CLEANDEPSDEBUG
2600                         printf("%s supplemented\n", pool_solvid2str(pool, ip));
2601 #endif
2602                         queue_push(&iq, ip);
2603                       }
2604                 }
2605             }
2606           if (!iq.count)
2607             break;
2608         }
2609       ip = queue_shift(&iq);
2610       s = pool->solvables + ip;
2611       if (!MAPTST(&im, ip))
2612         continue;
2613       if (!MAPTST(&installedm, ip))
2614         continue;
2615       if (s->repo == installed && MAPTST(&userinstalled, ip - installed->start))
2616         continue;
2617       MAPCLR(&im, ip);
2618 #ifdef CLEANDEPSDEBUG
2619       printf("removing %s\n", pool_solvable2str(pool, s));
2620 #endif
2621       if (s->requires)
2622         {
2623           reqp = s->repo->idarraydata + s->requires;
2624           while ((req = *reqp++) != 0)
2625             {
2626               if (req == SOLVABLE_PREREQMARKER)
2627                 continue;
2628 #if 0
2629               /* count number of installed packages that match */
2630               count = 0;
2631               FOR_PROVIDES(p, pp, req)
2632                 if (MAPTST(&installedm, p))
2633                   count++;
2634               if (count > 1)
2635                 continue;
2636 #endif
2637               FOR_PROVIDES(p, pp, req)
2638                 {
2639                   if (MAPTST(&im, p))
2640                     {
2641 #ifdef CLEANDEPSDEBUG
2642                       printf("%s requires %s\n", pool_solvid2str(pool, ip), pool_solvid2str(pool, p));
2643 #endif
2644                       queue_push(&iq, p);
2645                     }
2646                 }
2647             }
2648         }
2649       if (s->recommends)
2650         {
2651           reqp = s->repo->idarraydata + s->recommends;
2652           while ((req = *reqp++) != 0)
2653             {
2654 #if 0
2655               count = 0;
2656               FOR_PROVIDES(p, pp, req)
2657                 if (MAPTST(&installedm, p))
2658                   count++;
2659               if (count > 1)
2660                 continue;
2661 #endif
2662               FOR_PROVIDES(p, pp, req)
2663                 {
2664                   if (MAPTST(&im, p))
2665                     {
2666 #ifdef CLEANDEPSDEBUG
2667                       printf("%s recommends %s\n", pool_solvid2str(pool, ip), pool_solvid2str(pool, p));
2668 #endif
2669                       queue_push(&iq, p);
2670                     }
2671                 }
2672             }
2673         }
2674     }
2675
2676   /* turn userinstalled into remove set for pruning */
2677   map_empty(&userinstalled);
2678   for (rid = solv->jobrules; rid < solv->jobrules_end; rid++)
2679     {
2680       r = solv->rules + rid;
2681       if (r->p >= 0 || r->d != 0 || r->w2 != 0)
2682         continue;       /* disabled or not erase */
2683       p = -r->p;
2684       MAPCLR(&im, p);
2685       if (pool->solvables[p].repo == installed)
2686         MAPSET(&userinstalled, p - installed->start);
2687     }
2688   for (p = installed->start; p < installed->end; p++)
2689     if (MAPTST(&im, p))
2690       queue_push(&iq, p);
2691   for (rid = solv->jobrules; rid < solv->jobrules_end; rid++)
2692     {
2693       r = solv->rules + rid;
2694       if (r->d < 0)
2695         continue;
2696       FOR_RULELITERALS(p, jp, r)
2697         if (p > 0)
2698           queue_push(&iq, p);
2699     }
2700   /* also put directly addressed packages on the install queue
2701    * so we can mark patterns as installed */
2702   for (i = 0; i < job->count; i += 2)
2703     {
2704       how = job->elements[i];
2705       if ((how & SOLVER_JOBMASK) == SOLVER_USERINSTALLED)
2706         {
2707           what = job->elements[i + 1];
2708           select = how & SOLVER_SELECTMASK;
2709           if (select == SOLVER_SOLVABLE && pool->solvables[what].repo != installed)
2710             queue_push(&iq, what);
2711         }
2712     }
2713
2714 #ifdef CLEANDEPSDEBUG
2715   printf("ADDBACK PASS\n");
2716 #endif
2717   for (;;)
2718     {
2719       if (!iq.count)
2720         {
2721           /* supplements pass */
2722           for (ip = installed->start; ip < installed->end; ip++)
2723             {
2724               if (!MAPTST(&installedm, ip))
2725                 continue;
2726               if (MAPTST(&userinstalled, ip - installed->start))
2727                 continue;
2728               s = pool->solvables + ip;
2729               if (!s->supplements)
2730                 continue;
2731               if (MAPTST(&im, ip))
2732                 continue;
2733               supp = s->repo->idarraydata + s->supplements;
2734               while ((sup = *supp++) != 0)
2735                 if (dep_possible(solv, sup, &im))
2736                   break;
2737               if (sup)
2738                 {
2739 #ifdef CLEANDEPSDEBUG
2740                   printf("%s supplemented\n", pool_solvid2str(pool, ip));
2741 #endif
2742                   MAPSET(&im, ip);
2743                   queue_push(&iq, ip);
2744                 }
2745             }
2746           if (!iq.count)
2747             break;
2748         }
2749       ip = queue_shift(&iq);
2750       s = pool->solvables + ip;
2751 #ifdef CLEANDEPSDEBUG
2752       printf("adding back %s\n", pool_solvable2str(pool, s));
2753 #endif
2754       if (s->requires)
2755         {
2756           reqp = s->repo->idarraydata + s->requires;
2757           while ((req = *reqp++) != 0)
2758             {
2759               FOR_PROVIDES(p, pp, req)
2760                 {
2761                   if (!MAPTST(&im, p) && MAPTST(&installedm, p))
2762                     {
2763                       if (p == ip)
2764                         continue;
2765                       if (MAPTST(&userinstalled, p - installed->start))
2766                         continue;
2767 #ifdef CLEANDEPSDEBUG
2768                       printf("%s requires %s\n", pool_solvid2str(pool, ip), pool_solvid2str(pool, p));
2769 #endif
2770                       MAPSET(&im, p);
2771                       queue_push(&iq, p);
2772                     }
2773                 }
2774             }
2775         }
2776       if (s->recommends)
2777         {
2778           reqp = s->repo->idarraydata + s->recommends;
2779           while ((req = *reqp++) != 0)
2780             {
2781               FOR_PROVIDES(p, pp, req)
2782                 {
2783                   if (!MAPTST(&im, p) && MAPTST(&installedm, p))
2784                     {
2785                       if (p == ip)
2786                         continue;
2787                       if (MAPTST(&userinstalled, p - installed->start))
2788                         continue;
2789 #ifdef CLEANDEPSDEBUG
2790                       printf("%s recommends %s\n", pool_solvid2str(pool, ip), pool_solvid2str(pool, p));
2791 #endif
2792                       MAPSET(&im, p);
2793                       queue_push(&iq, p);
2794                     }
2795                 }
2796             }
2797         }
2798     }
2799     
2800   queue_free(&iq);
2801   if (solv->cleandeps_updatepkgs)
2802     for (i = 0; i < solv->cleandeps_updatepkgs->count; i++)
2803       MAPSET(&im, solv->cleandeps_updatepkgs->elements[i]);
2804   if (solv->cleandeps_mistakes)
2805     for (i = 0; i < solv->cleandeps_mistakes->count; i++)
2806       MAPSET(&im, solv->cleandeps_mistakes->elements[i]);
2807   for (p = installed->start; p < installed->end; p++)
2808     {
2809       if (pool->solvables[p].repo != installed)
2810         continue;
2811       if (!MAPTST(&im, p))
2812         MAPSET(cleandepsmap, p - installed->start);
2813     }
2814   map_free(&im);
2815   map_free(&installedm);
2816   map_free(&userinstalled);
2817 }
2818
2819
2820 struct trj_data {
2821   Queue *edges;
2822   Id *low;
2823   Id idx;
2824   Id nstack;
2825   Id firstidx;
2826 };
2827
2828 /* Tarjan's SCC algorithm, slightly modifed */
2829 static void
2830 trj_visit(struct trj_data *trj, Id node)
2831 {
2832   Id *low = trj->low;
2833   Queue *edges = trj->edges;
2834   Id myidx, stackstart;
2835   int i;
2836
2837   low[node] = myidx = trj->idx++;
2838   low[(stackstart = trj->nstack++)] = node;
2839   if (edges->elements[node])
2840     {
2841       Id nnode;
2842       for (i = edges->elements[node]; (nnode = edges->elements[i]) != 0; i++)
2843         {
2844           Id l = low[nnode];
2845           if (!l)
2846             {
2847               if (!edges->elements[nnode])
2848                 {
2849                   trj->idx++;
2850                   low[nnode] = -1;
2851                   continue;
2852                 }
2853               trj_visit(trj, nnode);
2854               l = low[nnode];
2855             }
2856           if (l < 0)
2857             continue;
2858           if (l < trj->firstidx)
2859             {
2860               int k;
2861               for (k = l; low[low[k]] == l; k++)
2862                 low[low[k]] = -1;
2863             }
2864           else if (l < low[node])
2865             low[node] = l;
2866         }
2867     }
2868   if (low[node] == myidx)
2869     {
2870       if (myidx != trj->firstidx)
2871         myidx = -1;
2872       for (i = stackstart; i < trj->nstack; i++)
2873         low[low[i]] = myidx;
2874       trj->nstack = stackstart;
2875     }
2876 }
2877
2878 /*
2879  * low will contain the result of the SCC search.
2880  * it must be of at least size 2 * (count + 1) and
2881  * must be zero initialized.
2882  * The layout is:
2883  *    0  low low ... low stack stack ...stack 0
2884  *            count              count
2885  */
2886 static inline void
2887 trj_run(Id *low, int count, Queue *edges)
2888 {
2889   struct trj_data trj;
2890   int i;
2891
2892   trj.edges = edges;
2893   trj.low = low;
2894   trj.idx = count + 1;  /* stack starts here */
2895   for (i = 1; i <= count; i++)
2896     {
2897       if (low[i])
2898         continue;
2899       if (edges->elements[i])
2900         {
2901           trj.firstidx = trj.nstack = trj.idx;
2902           trj_visit(&trj, i);
2903         }
2904       else
2905         {
2906           Id myidx = trj.idx++;
2907           low[i] = myidx;
2908           low[myidx] = i;
2909         }
2910     }
2911 }
2912
2913 /*
2914  * Go through the solvables in the nodes queue and create edges for
2915  * all requires/recommends/supplements between the nodes.
2916  * The edges are stored in the edges queue, we add 1 to the node
2917  * index so that nodes in the edges queue are != 0 and we can
2918  * terminate the edge list with 0.
2919  * Thus for node element 5, the edges are stored starting at
2920  * edges->elements[6] and are 0-terminated.
2921  */
2922 static void
2923 unneeded_create_edges(Solver *solv, Queue *nodes, Queue *edges, Map *installedm, Map *checkm, int norequires)
2924 {
2925   Pool *pool = solv->pool;
2926   Repo *installed = solv->installed;
2927   int count = nodes->count;
2928   int i, j;
2929
2930   queue_empty(edges);
2931
2932   /* leave first element zero to make things easier */
2933   /* also add trailing zero */
2934   queue_insertn(edges, 0, count + 1 + 1);
2935
2936   /* first requires and recommends */
2937   for (i = 0; i < count; i++)
2938     {
2939       Solvable *s = pool->solvables + nodes->elements[i];
2940       int pass;
2941
2942       edges->elements[i + 1] = edges->count;
2943       for (pass = norequires ? 1 : 0; pass < 2; pass++)
2944         {
2945           unsigned int off = pass == 0 ? s->requires : s->recommends;
2946           Id p, pp, *dp;
2947           if (!off)
2948             continue;
2949           for (dp = s->repo->idarraydata + off; *dp; dp++)
2950             FOR_PROVIDES(p, pp, *dp)
2951               {
2952                 Solvable *sp = pool->solvables + p;
2953                 if (s == sp || sp->repo != installed || !MAPTST(checkm, p - installed->start))
2954                   continue;
2955                 for (j = 0; j < count; j++)
2956                   if (p == nodes->elements[j])
2957                     break;
2958                 if (j < count && edges->elements[edges->count - 1] != j + 1)
2959                   queue_push(edges, j + 1);
2960               }
2961         }
2962       queue_push(edges, 0);
2963     }
2964
2965 #if 0
2966   printf("requires + recommends\n");
2967   for (i = 0; i < count; i++)
2968     {
2969       int j;
2970       printf("  %s:\n", pool_solvid2str(pool, nodes->elements[i]));
2971       for (j = edges->elements[i + 1]; edges->elements[j]; j++)
2972         printf("    - %s\n", pool_solvid2str(pool, nodes->elements[edges->elements[j] - 1]));
2973     }
2974 #endif
2975
2976   /* then add supplements */
2977   for (i = 0; i < count; i++)
2978     {
2979       Solvable *s = pool->solvables + nodes->elements[i];
2980       if (s->supplements)
2981         {
2982           Id *dp;
2983           int k;
2984           for (dp = s->repo->idarraydata + s->supplements; *dp; dp++)
2985             if (dep_possible(solv, *dp, installedm))
2986               {
2987                 Queue iq;
2988                 Id iqbuf[16];
2989                 queue_init_buffer(&iq, iqbuf, sizeof(iqbuf)/sizeof(*iqbuf));
2990                 dep_pkgcheck(solv, *dp, 0, &iq);
2991                 for (k = 0; k < iq.count; k++)
2992                   {
2993                     Id p = iq.elements[k];
2994                     Solvable *sp = pool->solvables + p;
2995                     if (p == nodes->elements[i] || sp->repo != installed || !MAPTST(checkm, p - installed->start))
2996                       continue;
2997                     for (j = 0; j < count; j++)
2998                       if (p == nodes->elements[j])
2999                         break;
3000                     /* now add edge from j + 1 to i + 1 */
3001                     queue_insert(edges, edges->elements[j + 1], i + 1);
3002                     /* addapt following edge pointers */
3003                     for (k = j + 2; k < count + 2; k++)
3004                       edges->elements[k]++;
3005                   }
3006                 queue_free(&iq);
3007               }
3008         }
3009     }
3010 #if 0
3011   /* print result */
3012   printf("+ supplements\n");
3013   for (i = 0; i < count; i++)
3014     {
3015       int j;
3016       printf("  %s:\n", pool_solvid2str(pool, nodes->elements[i]));
3017       for (j = edges->elements[i + 1]; edges->elements[j]; j++)
3018         printf("    - %s\n", pool_solvid2str(pool, nodes->elements[edges->elements[j] - 1]));
3019     }
3020 #endif
3021
3022   /* make nodes with no edges have 0 in the edge pointer */
3023   for (i = 0; i < count; i++)
3024     if (!edges->elements[edges->elements[i + 1]])
3025       edges->elements[i + 1] = 0;
3026 }
3027
3028 void
3029 solver_get_unneeded(Solver *solv, Queue *unneededq, int filtered)
3030 {
3031   Repo *installed = solv->installed;
3032   int i;
3033   Map cleandepsmap;
3034
3035   queue_empty(unneededq);
3036   if (!installed || installed->end == installed->start)
3037     return;
3038
3039   map_init(&cleandepsmap, installed->end - installed->start);
3040   solver_createcleandepsmap(solv, &cleandepsmap, 1);
3041   for (i = installed->start; i < installed->end; i++)
3042     if (MAPTST(&cleandepsmap, i - installed->start))
3043       queue_push(unneededq, i);
3044
3045   if (filtered && unneededq->count > 1)
3046     {
3047       Pool *pool = solv->pool;
3048       Queue edges, sccnodes, sccedges;
3049       Map installedm;
3050       int j, count = unneededq->count;
3051       Id *low;
3052
3053       queue_init(&edges);
3054       queue_init(&sccnodes);
3055       queue_init(&sccedges);
3056       map_init(&installedm, pool->nsolvables);
3057       for (i = installed->start; i < installed->end; i++)
3058         if (pool->solvables[i].repo == installed)
3059           MAPSET(&installedm, i);
3060
3061       unneeded_create_edges(solv, unneededq, &edges, &installedm, &cleandepsmap, 0);
3062
3063       /* now run SCC algo */
3064       /* count + 1: one extra element in front as our nodes start with 1,
3065        * 1 extra trailing zero for the stack */
3066       low = solv_calloc(count + 1, 2 * sizeof(Id));
3067       trj_run(low, count, &edges);
3068
3069       /* go through every found SCC */
3070       for (i = 0; i < count; i++)
3071         {
3072           Id l = low[i + 1];
3073           if (l <= 0)
3074             continue;
3075           /* collect scc members */
3076           queue_empty(&sccnodes);
3077           for (j = l; low[low[j]] == l; j++)
3078             {
3079               queue_push(&sccnodes, unneededq->elements[low[j] - 1]);
3080               low[low[j]] = -1;
3081             }
3082           /* If we have more then one element do sub-scc filtering.
3083            * with the requires ignored. The idea is that the filtered
3084            * packages were dragged in via recommends/supplements and
3085            * require the main package. */
3086           if (sccnodes.count > 1)
3087             {
3088               Id *scclow;
3089               Id sccbuf[2 * 10];
3090
3091               queue_empty(&sccedges);
3092               unneeded_create_edges(solv, &sccnodes, &sccedges, &installedm, &cleandepsmap, 1);
3093               memset(sccbuf, 0, sizeof(sccbuf));
3094               scclow = sccnodes.count + 1 <= 10 ? sccbuf : solv_calloc(sccnodes.count + 1, 2 * sizeof(Id));
3095               trj_run(scclow, sccnodes.count, &sccedges);
3096               for (j = 0; j < sccnodes.count; j++)
3097                 if (scclow[j + 1] > 0)
3098                   MAPCLR(&cleandepsmap, sccnodes.elements[j] - installed->start);
3099               if (scclow != sccbuf)
3100                 solv_free(scclow);
3101             }
3102           else if (sccnodes.count)
3103             MAPCLR(&cleandepsmap, sccnodes.elements[0] - installed->start);
3104         }
3105       map_free(&installedm);
3106       solv_free(low);
3107       queue_free(&edges);
3108       queue_free(&sccnodes);
3109       queue_free(&sccedges);
3110
3111       /* finally remove all entries from unneededq that still have the cleandepsmap bit set */
3112       for (i = j = 0; i < count; i++)
3113         if (!MAPTST(&cleandepsmap, unneededq->elements[i] - installed->start))
3114           unneededq->elements[j++] = unneededq->elements[i];
3115       queue_truncate(unneededq, j);
3116     }
3117   map_free(&cleandepsmap);
3118 }
3119
3120 /* EOF */