stockholm/krebs/5pkgs/builders.nix

258 lines
7.6 KiB
Nix
Raw Normal View History

{ config, pkgs, ... }:
2016-02-14 15:43:44 +00:00
with config.krebs.lib;
2016-02-13 15:45:26 +00:00
rec {
execve = name: { filename, argv ? null, envp ? {}, destination ? "" }: let
2016-06-13 00:23:30 +00:00
in writeC name { inherit destination; } /* c */ ''
2016-02-13 15:45:26 +00:00
#include <unistd.h>
static char *const filename = ${toC filename};
${if argv == null
2016-06-13 00:23:30 +00:00
then /* Propagate arguments */ /* c */ ''
2016-02-13 15:45:26 +00:00
#define MAIN_ARGS int argc, char **argv
''
2016-06-13 00:23:30 +00:00
else /* Provide fixed arguments */ /* c */ ''
2016-02-13 15:45:26 +00:00
#define MAIN_ARGS void
static char *const argv[] = ${toC (argv ++ [null])};
''}
static char *const envp[] = ${toC (
mapAttrsToList (k: v: "${k}=${v}") envp ++ [null]
)};
int main (MAIN_ARGS) {
execve(filename, argv, envp);
return -1;
}
'';
execveBin = name: cfg: execve name (cfg // { destination = "/bin/${name}"; });
2016-06-12 23:30:06 +00:00
makeScriptWriter = interpreter: name: text:
assert (with types; either absolute-pathname filename).check name;
pkgs.writeOut (baseNameOf name) {
${optionalString (types.absolute-pathname.check name) name} = {
executable = true;
text = "#! ${interpreter}\n${text}";
};
};
2016-06-04 22:24:42 +00:00
2016-06-12 23:30:06 +00:00
writeBash = makeScriptWriter "${pkgs.bash}/bin/bash";
writeBashBin = name:
assert types.filename.check name;
pkgs.writeBash "/bin/${name}";
2016-06-04 22:24:42 +00:00
2016-06-13 00:23:30 +00:00
writeC = name: { destination ? "" }: src: pkgs.runCommand name {} /* sh */ ''
2016-03-03 18:45:46 +00:00
PATH=${makeBinPath (with pkgs; [
binutils
coreutils
gcc
])}
src=${pkgs.writeText "${name}.c" src}
exe=$out${destination}
mkdir -p "$(dirname "$exe")"
gcc -O -Wall -o "$exe" $src
strip --strip-unneeded "$exe"
'';
2016-06-12 23:30:06 +00:00
writeDash = makeScriptWriter "${pkgs.dash}/bin/dash";
2016-06-12 23:30:06 +00:00
writeDashBin = name:
assert types.filename.check name;
pkgs.writeDash "/bin/${name}";
writeEximConfig = name: text: pkgs.runCommand name {
inherit text;
passAsFile = [ "text" ];
2016-06-13 00:23:30 +00:00
} /* sh */ ''
2016-05-24 20:36:04 +00:00
# TODO validate exim config even with config.nix.useChroot == true
# currently doing so will fail because "user exim was not found"
#${pkgs.exim}/bin/exim -C "$textPath" -bV >/dev/null
mv "$textPath" $out
'';
writeOut = name: specs0:
2016-06-12 11:53:23 +00:00
let
2016-06-30 17:11:08 +00:00
writers.link =
{ path
, link
}:
assert path == "" || types.absolute-pathname.check path;
assert types.package.check link;
{
install = /* sh */ ''
${optionalString (dirOf path != "/") /* sh */ ''
${pkgs.coreutils}/bin/mkdir -p $out${dirOf path}
''}
${pkgs.coreutils}/bin/ln -s ${link} $out${path}
'';
};
2016-06-30 17:11:08 +00:00
writers.text =
{ path
, executable ? false
, mode ? if executable then "0755" else "0644"
, text
}:
assert path == "" || types.absolute-pathname.check path;
assert types.bool.check executable;
assert types.file-mode.check mode;
rec {
var = "file_${hashString "sha1" path}";
val = text;
install = /* sh */ ''
${pkgs.coreutils}/bin/install -m ${mode} -D ''$${var}Path $out${path}
'';
};
2016-06-12 11:53:23 +00:00
2016-06-30 17:11:08 +00:00
write = spec: writers.${spec.type} (removeAttrs spec ["type"]);
specs =
mapAttrsToList
(path: spec: let
known-types = [ "link" "text" ];
found-types = attrNames (getAttrs known-types spec);
type = assert length found-types == 1; head found-types;
in spec // { inherit path type; })
specs0;
files = map write specs;
filevars = genAttrs' (filter (hasAttr "var") files)
(spec: nameValuePair spec.var spec.val);
2016-06-12 11:53:23 +00:00
env = filevars // { passAsFile = attrNames filevars; };
in
pkgs.runCommand name env /* sh */ ''
set -efu
2016-06-30 17:11:08 +00:00
${concatMapStringsSep "\n" (getAttr "install") files}
2016-06-12 11:53:23 +00:00
'';
writeHaskell =
2016-05-24 22:08:34 +00:00
k:
let
k' = parseDrvName k;
name = k'.name;
version = if k'.version != "" then k'.version else "0";
in
{ base-depends ? ["base"]
, executables ? {}
2016-05-24 22:08:34 +00:00
, ghc-options ? ["-Wall" "-O3" "-threaded" "-rtsopts"]
, haskellPackages ? pkgs.haskellPackages
, library ? null
2016-05-24 22:08:34 +00:00
, license ? "WTFPL"
}:
let
isExecutable = executables != {};
isLibrary = library != null;
2016-06-13 00:23:30 +00:00
cabal-file = pkgs.writeText "${name}-${version}.cabal" /* cabal */ ''
2016-05-24 22:08:34 +00:00
build-type: Simple
cabal-version: >= 1.2
name: ${name}
version: ${version}
${concatStringsSep "\n" (mapAttrsToList exe-section executables)}
${optionalString isLibrary (lib-section library)}
2016-05-24 22:08:34 +00:00
'';
exe-install =
exe-name:
{ file ? pkgs.writeText "${name}-${exe-name}.hs" text
, relpath ? "${exe-name}.hs"
, text
, ... }:
if types.filename.check exe-name
2016-06-13 00:23:30 +00:00
then /* sh */ "install -D ${file} $out/${relpath}"
else throw "argument exe-name is not a ${types.filename.name}";
exe-section =
exe-name:
{ build-depends ? base-depends ++ extra-depends
, extra-depends ? []
, file ? pkgs.writeText "${name}-${exe-name}.hs" text
, relpath ? "${exe-name}.hs"
, text
2016-06-13 00:23:30 +00:00
, ... }: /* cabal */ ''
executable ${exe-name}
build-depends: ${concatStringsSep "," build-depends}
ghc-options: ${toString ghc-options}
main-is: ${relpath}
'';
get-depends =
{ build-depends ? base-depends ++ extra-depends
, extra-depends ? []
, ...
}:
build-depends;
lib-install =
{ exposed-modules
, ... }:
concatStringsSep "\n" (mapAttrsToList mod-install exposed-modules);
lib-section =
{ build-depends ? base-depends ++ extra-depends
, extra-depends ? []
, exposed-modules
2016-06-13 00:23:30 +00:00
, ... }: /* cabal */ ''
library
build-depends: ${concatStringsSep "," build-depends}
ghc-options: ${toString ghc-options}
exposed-modules: ${concatStringsSep "," (attrNames exposed-modules)}
'';
mod-install =
mod-name:
{ file ? pkgs.writeText "${name}-${mod-name}.hs" text
, relpath ? "${replaceStrings ["."] ["/"] mod-name}.hs"
, text
, ... }:
if types.haskell.modid.check mod-name
2016-06-13 00:23:30 +00:00
then /* sh */ "install -D ${file} $out/${relpath}"
else throw "argument mod-name is not a ${types.haskell.modid.name}";
2016-05-24 22:08:34 +00:00
in
haskellPackages.mkDerivation {
inherit isExecutable isLibrary license version;
executableHaskellDepends =
attrVals
(concatMap get-depends (attrValues executables))
haskellPackages;
libraryHaskellDepends =
attrVals
(optionals isLibrary (get-depends library))
haskellPackages;
2016-05-24 22:08:34 +00:00
pname = name;
2016-06-13 00:23:30 +00:00
src = pkgs.runCommand "${name}-${version}-src" {} /* sh */ ''
2016-05-24 22:08:34 +00:00
install -D ${cabal-file} $out/${cabal-file.name}
${optionalString isLibrary (lib-install library)}
${concatStringsSep "\n" (mapAttrsToList exe-install executables)}
2016-05-24 22:08:34 +00:00
'';
};
2016-07-03 18:46:48 +00:00
writeJq = name: src: pkgs.runCommand name {} /* sh */ ''
name=${assert types.filename.check name; name}
src=${shell.escape src}
# syntax check
printf '%s' "$src" > src.jq
${pkgs.jq}/bin/jq -f src.jq < /dev/null
cp src.jq "$out"
'';
2016-08-02 18:35:34 +00:00
writeJSON = name: value: pkgs.writeText name (toJSON value);
2016-05-24 22:28:09 +00:00
writeNixFromCabal =
trace (toString [
"The function `writeNixFromCabal` has been deprecated in favour of"
"`writeHaskell`."
2016-05-24 22:28:09 +00:00
])
2016-06-13 00:23:30 +00:00
(name: path: pkgs.runCommand name {} /* sh */ ''
2016-05-24 22:28:09 +00:00
${pkgs.cabal2nix}/bin/cabal2nix ${path} > $out
'');
2016-06-30 00:43:28 +00:00
writeSed = makeScriptWriter "${pkgs.gnused}/bin/sed -f";
}