···

       
4
       
4
       
 
       
# "nix-store --load-db" and "nix-store --register-validity

     

       
5
       
5
       
 
       
# --hash-given".

     

       
6
       
6
       
 
       


     

       
7
       
7
       
-
       
{ stdenv, coreutils, jq, perl, pathsFromGraph }:

     

       
7
       
7
       
+
       
{ stdenv, coreutils, jq }:

     

       
8
       
8
       
 
       


     

       
9
       
9
       
 
       
{ rootPaths }:

     

       
10
       
10
       
 
       


     

···

       
12
       
12
       
 
       
# `contents = {object = ...; symlink = /init;}' is a typical

     

       
13
       
13
       
 
       
# argument.

     

       
14
       
14
       
 
       


     

       
15
       
15
       
-
       
{ stdenv, perl, cpio, contents, compressor, prepend, ubootTools

     

       
15
       
15
       
+
       
{ stdenv, closureInfo, cpio, contents, compressor, prepend, ubootTools

     

       
16
       
16
       
 
       
, hostPlatform

     

       
17
       
17
       
 
       
}:

     

       
18
       
18
       
 
       


     
···

       
22
       
22
       
 
       


     

       
23
       
23
       
 
       
  makeUInitrd = hostPlatform.platform.kernelTarget == "uImage";

     

       
24
       
24
       
 
       


     

       
25
       
25
       
-
       
  nativeBuildInputs = [ perl cpio ]

     

       
25
       
25
       
+
       
  nativeBuildInputs = [ cpio ]

     

       
26
       
26
       
 
       
    ++ stdenv.lib.optional makeUInitrd ubootTools;

     

       
27
       
27
       
 
       


     

       
28
       
28
       
 
       
  # !!! should use XML.

     
···

       
30
       
30
       
 
       
  symlinks = map (x: x.symlink) contents;

     

       
31
       
31
       
 
       
  suffices = map (x: if x ? suffix then x.suffix else "none") contents;

     

       
32
       
32
       
 
       


     

       
33
       
33
       
-
       
  # For obtaining the closure of `contents'.

     

       
34
       
34
       
-
       
  exportReferencesGraph =

     

       
35
       
35
       
-
       
    map (x: [("closure-" + baseNameOf x.symlink) x.object]) contents;

     

       
36
       
36
       
-
       
  pathsFromGraph = ./paths-from-graph.pl;

     

       
33
       
33
       
+
       
  closure = closureInfo { rootPaths = (map (x: x.object) contents); };

     

       
37
       
34
       
 
       


     

       
38
       
35
       
 
       
  inherit compressor prepend;

     

       
39
       
36
       
 
       
}

     

···

       
25
       
25
       
 
       
done

     

       
26
       
26
       
 
       


     

       
27
       
27
       
 
       


     

       
28
       
28
       
-
       
# Get the paths in the closure of `object'.

     

       
29
       
29
       
-
       
storePaths=$(perl $pathsFromGraph closure-*)

     

       
30
       
30
       
-
       


     

       
31
       
31
       
-
       


     

       
32
       
28
       
 
       
# Paths in cpio archives *must* be relative, otherwise the kernel

     

       
33
       
29
       
 
       
# won't unpack 'em.

     

       
34
       
34
       
-
       
(cd root && cp -prd --parents $storePaths .)

     

       
30
       
30
       
+
       
(cd root && cp -prd --parents $(cat $closure/store-paths) .)

     

       
35
       
31
       
 
       


     

       
36
       
32
       
 
       


     

       
37
       
33
       
 
       
# Put the closure in a gzipped cpio archive.

     

···

       
1
       
1
       
+
       
# NOTE: this script is deprecated. Use closureInfo instead.

     

       
2
       
2
       
+
       


     

       
1
       
3
       
 
       
# Parses a /nix/store/*-closure file and prints

     

       
2
       
4
       
 
       
# various information.

     

       
3
       
5
       
 
       
# By default, the nodes in the graph are printed to stdout.