pkg_add/OpenBSD/PkgAdd.pm

4 # $OpenBSD: PkgAdd.pm,v 1.150 2024/01/02 10:25:48 espie Exp $
22 use OpenBSD::AddDelete;
24 package OpenBSD::PackingList;
28 	require OpenBSD::RequiredBy;
31 	    OpenBSD::Requiring->new($plist->pkgname)->list) {
44 		    OpenBSD::PackingList->from_installation($plist->pkgname,
45 			\&OpenBSD::PackingList::UpdateInfoOnly)->signature;
70 package OpenBSD::PackingElement;
78 package OpenBSD::PackingElement::FileBase;
136 package OpenBSD::PkgAdd::State;
137 our @ISA = qw(OpenBSD::AddDelete::State);
172 OpenBSD::Auto::cache(cache_directory,
181 OpenBSD::Auto::cache(debug_cache_directory,
197 	require OpenBSD::UpdateSet;
199 	return OpenBSD::UpdateSet->new($self);
205 	    OpenBSD::Handle->create_new($pkgname));
211 	    OpenBSD::Handle->from_location($location));
219 OpenBSD::Auto::cache(updater,
221 	require OpenBSD::Update;
222 	return OpenBSD::Update->new;
225 OpenBSD::Auto::cache(tracker,
227 	require OpenBSD::Tracker;
228 	return OpenBSD::Tracker->new;
255 package OpenBSD::ConflictCache;
256 our @ISA = (qw(OpenBSD::Cloner));
266 	for my $conflict (OpenBSD::PkgCfl::find_all($handle, $state)) {
282 package OpenBSD::UpdateSet;
283 use OpenBSD::PackageInfo;
284 use OpenBSD::Handle;
312 				require OpenBSD::PkgSpec;
313 				my $spec = OpenBSD::PkgSpec->new($bad);
353 		$o = OpenBSD::Handle->create_old($pkgname, $state);
356 			$set->cleanup(OpenBSD::Handle::CANT_INSTALL,
369 	    OpenBSD::Add::tweak_package_status($pkgname, $state);
372 		OpenBSD::PkgAdd->may_grab_debug_for($pkgname, 1, $state);
419 		$set->cleanup(OpenBSD::Handle::CANT_INSTALL, $check);
440 		    OpenBSD::PackingElement::ManualInstallation->add($plist);
469 	my $r = OpenBSD::PackageName->from_string($n->pkgname)->compare(
470 	    OpenBSD::PackageName->from_string($plist->pkgname));
482 		my $plist = OpenBSD::PackingList->from_installation($c, \&OpenBSD::PackingList::UpdateInfoOnly);
532 			my $h = OpenBSD::Handle->create_old($toreplace, $state);
542 		if ($old->has_error(OpenBSD::Handle::NOT_FOUND)) {
545 		if ($old->has_error(OpenBSD::Handle::BAD_PACKAGE)) {
559 		    OpenBSD::Handle->create_old($m, $state));
574 	require OpenBSD::ForwardDependencies;
575 	$set->{forward} = OpenBSD::ForwardDependencies->find($set);
625 package OpenBSD::PkgAdd;
626 our @ISA = qw(OpenBSD::AddDelete);
628 use OpenBSD::PackingList;
629 use OpenBSD::PackageInfo;
630 use OpenBSD::PackageName;
631 use OpenBSD::PkgCfl;
632 use OpenBSD::Add;
633 use OpenBSD::UpdateSet;
634 use OpenBSD::Error;
654 		push(@l, OpenBSD::Add::record_partial_installation($h->plist, $state, $h->{partial}));
669 	require OpenBSD::RequiredBy;
671 		for my $d (OpenBSD::RequiredBy->new($c->pkgname)->list) {
718 		require OpenBSD::Delete;
720 			OpenBSD::Delete::delete_plist($o->plist, $state);
731 		OpenBSD::PkgCfl::unregister($o, $state);
780 		require OpenBSD::OldLibs;
781 		OpenBSD::OldLibs->save($set, $state);
793 			OpenBSD::Add::perform_extraction($handle, $state);
821 			OpenBSD::Add::perform_installation($handle, $state);
841 		OpenBSD::Add::tweak_plist_status($plist, $state);
842 		OpenBSD::Add::register_installation($plist, $state);
845 		OpenBSD::PkgCfl::register($handle, $state);
871 		if ($handle->has_error(OpenBSD::Handle::ALREADY_INSTALLED)) {
872 			$set->cleanup(OpenBSD::Handle::ALREADY_INSTALLED);
899 					$set->cleanup(OpenBSD::Handle::CANT_INSTALL);
942 			$handle->{tweaked} = OpenBSD::Add::tweak_package_status($handle->pkgname, $state);
987 			$set->cleanup(OpenBSD::Handle::CANT_INSTALL);
1003 		$set->cleanup(OpenBSD::Handle::CANT_INSTALL,"bad dependencies");
1010 		$set->cleanup(OpenBSD::Handle::CANT_INSTALL, "libs not found");
1015 		$set->cleanup(OpenBSD::Handle::CANT_INSTALL, "tags not found");
1022 		$set->cleanup(OpenBSD::Handle::CANT_INSTALL, "fatal conflicts");
1029 		require OpenBSD::Replace;
1031 		    OpenBSD::Replace::set_has_no_exec($set, $state);
1052 			$set->cleanup(OpenBSD::Handle::CANT_INSTALL,
1075 	return if OpenBSD::PackageInfo::is_installed($dbg);
1085 	require OpenBSD::Temp;
1086 	my ($fh, $name) = OpenBSD::Temp::permanent_file($d, "debug-pkg");
1088 		$state->errsay(OpenBSD::Temp->last_error);
1152 	require OpenBSD::Search;
1156 	my $l = $state->repo->installed->match_locations(OpenBSD::Search::Stem->new('quirks'));
1158 		$set->add_older(map {OpenBSD::Handle->from_location($_)} @$l);
1207 			if (OpenBSD::PackageName::is_stem($pkgname)) {
1216 				    $state->updateset->add_older(OpenBSD::Handle->from_location($l)));
1232 	OpenBSD::Add::manpages_index($state);
1272 	return OpenBSD::PkgAdd::State->new($cmd);