tvl-depot/users/wpcarro/utils/fs.nix
Vincent Ambo aa122cbae7 style: format entire depot with nixpkgs-fmt
This CL can be used to compare the style of nixpkgs-fmt against other
formatters (nixpkgs, alejandra).

Change-Id: I87c6abff6bcb546b02ead15ad0405f81e01b6d9e
Reviewed-on: https://cl.tvl.fyi/c/depot/+/4397
Tested-by: BuildkiteCI
Reviewed-by: sterni <sternenseemann@systemli.org>
Reviewed-by: lukegb <lukegb@tvl.fyi>
Reviewed-by: wpcarro <wpcarro@gmail.com>
Reviewed-by: Profpatsch <mail@profpatsch.de>
Reviewed-by: kanepyork <rikingcoding@gmail.com>
Reviewed-by: tazjin <tazjin@tvl.su>
Reviewed-by: cynthia <cynthia@tvl.fyi>
Reviewed-by: edef <edef@edef.eu>
Reviewed-by: eta <tvl@eta.st>
Reviewed-by: grfn <grfn@gws.fyi>
2022-01-31 16:11:53 +00:00

42 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);
};
}