alioth/nixpkgs
3
0
Fork 0
forked from mirrors/nixpkgs
Code Releases Activity

use simple version compare in stead of timestamps to determine newer package

Browse source 
svn path=/nixpkgs/trunk/; revision=31108
This commit is contained in:
Rob Vermaas 2011-12-27 12:56:07 +00:00
parent 2ae07a853f
commit a8785e7b72
1 changed files with 41 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
pkgs/build-support/vm/rpm/rpm-closure.pl
View file

@ -1,5 +1,6 @@
use strict; use strict;
use XML::Simple; use XML::Simple;
use List::Util qw(min);
my @packagesFiles = (); my @packagesFiles = ();
my @urlPrefixes = (); my @urlPrefixes = ();
@ -13,6 +14,44 @@ while(-f $ARGV[0]) {
push(@urlPrefixes, $urlPrefix); push(@urlPrefixes, $urlPrefix);
} }
sub rpmvercmp {
my ($version1, $version2) = @_;
my @vercmps1 = split /\./, $version1;
my @vercmps2 = split /\./, $version2;
my $l1 = scalar(@vercmps1);
my $l2 = scalar(@vercmps2);
my $l = min($l1, $l2);
for(my $i=0; $i<$l; $i++) {
my $v1 = $vercmps1[$i];
my $v2 = $vercmps2[$i];
if($v1 =~ /^[0-9]*$/ && $v2 =~ /^[0-9]*$/) {
if ( int($v1) > int($v2) ) {
return 1;
}
elsif ( int($v1) < int($v2) ) {
return -1;
}
} else {
if ( $v1 gt $v2 ) {
return 1;
}
elsif ( $v1 lt $v2 ) {
return -1;
}
}
}
if($l1 == $l2) {
return 0;
} elsif ($l1 > $l2) {
return 1;
} elsif ($l1 < $l2) {
return -1;
}
}
my @toplevelPkgs = @ARGV; my @toplevelPkgs = @ARGV;
my @archs = split ' ', ($ENV{'archs'} or ""); my @archs = split ' ', ($ENV{'archs'} or "");
@ -36,7 +75,8 @@ for (my $i = 0; $i < scalar(@packagesFiles); $i++) {
if (defined $pkgs{$pkg->{name}}) { if (defined $pkgs{$pkg->{name}}) {
my $earlierPkg = $pkgs{$pkg->{name}}; my $earlierPkg = $pkgs{$pkg->{name}};
print STDERR "WARNING: duplicate occurrence of package $pkg->{name}\n"; print STDERR "WARNING: duplicate occurrence of package $pkg->{name}\n";
if ($earlierPkg->{'time'}->{file} <= $pkg->{'time'}->{file}) { # <version epoch="0" ver="1.28.0" rel="2.el6"/>
if (rpmvercmp($pkg->{'version'}->{ver}, $earlierPkg->{'version'}->{ver}) >= 0) {
print STDERR "WARNING: replaced package $pkg->{name} with newer one\n"; print STDERR "WARNING: replaced package $pkg->{name} with newer one\n";
$pkg->{urlPrefix} = $urlPrefixes[$i]; $pkg->{urlPrefix} = $urlPrefixes[$i];
$pkgs{$pkg->{name}} = $pkg; $pkgs{$pkg->{name}} = $pkg;