danderson/channel-scripts
0
0
Fork 0
forked from the-distro/channel-scripts
Code Pull requests Activity

Use attribute paths in the package database

Browse source
This commit is contained in:
Eelco Dolstra 2015-09-02 17:39:05 +02:00
parent d528d56e2d
commit bc1b2301df
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
generate-programs-index.pl
View file

@ -45,18 +45,16 @@ sub process_dir {
for my $system ("x86_64-linux", "i686-linux") {
print STDERR "indexing programs for $system...\n";
my $out = `nix-env -f $nixExprs -qa \\* --out-path --argstr system $system`;
my $out = `nix-env -f $nixExprs -qaP \\* --out-path --argstr system $system`;
die "cannot evaluate Nix expressions for $system" if $? != 0;
foreach my $line (split "\n", $out) {
my ($name, $outPath) = split ' ', $line;
die unless $name && $outPath;
my ($attrName, $name, $outPath) = split ' ', $line;
die unless $attrName && $name && $outPath;
next unless defined $narFiles{$outPath};
next unless -d $outPath;
my $pkgname = $name;
$pkgname =~ s/-\d.*//;
process_dir($system, $pkgname, "$outPath/bin");
process_dir($system, $pkgname, "$outPath/sbin");
process_dir($system, $attrName, "$outPath/bin");
process_dir($system, $attrName, "$outPath/sbin");
}
}