Emery Hemingway
165cf60551
The "config.genode.init.children" option is a superset of the "config.genode.core.children" option, so refactor both into helper functions.
146 lines
4.0 KiB
Nix
146 lines
4.0 KiB
Nix
{ config, pkgs, lib, ... }:
|
|
|
|
with lib;
|
|
|
|
let
|
|
cfg = config.genode.init;
|
|
|
|
children' = config.lib.children.freeze config.genode.init.children;
|
|
|
|
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 Genode = env:DHALL_GENODE
|
|
|
|
in Genode.Init::{
|
|
, routes =
|
|
[ Genode.Init.ServiceRoute.parent "File_system"
|
|
, Genode.Init.ServiceRoute.parent "IO_MEM"
|
|
, Genode.Init.ServiceRoute.parent "IO_PORT"
|
|
, Genode.Init.ServiceRoute.parent "IRQ"
|
|
, Genode.Init.ServiceRoute.parent "Rtc"
|
|
, Genode.Init.ServiceRoute.parent "Terminal"
|
|
, Genode.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.
|
|
'';
|
|
};
|
|
};
|
|
};
|
|
|
|
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 Genode = env:DHALL_GENODE
|
|
|
|
in Genode.Init.toChild ${value.configFile} Genode.Init.Attributes.default
|
|
'';
|
|
}) cfg.subinits;
|
|
|
|
configFile = let
|
|
|
|
children =
|
|
lib.mapAttrsToList (name: value: ", `${name}` = ${value.config} ")
|
|
children';
|
|
|
|
nicRoutes = lib.mapAttrsToList (child: value:
|
|
(map (label: ''
|
|
, { service =
|
|
{ name = "Nic"
|
|
, label = Genode.Init.LabelSelector.prefix "${child}"
|
|
}
|
|
, route = Genode.Init.Route.parent (None Text)
|
|
}
|
|
'') value.routeToNics)) config.genode.init.children;
|
|
|
|
in pkgs.writeText "init.dhall" ''
|
|
let Genode = env:DHALL_GENODE
|
|
|
|
let baseConfig = ${cfg.baseConfig}
|
|
|
|
in baseConfig // {
|
|
, verbose = ${if config.genode.init.verbose then "True" else "False"}
|
|
, children = baseConfig.children # toMap {${toString children} }
|
|
, routes = baseConfig.routes # ([${
|
|
toString nicRoutes
|
|
}] : List Genode.Init.ServiceRoute.Type)
|
|
} : Genode.Init.Type
|
|
'';
|
|
|
|
romModules = with builtins;
|
|
listToAttrs (lib.lists.flatten
|
|
(map ({ roms, ... }: roms) (lib.lists.flatten (attrValues children'))));
|
|
|
|
};
|
|
|
|
}
|