# ex:ts=8 sw=4: # $OpenBSD: Signature.pm,v 1.15 2014/02/09 19:22:19 espie Exp $ # # Copyright (c) 2010 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::PackageName::Name; sub long_string { my $self = shift; return '@'.$self->to_string; } package OpenBSD::LibObject; sub long_string { my $self = shift; return $self->to_string; } package OpenBSD::PackingElement; sub signature {} package OpenBSD::PackingElement::Dependency; sub signature { my ($self, $hash) = @_; $hash->{$self->{pkgpath}} = OpenBSD::PackageName->from_string($self->{def}); } package OpenBSD::PackingElement::Wantlib; sub signature { my ($self, $hash) = @_; my $spec = $self->spec; if ($spec->is_valid) { $hash->{$spec->key} = $spec; } } package OpenBSD::Signature; sub from_plist { my ($class, $plist) = @_; my $k = {}; $plist->visit('signature', $k); if ($plist->has('always-update')) { return $class->always->new($plist->pkgname, $k, $plist); } else { return $class->new($plist->pkgname, $k); } } sub always { return "OpenBSD::Signature::Full"; } sub new { my ($class, $pkgname, $extra) = @_; bless { name => $pkgname, extra => $extra }, $class; } sub string { my $self = shift; return join(',', $self->{name}, sort map {$_->long_string} values %{$self->{extra}}); } sub compare { my ($a, $b) = @_; return $b->revert_compare($a); } sub revert_compare { my ($b, $a) = @_; if ($a->{name} eq $b->{name}) { my $awins = 0; my $bwins = 0; my $done = {}; my $errors = 0; while (my ($k, $v) = each %{$a->{extra}}) { if (!defined $b->{extra}{$k}) { print STDERR "Couldn't find $k in second signature\n"; $errors++; next; } $done->{$k} = 1; my $r = $v->compare($b->{extra}{$k}); if ($r > 0) { $awins++; } elsif ($r < 0) { $bwins++; } } for my $k (keys %{$b->{extra}}) { if (!$done->{$k}) { print STDERR "Couldn't find $k in first signature\n"; $errors++; } } if ($errors) { $a->print_error($b); return undef; } if ($awins == 0) { return -$bwins; } elsif ($bwins == 0) { return $awins; } else { return undef; } } else { return OpenBSD::PackageName->from_string($a->{name})->compare(OpenBSD::PackageName->from_string($b->{name})); } } sub print_error { my ($a, $b) = @_; print STDERR "Error: $a->{name} exists in two non-comparable versions\n"; print STDERR "Someone forgot to bump a REVISION\n"; print STDERR $a->string, " vs. ", $b->string, "\n"; } package OpenBSD::Signature::Full; our @ISA=qw(OpenBSD::Signature); sub new { my ($class, $pkgname, $extra, $plist) = @_; my $o = $class->SUPER::new($pkgname, $extra); my $hash; open my $fh, '>', \$hash; $plist->write_without_variation($fh); close $fh; $o->{hash} = $hash; return $o; } sub string { my $self = shift; return join(',', $self->SUPER::string, $self->{hash}); } sub revert_compare { my ($b, $a) = @_; my $r = $b->SUPER::revert_compare($a); if (defined $r && $r == 0) { if ($a->string ne $b->string) { return undef; } } return $r; } sub compare { my ($a, $b) = @_; my $r = $a->SUPER::compare($b); if (defined $r && $r == 0) { if ($a->string ne $b->string) { return undef; } } return $r; } 1;