From 6d3201a2bc80a59f8003f90f6e614830d4b16174 Mon Sep 17 00:00:00 2001
From: Thadeu Lima de Souza Cascardo <cascardo@cascardo.eti.br>
Date: Thu, 23 Apr 2015 22:05:30 -0300
Subject: [PATCH] Parse Sources file.

Grab list of binaries and build depends for source packages, and also
record which source some binary package come from.
---
 debsort.pl | 46 +++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 45 insertions(+), 1 deletion(-)

diff --git a/debsort.pl b/debsort.pl
index 1066656..4a3e826 100644
--- a/debsort.pl
+++ b/debsort.pl
@@ -20,7 +20,6 @@ use strict;
 use warnings;
 
 open(PACKAGES, "<Packages");
-open(SOURCES, "<Sources");
 
 my @packages = ();
 my %depends = ();
@@ -56,6 +55,51 @@ while (<PACKAGES>) {
 }
 
 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 = ();
-- 
2.20.1