25 lines
636 B
Plaintext
25 lines
636 B
Plaintext
let Sigil = env:DHALL_SIGIL
|
|
|
|
let Init = Sigil.Init
|
|
|
|
in λ(binary : Text) →
|
|
Init.Child.flat
|
|
Init.Child.Attributes::{
|
|
, binary
|
|
, priorityOffset = 1
|
|
, resources = Init.Resources::{
|
|
, caps = 400
|
|
, ram = Sigil.units.MiB 4
|
|
, constrainPhys = True
|
|
}
|
|
, routes =
|
|
[ Init.ServiceRoute.parent "IRQ"
|
|
, Init.ServiceRoute.parent "IO_MEM"
|
|
, Init.ServiceRoute.parent "IO_PORT"
|
|
]
|
|
, produceReports =
|
|
let f = λ(x : Text) → { report = x, rom = x }
|
|
|
|
in [ f "acpi", f "smbios_table" ]
|
|
}
|