blob: f6234f130d310213ccc2f1b3d85d650a8312cb70 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
# SPDX-License-Identifier: MIT
# SPDX-FileCopyrightText: 2022, 2024 Alyssa Ross <hi@alyssa.is>
# SPDX-FileCopyrightText: 2022 Unikie
{ pkgs ? import <nixpkgs> {}
# Paths that are present in the base image that will start this VM's
# run script, and don't so need to be duplicated in the extension
# partition's store.
, basePaths ? builtins.toFile "null" ""
}:
pkgs.pkgsStatic.callPackage (
{ lib, runCommand, writeReferencesToFile, erofs-utils }:
{ run, providers ? {}, sharedDirs ? {}, wayland ? false }:
let
inherit (lib)
any attrValues concatLists concatStrings concatStringsSep hasInfix
mapAttrsToList;
in
assert !(any (hasInfix "\n") (concatLists (attrValues providers)));
runCommand "spectrum-vm" {
nativeBuildInputs = [ erofs-utils ];
inherit wayland;
providerDirs = concatStrings (concatLists
(mapAttrsToList (kind: map (vm: "${kind}/${vm}\n")) providers));
passAsFile = [ "providerDirs" ];
} ''
mkdir -p "$out"/{blk,providers,shared-dirs}
(
printf "%s\nrun\n" ${run}
comm -23 <(sort ${writeReferencesToFile run}) \
<(sort ${writeReferencesToFile basePaths}) | sed p
) | ${../scripts/make-erofs.sh} -L ext "$out/blk/run.img"
pushd "$out"
pushd providers
xargs -rd '\n' dirname -- < "$providerDirsPath" | xargs -rd '\n' mkdir -p --
xargs -rd '\n' touch -- < "$providerDirsPath"
popd
pushd shared-dirs
${concatStringsSep "\n" (mapAttrsToList (key: { path }: ''
mkdir ${lib.escapeShellArg key}
ln -s ${lib.escapeShellArgs [ path "${key}/dir" ]}
'') sharedDirs)}
popd
popd
if [ -n "$wayland" ]; then
touch "$out/wayland"
fi
ln -s /usr/img/appvm/blk/root.img "$out/blk"
ln -s /usr/img/appvm/vmlinux "$out"
''
) {}
|