sigil/nixos-modules/genode-init.nix

159 lines
4.3 KiB
Nix

{ config, pkgs, lib, ... }:
with lib;
let
cfg = config.genode.init;
children' = config.lib.children.freeze
(config.genode.init.children // config.genode.init.auxiliaryChildren);
in {
options.genode.init = {
verbose = mkEnableOption "verbose logging";
configFile = mkOption {
description = ''
Dhall configuration of this init instance after children have been merged.
'';
type = types.path;
};
baseConfig = mkOption {
description =
"Dhall configuration of this init instance before merging children.";
type = types.str;
default = ''
let Sigil = env:DHALL_SIGIL
in Sigil.Init::{
, routes =
[ Sigil.Init.ServiceRoute.parent "File_system"
, Sigil.Init.ServiceRoute.parent "IO_MEM"
, Sigil.Init.ServiceRoute.parent "IO_PORT"
, Sigil.Init.ServiceRoute.parent "IRQ"
, Sigil.Init.ServiceRoute.parent "Rtc"
, Sigil.Init.ServiceRoute.parent "Terminal"
, Sigil.Init.ServiceRoute.parent "Timer"
]
}
'';
};
children = config.lib.types.children {
extraOptions = {
routeToNics = lib.mkOption {
type = with types; listOf str;
default = [ ];
example = [ "eth0" ];
description = ''
Grant access to these Nic interfaces.
'';
};
fsPersistence = lib.mkOption {
type = types.bool;
default = false;
description = ''
Whether this child will have access to mutable and persistent storage.
This space is shared among all components for which this option is available
and UNIX permission bits are not honored.
'';
};
};
};
auxiliaryChildren = config.lib.types.children { extraOptions = { }; } // {
internal = true;
description = ''
Children added to support other children, such as drivers.
Do not manually add children here.
'';
};
romModules = mkOption {
type = types.attrsOf types.path;
default = { };
description = "Attr set of initial ROM modules";
};
subinits =
# Subinits are just a different kind of children.
# Eventually this will be nested "genode.init" instances.
mkOption {
default = { };
type = with types;
attrsOf (submodule {
options = {
inherit binary coreROMs extraErisInputs extraInputs;
configFile = mkOption {
type = types.path;
description = ''
Dhall configuration of child init.
See https://git.sr.ht/~ehmry/dhall-genode/tree/master/Init/Type
'';
};
};
});
};
};
config.genode.init = {
# TODO: convert the subinits to children
children = mapAttrs (name: value: {
inherit (value) extraErisInputs extraInputs;
configFile = pkgs.writeText "${name}.child.dhall" ''
let Sigil = env:DHALL_SIGIL
in Sigil.Init.toChild ${value.configFile} Sigil.Init.Attributes.default
'';
}) cfg.subinits;
configFile = let
children = lib.mapAttrsToList
(name: value: '', { mapKey = "${name}", mapValue = ${value.config} }'')
children';
nicRoutes = lib.mapAttrsToList (child: value:
(map (label: ''
, { service =
{ name = "Nic"
, label = Sigil.Init.LabelSelector.prefix "${child}"
}
, route = Sigil.Init.Route.parent (None Text)
}
'') value.routeToNics)) config.genode.init.children;
in pkgs.writeText "init.dhall" ''
let Sigil = env:DHALL_SIGIL
let Init = Sigil.Init
let baseConfig = ${cfg.baseConfig}
in baseConfig // {
, verbose = ${if config.genode.init.verbose then "True" else "False"}
, children = baseConfig.children # ([ ${
toString children
} ] : Init.Children.Type)
, routes = baseConfig.routes # ([${
toString nicRoutes
}] : List Init.ServiceRoute.Type)
} : Init.Type
'';
romModules = with builtins;
listToAttrs (lib.lists.flatten
(map ({ roms, ... }: roms) (lib.lists.flatten (attrValues children'))));
};
}