# ex:ts=8 sw=4: # $OpenBSD: RequiredBy.pm,v 1.11 2005/08/17 18:24:53 espie Exp $ # # Copyright (c) 2003-2004 Marc Espie # # Permission to use, copy, modify, and distribute this software for any # purpose with or without fee is hereby granted, provided that the above # copyright notice and this permission notice appear in all copies. # # THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR # ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF # OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. use strict; use warnings; package OpenBSD::RequirementList; use OpenBSD::PackageInfo; sub fill_entries($) { my $self = shift; if (!exists $self->{entries}) { my $l = {}; $self->{entries} = $l; if (-f $self->{filename}) { open(my $fh, '<', $self->{filename}) or die "Problem opening required list: ", $self->{filename}, ": $!"; local $_; while(<$fh>) { chomp $_; s/\s+$//; next if /^$/; $l->{$_} = 1; } close($fh); $self->{nonempty} = 1; } else { $self->{nonempty} = 0; } } } sub synch { my $self = shift; return if $main::not; if (!unlink $self->{filename}) { if ($self->{nonempty}) { die "Can't erase $self->{filename}: $!"; } } if (%{$self->{entries}}) { open(my $fh, '>', $self->{filename}) or die "Can't write $self->{filename}: $!"; while (my ($k, $v) = each %{$self->{entries}}) { print $fh "$k\n"; } close($fh) or die "Write to $self->{filename} didn't work: $!"; $self->{nonempty} = 1; } else { $self->{nonempty} = 0; } } sub list($) { my $self = shift; if (wantarray) { $self->fill_entries(); return keys %{$self->{entries}}; } else { if (exists $self->{entries}) { return %{$self->{entries}} ? 1 : 0; } elsif (!exists $self->{nonempty}) { $self->{nonempty} = -f $self->{filename} ? 1 : 0; } return $self->{nonempty}; } } sub delete { my ($self, @pkgnames) = @_; $self->fill_entries($self); for my $pkg (@pkgnames) { delete $self->{entries}->{$pkg}; } $self->synch(); } sub add { my ($self, @pkgnames) = @_; $self->fill_entries($self); for my $pkg (@pkgnames) { $self->{entries}->{$pkg} = 1; } $self->synch(); } my $cache = {}; sub new { my ($class, $pkgname) = @_; my $f = installed_info($pkgname).$class->filename(); if (!exists $cache->{$f}) { return $cache->{$f} = bless { filename => $f }, $class; } return $cache->{$f}; } sub forget { my ($class, $dir) = @_; my $f = $dir.$class->filename(); if (exists $cache->{$f}) { $cache->{$f}->{entries} = {}; $cache->{$f}->{nonempty} = 0; } } sub compute_closure { my ($class, @seed) = @_; my @todo = @seed; my %done = (); while (my $pkgname = pop @todo) { next if $done{$pkgname}; $done{$pkgname} = 1; for my $dep ($class->new($pkgname)->list()) { next if defined $done{$dep}; push(@todo, $dep); } } return keys %done; } package OpenBSD::RequiredBy; our @ISA=qw(OpenBSD::RequirementList); use OpenBSD::PackageInfo; sub filename() { REQUIRED_BY }; package OpenBSD::Requiring; our @ISA=qw(OpenBSD::RequirementList); use OpenBSD::PackageInfo; sub filename() { REQUIRING }; 1;