|
|
|
@ -7,7 +7,7 @@ let Libc = Sigil.Libc
|
|
|
|
|
let VFS = Sigil.VFS
|
|
|
|
|
|
|
|
|
|
in λ(args : List Text) →
|
|
|
|
|
λ(lwipCap : Text) →
|
|
|
|
|
λ(vfs : { lwip : Text, pipe : Text }) →
|
|
|
|
|
λ(binary : Text) →
|
|
|
|
|
Init.Child.flat
|
|
|
|
|
Init.Child.Attributes::{
|
|
|
|
@ -17,7 +17,7 @@ in λ(args : List Text) →
|
|
|
|
|
Libc::{
|
|
|
|
|
, args
|
|
|
|
|
, pipe = Some "/dev/pipes"
|
|
|
|
|
, rtc = Some "/dev/random"
|
|
|
|
|
, rng = Some "/dev/entropy"
|
|
|
|
|
, socket = Some "/dev/sockets"
|
|
|
|
|
, vfs =
|
|
|
|
|
[ VFS.dir
|
|
|
|
@ -25,11 +25,18 @@ in λ(args : List Text) →
|
|
|
|
|
[ VFS.leaf "null"
|
|
|
|
|
, VFS.leaf "log"
|
|
|
|
|
, VFS.leaf "rtc"
|
|
|
|
|
, VFS.leafAttrs "terminal" (toMap { label = "entropy" })
|
|
|
|
|
, VFS.dir "pipes" [ VFS.leaf "pipe" ]
|
|
|
|
|
, VFS.leafAttrs
|
|
|
|
|
"terminal"
|
|
|
|
|
(toMap { name = "entropy", label = "entropy" })
|
|
|
|
|
, VFS.dir
|
|
|
|
|
"pipes"
|
|
|
|
|
[ VFS.leafAttrs "plugin" (toMap { load = vfs.pipe }) ]
|
|
|
|
|
, VFS.dir
|
|
|
|
|
"sockets"
|
|
|
|
|
[ VFS.leafAttrs "plugin" (toMap { load = lwipCap }) ]
|
|
|
|
|
[ VFS.leafAttrs
|
|
|
|
|
"plugin"
|
|
|
|
|
(toMap { load = vfs.lwip, label = "uplink" })
|
|
|
|
|
]
|
|
|
|
|
]
|
|
|
|
|
, VFS.dir
|
|
|
|
|
"nix"
|
|
|
|
@ -41,5 +48,5 @@ in λ(args : List Text) →
|
|
|
|
|
]
|
|
|
|
|
]
|
|
|
|
|
}
|
|
|
|
|
, resources = Init.Resources::{ caps = 256, ram = Sigil.units.MiB 64 }
|
|
|
|
|
, resources = Init.Resources::{ caps = 512, ram = Sigil.units.MiB 384 }
|
|
|
|
|
}
|
|
|
|
|