2015-09-30 23:48:15 +00:00
|
|
|
{ config, lib, ... }:
|
|
|
|
|
2016-02-14 15:43:44 +00:00
|
|
|
with config.krebs.lib;
|
2015-09-30 23:48:15 +00:00
|
|
|
|
|
|
|
let
|
|
|
|
out = {
|
|
|
|
# TODO deprecate krebs.build.host
|
|
|
|
options.krebs.build.host = mkOption {
|
|
|
|
type = types.host;
|
|
|
|
};
|
|
|
|
|
|
|
|
# TODO make krebs.build.profile shell safe
|
|
|
|
options.krebs.build.profile = mkOption {
|
|
|
|
type = types.str;
|
|
|
|
default = "/nix/var/nix/profiles/system";
|
|
|
|
};
|
|
|
|
|
|
|
|
# TODO deprecate krebs.build.user
|
|
|
|
options.krebs.build.user = mkOption {
|
|
|
|
type = types.user;
|
|
|
|
};
|
|
|
|
|
2016-02-16 04:09:09 +00:00
|
|
|
options.krebs.build.source = mkOption {
|
|
|
|
type = with types; attrsOf (either str (submodule {
|
2016-02-04 04:40:26 +00:00
|
|
|
options = {
|
2016-02-16 04:09:09 +00:00
|
|
|
url = str;
|
|
|
|
rev = str;
|
2016-02-04 04:40:26 +00:00
|
|
|
};
|
2016-02-16 04:09:09 +00:00
|
|
|
}));
|
2016-02-04 04:40:26 +00:00
|
|
|
default = {};
|
2015-09-30 23:48:15 +00:00
|
|
|
};
|
|
|
|
|
2016-02-04 04:40:26 +00:00
|
|
|
options.krebs.build.populate = mkOption {
|
|
|
|
type = types.str;
|
|
|
|
default = let
|
|
|
|
target-user = maybeEnv "target_user" "root";
|
|
|
|
target-host = maybeEnv "target_host" config.krebs.build.host.name;
|
2016-02-13 15:03:40 +00:00
|
|
|
target-port = maybeEnv "target_port" "22";
|
2016-02-04 04:40:26 +00:00
|
|
|
target-path = maybeEnv "target_path" "/var/src";
|
|
|
|
out = ''
|
|
|
|
#! /bin/sh
|
|
|
|
set -eu
|
2016-02-01 02:00:48 +00:00
|
|
|
|
2016-02-04 04:40:26 +00:00
|
|
|
verbose() {
|
|
|
|
printf '+%s\n' "$(printf ' %q' "$@")" >&2
|
|
|
|
"$@"
|
|
|
|
}
|
2016-02-01 02:00:48 +00:00
|
|
|
|
2016-02-04 04:40:26 +00:00
|
|
|
echo ${shell.escape git-script} \
|
2016-02-13 15:03:40 +00:00
|
|
|
| ssh -p ${shell.escape target-port} \
|
|
|
|
${shell.escape "${target-user}@${target-host}"} -T
|
2016-02-04 04:40:26 +00:00
|
|
|
|
|
|
|
unset tmpdir
|
|
|
|
trap '
|
2016-02-04 11:46:09 +00:00
|
|
|
rm -f "$tmpdir"/*
|
2016-02-04 04:40:26 +00:00
|
|
|
rmdir "$tmpdir"
|
|
|
|
trap - EXIT INT QUIT
|
|
|
|
' EXIT INT QUIT
|
|
|
|
tmpdir=$(mktemp -dt stockholm.XXXXXXXX)
|
|
|
|
chmod 0755 "$tmpdir"
|
|
|
|
|
2016-02-16 04:09:09 +00:00
|
|
|
${concatStringsSep "\n" (mapAttrsToList (name: symlink: ''
|
|
|
|
verbose ln -s ${shell.escape symlink.target} \
|
|
|
|
"$tmpdir"/${shell.escape name}
|
|
|
|
'') source-by-method.symlink)}
|
2016-02-04 04:40:26 +00:00
|
|
|
|
|
|
|
verbose proot \
|
2016-02-16 04:09:09 +00:00
|
|
|
-b "$tmpdir":${shell.escape target-path} \
|
|
|
|
${concatStringsSep " \\\n " (mapAttrsToList (name: file:
|
|
|
|
"-b ${shell.escape "${file.path}:${target-path}/${name}"}"
|
|
|
|
) source-by-method.file)} \
|
2016-02-04 04:40:26 +00:00
|
|
|
rsync \
|
|
|
|
-f ${shell.escape "P /*"} \
|
2016-02-16 04:09:09 +00:00
|
|
|
${concatMapStringsSep " \\\n " (name:
|
|
|
|
"-f ${shell.escape "R /${name}"}"
|
|
|
|
) (attrNames source-by-method.file)} \
|
2016-02-04 04:40:26 +00:00
|
|
|
--delete \
|
|
|
|
-vFrlptD \
|
2016-02-13 15:03:40 +00:00
|
|
|
-e ${shell.escape "ssh -p ${target-port}"} \
|
2016-02-04 04:40:26 +00:00
|
|
|
${shell.escape target-path}/ \
|
|
|
|
${shell.escape "${target-user}@${target-host}:${target-path}"}
|
|
|
|
'';
|
|
|
|
|
|
|
|
git-script = ''
|
|
|
|
#! /bin/sh
|
|
|
|
set -efu
|
|
|
|
|
|
|
|
verbose() {
|
|
|
|
printf '+%s\n' "$(printf ' %q' "$@")" >&2
|
|
|
|
"$@"
|
|
|
|
}
|
|
|
|
|
|
|
|
fetch_git() {(
|
|
|
|
dst_dir=$1
|
|
|
|
src_url=$2
|
|
|
|
src_ref=$3
|
|
|
|
|
|
|
|
if ! test -e "$dst_dir"; then
|
|
|
|
git clone "$src_url" "$dst_dir"
|
|
|
|
fi
|
|
|
|
|
|
|
|
cd "$dst_dir"
|
|
|
|
|
|
|
|
if ! url=$(git config remote.origin.url); then
|
|
|
|
git remote add origin "$src_url"
|
|
|
|
elif test "$url" != "$src_url"; then
|
|
|
|
git remote set-url origin "$src_url"
|
|
|
|
fi
|
|
|
|
|
|
|
|
# TODO resolve src_ref to commit hash
|
|
|
|
hash=$src_ref
|
|
|
|
|
|
|
|
if ! test "$(git log --format=%H -1)" = "$hash"; then
|
|
|
|
git fetch origin
|
|
|
|
git checkout "$hash" -- "$dst_dir"
|
|
|
|
git checkout "$hash"
|
|
|
|
fi
|
|
|
|
|
|
|
|
git clean -dxf
|
|
|
|
)}
|
|
|
|
|
2016-02-16 04:09:09 +00:00
|
|
|
${concatStringsSep "\n" (mapAttrsToList (name: git: ''
|
|
|
|
verbose fetch_git ${concatMapStringsSep " " shell.escape [
|
|
|
|
"${target-path}/${name}"
|
|
|
|
git.url
|
|
|
|
git.rev
|
|
|
|
]}
|
|
|
|
'') source-by-method.git)}
|
2016-02-04 04:40:26 +00:00
|
|
|
'';
|
|
|
|
in out;
|
2015-09-30 23:48:15 +00:00
|
|
|
};
|
2016-02-01 02:00:48 +00:00
|
|
|
|
2015-09-30 23:48:15 +00:00
|
|
|
};
|
|
|
|
|
2016-02-16 04:09:09 +00:00
|
|
|
source-by-method = let
|
|
|
|
known-methods = ["git" "file" "symlink"];
|
|
|
|
in genAttrs known-methods (const {}) // recursiveUpdate source-by-scheme {
|
|
|
|
git = source-by-scheme.http or {} //
|
|
|
|
source-by-scheme.https or {};
|
|
|
|
};
|
|
|
|
|
|
|
|
source-by-scheme = foldl' (out: { k, v }: recursiveUpdate out {
|
|
|
|
${v.scheme}.${k} = v;
|
|
|
|
}) {} (mapAttrsToList (k: v: { inherit k v; }) normalized-source);
|
|
|
|
|
|
|
|
normalized-source = mapAttrs (name: let f = x: getAttr (typeOf x) {
|
|
|
|
path = f (toString x);
|
|
|
|
string = f {
|
|
|
|
url = if substring 0 1 x == "/" then "file://${x}" else x;
|
|
|
|
};
|
|
|
|
set = let scheme = head (splitString ":" x.url); in recursiveUpdate x {
|
|
|
|
inherit scheme;
|
|
|
|
} // {
|
|
|
|
symlink.target = removePrefix "symlink:" x.url;
|
|
|
|
file.path = # TODO file://host/...
|
|
|
|
assert hasPrefix "file:///" x.url;
|
|
|
|
removePrefix "file://" x.url;
|
|
|
|
}.${scheme} or {};
|
|
|
|
}; in f) config.krebs.build.source;
|
2015-09-30 23:48:15 +00:00
|
|
|
in out
|