1 /* opkg_hash.c - the opkg package management system
5 Copyright (C) 2002 Compaq Computer Corporation
7 This program is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License as
9 published by the Free Software Foundation; either version 2, or (at
10 your option) any later version.
12 This program is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 General Public License for more details.
24 #include "hash_table.h"
26 #include "opkg_message.h"
29 #include "pkg_parse.h"
30 #include "opkg_utils.h"
32 static abstract_pkg_t * add_new_abstract_pkg_by_name(hash_table_t * hash, const char * pkg_name);
35 * this will talk to both feeds-lists files and installed status files
39 * pkg_hash_init(name, &hash, 1000);
40 * pkg_hash_add_from_file(<feed filename>);
42 * the query function is just there as a shell to prove to me that this
43 * sort of works, but isn't far from doing something useful
46 * modified: CDW 3 Jan. 2002
51 int pkg_hash_init(const char *name, hash_table_t *hash, int len)
53 return hash_table_init(name, hash, len);
56 void free_pkgs (const char *key, void *entry, void *data)
59 abstract_pkg_t *ab_pkg;
61 /* each entry in the hash table is an abstract package, which contains a list
62 * of packages that provide the abstract package */
64 ab_pkg = (abstract_pkg_t*) entry;
68 for (i = 0; i < ab_pkg->pkgs->len; i++)
70 pkg_deinit (ab_pkg->pkgs->pkgs[i]);
71 free (ab_pkg->pkgs->pkgs[i]);
75 abstract_pkg_vec_free (ab_pkg->provided_by);
76 abstract_pkg_vec_free (ab_pkg->replaced_by);
77 pkg_vec_free (ab_pkg->pkgs);
78 free (ab_pkg->depended_upon_by);
83 void pkg_hash_deinit(hash_table_t *hash)
85 hash_table_foreach (hash, free_pkgs, NULL);
86 hash_table_deinit(hash);
90 /* Find the default arch for a given package status file if none is given. */
91 static char *pkg_get_default_arch(opkg_conf_t *conf)
93 nv_pair_list_elt_t *l;
94 char *def_arch = HOST_CPU_STR; /* Default arch */
95 int def_prio = 0; /* Other archs override this */
97 l = conf->arch_list.head;
100 nv_pair_t *nv = l->data;
101 int priority = strtol(nv->value, NULL, 0);
103 /* Check if this arch has higher priority, and is valid */
104 if ((priority > def_prio) &&
105 (strcmp(nv->name, "all")) && (strcmp(nv->name, "noarch"))) {
106 /* Our new default */
113 return strdup(def_arch);
116 int pkg_hash_add_from_file(opkg_conf_t *conf, const char *file_name,
117 pkg_src_t *src, pkg_dest_t *dest, int is_status_file)
119 hash_table_t *hash = &conf->pkg_hash;
124 raw = raw_start = read_raw_pkgs_from_file(file_name);
128 while(*raw){ /* don't worry, we'll increment raw in the parsing function */
133 if (pkg_parse_raw(pkg, &raw, src, dest) == 0) {
134 if (!pkg->architecture) {
135 char *version_str = pkg_version_str_alloc(pkg);
136 pkg->architecture = pkg_get_default_arch(conf);
137 opkg_message(conf, OPKG_ERROR, "Package %s version %s has no architecture specified, defaulting to %s.\n",
138 pkg->name, version_str, pkg->architecture);
141 hash_insert_pkg(hash, pkg, is_status_file,conf);
147 /* XXX: CLEANUP: I'd like a cleaner interface for cleaning up
148 memory after read_raw_pkgs_from_file */
157 abstract_pkg_t * abstract_pkg_fetch_by_name(hash_table_t * hash, const char * pkg_name)
159 return (abstract_pkg_t *)hash_table_get(hash, pkg_name);
162 abstract_pkg_vec_t *pkg_hash_fetch_all_installation_candidates(hash_table_t *hash, const char *name)
164 abstract_pkg_t *apkg = abstract_pkg_fetch_by_name(hash, name);
167 return apkg->provided_by;
171 pkg_t *pkg_hash_fetch_best_installation_candidate(opkg_conf_t *conf, abstract_pkg_t *apkg,
172 int (*constraint_fcn)(pkg_t *pkg, void *cdata), void *cdata, int quiet)
177 pkg_vec_t *matching_pkgs = pkg_vec_alloc();
178 abstract_pkg_vec_t *matching_apkgs = abstract_pkg_vec_alloc();
179 abstract_pkg_vec_t *provided_apkg_vec;
180 abstract_pkg_t **provided_apkgs;
181 abstract_pkg_vec_t *providers = abstract_pkg_vec_alloc();
182 pkg_t *latest_installed_parent = NULL;
183 pkg_t *latest_matching = NULL;
184 pkg_t *held_pkg = NULL;
185 pkg_t *good_pkg_by_name = NULL;
187 if (matching_apkgs == NULL || providers == NULL ||
188 apkg == NULL || apkg->provided_by == NULL || (apkg->provided_by->len == 0))
191 opkg_message(conf, OPKG_DEBUG, "best installation candidate for %s\n", apkg->name);
193 provided_apkg_vec = apkg->provided_by;
194 nprovides = provided_apkg_vec->len;
195 provided_apkgs = provided_apkg_vec->pkgs;
197 opkg_message(conf, OPKG_DEBUG, " apkg=%s nprovides=%d\n", apkg->name, nprovides);
199 /* accumulate all the providers */
200 for (i = 0; i < nprovides; i++) {
201 abstract_pkg_t *provider_apkg = provided_apkgs[i];
202 opkg_message(conf, OPKG_DEBUG, " adding %s to providers\n", provider_apkg->name);
203 abstract_pkg_vec_insert(providers, provider_apkg);
205 nprovides = providers->len;
207 for (i = 0; i < nprovides; i++) {
208 abstract_pkg_t *provider_apkg = abstract_pkg_vec_get(providers, i);
209 abstract_pkg_t *replacement_apkg = NULL;
212 if (provider_apkg->replaced_by && provider_apkg->replaced_by->len) {
213 replacement_apkg = provider_apkg->replaced_by->pkgs[0];
214 if (provider_apkg->replaced_by->len > 1) {
215 opkg_message(conf, OPKG_NOTICE, "Multiple replacers for %s, using first one (%s)\n",
216 provider_apkg->name, replacement_apkg->name);
220 if (replacement_apkg)
221 opkg_message(conf, OPKG_DEBUG, " replacement_apkg=%s for provider_apkg=%s\n",
222 replacement_apkg->name, provider_apkg->name);
224 if (replacement_apkg && (replacement_apkg != provider_apkg)) {
225 if (abstract_pkg_vec_contains(providers, replacement_apkg))
228 provider_apkg = replacement_apkg;
231 if (!(vec = provider_apkg->pkgs)) {
232 opkg_message(conf, OPKG_DEBUG, " no pkgs for provider_apkg %s\n", provider_apkg->name);
237 /* now check for supported architecture */
242 /* count packages matching max arch priority and keep track of last one */
243 for (i = 0; i < vec->len; i++) {
244 pkg_t *maybe = vec->pkgs[i];
245 opkg_message(conf, OPKG_DEBUG, " %s arch=%s arch_priority=%d version=%s \n",
246 maybe->name, maybe->architecture, maybe->arch_priority, maybe->version);
247 if (maybe->arch_priority > 0) {
249 abstract_pkg_vec_insert(matching_apkgs, maybe->parent);
250 pkg_vec_insert(matching_pkgs, maybe);
256 if (matching_pkgs->len > 1)
257 pkg_vec_sort(matching_pkgs, pkg_name_version_and_architecture_compare);
258 if (matching_apkgs->len > 1)
259 abstract_pkg_vec_sort(matching_pkgs, abstract_pkg_name_compare);
261 /* Here it is usefull, if ( matching_apkgs->len > 1 ), to test if one of this matching packages has the same name of the
262 needed package. In this case, I would return it for install, otherwise I will continue with the procedure */
263 /* The problem is what to do when there are more than a mathing package, with the same name and several version ?
264 Until now I always got the latest, but that breaks the downgrade option.
265 If I stop at the first one, I would probably miss the new ones
266 Maybe the way is to have some kind of flag somewhere, to see if the package been asked to install is from a file,
267 or from a Packages feed.
268 It it is from a file it always need to be checked whatever version I have in feeds or everywhere, according to force-down or whatever options*/
271 for (i = 0; i < matching_pkgs->len; i++) {
272 pkg_t *matching = matching_pkgs->pkgs[i];
273 if (constraint_fcn(matching, cdata)) { /* We found it */
274 opkg_message(conf, OPKG_DEBUG, " Found a valid candidate for the install: %s %s \n", matching->name, matching->version) ;
275 good_pkg_by_name = matching;
276 if ( matching->provided_by_hand == 1 ) /* It has been provided by hand, so it is what user want */
282 for (i = 0; i < matching_pkgs->len; i++) {
283 pkg_t *matching = matching_pkgs->pkgs[i];
284 latest_matching = matching;
285 if (matching->parent->state_status == SS_INSTALLED || matching->parent->state_status == SS_UNPACKED)
286 latest_installed_parent = matching;
287 if (matching->state_flag & (SF_HOLD|SF_PREFER)) {
289 opkg_message(conf, OPKG_ERROR, "Multiple packages (%s and %s) providing same name marked HOLD or PREFER. Using latest.\n",
290 held_pkg->name, matching->name);
295 if (!good_pkg_by_name && !held_pkg && !latest_installed_parent && matching_apkgs->len > 1 && !quiet) {
296 opkg_message(conf, OPKG_ERROR, "Package=%s, %d matching providers\n",
297 apkg->name, matching_apkgs->len);
298 for (i = 0; i < matching_apkgs->len; i++) {
299 abstract_pkg_t *matching = matching_apkgs->pkgs[i];
300 opkg_message(conf, OPKG_ERROR, " %s\n", matching->name);
302 opkg_message(conf, OPKG_ERROR, "Please select one with opkg install or opkg flag prefer\n");
305 if (matching_apkgs->len > 1 && conf->verbosity > 1) {
306 opkg_message(conf, OPKG_NOTICE, "%s: for apkg=%s, %d matching pkgs\n",
307 __FUNCTION__, apkg->name, matching_pkgs->len);
308 for (i = 0; i < matching_pkgs->len; i++) {
309 pkg_t *matching = matching_pkgs->pkgs[i];
310 opkg_message(conf, OPKG_INFO, " %s %s %s\n",
311 matching->name, matching->version, matching->architecture);
315 nmatching = matching_apkgs->len;
317 pkg_vec_free(matching_pkgs);
318 abstract_pkg_vec_free(matching_apkgs);
319 abstract_pkg_vec_free(providers);
321 if (good_pkg_by_name) { /* We found a good candidate, we will install it */
322 return good_pkg_by_name;
325 opkg_message(conf, OPKG_INFO, " using held package %s\n", held_pkg->name);
328 if (latest_installed_parent) {
329 opkg_message(conf, OPKG_INFO, " using latest version of installed package %s\n", latest_installed_parent->name);
330 return latest_installed_parent;
333 opkg_message(conf, OPKG_INFO, " no matching pkg out of matching_apkgs=%d\n", nmatching);
336 if (latest_matching) {
337 opkg_message(conf, OPKG_INFO, " using latest matching %s %s %s\n",
338 latest_matching->name, latest_matching->version, latest_matching->architecture);
339 return latest_matching;
344 static int pkg_name_constraint_fcn(pkg_t *pkg, void *cdata)
346 const char *name = (const char *)cdata;
347 if (strcmp(pkg->name, name) == 0)
353 pkg_t *pkg_hash_fetch_best_installation_candidate_by_name(opkg_conf_t *conf, const char *name)
355 hash_table_t *hash = &conf->pkg_hash;
356 abstract_pkg_t *apkg = NULL;
358 if (!(apkg = abstract_pkg_fetch_by_name(hash, name)))
361 return pkg_hash_fetch_best_installation_candidate(conf, apkg, pkg_name_constraint_fcn, apkg->name, 0);
365 pkg_t * pkg_hash_fetch_by_name_version(hash_table_t *hash,
366 const char *pkg_name,
367 const char * version)
371 char *version_str = NULL;
373 if(!(vec = pkg_vec_fetch_by_name(hash, pkg_name)))
376 for(i = 0; i < vec->len; i++) {
377 version_str = pkg_version_str_alloc(vec->pkgs[i]);
378 if(!strcmp(version_str, version)) {
391 pkg_t *pkg_hash_fetch_installed_by_name_dest(hash_table_t *hash,
392 const char *pkg_name,
398 if(!(vec = pkg_vec_fetch_by_name(hash, pkg_name))) {
402 for(i = 0; i < vec->len; i++)
403 if((vec->pkgs[i]->state_status == SS_INSTALLED || vec->pkgs[i]->state_status == SS_UNPACKED) && vec->pkgs[i]->dest == dest) {
409 pkg_t *pkg_hash_fetch_installed_by_name(hash_table_t *hash,
410 const char *pkg_name)
415 if(!(vec = pkg_vec_fetch_by_name(hash, pkg_name))){
419 for(i = 0; i < vec->len; i++)
420 if (vec->pkgs[i]->state_status == SS_INSTALLED || vec->pkgs[i]->state_status == SS_UNPACKED){
427 pkg_vec_t *pkg_vec_fetch_by_name(hash_table_t *hash, const char *pkg_name)
429 abstract_pkg_t * ab_pkg;
431 if(!(ab_pkg = abstract_pkg_fetch_by_name(hash, pkg_name))){
437 } else if (ab_pkg->provided_by) {
438 abstract_pkg_t *abpkg = abstract_pkg_vec_get(ab_pkg->provided_by, 0);
449 static int pkg_compare_names(const void *p1, const void *p2)
451 const pkg_t *pkg1 = *(const pkg_t **)p1;
452 const pkg_t *pkg2 = *(const pkg_t **)p2;
453 if (pkg1->name == NULL)
455 if (pkg2->name == NULL)
457 return(strcmp(pkg1->name, pkg2->name));
461 static void pkg_hash_fetch_available_helper(const char *pkg_name, void *entry, void *data)
464 abstract_pkg_t *ab_pkg = (abstract_pkg_t *)entry;
465 pkg_vec_t *all = (pkg_vec_t *)data;
466 pkg_vec_t *pkg_vec = ab_pkg->pkgs;
468 for (j = 0; j < pkg_vec->len; j++) {
469 pkg_t *pkg = pkg_vec->pkgs[j];
470 pkg_vec_insert(all, pkg);
475 void pkg_hash_fetch_available(hash_table_t *hash, pkg_vec_t *all)
477 hash_table_foreach(hash, pkg_hash_fetch_available_helper, all);
478 qsort(all->pkgs, all->len, sizeof(pkg_t *), pkg_compare_names);
481 static void pkg_hash_fetch_all_installed_helper(const char *pkg_name, void *entry, void *data)
483 abstract_pkg_t *ab_pkg = (abstract_pkg_t *)entry;
484 pkg_vec_t *all = (pkg_vec_t *)data;
485 pkg_vec_t *pkg_vec = ab_pkg->pkgs;
488 for (j = 0; j < pkg_vec->len; j++) {
489 pkg_t *pkg = pkg_vec->pkgs[j];
490 if (pkg->state_status == SS_INSTALLED || pkg->state_status == SS_UNPACKED) {
491 pkg_vec_insert(all, pkg);
496 void pkg_hash_fetch_all_installed(hash_table_t *hash, pkg_vec_t *all)
498 hash_table_foreach(hash, pkg_hash_fetch_all_installed_helper, all);
499 qsort(all->pkgs, all->len, sizeof(void*), pkg_compare_names);
502 static void pkg_hash_dump_helper(const char *pkg_name, void *entry, void *data)
506 abstract_pkg_t *ab_pkg = (abstract_pkg_t *)entry;
507 opkg_conf_t *conf = (opkg_conf_t *)data;
508 abstract_pkg_t ** dependents = ab_pkg->depended_upon_by;
509 fprintf(stdout, "%s\n", ab_pkg->name);
511 if (dependents != NULL)
512 while (dependents [i] != NULL)
513 printf ("\tdepended upon by - %s\n", dependents [i ++]->name);
514 dependents = ab_pkg->provided_by->pkgs;
516 if (dependents != NULL)
517 while (dependents [i] != NULL && i < ab_pkg->provided_by->len)
518 printf ("\tprovided by - %s\n", dependents [i ++]->name);
519 pkg = pkg_hash_fetch_best_installation_candidate_by_name (conf, ab_pkg->name);
522 while (i < pkg->depends_count)
523 printf ("\tdepends on - %s\n", pkg->depends_str [i ++]);
526 void pkg_hash_dump(hash_table_t *hash, void *data)
529 printf ("\n\n+=+%s+=+\n\n", __FUNCTION__);
530 hash_table_foreach(hash, pkg_hash_dump_helper, data);
531 printf ("\n+=+%s+=+\n\n", __FUNCTION__);
534 abstract_pkg_t * ensure_abstract_pkg_by_name(hash_table_t * hash, const char * pkg_name)
536 abstract_pkg_t * ab_pkg;
538 if(!(ab_pkg = abstract_pkg_fetch_by_name(hash, pkg_name)))
539 ab_pkg = add_new_abstract_pkg_by_name(hash, pkg_name);
544 pkg_t *hash_insert_pkg(hash_table_t *hash, pkg_t *pkg, int set_status,opkg_conf_t *conf)
546 abstract_pkg_t * ab_pkg;
552 arch_priority = pkg->arch_priority;
554 if (buildDepends(hash, pkg)<0){
555 fprintf(stderr, "%s : This should never happen. Report this Bug in bugzilla please \n ",__FUNCTION__);
558 ab_pkg = ensure_abstract_pkg_by_name(hash, pkg->name);
561 if (pkg->state_status == SS_INSTALLED) {
562 ab_pkg->state_status = SS_INSTALLED;
563 } else if (pkg->state_status == SS_UNPACKED) {
564 ab_pkg->state_status = SS_UNPACKED;
569 ab_pkg->pkgs = pkg_vec_alloc();
571 /* pkg_vec_insert_merge might munge package, but it returns an unmunged pkg */
572 pkg = pkg_vec_insert_merge(ab_pkg->pkgs, pkg, set_status,conf );
573 pkg->parent = ab_pkg;
575 if (buildProvides(hash, ab_pkg, pkg)<0){
576 fprintf(stderr, "%s : This should never happen. Report this Bug in bugzilla please \n ",__FUNCTION__);
579 /* need to build the conflicts graph before replaces for correct calculation of replaced_by relation */
580 if (buildConflicts(hash, ab_pkg, pkg)<0){
581 fprintf(stderr, "%s : This should never happen. Report this Bug in bugzilla please \n ",__FUNCTION__);
584 if (buildReplaces(hash, ab_pkg, pkg)<0) {
585 fprintf(stderr, "%s : This should never happen. Report this Bug in bugzilla please \n ",__FUNCTION__);
589 buildDependedUponBy(pkg, ab_pkg);
594 * this will assume that we've already determined that
595 * the abstract pkg doesn't exist, 'cause we should know these things...
597 static abstract_pkg_t * add_new_abstract_pkg_by_name(hash_table_t * hash, const char * pkg_name)
599 abstract_pkg_t * ab_pkg;
601 ab_pkg = abstract_pkg_new();
602 if (ab_pkg == NULL) { return NULL; }
604 ab_pkg->name = strdup(pkg_name);
605 hash_table_insert(hash, pkg_name, ab_pkg);
611 pkg_t *file_hash_get_file_owner(opkg_conf_t *conf, const char *file_name)
613 hash_table_t *file_hash = &conf->file_hash;
615 return hash_table_get(file_hash, file_name);
618 int file_hash_set_file_owner(opkg_conf_t *conf, const char *file_name, pkg_t *owning_pkg)
620 hash_table_t *file_hash = &conf->file_hash;
621 pkg_t *old_owning_pkg = hash_table_get(file_hash, file_name);
622 int file_name_len = strlen(file_name);
624 if (file_name[file_name_len -1] == '/')
627 if (conf->offline_root) {
628 int len = strlen(conf->offline_root);
629 if (strncmp(file_name, conf->offline_root, len) == 0) {
634 // opkg_message(conf, OPKG_DEBUG2, "owning_pkg=%s filename=%s\n", owning_pkg->name, file_name);
635 hash_table_insert(file_hash, file_name, owning_pkg);
636 if (old_owning_pkg) {
637 str_list_remove_elt(old_owning_pkg->installed_files, file_name);
638 /* mark this package to have its filelist written */
639 old_owning_pkg->state_flag |= SF_FILELIST_CHANGED;
640 owning_pkg->state_flag |= SF_FILELIST_CHANGED;