69 lines
1.7 KiB
Perl
69 lines
1.7 KiB
Perl
|
# NOTE: this script is deprecated. Use closureInfo instead.
|
||
|
|
|
||
|
|
# Parses a /nix/store/*-closure file and prints
|
||
|
|
# various information.
|
||
|
|
# By default, the nodes in the graph are printed to stdout.
|
||
|
|
# If printRegistration is set, then the graph is written
|
||
|
|
# as a registration file for a manifest is written
|
||
|
|
# in the `nix-store --load-db' format.
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
my %storePaths;
|
||
|
|
my %refs;
|
||
|
|
|
||
|
|
# Each argument on the command line is a graph file.
|
||
|
|
# The graph file contains line-triples and a variable
|
||
|
|
# number of references:
|
||
|
|
# <store-path>
|
||
|
|
# <deriver>
|
||
|
|
# <count>
|
||
|
|
# <ref-#1>
|
||
|
|
# ...
|
||
|
|
# <ref-#count>
|
||
|
|
foreach my $graph (@ARGV) {
|
||
|
|
open GRAPH, "<$graph" or die;
|
||
|
|
|
||
|
|
while (<GRAPH>) {
|
||
|
|
chomp;
|
||
|
|
my $storePath = "$_";
|
||
|
|
$storePaths{$storePath} = 1;
|
||
|
|
|
||
|
|
my $deriver = <GRAPH>; chomp $deriver;
|
||
|
|
my $count = <GRAPH>; chomp $count;
|
||
|
|
|
||
|
|
my @refs = ();
|
||
|
|
for (my $i = 0; $i < $count; ++$i) {
|
||
|
|
my $ref = <GRAPH>; chomp $ref;
|
||
|
|
push @refs, $ref;
|
||
|
|
}
|
||
|
|
$refs{$storePath} = \@refs;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
close GRAPH;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
if ($ENV{"printRegistration"} eq "1") {
|
||
|
|
# This is the format used by `nix-store --register-validity
|
||
|
|
# --hash-given' / `nix-store --load-db'.
|
||
|
|
foreach my $storePath (sort (keys %storePaths)) {
|
||
|
|
print "$storePath\n";
|
||
|
|
print "0000000000000000000000000000000000000000000000000000000000000000\n"; # !!! fix
|
||
|
|
print "0\n"; # !!! fix
|
||
|
|
print "\n"; # don't care about preserving the deriver
|
||
|
|
print scalar(@{$refs{$storePath}}), "\n";
|
||
|
|
foreach my $ref (@{$refs{$storePath}}) {
|
||
|
|
print "$ref\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
else {
|
||
|
|
foreach my $storePath (sort (keys %storePaths)) {
|
||
|
|
print "$storePath\n";
|
||
|
|
}
|
||
|
|
}
|