blob: d7d5e34e991bb0f08ed788de7a908e18b239f14a (
plain) (
tree)
|
|
{ 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);
};
}
|