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"
31 #include "libbb/libbb.h"
34 pkg_hash_init(const char *name
, hash_table_t
*hash
, int len
)
36 hash_table_init(name
, hash
, len
);
40 free_pkgs(const char *key
, void *entry
, void *data
)
43 abstract_pkg_t
*ab_pkg
;
45 /* Each entry in the hash table is an abstract package, which contains
46 * a list of packages that provide the abstract package.
49 ab_pkg
= (abstract_pkg_t
*) entry
;
52 for (i
= 0; i
< ab_pkg
->pkgs
->len
; i
++) {
53 pkg_deinit (ab_pkg
->pkgs
->pkgs
[i
]);
54 free (ab_pkg
->pkgs
->pkgs
[i
]);
58 abstract_pkg_vec_free (ab_pkg
->provided_by
);
59 abstract_pkg_vec_free (ab_pkg
->replaced_by
);
60 pkg_vec_free (ab_pkg
->pkgs
);
61 free (ab_pkg
->depended_upon_by
);
67 pkg_hash_deinit(hash_table_t
*hash
)
69 hash_table_foreach(hash
, free_pkgs
, NULL
);
70 hash_table_deinit(hash
);
74 /* Find the default arch for a given package status file if none is given. */
76 pkg_get_default_arch(opkg_conf_t
*conf
)
78 nv_pair_list_elt_t
*l
;
79 char *def_arch
= HOST_CPU_STR
; /* Default arch */
80 int def_prio
= 0; /* Other archs override this */
82 list_for_each_entry(l
, &conf
->arch_list
.head
, node
) {
83 nv_pair_t
*nv
= (nv_pair_t
*)l
->data
;
84 int priority
= strtol(nv
->value
, NULL
, 0);
86 /* Check if this arch has higher priority, and is valid */
87 if ((priority
> def_prio
) &&
88 (strcmp(nv
->name
, "all")) && (strcmp(nv
->name
, "noarch"))) {
95 return xstrdup(def_arch
);
99 pkg_hash_add_from_file(opkg_conf_t
*conf
, const char *file_name
,
100 pkg_src_t
*src
, pkg_dest_t
*dest
, int is_status_file
)
102 hash_table_t
*hash
= &conf
->pkg_hash
;
106 const size_t len
= 4096;
109 fp
= fopen(file_name
, "r");
111 fprintf(stderr
, "%s: fopen(%s): %s\n",
112 __FUNCTION__
, file_name
, strerror(errno
));
123 ret
= pkg_parse_from_stream_nomalloc(pkg
, fp
, PFM_ALL
,
131 /* Probably a blank line, continue parsing. */
136 if (!pkg
->architecture
) {
137 char *version_str
= pkg_version_str_alloc(pkg
);
138 pkg
->architecture
= pkg_get_default_arch(conf
);
139 opkg_message(conf
, OPKG_ERROR
, "Package %s version %s has no architecture specified, defaulting to %s.\n",
140 pkg
->name
, version_str
, pkg
->architecture
);
144 hash_insert_pkg(hash
, pkg
, is_status_file
, conf
);
154 static abstract_pkg_t
*
155 abstract_pkg_fetch_by_name(hash_table_t
* hash
, const char * pkg_name
)
157 return (abstract_pkg_t
*)hash_table_get(hash
, pkg_name
);
161 pkg_hash_fetch_best_installation_candidate(opkg_conf_t
*conf
,
162 abstract_pkg_t
*apkg
,
163 int (*constraint_fcn
)(pkg_t
*pkg
, void *cdata
),
164 void *cdata
, int quiet
)
169 int wrong_arch_found
= 0;
170 pkg_vec_t
*matching_pkgs
;
171 abstract_pkg_vec_t
*matching_apkgs
;
172 abstract_pkg_vec_t
*provided_apkg_vec
;
173 abstract_pkg_t
**provided_apkgs
;
174 abstract_pkg_vec_t
*providers
;
175 pkg_t
*latest_installed_parent
= NULL
;
176 pkg_t
*latest_matching
= NULL
;
177 pkg_t
*priorized_matching
= NULL
;
178 pkg_t
*held_pkg
= NULL
;
179 pkg_t
*good_pkg_by_name
= NULL
;
181 if (apkg
== NULL
|| apkg
->provided_by
== NULL
|| (apkg
->provided_by
->len
== 0))
184 matching_pkgs
= pkg_vec_alloc();
185 matching_apkgs
= abstract_pkg_vec_alloc();
186 providers
= abstract_pkg_vec_alloc();
188 opkg_message(conf
, OPKG_DEBUG
, "best installation candidate for %s\n", apkg
->name
);
190 provided_apkg_vec
= apkg
->provided_by
;
191 nprovides
= provided_apkg_vec
->len
;
192 provided_apkgs
= provided_apkg_vec
->pkgs
;
194 opkg_message(conf
, OPKG_DEBUG
, " apkg=%s nprovides=%d\n", apkg
->name
, nprovides
);
196 /* accumulate all the providers */
197 for (i
= 0; i
< nprovides
; i
++) {
198 abstract_pkg_t
*provider_apkg
= provided_apkgs
[i
];
199 opkg_message(conf
, OPKG_DEBUG
, " adding %s to providers\n", provider_apkg
->name
);
200 abstract_pkg_vec_insert(providers
, provider_apkg
);
202 nprovides
= providers
->len
;
204 for (i
= 0; i
< nprovides
; i
++) {
205 abstract_pkg_t
*provider_apkg
= abstract_pkg_vec_get(providers
, i
);
206 abstract_pkg_t
*replacement_apkg
= NULL
;
209 if (provider_apkg
->replaced_by
&& provider_apkg
->replaced_by
->len
) {
210 replacement_apkg
= provider_apkg
->replaced_by
->pkgs
[0];
211 if (provider_apkg
->replaced_by
->len
> 1) {
212 opkg_message(conf
, OPKG_NOTICE
, "Multiple replacers for %s, using first one (%s)\n",
213 provider_apkg
->name
, replacement_apkg
->name
);
217 if (replacement_apkg
)
218 opkg_message(conf
, OPKG_DEBUG
, " replacement_apkg=%s for provider_apkg=%s\n",
219 replacement_apkg
->name
, provider_apkg
->name
);
221 if (replacement_apkg
&& (replacement_apkg
!= provider_apkg
)) {
222 if (abstract_pkg_vec_contains(providers
, replacement_apkg
))
225 provider_apkg
= replacement_apkg
;
228 if (!(vec
= provider_apkg
->pkgs
)) {
229 opkg_message(conf
, OPKG_DEBUG
, " no pkgs for provider_apkg %s\n", provider_apkg
->name
);
234 /* now check for supported architecture */
239 /* count packages matching max arch priority and keep track of last one */
240 for (i
= 0; i
< vec
->len
; i
++) {
241 pkg_t
*maybe
= vec
->pkgs
[i
];
242 opkg_message(conf
, OPKG_DEBUG
, " %s arch=%s arch_priority=%d version=%s \n",
243 maybe
->name
, maybe
->architecture
, maybe
->arch_priority
, maybe
->version
);
244 /* We make sure not to add the same package twice. Need to search for the reason why
245 they show up twice sometimes. */
246 if ((maybe
->arch_priority
> 0) && (! pkg_vec_contains(matching_pkgs
, maybe
))) {
248 abstract_pkg_vec_insert(matching_apkgs
, maybe
->parent
);
249 pkg_vec_insert(matching_pkgs
, maybe
);
253 if (vec
->len
> 0 && matching_pkgs
->len
< 1)
254 wrong_arch_found
= 1;
258 if (matching_pkgs
->len
< 1) {
259 if (wrong_arch_found
)
260 opkg_message (conf
, OPKG_ERROR
, "Packages for %s found, but"
261 " incompatible with the architectures configured\n",
263 pkg_vec_free(matching_pkgs
);
264 abstract_pkg_vec_free(matching_apkgs
);
265 abstract_pkg_vec_free(providers
);
270 if (matching_pkgs
->len
> 1)
271 pkg_vec_sort(matching_pkgs
, pkg_name_version_and_architecture_compare
);
272 if (matching_apkgs
->len
> 1)
273 abstract_pkg_vec_sort(matching_pkgs
, abstract_pkg_name_compare
);
275 /* Here it is usefull, if ( matching_apkgs->len > 1 ), to test if one of this matching packages has the same name of the
276 needed package. In this case, I would return it for install, otherwise I will continue with the procedure */
277 /* The problem is what to do when there are more than a mathing package, with the same name and several version ?
278 Until now I always got the latest, but that breaks the downgrade option.
279 If I stop at the first one, I would probably miss the new ones
280 Maybe the way is to have some kind of flag somewhere, to see if the package been asked to install is from a file,
281 or from a Packages feed.
282 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*/
285 for (i
= 0; i
< matching_pkgs
->len
; i
++) {
286 pkg_t
*matching
= matching_pkgs
->pkgs
[i
];
287 if (constraint_fcn(matching
, cdata
)) { /* We found it */
288 opkg_message(conf
, OPKG_DEBUG
, " Found a valid candidate for the install: %s %s \n", matching
->name
, matching
->version
) ;
289 good_pkg_by_name
= matching
;
290 if ( matching
->provided_by_hand
== 1 ) /* It has been provided by hand, so it is what user want */
296 for (i
= 0; i
< matching_pkgs
->len
; i
++) {
297 pkg_t
*matching
= matching_pkgs
->pkgs
[i
];
298 latest_matching
= matching
;
299 if (matching
->parent
->state_status
== SS_INSTALLED
|| matching
->parent
->state_status
== SS_UNPACKED
)
300 latest_installed_parent
= matching
;
301 if (matching
->state_flag
& (SF_HOLD
|SF_PREFER
)) {
303 opkg_message(conf
, OPKG_NOTICE
, "Multiple packages (%s and %s) providing same name marked HOLD or PREFER. Using latest.\n",
304 held_pkg
->name
, matching
->name
);
309 if (!good_pkg_by_name
&& !held_pkg
&& !latest_installed_parent
&& matching_apkgs
->len
> 1 && !quiet
) {
311 for (i
= 0; i
< matching_pkgs
->len
; i
++) {
312 pkg_t
*matching
= matching_pkgs
->pkgs
[i
];
313 if (matching
->arch_priority
> prio
) {
314 priorized_matching
= matching
;
315 prio
= matching
->arch_priority
;
316 opkg_message(conf
, OPKG_DEBUG
, "Match with priority %i %s\n", prio
, matching
->name
);
322 if (conf
->verbosity
>= OPKG_INFO
&& matching_apkgs
->len
> 1) {
323 opkg_message(conf
, OPKG_INFO
, "%s: for apkg=%s, %d matching pkgs\n",
324 __FUNCTION__
, apkg
->name
, matching_pkgs
->len
);
325 for (i
= 0; i
< matching_pkgs
->len
; i
++) {
326 pkg_t
*matching
= matching_pkgs
->pkgs
[i
];
327 opkg_message(conf
, OPKG_INFO
, " %s %s %s\n",
328 matching
->name
, matching
->version
, matching
->architecture
);
332 nmatching
= matching_apkgs
->len
;
334 pkg_vec_free(matching_pkgs
);
335 abstract_pkg_vec_free(matching_apkgs
);
336 abstract_pkg_vec_free(providers
);
338 if (good_pkg_by_name
) { /* We found a good candidate, we will install it */
339 return good_pkg_by_name
;
342 opkg_message(conf
, OPKG_INFO
, " using held package %s\n", held_pkg
->name
);
345 if (latest_installed_parent
) {
346 opkg_message(conf
, OPKG_INFO
, " using latest version of installed package %s\n", latest_installed_parent
->name
);
347 return latest_installed_parent
;
349 if (priorized_matching
) {
350 opkg_message(conf
, OPKG_INFO
, " using priorized matching %s %s %s\n",
351 priorized_matching
->name
, priorized_matching
->version
, priorized_matching
->architecture
);
352 return priorized_matching
;
355 opkg_message(conf
, OPKG_INFO
, " no matching pkg out of matching_apkgs=%d\n", nmatching
);
358 if (latest_matching
) {
359 opkg_message(conf
, OPKG_INFO
, " using latest matching %s %s %s\n",
360 latest_matching
->name
, latest_matching
->version
, latest_matching
->architecture
);
361 return latest_matching
;
367 pkg_name_constraint_fcn(pkg_t
*pkg
, void *cdata
)
369 const char *name
= (const char *)cdata
;
371 if (strcmp(pkg
->name
, name
) == 0)
378 pkg_vec_fetch_by_name(hash_table_t
*hash
, const char *pkg_name
)
380 abstract_pkg_t
* ab_pkg
;
382 if(!(ab_pkg
= abstract_pkg_fetch_by_name(hash
, pkg_name
)))
388 if (ab_pkg
->provided_by
) {
389 abstract_pkg_t
*abpkg
= abstract_pkg_vec_get(ab_pkg
->provided_by
, 0);
401 pkg_hash_fetch_best_installation_candidate_by_name(opkg_conf_t
*conf
,
404 hash_table_t
*hash
= &conf
->pkg_hash
;
405 abstract_pkg_t
*apkg
= NULL
;
407 if (!(apkg
= abstract_pkg_fetch_by_name(hash
, name
)))
410 return pkg_hash_fetch_best_installation_candidate(conf
, apkg
,
411 pkg_name_constraint_fcn
, apkg
->name
, 0);
416 pkg_hash_fetch_by_name_version(hash_table_t
*hash
,
417 const char *pkg_name
, const char * version
)
421 char *version_str
= NULL
;
423 if(!(vec
= pkg_vec_fetch_by_name(hash
, pkg_name
)))
426 for(i
= 0; i
< vec
->len
; i
++) {
427 version_str
= pkg_version_str_alloc(vec
->pkgs
[i
]);
428 if(!strcmp(version_str
, version
)) {
442 pkg_hash_fetch_installed_by_name_dest(hash_table_t
*hash
,
443 const char *pkg_name
, pkg_dest_t
*dest
)
448 if (!(vec
= pkg_vec_fetch_by_name(hash
, pkg_name
))) {
452 for (i
= 0; i
< vec
->len
; i
++)
453 if((vec
->pkgs
[i
]->state_status
== SS_INSTALLED
454 || vec
->pkgs
[i
]->state_status
== SS_UNPACKED
)
455 && vec
->pkgs
[i
]->dest
== dest
) {
463 pkg_hash_fetch_installed_by_name(hash_table_t
*hash
,
464 const char *pkg_name
)
469 if (!(vec
= pkg_vec_fetch_by_name(hash
, pkg_name
))) {
473 for (i
= 0; i
< vec
->len
; i
++) {
474 if (vec
->pkgs
[i
]->state_status
== SS_INSTALLED
475 || vec
->pkgs
[i
]->state_status
== SS_UNPACKED
) {
485 pkg_hash_fetch_available_helper(const char *pkg_name
, void *entry
, void *data
)
488 abstract_pkg_t
*ab_pkg
= (abstract_pkg_t
*)entry
;
489 pkg_vec_t
*all
= (pkg_vec_t
*)data
;
490 pkg_vec_t
*pkg_vec
= ab_pkg
->pkgs
;
495 for (j
= 0; j
< pkg_vec
->len
; j
++) {
496 pkg_t
*pkg
= pkg_vec
->pkgs
[j
];
497 pkg_vec_insert(all
, pkg
);
502 pkg_hash_fetch_available(hash_table_t
*hash
, pkg_vec_t
*all
)
504 hash_table_foreach(hash
, pkg_hash_fetch_available_helper
, all
);
508 pkg_hash_fetch_all_installed_helper(const char *pkg_name
, void *entry
, void *data
)
510 abstract_pkg_t
*ab_pkg
= (abstract_pkg_t
*)entry
;
511 pkg_vec_t
*all
= (pkg_vec_t
*)data
;
512 pkg_vec_t
*pkg_vec
= ab_pkg
->pkgs
;
518 for (j
= 0; j
< pkg_vec
->len
; j
++) {
519 pkg_t
*pkg
= pkg_vec
->pkgs
[j
];
520 if (pkg
->state_status
== SS_INSTALLED
521 || pkg
->state_status
== SS_UNPACKED
)
522 pkg_vec_insert(all
, pkg
);
527 pkg_hash_fetch_all_installed(hash_table_t
*hash
, pkg_vec_t
*all
)
529 hash_table_foreach(hash
, pkg_hash_fetch_all_installed_helper
, all
);
533 * This assumes that the abstract pkg doesn't exist.
535 static abstract_pkg_t
*
536 add_new_abstract_pkg_by_name(hash_table_t
*hash
, const char *pkg_name
)
538 abstract_pkg_t
*ab_pkg
;
540 ab_pkg
= abstract_pkg_new();
542 ab_pkg
->name
= xstrdup(pkg_name
);
543 hash_table_insert(hash
, pkg_name
, ab_pkg
);
550 ensure_abstract_pkg_by_name(hash_table_t
* hash
, const char * pkg_name
)
552 abstract_pkg_t
* ab_pkg
;
554 if (!(ab_pkg
= abstract_pkg_fetch_by_name(hash
, pkg_name
)))
555 ab_pkg
= add_new_abstract_pkg_by_name(hash
, pkg_name
);
561 hash_insert_pkg(hash_table_t
*hash
, pkg_t
*pkg
, int set_status
,
564 abstract_pkg_t
* ab_pkg
;
569 buildDepends(hash
, pkg
);
571 ab_pkg
= ensure_abstract_pkg_by_name(hash
, pkg
->name
);
574 if (pkg
->state_status
== SS_INSTALLED
) {
575 ab_pkg
->state_status
= SS_INSTALLED
;
576 } else if (pkg
->state_status
== SS_UNPACKED
) {
577 ab_pkg
->state_status
= SS_UNPACKED
;
582 ab_pkg
->pkgs
= pkg_vec_alloc();
584 buildProvides(hash
, ab_pkg
, pkg
);
586 /* Need to build the conflicts graph before replaces for correct
587 * calculation of replaced_by relation.
589 buildConflicts(hash
, ab_pkg
, pkg
);
591 buildReplaces(hash
, ab_pkg
, pkg
);
593 buildDependedUponBy(pkg
, ab_pkg
);
595 /* pkg_vec_insert_merge might munge package, but it returns an
598 pkg
= pkg_vec_insert_merge(ab_pkg
->pkgs
, pkg
, set_status
,conf
);
599 pkg
->parent
= ab_pkg
;
606 file_hash_get_file_owner(opkg_conf_t
*conf
, const char *file_name
)
608 return hash_table_get(&conf
->file_hash
, file_name
);
612 file_hash_set_file_owner(opkg_conf_t
*conf
, const char *file_name
,
615 pkg_t
*old_owning_pkg
= hash_table_get(&conf
->file_hash
, file_name
);
616 int file_name_len
= strlen(file_name
);
618 if (file_name
[file_name_len
-1] == '/')
621 if (conf
->offline_root
) {
622 int len
= strlen(conf
->offline_root
);
623 if (strncmp(file_name
, conf
->offline_root
, len
) == 0) {
628 hash_table_insert(&conf
->file_hash
, file_name
, owning_pkg
);
630 if (old_owning_pkg
) {
631 pkg_get_installed_files(conf
, old_owning_pkg
);
632 str_list_remove_elt(old_owning_pkg
->installed_files
, file_name
);
633 pkg_free_installed_files(old_owning_pkg
);
635 /* mark this package to have its filelist written */
636 old_owning_pkg
->state_flag
|= SF_FILELIST_CHANGED
;
637 owning_pkg
->state_flag
|= SF_FILELIST_CHANGED
;