maintainers/scripts/find-tarballs.nix

   1 # This expression returns a list of all fetchurl calls used by ‘expr’.
   2
   3 with import ../.. { };
   4 with lib;
   5
   6 { expr }:
   7
   8 let
   9
  10   root = expr;
  11
  12   uniqueFiles = map (x: x.file) (genericClosure {
  13     startSet = map (file: { key = with file; (if type == null then "" else type + "+") + hash; inherit file; }) files;
  14     operator = const [ ];
  15   });
  16
  17   files = map (drv: { urls = drv.urls or [ drv.url ]; hash = drv.outputHash; isPatch = (drv?postFetch && drv.postFetch != ""); type = drv.outputHashAlgo; name = drv.name; }) fetchurlDependencies;
  18
  19   fetchurlDependencies =
  20     filter
  21       (drv: drv.outputHash or "" != "" && drv.outputHashMode or "flat" == "flat"
  22           && (drv ? url || drv ? urls))
  23       dependencies;
  24
  25   dependencies = map (x: x.value) (genericClosure {
  26     startSet = map keyDrv (derivationsIn' root);
  27     operator = { key, value }: map keyDrv (immediateDependenciesOf value);
  28   });
  29
  30   derivationsIn' = x:
  31     if !canEval x then []
  32     else if isDerivation x then optional (canEval x.drvPath) x
  33     else if isList x then concatLists (map derivationsIn' x)
  34     else if isAttrs x then concatLists (mapAttrsToList (n: v: addErrorContext "while finding tarballs in '${n}':" (derivationsIn' v)) x)
  35     else [ ];
  36
  37   keyDrv = drv: if canEval drv.drvPath then { key = drv.drvPath; value = drv; } else { };
  38
  39   immediateDependenciesOf = drv:
  40     concatLists (mapAttrsToList (n: v: derivationsIn v) (removeAttrs drv (["meta" "passthru"] ++ optionals (drv?passthru) (attrNames drv.passthru))));
  41
  42   derivationsIn = x:
  43     if !canEval x then []
  44     else if isDerivation x then optional (canEval x.drvPath) x
  45     else if isList x then concatLists (map derivationsIn x)
  46     else [ ];
  47
  48   canEval = val: (builtins.tryEval val).success;
  49
  50 in uniqueFiles