- make example solv program a tiny bit more secure (shouldn't use system() at all)
[platform/upstream/libsolv.git] / src / pool.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  * pool.c
10  * 
11  * The pool contains information about solvables
12  * stored optimized for memory consumption and fast retrieval.
13  */
14
15 #include <stdio.h>
16 #include <stdlib.h>
17 #include <stdarg.h>
18 #include <unistd.h>
19 #include <string.h>
20
21 #include "pool.h"
22 #include "repo.h"
23 #include "poolid.h"
24 #include "poolid_private.h"
25 #include "poolarch.h"
26 #include "util.h"
27 #include "bitmap.h"
28 #include "evr.h"
29
30 #define SOLVABLE_BLOCK  255
31
32 #define KNOWNID_INITIALIZE
33 #include "knownid.h"
34 #undef KNOWNID_INITIALIZE
35
36 /* create pool */
37 Pool *
38 pool_create(void)
39 {
40   Pool *pool;
41   Solvable *s;
42
43   pool = (Pool *)solv_calloc(1, sizeof(*pool));
44
45   stringpool_init (&pool->ss, initpool_data);
46
47   /* alloc space for RelDep 0 */
48   pool->rels = solv_extend_resize(0, 1, sizeof(Reldep), REL_BLOCK);
49   pool->nrels = 1;
50   memset(pool->rels, 0, sizeof(Reldep));
51
52   /* alloc space for Solvable 0 and system solvable */
53   pool->solvables = solv_extend_resize(0, 2, sizeof(Solvable), SOLVABLE_BLOCK);
54   pool->nsolvables = 2;
55   memset(pool->solvables, 0, 2 * sizeof(Solvable));
56
57   queue_init(&pool->vendormap);
58
59 #ifdef DEBIAN 
60   pool->disttype = DISTTYPE_DEB;
61   pool->noarchid = ARCH_ALL;
62 #else
63   pool->disttype = DISTTYPE_RPM;
64   pool->noarchid = ARCH_NOARCH;
65 #endif
66
67   /* initialize the system solvable */
68   s = pool->solvables + SYSTEMSOLVABLE;
69   s->name = SYSTEM_SYSTEM;
70   s->arch = pool->noarchid;
71   s->evr = ID_EMPTY;
72
73   pool->debugmask = SOLV_DEBUG_RESULT;  /* FIXME */
74 #ifdef FEDORA
75   pool->obsoleteusescolors = 1;
76 #endif
77 #ifdef RPM5
78   pool->forbidselfconflicts = 1;
79   pool->obsoleteusesprovides = 1;
80   pool->implicitobsoleteusesprovides = 1;
81   pool->havedistepoch = 1;
82 #endif
83   return pool;
84 }
85
86
87 /* free all the resources of our pool */
88 void
89 pool_free(Pool *pool)
90 {
91   int i;
92
93   pool_freewhatprovides(pool);
94   pool_freeidhashes(pool);
95   pool_freeallrepos(pool, 1);
96   solv_free(pool->id2arch);
97   solv_free(pool->id2color);
98   solv_free(pool->solvables);
99   stringpool_free(&pool->ss);
100   solv_free(pool->rels);
101   pool_setvendorclasses(pool, 0);
102   queue_free(&pool->vendormap);
103   for (i = 0; i < POOL_TMPSPACEBUF; i++)
104     solv_free(pool->tmpspace.buf[i]);
105   for (i = 0; i < pool->nlanguages; i++)
106     free((char *)pool->languages[i]);
107   solv_free(pool->languages);
108   solv_free(pool->languagecache);
109   solv_free(pool);
110 }
111
112 void
113 pool_freeallrepos(Pool *pool, int reuseids)
114 {
115   int i;
116
117   pool_freewhatprovides(pool);
118   for (i = 1; i < pool->nrepos; i++) 
119     if (pool->repos[i])
120       repo_freedata(pool->repos[i]);
121   pool->repos = solv_free(pool->repos);
122   pool->nrepos = 0; 
123   pool->urepos = 0; 
124   /* the first two solvables don't belong to a repo */
125   pool_free_solvable_block(pool, 2, pool->nsolvables - 2, reuseids);
126 }
127
128 #ifdef MULTI_SEMANTICS
129 void
130 pool_setdisttype(Pool *pool, int disttype)
131 {
132   pool->disttype = disttype;
133   if (disttype == DISTTYPE_RPM)
134     pool->noarchid = ARCH_NOARCH;
135   if (disttype == DISTTYPE_DEB)
136     pool->noarchid = ARCH_ALL;
137   if (disttype == DISTTYPE_ARCH)
138     pool->noarchid = ARCH_ANY;
139   pool->solvables[SYSTEMSOLVABLE].arch = pool->noarchid;
140 }
141 #endif
142
143 int
144 pool_get_flag(Pool *pool, int flag)
145 {
146   switch (flag)
147     {
148     case POOL_FLAG_PROMOTEEPOCH:
149       return pool->promoteepoch;
150     case POOL_FLAG_FORBIDSELFCONFLICTS:
151       return pool->forbidselfconflicts;
152     case POOL_FLAG_OBSOLETEUSESPROVIDES:
153       return pool->obsoleteusesprovides;
154     case POOL_FLAG_IMPLICITOBSOLETEUSESPROVIDES:
155       return pool->implicitobsoleteusesprovides;
156     case POOL_FLAG_OBSOLETEUSESCOLORS:
157       return pool->obsoleteusescolors;
158     case POOL_FLAG_NOINSTALLEDOBSOLETES:
159       return pool->noinstalledobsoletes;
160     case POOL_FLAG_HAVEDISTEPOCH:
161       return pool->havedistepoch;
162     default:
163       break;
164     }
165   return -1;
166 }
167
168 int
169 pool_set_flag(Pool *pool, int flag, int value)
170 {
171   int old = pool_get_flag(pool, flag);
172   switch (flag)
173     {
174     case POOL_FLAG_PROMOTEEPOCH:
175       pool->promoteepoch = value;
176       break;
177     case POOL_FLAG_FORBIDSELFCONFLICTS:
178       pool->forbidselfconflicts = value;
179       break;
180     case POOL_FLAG_OBSOLETEUSESPROVIDES:
181       pool->obsoleteusesprovides = value;
182       break;
183     case POOL_FLAG_IMPLICITOBSOLETEUSESPROVIDES:
184       pool->implicitobsoleteusesprovides = value;
185       break;
186     case POOL_FLAG_OBSOLETEUSESCOLORS:
187       pool->obsoleteusescolors = value;
188       break;
189     case POOL_FLAG_NOINSTALLEDOBSOLETES:
190       pool->noinstalledobsoletes = value;
191       break;
192     case POOL_FLAG_HAVEDISTEPOCH:
193       pool->havedistepoch = value;
194       break;
195     default:
196       break;
197     }
198   return old;
199 }
200
201
202 Id
203 pool_add_solvable(Pool *pool)
204 {
205   pool->solvables = solv_extend(pool->solvables, pool->nsolvables, 1, sizeof(Solvable), SOLVABLE_BLOCK);
206   memset(pool->solvables + pool->nsolvables, 0, sizeof(Solvable));
207   return pool->nsolvables++;
208 }
209
210 Id
211 pool_add_solvable_block(Pool *pool, int count)
212 {
213   Id nsolvables = pool->nsolvables;
214   if (!count)
215     return nsolvables;
216   pool->solvables = solv_extend(pool->solvables, pool->nsolvables, count, sizeof(Solvable), SOLVABLE_BLOCK);
217   memset(pool->solvables + nsolvables, 0, sizeof(Solvable) * count);
218   pool->nsolvables += count;
219   return nsolvables;
220 }
221
222 void
223 pool_free_solvable_block(Pool *pool, Id start, int count, int reuseids)
224 {
225   if (!count)
226     return;
227   if (reuseids && start + count == pool->nsolvables)
228     {
229       /* might want to shrink solvable array */
230       pool->nsolvables = start;
231       return;
232     }
233   memset(pool->solvables + start, 0, sizeof(Solvable) * count);
234 }
235
236
237 void
238 pool_set_installed(Pool *pool, Repo *installed)
239 {
240   if (pool->installed == installed)
241     return;
242   pool->installed = installed;
243   pool_freewhatprovides(pool);
244 }
245
246 static int
247 pool_shrink_whatprovides_sortcmp(const void *ap, const void *bp, void *dp)
248 {
249   int r;
250   Pool *pool = dp;
251   Id oa, ob, *da, *db;
252   oa = pool->whatprovides[*(Id *)ap];
253   ob = pool->whatprovides[*(Id *)bp];
254   if (oa == ob)
255     return *(Id *)ap - *(Id *)bp;
256   da = pool->whatprovidesdata + oa;
257   db = pool->whatprovidesdata + ob;
258   while (*db)
259     if ((r = (*da++ - *db++)) != 0)
260       return r;
261   if (*da)
262     return *da;
263   return *(Id *)ap - *(Id *)bp;
264 }
265
266 /*
267  * pool_shrink_whatprovides  - unify whatprovides data
268  *
269  * whatprovides_rel must be empty for this to work!
270  *
271  */
272 static void
273 pool_shrink_whatprovides(Pool *pool)
274 {
275   Id i, n, id;
276   Id *sorted;
277   Id lastid, *last, *dp, *lp;
278   Offset o;
279   int r;
280
281   if (pool->ss.nstrings < 3)
282     return;
283   sorted = solv_malloc2(pool->ss.nstrings, sizeof(Id));
284   for (i = id = 0; id < pool->ss.nstrings; id++)
285     if (pool->whatprovides[id] && pool->whatprovides[id] != 1)
286       sorted[i++] = id;
287   n = i;
288   solv_sort(sorted, n, sizeof(Id), pool_shrink_whatprovides_sortcmp, pool);
289   last = 0;
290   lastid = 0;
291   for (i = 0; i < n; i++)
292     {
293       id = sorted[i];
294       o = pool->whatprovides[id];
295       dp = pool->whatprovidesdata + o;
296       if (last)
297         {
298           lp = last;
299           while (*dp)   
300             if (*dp++ != *lp++)
301               {
302                 last = 0;
303                 break;
304               }
305           if (last && *lp)
306             last = 0;
307           if (last)
308             {
309               pool->whatprovides[id] = -lastid;
310               continue;
311             }
312         }
313       last = pool->whatprovidesdata + o;
314       lastid = id;
315     }
316   solv_free(sorted);
317   dp = pool->whatprovidesdata + 2;
318   for (id = 1; id < pool->ss.nstrings; id++)
319     {
320       o = pool->whatprovides[id];
321       if (o == 0 || o == 1)
322         continue;
323       if ((Id)o < 0)
324         {
325           i = -(Id)o;
326           if (i >= id)
327             abort();
328           pool->whatprovides[id] = pool->whatprovides[i];
329           continue;
330         }
331       lp = pool->whatprovidesdata + o;
332       if (lp < dp)
333         abort();
334       pool->whatprovides[id] = dp - pool->whatprovidesdata;
335       while ((*dp++ = *lp++) != 0)
336         ;
337     }
338   o = dp - pool->whatprovidesdata;
339   POOL_DEBUG(SOLV_DEBUG_STATS, "shrunk whatprovidesdata from %d to %d\n", pool->whatprovidesdataoff, o);
340   if (pool->whatprovidesdataoff == o)
341     return;
342   r = pool->whatprovidesdataoff - o;
343   pool->whatprovidesdataoff = o;
344   pool->whatprovidesdata = solv_realloc(pool->whatprovidesdata, (o + pool->whatprovidesdataleft) * sizeof(Id));
345   if (r > pool->whatprovidesdataleft)
346     r = pool->whatprovidesdataleft;
347   memset(pool->whatprovidesdata + o, 0, r * sizeof(Id));
348 }
349
350
351 /*
352  * pool_createwhatprovides()
353  * 
354  * create hashes over pool of solvables to ease provide lookups
355  * 
356  */
357 void
358 pool_createwhatprovides(Pool *pool)
359 {
360   int i, num, np, extra;
361   Offset off;
362   Solvable *s;
363   Id id;
364   Offset *idp, n;
365   Offset *whatprovides;
366   Id *whatprovidesdata, *d;
367   Repo *installed = pool->installed;
368   unsigned int now;
369
370   now = solv_timems(0);
371   POOL_DEBUG(SOLV_DEBUG_STATS, "number of solvables: %d, memory used: %d K\n", pool->nsolvables, pool->nsolvables * (int)sizeof(Solvable) / 1024);
372   POOL_DEBUG(SOLV_DEBUG_STATS, "number of ids: %d + %d\n", pool->ss.nstrings, pool->nrels);
373   POOL_DEBUG(SOLV_DEBUG_STATS, "string memory used: %d K array + %d K data,  rel memory used: %d K array\n", pool->ss.nstrings / (1024 / (int)sizeof(Id)), pool->ss.sstrings / 1024, pool->nrels * (int)sizeof(Reldep) / 1024);
374   if (pool->ss.stringhashmask || pool->relhashmask)
375     POOL_DEBUG(SOLV_DEBUG_STATS, "string hash memory: %d K, rel hash memory : %d K\n", (pool->ss.stringhashmask + 1) / (int)(1024/sizeof(Id)), (pool->relhashmask + 1) / (int)(1024/sizeof(Id)));
376
377   pool_freeidhashes(pool);      /* XXX: should not be here! */
378   pool_freewhatprovides(pool);
379   num = pool->ss.nstrings;
380   pool->whatprovides = whatprovides = solv_calloc_block(num, sizeof(Offset), WHATPROVIDES_BLOCK);
381   pool->whatprovides_rel = solv_calloc_block(pool->nrels, sizeof(Offset), WHATPROVIDES_BLOCK);
382
383   /* count providers for each name */
384   for (i = pool->nsolvables - 1; i > 0; i--)
385     {
386       Id *pp;
387       s = pool->solvables + i;
388       if (!s->provides || !s->repo || s->repo->disabled)
389         continue;
390       /* we always need the installed solvable in the whatprovides data,
391          otherwise obsoletes/conflicts on them won't work */
392       if (s->repo != installed && !pool_installable(pool, s))
393         continue;
394       pp = s->repo->idarraydata + s->provides;
395       while ((id = *pp++) != 0)
396         {
397           while (ISRELDEP(id))
398             {
399               Reldep *rd = GETRELDEP(pool, id);
400               id = rd->name;
401             }
402           whatprovides[id]++;          /* inc count of providers */
403         }
404     }
405
406   off = 2;      /* first entry is undef, second is empty list */
407   np = 0;                              /* number of names provided */
408   for (i = 0, idp = whatprovides; i < num; i++, idp++)
409     {
410       n = *idp;
411       if (!n)                          /* no providers */
412         continue;
413       off += n;                        /* make space for all providers */
414       *idp = off++;                    /* now idp points to terminating zero */
415       np++;                            /* inc # of provider 'slots' for stats */
416     }
417
418   POOL_DEBUG(SOLV_DEBUG_STATS, "provide ids: %d\n", np);
419
420   /* reserve some space for relation data */
421   extra = 2 * pool->nrels;
422   if (extra < 256)
423     extra = 256;
424
425   POOL_DEBUG(SOLV_DEBUG_STATS, "provide space needed: %d + %d\n", off, extra);
426
427   /* alloc space for all providers + extra */
428   whatprovidesdata = solv_calloc(off + extra, sizeof(Id));
429
430   /* now fill data for all provides */
431   for (i = pool->nsolvables - 1; i > 0; i--)
432     {
433       Id *pp;
434       s = pool->solvables + i;
435       if (!s->provides || !s->repo || s->repo->disabled)
436         continue;
437       if (s->repo != installed && !pool_installable(pool, s))
438         continue;
439
440       /* for all provides of this solvable */
441       pp = s->repo->idarraydata + s->provides;
442       while ((id = *pp++) != 0)
443         {
444           while (ISRELDEP(id))
445             {
446               Reldep *rd = GETRELDEP(pool, id);
447               id = rd->name;
448             }
449           d = whatprovidesdata + whatprovides[id];   /* offset into whatprovidesdata */
450           if (*d != i)          /* don't add same solvable twice */
451             {
452               d[-1] = i;
453               whatprovides[id]--;
454             }
455         }
456     }
457   pool->whatprovidesdata = whatprovidesdata;
458   pool->whatprovidesdataoff = off;
459   pool->whatprovidesdataleft = extra;
460   pool_shrink_whatprovides(pool);
461   POOL_DEBUG(SOLV_DEBUG_STATS, "whatprovides memory used: %d K id array, %d K data\n", (pool->ss.nstrings + pool->nrels + WHATPROVIDES_BLOCK) / (int)(1024/sizeof(Id)), (pool->whatprovidesdataoff + pool->whatprovidesdataleft) / (int)(1024/sizeof(Id)));
462   POOL_DEBUG(SOLV_DEBUG_STATS, "createwhatprovides took %d ms\n", solv_timems(now));
463 }
464
465 /*
466  * free all of our whatprovides data
467  * be careful, everything internalized with pool_queuetowhatprovides is
468  * gone, too
469  */
470 void
471 pool_freewhatprovides(Pool *pool)
472 {
473   pool->whatprovides = solv_free(pool->whatprovides);
474   pool->whatprovides_rel = solv_free(pool->whatprovides_rel);
475   pool->whatprovidesdata = solv_free(pool->whatprovidesdata);
476   pool->whatprovidesdataoff = 0;
477   pool->whatprovidesdataleft = 0;
478 }
479
480
481 /******************************************************************************/
482
483 /*
484  * pool_queuetowhatprovides  - add queue contents to whatprovidesdata
485  * 
486  * on-demand filling of provider information
487  * move queue data into whatprovidesdata
488  * q: queue of Ids
489  * returns: Offset into whatprovides
490  *
491  */
492 Id
493 pool_queuetowhatprovides(Pool *pool, Queue *q)
494 {
495   Offset off;
496   int count = q->count;
497
498   if (count == 0)                      /* queue empty -> 1 */
499     return 1;
500
501   /* extend whatprovidesdata if needed, +1 for ID_NULL-termination */
502   if (pool->whatprovidesdataleft < count + 1)
503     {
504       POOL_DEBUG(SOLV_DEBUG_STATS, "growing provides hash data...\n");
505       pool->whatprovidesdata = solv_realloc(pool->whatprovidesdata, (pool->whatprovidesdataoff + count + 4096) * sizeof(Id));
506       pool->whatprovidesdataleft = count + 4096;
507     }
508
509   /* copy queue to next free slot */
510   off = pool->whatprovidesdataoff;
511   memcpy(pool->whatprovidesdata + pool->whatprovidesdataoff, q->elements, count * sizeof(Id));
512
513   /* adapt count and ID_NULL-terminate */
514   pool->whatprovidesdataoff += count;
515   pool->whatprovidesdata[pool->whatprovidesdataoff++] = ID_NULL;
516   pool->whatprovidesdataleft -= count + 1;
517
518   return (Id)off;
519 }
520
521
522 /*************************************************************************/
523
524 #if defined(MULTI_SEMANTICS)
525 # define EVRCMP_DEPCMP (pool->disttype == DISTTYPE_DEB ? EVRCMP_COMPARE : EVRCMP_MATCH_RELEASE)
526 #elif defined(DEBIAN)
527 # define EVRCMP_DEPCMP EVRCMP_COMPARE
528 #else
529 # define EVRCMP_DEPCMP EVRCMP_MATCH_RELEASE
530 #endif
531
532 /* check if a package's nevr matches a dependency */
533
534 int
535 pool_match_nevr_rel(Pool *pool, Solvable *s, Id d)
536 {
537   Reldep *rd = GETRELDEP(pool, d);
538   Id name = rd->name;
539   Id evr = rd->evr;
540   int flags = rd->flags;
541
542   if (flags > 7)
543     {
544       switch (flags)
545         {
546         case REL_ARCH:
547           if (s->arch != evr)
548             return 0;
549           return pool_match_nevr(pool, s, name);
550         case REL_OR:
551           if (pool_match_nevr(pool, s, name))
552             return 1;
553           return pool_match_nevr(pool, s, evr);
554         case REL_AND:
555         case REL_WITH:
556           if (!pool_match_nevr(pool, s, name))
557             return 0;
558           return pool_match_nevr(pool, s, evr);
559         default:
560           return 0;
561         }
562     }
563   if (!pool_match_nevr(pool, s, name))
564     return 0;
565   if (evr == s->evr)
566     return (flags & REL_EQ) ? 1 : 0;
567   if (!flags)
568     return 0;
569   if (flags == 7)
570     return 1;
571   switch (pool_evrcmp(pool, s->evr, evr, EVRCMP_DEPCMP))
572     {
573     case -2:
574       return 1;
575     case -1:
576       return (flags & REL_LT) ? 1 : 0;
577     case 0:
578       return (flags & REL_EQ) ? 1 : 0;
579     case 1:
580       return (flags & REL_GT) ? 1 : 0;
581     case 2:
582       return (flags & REL_EQ) ? 1 : 0;
583     default:
584       break;
585     }
586   return 0;
587 }
588
589 /* match (flags, evr) against provider (pflags, pevr) */
590 static inline int
591 pool_match_flags_evr(Pool *pool, int pflags, Id pevr, int flags, int evr)
592 {
593   if (!pflags || !flags || pflags >= 8 || flags >= 8)
594     return 0;
595   if (flags == 7 || pflags == 7)
596     return 1;           /* rel provides every version */
597   if ((pflags & flags & (REL_LT | REL_GT)) != 0)
598     return 1;           /* both rels show in the same direction */
599   if (pevr == evr)
600     return (flags & pflags & REL_EQ) ? 1 : 0;
601   switch (pool_evrcmp(pool, pevr, evr, EVRCMP_DEPCMP))
602     {
603     case -2:
604       return (pflags & REL_EQ) ? 1 : 0;
605     case -1:
606       return (flags & REL_LT) || (pflags & REL_GT) ? 1 : 0;
607     case 0:
608       return (flags & pflags & REL_EQ) ? 1 : 0;
609     case 1:
610       return (flags & REL_GT) || (pflags & REL_LT) ? 1 : 0;
611     case 2:
612       return (flags & REL_EQ) ? 1 : 0;
613     default:
614       break;
615     }
616   return 0;
617 }
618
619 /* match two dependencies (d1 = provider) */
620
621 int
622 pool_match_dep(Pool *pool, Id d1, Id d2)
623 {
624   Reldep *rd1, *rd2;
625
626   if (d1 == d2)
627     return 1;
628   if (!ISRELDEP(d1))
629     {
630       if (!ISRELDEP(d2))
631         return 0;
632       rd2 = GETRELDEP(pool, d2);
633       return pool_match_dep(pool, d1, rd2->name);
634     }
635   rd1 = GETRELDEP(pool, d1);
636   if (!ISRELDEP(d2))
637     {
638       return pool_match_dep(pool, rd1->name, d2);
639     }
640   rd2 = GETRELDEP(pool, d2);
641   /* first match name */
642   if (!pool_match_dep(pool, rd1->name, rd2->name))
643     return 0;
644   /* name matches, check flags and evr */
645   return pool_match_flags_evr(pool, rd1->flags, rd1->evr, rd2->flags, rd2->evr);
646 }
647
648 /*
649  * addrelproviders
650  * 
651  * add packages fulfilling the relation to whatprovides array
652  * no exact providers, do range match
653  * 
654  */
655
656 Id
657 pool_addrelproviders(Pool *pool, Id d)
658 {
659   Reldep *rd = GETRELDEP(pool, d);
660   Reldep *prd;
661   Queue plist;
662   Id buf[16];
663   Id name = rd->name;
664   Id evr = rd->evr;
665   int flags = rd->flags;
666   Id pid, *pidp;
667   Id p, *pp;
668
669   d = GETRELID(d);
670   queue_init_buffer(&plist, buf, sizeof(buf)/sizeof(*buf));
671
672   if (flags >= 8)
673     {
674       /* special relation */
675       Id wp = 0;
676       Id *pp2, *pp3;
677
678       switch (flags)
679         {
680         case REL_AND:
681         case REL_WITH:
682           wp = pool_whatprovides(pool, name);
683           pp2 = pool_whatprovides_ptr(pool, evr);
684           pp = pool->whatprovidesdata + wp;
685           while ((p = *pp++) != 0)
686             {
687               for (pp3 = pp2; *pp3; pp3++)
688                 if (*pp3 == p)
689                   break;
690               if (*pp3)
691                 queue_push(&plist, p);  /* found it */
692               else
693                 wp = 0;
694             }
695           break;
696         case REL_OR:
697           wp = pool_whatprovides(pool, name);
698           pp = pool->whatprovidesdata + wp;
699           if (!*pp)
700             wp = pool_whatprovides(pool, evr);
701           else
702             {
703               int cnt;
704               while ((p = *pp++) != 0)
705                 queue_push(&plist, p);
706               cnt = plist.count;
707               pp = pool_whatprovides_ptr(pool, evr);
708               while ((p = *pp++) != 0)
709                 queue_pushunique(&plist, p);
710               if (plist.count != cnt)
711                 wp = 0;
712             }
713           break;
714         case REL_NAMESPACE:
715           if (name == NAMESPACE_OTHERPROVIDERS)
716             {
717               wp = pool_whatprovides(pool, evr);
718               break;
719             }
720           if (pool->nscallback)
721             {
722               /* ask callback which packages provide the dependency
723                * 0:  none
724                * 1:  the system (aka SYSTEMSOLVABLE)
725                * >1: set of packages, stored as offset on whatprovidesdata
726                */
727               p = pool->nscallback(pool, pool->nscallbackdata, name, evr);
728               if (p > 1)
729                 wp = p;
730               if (p == 1)
731                 queue_push(&plist, SYSTEMSOLVABLE);
732             }
733           break;
734         case REL_ARCH:
735           /* small hack: make it possible to match <pkg>.src
736            * we have to iterate over the solvables as src packages do not
737            * provide anything, thus they are not indexed in our
738            * whatprovides hash */
739           if (evr == ARCH_SRC)
740             {
741               Solvable *s;
742               for (p = 1, s = pool->solvables + p; p < pool->nsolvables; p++, s++)
743                 {
744                   if (s->arch != ARCH_SRC && s->arch != ARCH_NOSRC)
745                     continue;
746                   if (pool_match_nevr(pool, s, name))
747                     queue_push(&plist, p);
748                 }
749               break;
750             }
751           wp = pool_whatprovides(pool, name);
752           pp = pool->whatprovidesdata + wp;
753           while ((p = *pp++) != 0)
754             {
755               Solvable *s = pool->solvables + p;
756               if (s->arch == evr)
757                 queue_push(&plist, p);
758               else
759                 wp = 0;
760             }
761           break;
762         case REL_FILECONFLICT:
763           pp = pool_whatprovides_ptr(pool, name);
764           while ((p = *pp++) != 0)
765             {
766               Id origd = MAKERELDEP(d);
767               Solvable *s = pool->solvables + p;
768               if (!s->provides)
769                 continue;
770               pidp = s->repo->idarraydata + s->provides;
771               while ((pid = *pidp++) != 0)
772                 if (pid == origd)
773                   break;
774               if (pid)
775                 queue_push(&plist, p);
776             }
777           break;
778         default:
779           break;
780         }
781       if (wp)
782         {
783           /* we can reuse an existing entry */
784           queue_free(&plist);
785           pool->whatprovides_rel[d] = wp;
786           return wp;
787         }
788     }
789   else if (flags)
790     {
791       /* simple version comparison relation */
792 #if 0
793       POOL_DEBUG(SOLV_DEBUG_STATS, "addrelproviders: what provides %s?\n", pool_dep2str(pool, name));
794 #endif
795       pp = pool_whatprovides_ptr(pool, name);
796       while (ISRELDEP(name))
797         {
798           rd = GETRELDEP(pool, name);
799           name = rd->name;
800         }
801       while ((p = *pp++) != 0)
802         {
803           Solvable *s = pool->solvables + p;
804           if (!s->provides)
805             {
806               /* no provides - check nevr */
807               if (pool_match_nevr_rel(pool, s, MAKERELDEP(d)))
808                 queue_push(&plist, p);
809               continue;
810             }
811           /* solvable p provides name in some rels */
812           pidp = s->repo->idarraydata + s->provides;
813           while ((pid = *pidp++) != 0)
814             {
815               if (!ISRELDEP(pid))
816                 {
817                   if (pid != name)
818                     continue;           /* wrong provides name */
819                   if (pool->disttype == DISTTYPE_DEB)
820                     continue;           /* unversioned provides can never match versioned deps */
821                   break;
822                 }
823               prd = GETRELDEP(pool, pid);
824               if (prd->name != name)
825                 continue;               /* wrong provides name */
826               /* right package, both deps are rels. check flags/evr */
827               if (pool_match_flags_evr(pool, prd->flags, prd->evr, flags, evr))
828                 break;  /* matches */
829             }
830           if (!pid)
831             continue;   /* none of the providers matched */
832           queue_push(&plist, p);
833         }
834       /* make our system solvable provide all unknown rpmlib() stuff */
835       if (plist.count == 0 && !strncmp(pool_id2str(pool, name), "rpmlib(", 7))
836         queue_push(&plist, SYSTEMSOLVABLE);
837     }
838   /* add providers to whatprovides */
839 #if 0
840   POOL_DEBUG(SOLV_DEBUG_STATS, "addrelproviders: adding %d packages to %d\n", plist.count, d);
841 #endif
842   pool->whatprovides_rel[d] = pool_queuetowhatprovides(pool, &plist);
843   queue_free(&plist);
844
845   return pool->whatprovides_rel[d];
846 }
847
848 /*************************************************************************/
849
850 void
851 pool_debug(Pool *pool, int type, const char *format, ...)
852 {
853   va_list args;
854   char buf[1024];
855
856   if ((type & (SOLV_FATAL|SOLV_ERROR)) == 0)
857     {
858       if ((pool->debugmask & type) == 0)
859         return;
860     }
861   va_start(args, format);
862   if (!pool->debugcallback)
863     {
864       if ((type & (SOLV_FATAL|SOLV_ERROR)) == 0 && !(pool->debugmask & SOLV_DEBUG_TO_STDERR))
865         vprintf(format, args);
866       else
867         vfprintf(stderr, format, args);
868       return;
869     }
870   vsnprintf(buf, sizeof(buf), format, args);
871   pool->debugcallback(pool, pool->debugcallbackdata, type, buf);
872 }
873
874 void
875 pool_setdebuglevel(Pool *pool, int level)
876 {
877   int mask = SOLV_DEBUG_RESULT;
878   if (level > 0)
879     mask |= SOLV_DEBUG_STATS|SOLV_DEBUG_ANALYZE|SOLV_DEBUG_UNSOLVABLE|SOLV_DEBUG_SOLVER|SOLV_DEBUG_TRANSACTION;
880   if (level > 1)
881     mask |= SOLV_DEBUG_JOB|SOLV_DEBUG_SOLUTIONS|SOLV_DEBUG_POLICY;
882   if (level > 2)
883     mask |= SOLV_DEBUG_PROPAGATE;
884   if (level > 3)
885     mask |= SOLV_DEBUG_RULE_CREATION;
886   mask |= pool->debugmask & SOLV_DEBUG_TO_STDERR;       /* keep bit */
887   pool->debugmask = mask;
888 }
889
890 void pool_setdebugcallback(Pool *pool, void (*debugcallback)(struct _Pool *, void *data, int type, const char *str), void *debugcallbackdata)
891 {
892   pool->debugcallback = debugcallback;
893   pool->debugcallbackdata = debugcallbackdata;
894 }
895
896 void pool_setdebugmask(Pool *pool, int mask)
897 {
898   pool->debugmask = mask;
899 }
900
901 void pool_setloadcallback(Pool *pool, int (*cb)(struct _Pool *, struct _Repodata *, void *), void *loadcbdata)
902 {
903   pool->loadcallback = cb;
904   pool->loadcallbackdata = loadcbdata;
905 }
906
907 /*************************************************************************/
908
909 struct searchfiles {
910   Id *ids;
911   char **dirs;
912   char **names;
913   int nfiles;
914   Map seen;
915 };
916
917 #define SEARCHFILES_BLOCK 127
918
919 static void
920 pool_addfileprovides_dep(Pool *pool, Id *ida, struct searchfiles *sf, struct searchfiles *isf)
921 {
922   Id dep, sid;
923   const char *s, *sr;
924   struct searchfiles *csf;
925
926   while ((dep = *ida++) != 0)
927     {
928       csf = sf;
929       while (ISRELDEP(dep))
930         {
931           Reldep *rd;
932           sid = pool->ss.nstrings + GETRELID(dep);
933           if (MAPTST(&csf->seen, sid))
934             {
935               dep = 0;
936               break;
937             }
938           MAPSET(&csf->seen, sid);
939           rd = GETRELDEP(pool, dep);
940           if (rd->flags < 8)
941             dep = rd->name;
942           else if (rd->flags == REL_NAMESPACE)
943             {
944               if (rd->name == NAMESPACE_INSTALLED || rd->name == NAMESPACE_SPLITPROVIDES)
945                 {
946                   csf = isf;
947                   if (!csf || MAPTST(&csf->seen, sid))
948                     {
949                       dep = 0;
950                       break;
951                     }
952                   MAPSET(&csf->seen, sid);
953                 }
954               dep = rd->evr;
955             }
956           else if (rd->flags == REL_FILECONFLICT)
957             {
958               dep = 0;
959               break;
960             }
961           else
962             {
963               Id ids[2];
964               ids[0] = rd->name;
965               ids[1] = 0;
966               pool_addfileprovides_dep(pool, ids, csf, isf);
967               dep = rd->evr;
968             }
969         }
970       if (!dep)
971         continue;
972       if (MAPTST(&csf->seen, dep))
973         continue;
974       MAPSET(&csf->seen, dep);
975       s = pool_id2str(pool, dep);
976       if (*s != '/')
977         continue;
978       csf->ids = solv_extend(csf->ids, csf->nfiles, 1, sizeof(Id), SEARCHFILES_BLOCK);
979       csf->dirs = solv_extend(csf->dirs, csf->nfiles, 1, sizeof(const char *), SEARCHFILES_BLOCK);
980       csf->names = solv_extend(csf->names, csf->nfiles, 1, sizeof(const char *), SEARCHFILES_BLOCK);
981       csf->ids[csf->nfiles] = dep;
982       sr = strrchr(s, '/');
983       csf->names[csf->nfiles] = solv_strdup(sr + 1);
984       csf->dirs[csf->nfiles] = solv_malloc(sr - s + 1);
985       if (sr != s)
986         strncpy(csf->dirs[csf->nfiles], s, sr - s);
987       csf->dirs[csf->nfiles][sr - s] = 0;
988       csf->nfiles++;
989     }
990 }
991
992 struct addfileprovides_cbdata {
993   int nfiles;
994   Id *ids;
995   char **dirs;
996   char **names;
997
998   Id *dids;
999
1000   Map providedids;
1001
1002   Map useddirs;
1003 };
1004
1005 static int
1006 addfileprovides_cb(void *cbdata, Solvable *s, Repodata *data, Repokey *key, KeyValue *value)
1007 {
1008   struct addfileprovides_cbdata *cbd = cbdata;
1009   int i;
1010
1011   if (!cbd->useddirs.size)
1012     {
1013       map_init(&cbd->useddirs, data->dirpool.ndirs + 1);
1014       for (i = 0; i < cbd->nfiles; i++)
1015         {
1016           Id did;
1017           if (MAPTST(&cbd->providedids, cbd->ids[i]))
1018             {
1019               cbd->dids[i] = 0;
1020               continue;
1021             }
1022           did = repodata_str2dir(data, cbd->dirs[i], 0);
1023           cbd->dids[i] = did;
1024           if (did)
1025             MAPSET(&cbd->useddirs, did);
1026         }
1027       repodata_free_dircache(data);
1028     }
1029   if (value->id >= data->dirpool.ndirs || !MAPTST(&cbd->useddirs, value->id))
1030     return 0;
1031   for (i = 0; i < cbd->nfiles; i++)
1032     {
1033       if (cbd->dids[i] != value->id)
1034         continue;
1035       if (!strcmp(cbd->names[i], value->str))
1036         break;
1037     }
1038   if (i == cbd->nfiles)
1039     return 0;
1040   s->provides = repo_addid_dep(s->repo, s->provides, cbd->ids[i], SOLVABLE_FILEMARKER);
1041   return 0;
1042 }
1043
1044 static void
1045 pool_addfileprovides_search(Pool *pool, struct addfileprovides_cbdata *cbd, struct searchfiles *sf, Repo *repoonly)
1046 {
1047   Id p;
1048   Repodata *data;
1049   Repo *repo;
1050   Queue fileprovidesq;
1051   int i, j, repoid, repodataid;
1052   int provstart, provend;
1053   Map donemap;
1054   int ndone, incomplete;
1055
1056   if (!pool->urepos)
1057     return;
1058
1059   cbd->nfiles = sf->nfiles;
1060   cbd->ids = sf->ids;
1061   cbd->dirs = sf->dirs;
1062   cbd->names = sf->names;
1063   cbd->dids = solv_realloc2(cbd->dids, sf->nfiles, sizeof(Id));
1064   map_init(&cbd->providedids, pool->ss.nstrings);
1065
1066   repoid = 1;
1067   repo = repoonly ? repoonly : pool->repos[repoid];
1068   map_init(&donemap, pool->nsolvables);
1069   queue_init(&fileprovidesq);
1070   provstart = provend = 0;
1071   for (;;)
1072     {
1073       if (!repo || repo->disabled)
1074         {
1075           if (repoonly || ++repoid == pool->nrepos)
1076             break;
1077           repo = pool->repos[repoid];
1078           continue;
1079         }
1080       ndone = 0;
1081       FOR_REPODATAS(repo, repodataid, data)
1082         {
1083           if (ndone >= repo->nsolvables)
1084             break;
1085
1086           if (repodata_lookup_idarray(data, SOLVID_META, REPOSITORY_ADDEDFILEPROVIDES, &fileprovidesq))
1087             {
1088               map_empty(&cbd->providedids);
1089               for (i = 0; i < fileprovidesq.count; i++)
1090                 MAPSET(&cbd->providedids, fileprovidesq.elements[i]);
1091               provstart = data->start;
1092               provend = data->end;
1093               for (i = 0; i < cbd->nfiles; i++)
1094                 if (!MAPTST(&cbd->providedids, cbd->ids[i]))
1095                   break;
1096               if (i == cbd->nfiles)
1097                 {
1098                   /* great! no need to search files */
1099                   for (p = data->start; p < data->end; p++)
1100                     if (pool->solvables[p].repo == repo)
1101                       {
1102                         if (MAPTST(&donemap, p))
1103                           continue;
1104                         MAPSET(&donemap, p);
1105                         ndone++;
1106                       }
1107                   continue;
1108                 }
1109             }
1110
1111           if (!repodata_has_keyname(data, SOLVABLE_FILELIST))
1112             continue;
1113
1114           if (data->start < provstart || data->end > provend)
1115             {
1116               map_empty(&cbd->providedids);
1117               provstart = provend = 0;
1118             }
1119
1120           /* check if the data is incomplete */
1121           incomplete = 0;
1122           if (data->state == REPODATA_AVAILABLE)
1123             {
1124               for (j = 1; j < data->nkeys; j++)
1125                 if (data->keys[j].name != REPOSITORY_SOLVABLES && data->keys[j].name != SOLVABLE_FILELIST)
1126                   break;
1127               if (j < data->nkeys)
1128                 {
1129 #if 0
1130                   for (i = 0; i < cbd->nfiles; i++)
1131                     if (!MAPTST(&cbd->providedids, cbd->ids[i]) && !repodata_filelistfilter_matches(data, pool_id2str(pool, cbd->ids[i])))
1132                       printf("need complete filelist because of %s\n", pool_id2str(pool, cbd->ids[i]));
1133 #endif
1134                   for (i = 0; i < cbd->nfiles; i++)
1135                     if (!MAPTST(&cbd->providedids, cbd->ids[i]) && !repodata_filelistfilter_matches(data, pool_id2str(pool, cbd->ids[i])))
1136                       break;
1137                   if (i < cbd->nfiles)
1138                     incomplete = 1;
1139                 }
1140             }
1141
1142           /* do the search */
1143           map_init(&cbd->useddirs, 0);
1144           for (p = data->start; p < data->end; p++)
1145             if (pool->solvables[p].repo == repo)
1146               {
1147                 if (MAPTST(&donemap, p))
1148                   continue;
1149                 repodata_search(data, p, SOLVABLE_FILELIST, 0, addfileprovides_cb, cbd);
1150                 if (!incomplete)
1151                   {
1152                     MAPSET(&donemap, p);
1153                     ndone++;
1154                   }
1155               }
1156           map_free(&cbd->useddirs);
1157         }
1158
1159       if (repoonly || ++repoid == pool->nrepos)
1160         break;
1161       repo = pool->repos[repoid];
1162     }
1163   map_free(&donemap);
1164   queue_free(&fileprovidesq);
1165   map_free(&cbd->providedids);
1166 }
1167
1168 void
1169 pool_addfileprovides_queue(Pool *pool, Queue *idq, Queue *idqinst)
1170 {
1171   Solvable *s;
1172   Repo *installed, *repo;
1173   struct searchfiles sf, isf, *isfp;
1174   struct addfileprovides_cbdata cbd;
1175   int i;
1176   unsigned int now;
1177
1178   installed = pool->installed;
1179   now = solv_timems(0);
1180   memset(&sf, 0, sizeof(sf));
1181   map_init(&sf.seen, pool->ss.nstrings + pool->nrels);
1182   memset(&isf, 0, sizeof(isf));
1183   map_init(&isf.seen, pool->ss.nstrings + pool->nrels);
1184
1185   if (idq)
1186     queue_empty(idq);
1187   if (idqinst)
1188     queue_empty(idqinst);
1189   isfp = installed ? &isf : 0;
1190   for (i = 1, s = pool->solvables + i; i < pool->nsolvables; i++, s++)
1191     {
1192       repo = s->repo;
1193       if (!repo)
1194         continue;
1195       if (s->obsoletes)
1196         pool_addfileprovides_dep(pool, repo->idarraydata + s->obsoletes, &sf, isfp);
1197       if (s->conflicts)
1198         pool_addfileprovides_dep(pool, repo->idarraydata + s->conflicts, &sf, isfp);
1199       if (s->requires)
1200         pool_addfileprovides_dep(pool, repo->idarraydata + s->requires, &sf, isfp);
1201       if (s->recommends)
1202         pool_addfileprovides_dep(pool, repo->idarraydata + s->recommends, &sf, isfp);
1203       if (s->suggests)
1204         pool_addfileprovides_dep(pool, repo->idarraydata + s->suggests, &sf, isfp);
1205       if (s->supplements)
1206         pool_addfileprovides_dep(pool, repo->idarraydata + s->supplements, &sf, isfp);
1207       if (s->enhances)
1208         pool_addfileprovides_dep(pool, repo->idarraydata + s->enhances, &sf, isfp);
1209     }
1210   map_free(&sf.seen);
1211   map_free(&isf.seen);
1212   POOL_DEBUG(SOLV_DEBUG_STATS, "found %d file dependencies, %d installed file dependencies\n", sf.nfiles, isf.nfiles);
1213   cbd.dids = 0;
1214   if (sf.nfiles)
1215     {
1216 #if 0
1217       for (i = 0; i < sf.nfiles; i++)
1218         POOL_DEBUG(SOLV_DEBUG_STATS, "looking up %s in filelist\n", pool_id2str(pool, sf.ids[i]));
1219 #endif
1220       pool_addfileprovides_search(pool, &cbd, &sf, 0);
1221       if (idq)
1222         for (i = 0; i < sf.nfiles; i++)
1223           queue_push(idq, sf.ids[i]);
1224       if (idqinst)
1225         for (i = 0; i < sf.nfiles; i++)
1226           queue_push(idqinst, sf.ids[i]);
1227       solv_free(sf.ids);
1228       for (i = 0; i < sf.nfiles; i++)
1229         {
1230           solv_free(sf.dirs[i]);
1231           solv_free(sf.names[i]);
1232         }
1233       solv_free(sf.dirs);
1234       solv_free(sf.names);
1235     }
1236   if (isf.nfiles)
1237     {
1238 #if 0
1239       for (i = 0; i < isf.nfiles; i++)
1240         POOL_DEBUG(SOLV_DEBUG_STATS, "looking up %s in installed filelist\n", pool_id2str(pool, isf.ids[i]));
1241 #endif
1242       if (installed)
1243         pool_addfileprovides_search(pool, &cbd, &isf, installed);
1244       if (installed && idqinst)
1245         for (i = 0; i < isf.nfiles; i++)
1246           queue_pushunique(idqinst, isf.ids[i]);
1247       solv_free(isf.ids);
1248       for (i = 0; i < isf.nfiles; i++)
1249         {
1250           solv_free(isf.dirs[i]);
1251           solv_free(isf.names[i]);
1252         }
1253       solv_free(isf.dirs);
1254       solv_free(isf.names);
1255     }
1256   solv_free(cbd.dids);
1257   pool_freewhatprovides(pool);  /* as we have added provides */
1258   POOL_DEBUG(SOLV_DEBUG_STATS, "addfileprovides took %d ms\n", solv_timems(now));
1259 }
1260
1261 void
1262 pool_addfileprovides(Pool *pool)
1263 {
1264   pool_addfileprovides_queue(pool, 0, 0);
1265 }
1266
1267 void
1268 pool_search(Pool *pool, Id p, Id key, const char *match, int flags, int (*callback)(void *cbdata, Solvable *s, struct _Repodata *data, struct _Repokey *key, struct _KeyValue *kv), void *cbdata)
1269 {
1270   if (p)
1271     {
1272       if (pool->solvables[p].repo)
1273         repo_search(pool->solvables[p].repo, p, key, match, flags, callback, cbdata);
1274       return;
1275     }
1276   /* FIXME: obey callback return value! */
1277   for (p = 1; p < pool->nsolvables; p++)
1278     if (pool->solvables[p].repo)
1279       repo_search(pool->solvables[p].repo, p, key, match, flags, callback, cbdata);
1280 }
1281
1282 void
1283 pool_clear_pos(Pool *pool)
1284 {
1285   memset(&pool->pos, 0, sizeof(pool->pos));
1286 }
1287
1288
1289 void
1290 pool_set_languages(Pool *pool, const char **languages, int nlanguages)
1291 {
1292   int i;
1293
1294   pool->languagecache = solv_free(pool->languagecache);
1295   pool->languagecacheother = 0;
1296   if (pool->nlanguages)
1297     {
1298       for (i = 0; i < pool->nlanguages; i++)
1299         free((char *)pool->languages[i]);
1300       free(pool->languages);
1301     }
1302   pool->nlanguages = nlanguages;
1303   if (!nlanguages)
1304     return;
1305   pool->languages = solv_calloc(nlanguages, sizeof(const char **));
1306   for (i = 0; i < pool->nlanguages; i++)
1307     pool->languages[i] = solv_strdup(languages[i]);
1308 }
1309
1310 Id
1311 pool_id2langid(Pool *pool, Id id, const char *lang, int create)
1312 {
1313   const char *n;
1314   char buf[256], *p;
1315   int l;
1316
1317   if (!lang || !*lang)
1318     return id;
1319   n = pool_id2str(pool, id);
1320   l = strlen(n) + strlen(lang) + 2;
1321   if (l > sizeof(buf))
1322     p = solv_malloc(strlen(n) + strlen(lang) + 2);
1323   else
1324     p = buf;
1325   sprintf(p, "%s:%s", n, lang);
1326   id = pool_str2id(pool, p, create);
1327   if (p != buf)
1328     free(p);
1329   return id;
1330 }
1331
1332 char *
1333 pool_alloctmpspace(Pool *pool, int len)
1334 {
1335   int n = pool->tmpspace.n;
1336   if (!len)
1337     return 0;
1338   if (len > pool->tmpspace.len[n])
1339     {
1340       pool->tmpspace.buf[n] = solv_realloc(pool->tmpspace.buf[n], len + 32);
1341       pool->tmpspace.len[n] = len + 32;
1342     }
1343   pool->tmpspace.n = (n + 1) % POOL_TMPSPACEBUF;
1344   return pool->tmpspace.buf[n];
1345 }
1346
1347 static char *
1348 pool_alloctmpspace_free(Pool *pool, const char *space, int len)
1349 {
1350   if (space)
1351     {
1352       int n, oldn;
1353       n = oldn = pool->tmpspace.n;
1354       for (;;)
1355         {
1356           if (!n--)
1357             n = POOL_TMPSPACEBUF - 1;
1358           if (n == oldn)
1359             break;
1360           if (pool->tmpspace.buf[n] != space)
1361             continue;
1362           if (len > pool->tmpspace.len[n])
1363             {
1364               pool->tmpspace.buf[n] = solv_realloc(pool->tmpspace.buf[n], len + 32);
1365               pool->tmpspace.len[n] = len + 32;
1366             }
1367           return pool->tmpspace.buf[n];
1368         }
1369     }
1370   return 0;
1371 }
1372
1373 void
1374 pool_freetmpspace(Pool *pool, const char *space)
1375 {
1376   int n = pool->tmpspace.n;
1377   if (!space)
1378     return;
1379   n = (n + (POOL_TMPSPACEBUF - 1)) % POOL_TMPSPACEBUF;
1380   if (pool->tmpspace.buf[n] == space)
1381     pool->tmpspace.n = n;
1382 }
1383
1384 char *
1385 pool_tmpjoin(Pool *pool, const char *str1, const char *str2, const char *str3)
1386 {
1387   int l1, l2, l3;
1388   char *s, *str;
1389   l1 = str1 ? strlen(str1) : 0;
1390   l2 = str2 ? strlen(str2) : 0;
1391   l3 = str3 ? strlen(str3) : 0;
1392   s = str = pool_alloctmpspace(pool, l1 + l2 + l3 + 1);
1393   if (l1)
1394     {
1395       strcpy(s, str1);
1396       s += l1;
1397     }
1398   if (l2)
1399     {
1400       strcpy(s, str2);
1401       s += l2;
1402     }
1403   if (l3)
1404     {
1405       strcpy(s, str3);
1406       s += l3;
1407     }
1408   *s = 0;
1409   return str;
1410 }
1411
1412 char *
1413 pool_tmpappend(Pool *pool, const char *str1, const char *str2, const char *str3)
1414 {
1415   int l1, l2, l3;
1416   char *s, *str;
1417
1418   l1 = str1 ? strlen(str1) : 0;
1419   l2 = str2 ? strlen(str2) : 0;
1420   l3 = str3 ? strlen(str3) : 0;
1421   str = pool_alloctmpspace_free(pool, str1, l1 + l2 + l3 + 1);
1422   if (str)
1423     str1 = str;
1424   else
1425     str = pool_alloctmpspace(pool, l1 + l2 + l3 + 1);
1426   s = str;
1427   if (l1)
1428     {
1429       if (s != str1)
1430         strcpy(s, str1);
1431       s += l1;
1432     }
1433   if (l2)
1434     {
1435       strcpy(s, str2);
1436       s += l2;
1437     }
1438   if (l3)
1439     {
1440       strcpy(s, str3);
1441       s += l3;
1442     }
1443   *s = 0;
1444   return str;
1445 }
1446
1447 const char *
1448 pool_bin2hex(Pool *pool, const unsigned char *buf, int len)
1449 {
1450   char *s;
1451   if (!len)
1452     return "";
1453   s = pool_alloctmpspace(pool, 2 * len + 1);
1454   solv_bin2hex(buf, len, s);
1455   return s;
1456 }
1457
1458 /*******************************************************************/
1459
1460 struct mptree {
1461   Id sibling;
1462   Id child;
1463   const char *comp;
1464   int compl;
1465   Id mountpoint;
1466 };
1467
1468 struct ducbdata {
1469   DUChanges *mps;
1470   struct mptree *mptree;
1471   int addsub;
1472   int hasdu;
1473
1474   Id *dirmap;
1475   int nmap;
1476   Repodata *olddata;
1477 };
1478
1479
1480 static int
1481 solver_fill_DU_cb(void *cbdata, Solvable *s, Repodata *data, Repokey *key, KeyValue *value)
1482 {
1483   struct ducbdata *cbd = cbdata;
1484   Id mp;
1485
1486   if (data != cbd->olddata)
1487     {
1488       Id dn, mp, comp, *dirmap, *dirs;
1489       int i, compl;
1490       const char *compstr;
1491       struct mptree *mptree;
1492
1493       /* create map from dir to mptree */
1494       cbd->dirmap = solv_free(cbd->dirmap);
1495       cbd->nmap = 0;
1496       dirmap = solv_calloc(data->dirpool.ndirs, sizeof(Id));
1497       mptree = cbd->mptree;
1498       mp = 0;
1499       for (dn = 2, dirs = data->dirpool.dirs + dn; dn < data->dirpool.ndirs; dn++)
1500         {
1501           comp = *dirs++;
1502           if (comp <= 0)
1503             {
1504               mp = dirmap[-comp];
1505               continue;
1506             }
1507           if (mp < 0)
1508             {
1509               /* unconnected */
1510               dirmap[dn] = mp;
1511               continue;
1512             }
1513           if (!mptree[mp].child)
1514             {
1515               dirmap[dn] = -mp;
1516               continue;
1517             }
1518           if (data->localpool)
1519             compstr = stringpool_id2str(&data->spool, comp);
1520           else
1521             compstr = pool_id2str(data->repo->pool, comp);
1522           compl = strlen(compstr);
1523           for (i = mptree[mp].child; i; i = mptree[i].sibling)
1524             if (mptree[i].compl == compl && !strncmp(mptree[i].comp, compstr, compl))
1525               break;
1526           dirmap[dn] = i ? i : -mp;
1527         }
1528       /* change dirmap to point to mountpoint instead of mptree */
1529       for (dn = 0; dn < data->dirpool.ndirs; dn++)
1530         {
1531           mp = dirmap[dn];
1532           dirmap[dn] = mptree[mp > 0 ? mp : -mp].mountpoint;
1533         }
1534       cbd->dirmap = dirmap;
1535       cbd->nmap = data->dirpool.ndirs;
1536       cbd->olddata = data;
1537     }
1538   cbd->hasdu = 1;
1539   if (value->id < 0 || value->id >= cbd->nmap)
1540     return 0;
1541   mp = cbd->dirmap[value->id];
1542   if (mp < 0)
1543     return 0;
1544   if (cbd->addsub > 0)
1545     {
1546       cbd->mps[mp].kbytes += value->num;
1547       cbd->mps[mp].files += value->num2;
1548     }
1549   else
1550     {
1551       cbd->mps[mp].kbytes -= value->num;
1552       cbd->mps[mp].files -= value->num2;
1553     }
1554   return 0;
1555 }
1556
1557 static void
1558 propagate_mountpoints(struct mptree *mptree, int pos, Id mountpoint)
1559 {
1560   int i;
1561   if (mptree[pos].mountpoint == -1)
1562     mptree[pos].mountpoint = mountpoint;
1563   else
1564     mountpoint = mptree[pos].mountpoint;
1565   for (i = mptree[pos].child; i; i = mptree[i].sibling)
1566     propagate_mountpoints(mptree, i, mountpoint);
1567 }
1568
1569 #define MPTREE_BLOCK 15
1570
1571 void
1572 pool_calc_duchanges(Pool *pool, Map *installedmap, DUChanges *mps, int nmps)
1573 {
1574   char *p;
1575   const char *path, *compstr;
1576   struct mptree *mptree;
1577   int i, nmptree;
1578   int pos, compl;
1579   int mp;
1580   struct ducbdata cbd;
1581   Solvable *s;
1582   Id sp;
1583   Map ignoredu;
1584   Repo *oldinstalled = pool->installed;
1585
1586   memset(&ignoredu, 0, sizeof(ignoredu));
1587   cbd.mps = mps;
1588   cbd.addsub = 0;
1589   cbd.dirmap = 0;
1590   cbd.nmap = 0;
1591   cbd.olddata = 0;
1592
1593   mptree = solv_extend_resize(0, 1, sizeof(struct mptree), MPTREE_BLOCK);
1594
1595   /* our root node */
1596   mptree[0].sibling = 0;
1597   mptree[0].child = 0;
1598   mptree[0].comp = 0;
1599   mptree[0].compl = 0;
1600   mptree[0].mountpoint = -1;
1601   nmptree = 1;
1602   
1603   /* create component tree */
1604   for (mp = 0; mp < nmps; mp++)
1605     {
1606       mps[mp].kbytes = 0;
1607       mps[mp].files = 0;
1608       pos = 0;
1609       path = mps[mp].path;
1610       while(*path == '/')
1611         path++;
1612       while (*path)
1613         {
1614           if ((p = strchr(path, '/')) == 0)
1615             {
1616               compstr = path;
1617               compl = strlen(compstr);
1618               path += compl;
1619             }
1620           else
1621             {
1622               compstr = path;
1623               compl = p - path;
1624               path = p + 1;
1625               while(*path == '/')
1626                 path++;
1627             }
1628           for (i = mptree[pos].child; i; i = mptree[i].sibling)
1629             if (mptree[i].compl == compl && !strncmp(mptree[i].comp, compstr, compl))
1630               break;
1631           if (!i)
1632             {
1633               /* create new node */
1634               mptree = solv_extend(mptree, nmptree, 1, sizeof(struct mptree), MPTREE_BLOCK);
1635               i = nmptree++;
1636               mptree[i].sibling = mptree[pos].child;
1637               mptree[i].child = 0;
1638               mptree[i].comp = compstr;
1639               mptree[i].compl = compl;
1640               mptree[i].mountpoint = -1;
1641               mptree[pos].child = i;
1642             }
1643           pos = i;
1644         }
1645       mptree[pos].mountpoint = mp;
1646     }
1647
1648   propagate_mountpoints(mptree, 0, mptree[0].mountpoint);
1649
1650 #if 0
1651   for (i = 0; i < nmptree; i++)
1652     {
1653       printf("#%d sibling: %d\n", i, mptree[i].sibling);
1654       printf("#%d child: %d\n", i, mptree[i].child);
1655       printf("#%d comp: %s\n", i, mptree[i].comp);
1656       printf("#%d compl: %d\n", i, mptree[i].compl);
1657       printf("#%d mountpont: %d\n", i, mptree[i].mountpoint);
1658     }
1659 #endif
1660
1661   cbd.mptree = mptree;
1662   cbd.addsub = 1;
1663   for (sp = 1, s = pool->solvables + sp; sp < pool->nsolvables; sp++, s++)
1664     {
1665       if (!s->repo || (oldinstalled && s->repo == oldinstalled))
1666         continue;
1667       if (!MAPTST(installedmap, sp))
1668         continue;
1669       cbd.hasdu = 0;
1670       repo_search(s->repo, sp, SOLVABLE_DISKUSAGE, 0, 0, solver_fill_DU_cb, &cbd);
1671       if (!cbd.hasdu && oldinstalled)
1672         {
1673           Id op, opp;
1674           /* no du data available, ignore data of all installed solvables we obsolete */
1675           if (!ignoredu.map)
1676             map_init(&ignoredu, oldinstalled->end - oldinstalled->start);
1677           if (s->obsoletes)
1678             {
1679               Id obs, *obsp = s->repo->idarraydata + s->obsoletes;
1680               while ((obs = *obsp++) != 0)
1681                 FOR_PROVIDES(op, opp, obs)
1682                   if (op >= oldinstalled->start && op < oldinstalled->end)
1683                     MAPSET(&ignoredu, op - oldinstalled->start);
1684             }
1685           FOR_PROVIDES(op, opp, s->name)
1686             if (pool->solvables[op].name == s->name)
1687               if (op >= oldinstalled->start && op < oldinstalled->end)
1688                 MAPSET(&ignoredu, op - oldinstalled->start);
1689         }
1690     }
1691   cbd.addsub = -1;
1692   if (oldinstalled)
1693     {
1694       /* assumes we allways have du data for installed solvables */
1695       FOR_REPO_SOLVABLES(oldinstalled, sp, s)
1696         {
1697           if (MAPTST(installedmap, sp))
1698             continue;
1699           if (ignoredu.map && MAPTST(&ignoredu, sp - oldinstalled->start))
1700             continue;
1701           repo_search(oldinstalled, sp, SOLVABLE_DISKUSAGE, 0, 0, solver_fill_DU_cb, &cbd);
1702         }
1703     }
1704   if (ignoredu.map)
1705     map_free(&ignoredu);
1706   solv_free(cbd.dirmap);
1707   solv_free(mptree);
1708 }
1709
1710 int
1711 pool_calc_installsizechange(Pool *pool, Map *installedmap)
1712 {
1713   Id sp;
1714   Solvable *s;
1715   int change = 0;
1716   Repo *oldinstalled = pool->installed;
1717
1718   for (sp = 1, s = pool->solvables + sp; sp < pool->nsolvables; sp++, s++)
1719     {
1720       if (!s->repo || (oldinstalled && s->repo == oldinstalled))
1721         continue;
1722       if (!MAPTST(installedmap, sp))
1723         continue;
1724       change += solvable_lookup_sizek(s, SOLVABLE_INSTALLSIZE, 0);
1725     }
1726   if (oldinstalled)
1727     {
1728       FOR_REPO_SOLVABLES(oldinstalled, sp, s)
1729         {
1730           if (MAPTST(installedmap, sp))
1731             continue;
1732           change -= solvable_lookup_sizek(s, SOLVABLE_INSTALLSIZE, 0);
1733         }
1734     }
1735   return change;
1736 }
1737
1738 /* map:
1739  *  1: installed
1740  *  2: conflicts with installed
1741  *  8: interesting (only true if installed)
1742  * 16: undecided
1743  */
1744  
1745 static inline Id dep2name(Pool *pool, Id dep)
1746 {
1747   while (ISRELDEP(dep))
1748     {
1749       Reldep *rd = rd = GETRELDEP(pool, dep);
1750       dep = rd->name;
1751     }
1752   return dep;
1753 }
1754
1755 static int providedbyinstalled_multiversion(Pool *pool, unsigned char *map, Id n, Id con) 
1756 {
1757   Id p, pp;
1758   Solvable *sn = pool->solvables + n; 
1759
1760   FOR_PROVIDES(p, pp, sn->name)
1761     {    
1762       Solvable *s = pool->solvables + p; 
1763       if (s->name != sn->name || s->arch != sn->arch)
1764         continue;
1765       if ((map[p] & 9) != 9)
1766         continue;
1767       if (pool_match_nevr(pool, pool->solvables + p, con))
1768         continue;
1769       return 1;         /* found installed package that doesn't conflict */
1770     }
1771   return 0;
1772 }
1773
1774 static inline int providedbyinstalled(Pool *pool, unsigned char *map, Id dep, int ispatch, Map *noobsoletesmap)
1775 {
1776   Id p, pp;
1777   int r = 0;
1778   FOR_PROVIDES(p, pp, dep)
1779     {
1780       if (p == SYSTEMSOLVABLE)
1781         return 1;       /* always boring, as never constraining */
1782       if (ispatch && !pool_match_nevr(pool, pool->solvables + p, dep))
1783         continue;
1784       if (ispatch && noobsoletesmap && noobsoletesmap->size && MAPTST(noobsoletesmap, p) && ISRELDEP(dep))
1785         if (providedbyinstalled_multiversion(pool, map, p, dep))
1786           continue;
1787       if ((map[p] & 9) == 9)
1788         return 9;
1789       r |= map[p] & 17;
1790     }
1791   return r;
1792 }
1793
1794 /*
1795  * pool_trivial_installable - calculate if a set of solvables is
1796  * trivial installable without any other installs/deinstalls of
1797  * packages not belonging to the set.
1798  *
1799  * the state is returned in the result queue:
1800  * 1:  solvable is installable without any other package changes
1801  * 0:  solvable is not installable
1802  * -1: solvable is installable, but doesn't constrain any installed packages
1803  */
1804
1805 void
1806 pool_trivial_installable_noobsoletesmap(Pool *pool, Map *installedmap, Queue *pkgs, Queue *res, Map *noobsoletesmap)
1807 {
1808   int i, r, m, did;
1809   Id p, *dp, con, *conp, req, *reqp;
1810   unsigned char *map;
1811   Solvable *s;
1812
1813   map = solv_calloc(pool->nsolvables, 1);
1814   for (p = 1; p < pool->nsolvables; p++)
1815     {
1816       if (!MAPTST(installedmap, p))
1817         continue;
1818       map[p] |= 9;
1819       s = pool->solvables + p;
1820       if (!s->conflicts)
1821         continue;
1822       conp = s->repo->idarraydata + s->conflicts;
1823       while ((con = *conp++) != 0)
1824         {
1825           dp = pool_whatprovides_ptr(pool, con);
1826           for (; *dp; dp++)
1827             map[p] |= 2;        /* XXX: self conflict ? */
1828         }
1829     }
1830   for (i = 0; i < pkgs->count; i++)
1831     map[pkgs->elements[i]] = 16;
1832
1833   for (i = 0, did = 0; did < pkgs->count; i++, did++)
1834     {
1835       if (i == pkgs->count)
1836         i = 0;
1837       p = pkgs->elements[i];
1838       if ((map[p] & 16) == 0)
1839         continue;
1840       if ((map[p] & 2) != 0)
1841         {
1842           map[p] = 2;
1843           continue;
1844         }
1845       s = pool->solvables + p;
1846       m = 1;
1847       if (s->requires)
1848         {
1849           reqp = s->repo->idarraydata + s->requires;
1850           while ((req = *reqp++) != 0)
1851             {
1852               if (req == SOLVABLE_PREREQMARKER)
1853                 continue;
1854               r = providedbyinstalled(pool, map, req, 0, 0);
1855               if (!r)
1856                 {
1857                   /* decided and miss */
1858                   map[p] = 2;
1859                   break;
1860                 }
1861               m |= r;   /* 1 | 9 | 16 | 17 */
1862             }
1863           if (req)
1864             continue;
1865           if ((m & 9) == 9)
1866             m = 9;
1867         }
1868       if (s->conflicts)
1869         {
1870           int ispatch = 0;      /* see solver.c patch handling */
1871
1872           if (!strncmp("patch:", pool_id2str(pool, s->name), 6))
1873             ispatch = 1;
1874           conp = s->repo->idarraydata + s->conflicts;
1875           while ((con = *conp++) != 0)
1876             {
1877               if ((providedbyinstalled(pool, map, con, ispatch, noobsoletesmap) & 1) != 0)
1878                 {
1879                   map[p] = 2;
1880                   break;
1881                 }
1882               if ((m == 1 || m == 17) && ISRELDEP(con))
1883                 {
1884                   con = dep2name(pool, con);
1885                   if ((providedbyinstalled(pool, map, con, ispatch, noobsoletesmap) & 1) != 0)
1886                     m = 9;
1887                 }
1888             }
1889           if (con)
1890             continue;   /* found a conflict */
1891         }
1892 #if 0
1893       if (s->repo && s->repo != oldinstalled)
1894         {
1895           Id p2, obs, *obsp, *pp;
1896           Solvable *s2;
1897           if (s->obsoletes)
1898             {
1899               obsp = s->repo->idarraydata + s->obsoletes;
1900               while ((obs = *obsp++) != 0)
1901                 {
1902                   if ((providedbyinstalled(pool, map, obs, 0, 0) & 1) != 0)
1903                     {
1904                       map[p] = 2;
1905                       break;
1906                     }
1907                 }
1908               if (obs)
1909                 continue;
1910             }
1911           FOR_PROVIDES(p2, pp, s->name)
1912             {
1913               s2 = pool->solvables + p2;
1914               if (s2->name == s->name && (map[p2] & 1) != 0)
1915                 {
1916                   map[p] = 2;
1917                   break;
1918                 }
1919             }
1920           if (p2)
1921             continue;
1922         }
1923 #endif
1924       if (m != map[p])
1925         {
1926           map[p] = m;
1927           did = 0;
1928         }
1929     }
1930   queue_free(res);
1931   queue_init_clone(res, pkgs);
1932   for (i = 0; i < pkgs->count; i++)
1933     {
1934       m = map[pkgs->elements[i]];
1935       if ((m & 9) == 9)
1936         r = 1;
1937       else if (m & 1)
1938         r = -1;
1939       else
1940         r = 0;
1941       res->elements[i] = r;
1942     }
1943   free(map);
1944 }
1945
1946 void
1947 pool_trivial_installable(Pool *pool, Map *installedmap, Queue *pkgs, Queue *res)
1948 {
1949   pool_trivial_installable_noobsoletesmap(pool, installedmap, pkgs, res, 0);
1950 }
1951
1952 const char *
1953 pool_lookup_str(Pool *pool, Id entry, Id keyname)
1954 {
1955   if (entry == SOLVID_POS && pool->pos.repo)
1956     return repodata_lookup_str(pool->pos.repo->repodata + pool->pos.repodataid, SOLVID_POS, keyname);
1957   if (entry <= 0)
1958     return 0;
1959   return solvable_lookup_str(pool->solvables + entry, keyname);
1960 }
1961
1962 Id
1963 pool_lookup_id(Pool *pool, Id entry, Id keyname)
1964 {
1965   if (entry == SOLVID_POS && pool->pos.repo)
1966     {
1967       Repodata *data = pool->pos.repo->repodata + pool->pos.repodataid;
1968       Id id = repodata_lookup_id(data, SOLVID_POS, keyname);
1969       return data->localpool ? repodata_globalize_id(data, id, 1) : id;
1970     }
1971   if (entry <= 0)
1972     return 0;
1973   return solvable_lookup_id(pool->solvables + entry, keyname);
1974 }
1975
1976 unsigned long long
1977 pool_lookup_num(Pool *pool, Id entry, Id keyname, unsigned long long notfound)
1978 {
1979   if (entry == SOLVID_POS && pool->pos.repo)
1980     {
1981       unsigned long long value;
1982       if (repodata_lookup_num(pool->pos.repo->repodata + pool->pos.repodataid, SOLVID_POS, keyname, &value))
1983         return value;
1984       return notfound;
1985     }
1986   if (entry <= 0)
1987     return notfound;
1988   return solvable_lookup_num(pool->solvables + entry, keyname, notfound);
1989 }
1990
1991 int
1992 pool_lookup_void(Pool *pool, Id entry, Id keyname)
1993 {
1994   if (entry == SOLVID_POS && pool->pos.repo)
1995     return repodata_lookup_void(pool->pos.repo->repodata + pool->pos.repodataid, SOLVID_POS, keyname);
1996   if (entry <= 0)
1997     return 0;
1998   return solvable_lookup_void(pool->solvables + entry, keyname);
1999 }
2000
2001 const unsigned char *
2002 pool_lookup_bin_checksum(Pool *pool, Id entry, Id keyname, Id *typep)
2003 {
2004   if (entry == SOLVID_POS && pool->pos.repo)
2005     return repodata_lookup_bin_checksum(pool->pos.repo->repodata + pool->pos.repodataid, SOLVID_POS, keyname, typep);
2006   if (entry <= 0)
2007     return 0;
2008   return solvable_lookup_bin_checksum(pool->solvables + entry, keyname, typep);
2009 }
2010
2011 const char *
2012 pool_lookup_checksum(Pool *pool, Id entry, Id keyname, Id *typep)
2013 {
2014   if (entry == SOLVID_POS && pool->pos.repo)
2015     {
2016       const unsigned char *chk = repodata_lookup_bin_checksum(pool->pos.repo->repodata + pool->pos.repodataid, SOLVID_POS, keyname, typep);
2017       return chk ? repodata_chk2str(pool->pos.repo->repodata + pool->pos.repodataid, *typep, chk) : 0;
2018     }
2019   if (entry <= 0)
2020     return 0;
2021   return solvable_lookup_checksum(pool->solvables + entry, keyname, typep);
2022 }
2023
2024 void
2025 pool_add_fileconflicts_deps(Pool *pool, Queue *conflicts)
2026 {
2027   int hadhashes = pool->relhashtbl ? 1 : 0;
2028   Solvable *s;
2029   Id fn, p, q, md5;
2030   Id id;
2031   int i;
2032
2033   if (!conflicts->count)
2034     return;
2035   pool_freewhatprovides(pool);
2036   for (i = 0; i < conflicts->count; i += 5)
2037     {
2038       fn = conflicts->elements[i];
2039       p = conflicts->elements[i + 1];
2040       md5 = conflicts->elements[i + 2];
2041       q = conflicts->elements[i + 3];
2042       id = pool_rel2id(pool, fn, md5, REL_FILECONFLICT, 1);
2043       s = pool->solvables + p;
2044       if (!s->repo)
2045         continue;
2046       s->provides = repo_addid_dep(s->repo, s->provides, id, SOLVABLE_FILEMARKER);
2047       s = pool->solvables + q;
2048       if (!s->repo)
2049         continue;
2050       s->conflicts = repo_addid_dep(s->repo, s->conflicts, id, 0);
2051     }
2052   if (!hadhashes)
2053     pool_freeidhashes(pool);
2054 }
2055
2056 /* EOF */