#!/usr/bin/perl

my $ilist = `grep DESCRIPTION /usr/portage/*-*/$ARGV[0]/*.ebuild`;
$ilist =~ s'^/usr/portage/([^/]+/[^/]+).*?:DESCRIPTION=("?)(.*?)\2$'"$1\t$3"'egims;

# print stderr "$ilist\n";

$ilist =~ s/\n+$//s;

my @ilist = split /\n/, $ilist;
exit unless @ilist;

my %items;

if (@ilist == 1) {
	my $i = `echo /usr/portage/*-*/$ARGV[0]`;
	$i =~ s-^/.*?/.*?/([^/]+/[^/]+)\n$-$1-s;
	my $d = $ilist;
	$d =~ s/DESCRIPTION=\"(.+)\"/$1/;
	$items{$i} = $d;
}
else {
	for (@ilist) {
		$items{$1} = $2 if
			m'([^/]+/[^/]+)\t(.*)';
	}
}

for (sort keys %items) {
	print "$_\t $items{$_}\n";
}