aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-02-25 20:49:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-02-25 20:49:01 +0000
commitc66332f83de6cad7b18a33b6ebb67007ab7758b4 (patch)
tree0f929833000779f3bf48a291750723f208b29a6d
parentdcce48051ac6abdac65d9104c7a6f2bde8fe94ae (diff)
downloadperl-URPM-c66332f83de6cad7b18a33b6ebb67007ab7758b4.tar
perl-URPM-c66332f83de6cad7b18a33b6ebb67007ab7758b4.tar.gz
perl-URPM-c66332f83de6cad7b18a33b6ebb67007ab7758b4.tar.bz2
perl-URPM-c66332f83de6cad7b18a33b6ebb67007ab7758b4.tar.xz
perl-URPM-c66332f83de6cad7b18a33b6ebb67007ab7758b4.zip
- add filesize to synthesis, add ->filesize to get it, and add
selected_size_filesize() to compute the sum (backport from HEAD)
-rw-r--r--URPM.pm4
-rw-r--r--URPM.xs27
-rw-r--r--URPM/Resolve.pm23
3 files changed, 49 insertions, 5 deletions
diff --git a/URPM.pm b/URPM.pm
index f6a9ffa..f4adfc3 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -619,6 +619,10 @@ The rpm's bare name.
=item $package->rflags()
+=item $package->filesize()
+
+Size of the rpm file (ie the rpm header + cpio body)
+
=item $package->set_flag($name, $value)
=item $package->set_flag_base($value)
diff --git a/URPM.xs b/URPM.xs
index 17cfba5..79939bf 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -176,6 +176,11 @@ get_int(Header header, int_32 tag) {
}
static int
+sigsize_to_filesize(int sigsize) {
+ return sigsize + 440; /* 440 is the rpm header size (?) empirical, but works */
+}
+
+static int
print_list_entry(char *buff, int sz, char *name, int_32 flags, char *evr) {
int len = strlen(name);
char *p = buff;
@@ -795,9 +800,9 @@ pack_header(URPM__Package pkg) {
char *release = get_name(pkg->h, RPMTAG_RELEASE);
char *arch = headerIsEntry(pkg->h, RPMTAG_SOURCERPM) ? get_name(pkg->h, RPMTAG_ARCH) : "src";
- p += snprintf(buff, sizeof(buff), "%s-%s-%s.%s@%d@%d@%s@", name, version, release, arch,
- get_int(pkg->h, RPMTAG_EPOCH), get_int(pkg->h, RPMTAG_SIZE), get_name(pkg->h, RPMTAG_GROUP));
- p[-1] = 0;
+ p += 1 + snprintf(buff, sizeof(buff), "%s-%s-%s.%s@%d@%d@%s@%d", name, version, release, arch,
+ get_int(pkg->h, RPMTAG_EPOCH), get_int(pkg->h, RPMTAG_SIZE),
+ get_name(pkg->h, RPMTAG_GROUP), sigsize_to_filesize(get_int(pkg->h, RPMTAG_SIGSIZE)));
pkg->info = memcpy(malloc(p-buff), buff, p-buff);
}
if (pkg->requires == NULL && pkg->suggests == NULL)
@@ -1926,6 +1931,22 @@ Pkg_size(pkg)
OUTPUT:
RETVAL
+int
+Pkg_filesize(pkg)
+ URPM::Package pkg
+ CODE:
+ if (pkg->info) {
+ char *s;
+
+ if ((s = strchr(pkg->info, '@')) != NULL && (s = strchr(s+1, '@')) != NULL && (s = strchr(s+1, '@')) != NULL && (s = strchr(s+1, '@')) != NULL) {
+ RETVAL = atoi(s+1);
+ } else RETVAL = 0;
+ } else if (pkg->h) {
+ RETVAL = sigsize_to_filesize(get_int(pkg->h, RPMTAG_SIGSIZE));
+ } else RETVAL = 0;
+ OUTPUT:
+ RETVAL
+
void
Pkg_group(pkg)
URPM::Package pkg
diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index eb9bfef..659ed1c 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -1340,11 +1340,30 @@ sub disable_selected_and_unrequested_dependencies {
#- side-effects: none
sub selected_size {
my ($urpm, $state) = @_;
- my $size;
+ my ($size) = _selected_size_filesize($urpm, $state, 0);
+ $size;
+}
+#- side-effects: none
+sub selected_size_filesize {
+ my ($urpm, $state) = @_;
+ _selected_size_filesize($urpm, $state, 1);
+}
+#- side-effects: none
+sub _selected_size_filesize {
+ my ($urpm, $state, $compute_filesize) = @_;
+ my ($size, $filesize, $bad_filesize);
foreach (keys %{$state->{selected} || {}}) {
my $pkg = $urpm->{depslist}[$_];
$size += $pkg->size;
+ $compute_filesize or next;
+
+ if (my $n = $pkg->filesize) {
+ $filesize += $n;
+ } elsif (!$bad_filesize) {
+ $urpm->{debug} and $urpm->{debug}("no filesize for package " . $pkg->fullname);
+ $bad_filesize = 1;
+ }
}
foreach (values %{$state->{rejected} || {}}) {
@@ -1352,7 +1371,7 @@ sub selected_size {
$size -= $_->{size};
}
- $size;
+ $size, $bad_filesize ? 0 : $filesize;
}
#- compute installed flags for all packages in depslist.