the-distro/channel-scripts
1
0
Fork 1
Code Issues 8 Pull requests Projects Releases Packages Wiki Activity

Die tabs die

Browse source
This commit is contained in:
Eelco Dolstra 2016-08-08 17:30:52 +02:00
parent 72501d545d
commit 8f7fbdaff7
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
generate-programs-index.pl
View file

@ -52,27 +52,27 @@ for my $system ("x86_64-linux", "i686-linux") {
my %packages;
foreach my $line (split "\n", $out) {
my ($attrName, $name, $drvPath, $outPath) = split ' ', $line;
die unless $attrName && $name && $outPath;
my ($attrName, $name, $drvPath, $outPath) = split ' ', $line;
die unless $attrName && $name && $outPath;
my @outPaths = map { s/^[a-z]+=//; $_ } (split ";", $outPath);
my @outPaths = map { s/^[a-z]+=//; $_ } (split ";", $outPath);
next unless all { defined $narFiles{$_} } @outPaths;
next unless all { -d $_ } @outPaths;
next unless all { defined $narFiles{$_} } @outPaths;
next unless all { -d $_ } @outPaths;
# Prefer shorter attribute names.
my $prev = $packages{$drvPath};
next if defined $prev &&
(length($prev->{attrName}) < length($attrName) ||
(length($prev->{attrName}) == length($attrName) && $prev->{attrName} le $attrName));
# Prefer shorter attribute names.
my $prev = $packages{$drvPath};
next if defined $prev &&
(length($prev->{attrName}) < length($attrName) ||
(length($prev->{attrName}) == length($attrName) && $prev->{attrName} le $attrName));
$packages{$drvPath} = { attrName => $attrName, outPaths => [@outPaths] };
$packages{$drvPath} = { attrName => $attrName, outPaths => [@outPaths] };
}
foreach my $drvPath (keys %packages) {
my $pkg = $packages{$drvPath};
process_dir($system, $pkg->{attrName}, "$_/bin")
foreach @{$pkg->{outPaths}};
my $pkg = $packages{$drvPath};
process_dir($system, $pkg->{attrName}, "$_/bin")
foreach @{$pkg->{outPaths}};
}
}