|
|
@ -28,6 +28,8 @@ sub print_category($) {
|
|
|
|
foreach my $depend (@{$pkg->{depends}}) {
|
|
|
|
foreach my $depend (@{$pkg->{depends}}) {
|
|
|
|
print "\t\tdepends PACKAGE_$depend\n";
|
|
|
|
print "\t\tdepends PACKAGE_$depend\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
print "\t\thelp\n";
|
|
|
|
|
|
|
|
print $pkg->{description};
|
|
|
|
print "\n"
|
|
|
|
print "\n"
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
@ -66,11 +68,11 @@ while ($line = <>) {
|
|
|
|
push @{$category{$1}->{$src}}, $pkg;
|
|
|
|
push @{$category{$1}->{$src}}, $pkg;
|
|
|
|
};
|
|
|
|
};
|
|
|
|
$line =~ /^Description: \s*(.*)\s*$/ and do {
|
|
|
|
$line =~ /^Description: \s*(.*)\s*$/ and do {
|
|
|
|
my $desc = $1;
|
|
|
|
my $desc = "\t\t$1\n\n";
|
|
|
|
my $line;
|
|
|
|
my $line;
|
|
|
|
while (<>) {
|
|
|
|
while ($line = <>) {
|
|
|
|
last if /^@@/;
|
|
|
|
last if $line =~ /^@@/;
|
|
|
|
$desc .= $1;
|
|
|
|
$desc .= "\t\t$line";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$pkg->{description} = $desc;
|
|
|
|
$pkg->{description} = $desc;
|
|
|
|
}
|
|
|
|
}
|
|
|
|