019f8fd211
git-subtree-dir: users/wpcarro git-subtree-mainline:464bbcb15cgit-subtree-split:24f5a642afChange-Id: I6105b3762b79126b3488359c95978cadb3efa789
41 lines
1.2 KiB
Nix
41 lines
1.2 KiB
Nix
{ pkgs, ... }:
|
|
|
|
# `fs` contains utility functions for working with the filesystem.
|
|
|
|
let
|
|
inherit (builtins) attrNames hasAttr map readDir;
|
|
inherit (pkgs.lib) filterAttrs;
|
|
in {
|
|
# Returns a list of all of the regular files in `dir`.
|
|
files = dir:
|
|
map (name: dir + "/${name}")
|
|
(attrNames
|
|
(filterAttrs (_: type: type == "regular") (readDir dir)));
|
|
|
|
# Returns a list of all of the directories in `dir`.
|
|
dirs = dir:
|
|
map (name: dir + "/${name}")
|
|
(attrNames
|
|
(filterAttrs (_: type: type == "directory") (readDir dir)));
|
|
|
|
# Returns a list of paths to all of the `name` files starting at `dir`.
|
|
find = name: dir:
|
|
if hasAttr name (readDir dir) then
|
|
[ (dir + name) ] ++ concatMap findAllDefaultNix (dirs dir)
|
|
else
|
|
concatMap findAllDefaultNix (dirs dir);
|
|
|
|
# Looks for `name` in `dir`; if it cannot find it, it checks the parent
|
|
# directory.
|
|
resolve = name: dir:
|
|
if hasAttr name (readDir dir) then
|
|
dir + "/${name}"
|
|
else
|
|
# This prevents the function from infinitely recursing and eventually
|
|
# stack overflowing.
|
|
if (dirOf dir) == dir then
|
|
null
|
|
else
|
|
resolve name (dirOf dir);
|
|
};
|
|
}
|