File: Version.pm

package info (click to toggle)
libapt-pkg-perl 0.1.13
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 236 kB
  • ctags: 101
  • sloc: perl: 1,063; ansic: 198; makefile: 39
file content (122 lines) | stat: -rw-r--r-- 2,337 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
package AptPkg::Version;

# $Id: Version.pm,v 1.6 2004/10/14 00:50:02 bod Exp $

require 5.005_62;
use strict;
use warnings;
use AptPkg;
use Carp;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw();
our @EXPORT = ();

our $VERSION = qw$Revision: 1.6 $[1] || 0.1;

sub label       { shift->Label(@_) }
sub compare     { shift->CmpVersion(@_) }
sub rel_compare { shift->CmpReleaseVer(@_) }
sub upstream    { shift->UpstreamVersion(@_) }

{
    my %DEB_RELATION = (
	'<<'	=> AptPkg::Dep::Less,
	'<='	=> AptPkg::Dep::LessEq,
	'='	=> AptPkg::Dep::Equals,
	'>='	=> AptPkg::Dep::GreaterEq,
	'>>'	=> AptPkg::Dep::Greater,

	# deprecated
	'<'	=> AptPkg::Dep::LessEq,
	'>'	=> AptPkg::Dep::GreaterEq,
    );

    sub check_dep
    {
	my $self = shift;
	my ($pkg, $op_str, $dep) = @_;
	my $op = $DEB_RELATION{$op_str} || croak "invalid relation for check_dep `$op_str'";

	$self->CheckDep($pkg, $op, $dep);
    }
}

1;

__END__

=head1 NAME

AptPkg::Version - APT package versioning class

=head1 SYNOPSIS

use AptPkg::Version;

=head1 DESCRIPTION

The AptPkg::Version module provides an interface to B<APT>'s package
version handling.

=head2 AptPkg::Version

The AptPkg::Version package implements the B<APT> pkgVersioningSystem
class.

An instance of the AptPkg::Version class may be fetched using the
versioning method from AptPkg::System.

The following methods are implemented:

=over 4

=item label

Return the description of the versioning system, for example:

    Standard .deb

for Debian systems.

=item compare(I<A>, I<B>)

Compare package version I<A> with I<B>, returning a negative value if
I<A> is an earlier version than I<B>, zero if the same or a positive
value if I<A> is later.

=item rel_compare(I<A>, I<B>)

Compare distribution release numbers.

=item check_dep(I<PKG>, I<OP>, I<DEP>)

Check that the package version I<PKG> satisfies the relation I<OP> to
the dependency version I<DEP>.

The relation I<OP> is specified in the Debian syntax regardless of the
versioning system:

    <<	strictly earlier
    <=	earlier or equal
    =	exactly equal
    >=	later or equal
    >>	strictly later

=item upstream(I<VER>)

Return the upstream component of the given version string.

=back

=head1 SEE ALSO

AptPkg::Config(3pm), AptPkg::System(3pm), AptPkg(3pm).

=head1 AUTHOR

Brendan O'Dea <bod@debian.org>

=cut