|
|
|
@ -16,7 +16,11 @@ let parentRoutes =
|
|
|
|
|
Prelude.List.map Text Init.ServiceRoute.Type Init.ServiceRoute.parent
|
|
|
|
|
|
|
|
|
|
in λ ( params
|
|
|
|
|
: { args : List Text, coreutils : Text, interface : Optional Text }
|
|
|
|
|
: { args : List Text
|
|
|
|
|
, binary : Text
|
|
|
|
|
, coreutils : Text
|
|
|
|
|
, interface : Optional Text
|
|
|
|
|
}
|
|
|
|
|
) →
|
|
|
|
|
let socketsVfs =
|
|
|
|
|
merge
|
|
|
|
@ -112,7 +116,7 @@ in λ ( params
|
|
|
|
|
, ExecStart =
|
|
|
|
|
Child.flat
|
|
|
|
|
Child.Attributes::{
|
|
|
|
|
, binary = "bash"
|
|
|
|
|
, binary = params.binary
|
|
|
|
|
, exitPropagate = True
|
|
|
|
|
, resources = Genode.Init.Resources::{
|
|
|
|
|
, caps = 256
|
|
|
|
@ -125,10 +129,11 @@ in λ ( params
|
|
|
|
|
, stdout = Some "/dev/log"
|
|
|
|
|
, stderr = Some "/dev/log"
|
|
|
|
|
, pipe = Some "/dev/pipes"
|
|
|
|
|
, rng = Some "/dev/random"
|
|
|
|
|
, rtc = Some "/dev/rtc"
|
|
|
|
|
, socket = Some "/dev/sockets"
|
|
|
|
|
, vfs = [ VFS.leaf "fs" ]
|
|
|
|
|
, args = params.args
|
|
|
|
|
, args = [ params.binary ] # params.args
|
|
|
|
|
}
|
|
|
|
|
)
|
|
|
|
|
with attributes = toMap { ld_verbose = "yes" }
|
|
|
|
|