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

Package database: Support multiple outputs

Browse source
This commit is contained in:
Eelco Dolstra 2015-09-02 18:36:17 +02:00
parent 0cd5fe7808
commit e4b04c877f
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
generate-programs-index.pl
View file

@ -4,6 +4,7 @@ use strict;
use DBI;
use DBD::SQLite;
use Nix::Manifest;
use List::Util qw(all);
my $nixExprs = $ARGV[0] or die;
my $dbPath = $ARGV[1] or die;
@ -33,7 +34,7 @@ $dbh->begin_work;
sub process_dir {
my ($system, $pkgname, $dir) = @_;
return unless -d $dir;
print STDERR "indexing $dir\n";
#print STDERR "indexing $dir\n";
opendir DH, "$dir" or die "opening $dir";
for my $program (readdir DH) {
next if substr($program, 0, 1) eq ".";
@ -53,20 +54,25 @@ for my $system ("x86_64-linux", "i686-linux") {
foreach my $line (split "\n", $out) {
my ($attrName, $name, $drvPath, $outPath) = split ' ', $line;
die unless $attrName && $name && $outPath;
next unless defined $narFiles{$outPath};
next unless -d $outPath;
my $prev = $packages{$drvPath};
my @outPaths = map { s/^[a-z]+=//; $_ } (split ";", $outPath);
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));
$packages{$drvPath} = { attrName => $attrName, outPath => $outPath };
$packages{$drvPath} = { attrName => $attrName, outPaths => [@outPaths] };
}
foreach my $drvPath (keys %packages) {
my $pkg = $packages{$drvPath};
process_dir($system, $pkg->{attrName}, "$pkg->{outPath}/bin");
process_dir($system, $pkg->{attrName}, "$pkg->{outPath}/sbin");
process_dir($system, $pkg->{attrName}, "$_/bin")
foreach @{$pkg->{outPaths}};
}
}