Luke Granger-Brown
57725ef3ec
git-subtree-dir: third_party/nixpkgs git-subtree-split: 76612b17c0ce71689921ca12d9ffdc9c23ce40b2
61 lines
1.9 KiB
Nix
61 lines
1.9 KiB
Nix
# This expression returns a list of all fetchurl calls used by ‘expr’.
|
||
|
||
{ expr, lib ? import ../../lib }:
|
||
|
||
let
|
||
inherit (lib)
|
||
addErrorContext
|
||
attrNames
|
||
concatLists
|
||
const
|
||
filter
|
||
genericClosure
|
||
isAttrs
|
||
isDerivation
|
||
isList
|
||
mapAttrsToList
|
||
optional
|
||
optionals
|
||
;
|
||
|
||
root = expr;
|
||
|
||
uniqueFiles = map (x: x.file) (genericClosure {
|
||
startSet = map (file: { key = with file; (if type == null then "" else type + "+") + hash; inherit file; }) files;
|
||
operator = const [ ];
|
||
});
|
||
|
||
files = map (drv: { urls = drv.urls or [ drv.url ]; hash = drv.outputHash; isPatch = (drv?postFetch && drv.postFetch != ""); type = drv.outputHashAlgo; name = drv.name; }) fetchurlDependencies;
|
||
|
||
fetchurlDependencies =
|
||
filter
|
||
(drv: drv.outputHash or "" != "" && drv.outputHashMode or "flat" == "flat"
|
||
&& (drv ? url || drv ? urls))
|
||
dependencies;
|
||
|
||
dependencies = map (x: x.value) (genericClosure {
|
||
startSet = map keyDrv (derivationsIn' root);
|
||
operator = { key, value }: map keyDrv (immediateDependenciesOf value);
|
||
});
|
||
|
||
derivationsIn' = x:
|
||
if !canEval x then []
|
||
else if isDerivation x then optional (canEval x.drvPath) x
|
||
else if isList x then concatLists (map derivationsIn' x)
|
||
else if isAttrs x then concatLists (mapAttrsToList (n: v: addErrorContext "while finding tarballs in '${n}':" (derivationsIn' v)) x)
|
||
else [ ];
|
||
|
||
keyDrv = drv: if canEval drv.drvPath then { key = drv.drvPath; value = drv; } else { };
|
||
|
||
immediateDependenciesOf = drv:
|
||
concatLists (mapAttrsToList (n: v: derivationsIn v) (removeAttrs drv (["meta" "passthru"] ++ optionals (drv?passthru) (attrNames drv.passthru))));
|
||
|
||
derivationsIn = x:
|
||
if !canEval x then []
|
||
else if isDerivation x then optional (canEval x.drvPath) x
|
||
else if isList x then concatLists (map derivationsIn x)
|
||
else [ ];
|
||
|
||
canEval = val: (builtins.tryEval val).success;
|
||
|
||
in uniqueFiles
|