use warnings;
open(PACKAGES, "<Packages");
-open(SOURCES, "<Sources");
my @packages = ();
my %depends = ();
}
close(PACKAGES);
+
+open(SOURCES, "<Sources");
+
+my @sources = ();
+my %binaries = ();
+my %csource = ();
+my %bdeps = ();
+
+sub add_binaries {
+ my ($package, $binaries) = @_;
+ my $bb = [];
+ my @vbb = split(", ", $binaries);
+ for my $i (@vbb) {
+ $i =~ qr,([0-9a-z-+.]+),;
+ push @$bb, $1;
+ $csource{$i} = $package;
+ }
+ $binaries{$package} = $bb;
+}
+
+sub add_bdeps {
+ my ($package, $bdeps) = @_;
+ my $bd = [];
+ my @vbd = split(", ", $bdeps);
+ for my $i (@vbd) {
+ $i =~ qr,([0-9a-z-+.]+),;
+ push @$bd, $1;
+ }
+ $bdeps{$package} = $bd;
+}
+
+
+while (<SOURCES>) {
+ if (/^Package: ([0-9a-z-+.]+)/) {
+ $package = $1;
+ push @packages, $package;
+ }
+ if (/^Binary: (.*)/) {
+ add_binaries($package, $1);
+ }
+ if (/^Build-Depends: (.*)/) {
+ add_bdeps($package, $1);
+ }
+}
+
close(SOURCES);
my @pp = ();