35 lines
670 B
Perl
35 lines
670 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $name;
|
||
|
|
my $src;
|
||
|
|
my $makefile;
|
||
|
|
my %pkg;
|
||
|
|
|
||
|
|
my $line;
|
||
|
|
while ($line = <>) {
|
||
|
|
chomp $line;
|
||
|
|
$line =~ /^Source-Makefile: \s*(.+\/([^\/]+)\/Makefile)\s*$/ and do {
|
||
|
|
$makefile = $1;
|
||
|
|
$src = $2;
|
||
|
|
};
|
||
|
|
$line =~ /^Package: \s*(.+)\s*$/ and do {
|
||
|
|
$name = $1;
|
||
|
|
defined $pkg{$name} or $pkg{$name} = {};
|
||
|
|
$pkg{$name}->{src} = $src;
|
||
|
|
};
|
||
|
|
$line =~ /^Depends: \s*(.+)\s*$/ and do {
|
||
|
|
my @dep = split /,\s*/, $1;
|
||
|
|
$pkg{$name}->{depends} = \@dep;
|
||
|
|
};
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach $name (sort {uc($a) cmp uc($b)} keys %pkg) {
|
||
|
|
print "$name: ";
|
||
|
|
foreach my $dep (@{$pkg{$name}->{depends}}) {
|
||
|
|
print "$dep ";
|
||
|
|
}
|
||
|
|
print "\n\tmake -C ".$pkg{$name}->{src}."\n";
|
||
|
|
print "\n";
|
||
|
|
}
|