Move logic to default.nix
This commit is contained in:
parent
185a541c59
commit
6efb6110a6
|
@ -0,0 +1,48 @@
|
|||
{ pkgs ? import <nixpkgs> {}, ... }: let
|
||||
inherit (builtins) genericClosure hasAttr length map;
|
||||
inherit (pkgs) runCommandLocal writeText;
|
||||
inherit (pkgs.lib) concatLines concatLists concatMap filter isDerivation isList mapAttrsToList;
|
||||
in rec {
|
||||
drvOutputs = drv: if hasAttr "outputs" drv then map (out: drv.${out}) drv.outputs else [ drv ];
|
||||
drvDeps = drv:
|
||||
mapAttrsToList (k: v:
|
||||
if isDerivation v then (drvOutputs v)
|
||||
else if isList v then concatMap drvOutputs (filter isDerivation v)
|
||||
else []
|
||||
) drv;
|
||||
drvClosure = let
|
||||
wrap = drv: { key = drv.outPath; inherit drv; };
|
||||
in drv: map (obj: obj.drv) (genericClosure {
|
||||
startSet = map wrap (drvOutputs drv);
|
||||
operator = obj: map wrap (concatLists (drvDeps obj.drv.drvAttrs));
|
||||
});
|
||||
drvMaintainers = drv:
|
||||
if ! hasAttr "meta" drv then []
|
||||
else if ! hasAttr "maintainers" drv.meta then []
|
||||
else drv.meta.maintainers;
|
||||
nobodyMaintains = drv:
|
||||
hasAttr "meta" drv &&
|
||||
hasAttr "maintainers" drv.meta &&
|
||||
(length drv.meta.maintainers) == 0;
|
||||
stringJoin = objToString: objs: writeText "txt" (concatLines (map objToString objs));
|
||||
|
||||
allMaintainers = drv: let
|
||||
closure = drvClosure drv;
|
||||
maintainers = concatMap drvMaintainers closure;
|
||||
mainToString = m: "${m.name} (${m.email})";
|
||||
in runCommandLocal "uniq-maintainers.txt" {} ''
|
||||
<${stringJoin mainToString maintainers} sort | uniq -c > $out
|
||||
'';
|
||||
|
||||
noMaintainers = drv: let
|
||||
closure = drvClosure drv;
|
||||
unmaintained = filter nobodyMaintains closure;
|
||||
drvToString = drv: "${drv.name} ${drv.meta.position}";
|
||||
in runCommandLocal "no-maintainers.txt" {} ''
|
||||
<${stringJoin drvToString unmaintained} sort -u \
|
||||
| sed 's/\/nix\/store\/[^/]*/https:\/\/github.com\/NixOS\/nixpkgs\/blob\/master/' \
|
||||
| sed 's/.nix:\(.*\)$/#L\1/' \
|
||||
| ${pkgs.unixtools.column}/bin/column -t \
|
||||
> $out
|
||||
'';
|
||||
}
|
56
flake.nix
56
flake.nix
|
@ -2,60 +2,12 @@
|
|||
outputs = { self, nixpkgs, ... }: let
|
||||
system = "x86_64-linux";
|
||||
pkgs = nixpkgs.legacyPackages.${system};
|
||||
inherit (builtins) genericClosure hasAttr length map;
|
||||
inherit (pkgs) runCommandLocal writeText;
|
||||
inherit (pkgs.lib) concatLines concatLists concatMap filter isDerivation isList mapAttrsToList;
|
||||
lib = import ./default.nix { inherit pkgs; };
|
||||
in {
|
||||
lib = rec {
|
||||
drvOutputs = drv:
|
||||
if hasAttr "outputs" drv
|
||||
then map (output: drv.${output}) drv.outputs
|
||||
else [ drv ];
|
||||
drvDeps = attrs:
|
||||
mapAttrsToList (k: v:
|
||||
if isDerivation v then (drvOutputs v)
|
||||
else if isList v then concatMap drvOutputs (filter isDerivation v)
|
||||
else []
|
||||
) attrs;
|
||||
wrap = drv: { key = drv.outPath; inherit drv; };
|
||||
buildtimeDerivations = drv0: map (obj: obj.drv) (genericClosure {
|
||||
startSet = map wrap (drvOutputs drv0);
|
||||
operator = obj: map wrap (concatLists (drvDeps obj.drv.drvAttrs));
|
||||
});
|
||||
drvMaintainers = drv:
|
||||
if ! hasAttr "meta" drv then []
|
||||
else if ! hasAttr "maintainers" drv.meta then []
|
||||
else drv.meta.maintainers;
|
||||
nobodyMaintains = drv:
|
||||
hasAttr "meta" drv &&
|
||||
hasAttr "maintainers" drv.meta &&
|
||||
(length drv.meta.maintainers) == 0;
|
||||
stringJoin = objToString: objs: writeText "txt" (concatLines (map objToString objs));
|
||||
maintainerToString = m: "${m.name} (${m.email})";
|
||||
drvToString = drv: "${drv.name}";
|
||||
};
|
||||
bundlers."x86_64-linux" = with self.lib; rec {
|
||||
bundlers."x86_64-linux" = rec {
|
||||
default = adopt;
|
||||
maintainers = drv: let
|
||||
drvs = buildtimeDerivations drv;
|
||||
maintainers = concatMap drvMaintainers drvs;
|
||||
maintainerNamesList = stringJoin (m: "${m.name} (${m.email})") maintainers;
|
||||
uniqNames = runCommandLocal "uniq-maintainers.txt" {} ''
|
||||
<${maintainerNamesList} sort | uniq -c > $out
|
||||
'';
|
||||
in uniqNames;
|
||||
adopt = drv: let
|
||||
drvs = buildtimeDerivations drv;
|
||||
drvsNoMain = filter nobodyMaintains drvs;
|
||||
drvNamesList = stringJoin (drv: "${drv.name} ${drv.meta.position}") drvsNoMain;
|
||||
uniqNames = runCommandLocal "no-maintainers.txt" {} ''
|
||||
<${drvNamesList} sort -u \
|
||||
| sed 's/\/nix\/store\/[^/]*/https:\/\/github.com\/NixOS\/nixpkgs\/blob\/master/' \
|
||||
| sed 's/.nix:\(.*\)$/#L\1/' \
|
||||
| ${pkgs.unixtools.column}/bin/column -t \
|
||||
> $out
|
||||
'';
|
||||
in uniqNames;
|
||||
maintainers = lib.allMaintainers;
|
||||
adopt = lib.noMaintainers;
|
||||
};
|
||||
};
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue