INCOMPLETE: More-specific lib importing, start of a cmpver method (not done).

CVS patchset: 3847
CVS date: 2000/06/14 09:28:38

1 files changed, 60 insertions, 3 deletions

diff --git a/Perl-RPM/RPM/Header.pm b/Perl-RPM/RPM/Header.pm
index 10a83fc37..3c6d488e2 100644
--- a/Perl-RPM/RPM/Header.pm
+++ b/Perl-RPM/RPM/Header.pm
@@ -5,7 +5,7 @@
 #
 ###############################################################################
 #
-#   $Id: Header.pm,v 1.3 2000/06/10 22:27:30 rjray Exp $
+#   $Id: Header.pm,v 1.4 2000/06/14 09:28:38 rjray Exp $
 #
 #   Description:    The RPM::Header class provides access to the RPM Header
 #                   structure as a tied hash, allowing direct access to the
@@ -30,10 +30,12 @@ use strict;
 use vars qw($VERSION $revision);
 use subs qw(new);
 
-require RPM;
+use RPM;
+use RPM::Error;
+use RPM::Constants ':rpmerr';
 
 $VERSION = $RPM::VERSION;
-$revision = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$revision = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 1;
 
@@ -46,6 +48,61 @@ sub new
     return (tied %hash);
 }
 
+###############################################################################
+#
+#   Sub Name:       cmpver
+#
+#   Description:    Try to reasonably compare two headers by examining their
+#                   version and release fields.
+#
+#   Arguments:      NAME      IN/OUT  TYPE      DESCRIPTION
+#                   $self     in      ref       Object of this class
+#                   $cmp_to   in      ref       Another object of this class
+#
+#   Globals:        None.
+#
+#   Environment:    None.
+#
+#   Returns:        Perl-style comparison operation
+#
+###############################################################################
+sub cmpver
+{
+    my ($self, $cmp_to) = @_;
+
+    # First off, arg 2 must be of or derived from this class
+    unless ($cmp_to->isa('RPM::Header'))
+    {
+        rpm_error(RPMERR_BADARG,
+                  "RPM::Header::cmpver: Argument 2 of wrong type");
+        return 0;
+    }
+    my @self = $self->NVR;
+    my @cmp_to = $cmp_to->NVR;
+    # Secondly, comparison is meaningless if these are not the same package
+    return 0 unless ($self[0] eq $cmp_to[0]);
+
+    # Now it gets more complicated
+    my @self_ver = split('.', $self[1]);
+    my @self_rel = split('.', $self[2]);
+    my @cmpto_ver = split('.', $cmp_to[1]);
+    my @cmpto_rel = split('.', $cmp_to[2]);
+
+    # If they do not have the same number of elements, pad the shorter one
+    if (@self_ver < @cmpto_ver)
+    {
+        push(@self_ver, 0) for (1 .. (@cmpto_ver - @self_ver));
+    }
+    elsif (@self_ver > @cmpto_ver)
+    {
+        push(@cmpto_ver, 0) for (1 .. (@self_ver - @cmpto_ver));
+    }
+    for (0 .. $#self_ver)
+    {
+        return;
+    }
+}
+
 __END__
 
 =head1 NAME