forked from DGNum/liminix
25d9da967c
(1) we can't make them on a real filesystem except by running something that calls socket() (2) whyever would we want to?
46 lines
1.5 KiB
Nix
46 lines
1.5 KiB
Nix
{
|
|
writeText
|
|
, lib
|
|
}:
|
|
let
|
|
inherit (lib.attrsets) mapAttrsToList;
|
|
visit = prefix: attrset:
|
|
let
|
|
qprint = msg : builtins.replaceStrings
|
|
["\n" "=" "\"" "$" ]
|
|
["=0A" "=3D" "=22" "=24"]
|
|
msg;
|
|
l =
|
|
mapAttrsToList
|
|
(filename: {
|
|
type ? "f"
|
|
, mode ? null
|
|
, target ? null
|
|
, contents ? null
|
|
, file ? null
|
|
, major ? null
|
|
, minor ? null
|
|
}:
|
|
let
|
|
mode' = if mode != null then mode else
|
|
(if type == "d" then "0755" else "0644");
|
|
pathname = "${prefix}/${filename}";
|
|
line = "${pathname} ${type} ${mode'} 0 0";
|
|
in
|
|
if type == "f" then
|
|
"${line} echo -n \"${qprint file}\" |qprint -d"
|
|
else if type == "d" then
|
|
(visit pathname contents) + "\n" + line
|
|
else if type == "c" then "${line} ${major} ${minor}"
|
|
else if type == "b" then "${line} ${major} ${minor}"
|
|
else if type == "s" then "${line} ${target}"
|
|
else if type == "l" then "${pathname} l ${target}"
|
|
else if type == "i" then "${line} f"
|
|
else line)
|
|
attrset;
|
|
in builtins.concatStringsSep "\n" l;
|
|
in {
|
|
write = filename : attrset : writeText filename (visit "" attrset);
|
|
dir = contents: { type = "d"; inherit contents; };
|
|
symlink = target: { type = "s"; inherit target; };
|
|
}
|