projects
/
cascardo
/
debsrc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Get source package size
[cascardo/debsrc.git]
/
debsort.pl
diff --git
a/debsort.pl
b/debsort.pl
index
561144d
..
318e524
100644
(file)
--- a/
debsort.pl
+++ b/
debsort.pl
@@
-66,6
+66,7
@@
my @sources = ();
my %binaries = ();
my %csource = ();
my %bdeps = ();
my %binaries = ();
my %csource = ();
my %bdeps = ();
+my %ssize = ();
sub add_binaries {
my ($package, $binaries) = @_;
sub add_binaries {
my ($package, $binaries) = @_;
@@
-90,6
+91,7
@@
sub add_bdeps {
$bdeps{$package} = $bd;
}
$bdeps{$package} = $bd;
}
+my $files_start = 0;
while (<SOURCES>) {
if (/^Package: ([0-9a-z-+.]+)/) {
while (<SOURCES>) {
if (/^Package: ([0-9a-z-+.]+)/) {
@@
-102,6
+104,17
@@
while (<SOURCES>) {
if (/^Build-Depends: (.*)/) {
add_bdeps($package, $1);
}
if (/^Build-Depends: (.*)/) {
add_bdeps($package, $1);
}
+ if ($files_start) {
+ if (/^ [a-f0-9]+ ([0-9]+)/) {
+ $ssize{$package} += $1;
+ } else {
+ $files_start = 0;
+ }
+ }
+ if (/^Files:/) {
+ $files_start = 1;
+ $ssize{$package} = 0;
+ }
}
close(SOURCES);
}
close(SOURCES);
@@
-139,10
+152,17
@@
while (@visit) {
}
my $tsize = 0;
}
my $tsize = 0;
+
for my $i (@pp) {
$size{$i} = 0 if (!defined($size{$i}));
print "$size{$i} $i\n";
$tsize += $size{$i};
}
for my $i (@pp) {
$size{$i} = 0 if (!defined($size{$i}));
print "$size{$i} $i\n";
$tsize += $size{$i};
}
+for my $i (@vsource) {
+ $ssize{$i} = 0 if (!defined($ssize{$i}));
+ print "$ssize{$i} S:$i\n";
+ $tsize += $ssize{$i};
+}
+
print "$tsize Total\n";
print "$tsize Total\n";