-- SPDX-License-Identifier: CC0-1.0

let Genode = env:DHALL_GENODE

let XML = Genode.Prelude.XML

let Init = Genode.Init

let Child = Init.Child

let Resources = Init.Resources

let ServiceRoute = Init.ServiceRoute

let label = λ(_ : Text) → { local = _, route = _ } : Child.Attributes.Label

in  Genode.Boot::{
    , config =
        Init::{
        , verbose = True
        , children =
            toMap
              { test-pci =
                  Child.flat
                    Child.Attributes::{
                    , binary = "test-pci"
                    , exitPropagate = True
                    , resources = Resources::{ ram = Genode.units.MiB 3 }
                    , routes = [ ServiceRoute.child "Platform" "platform_drv" ]
                    }
              , acpi_drv =
                  Child.flat
                    Child.Attributes::{
                    , binary = "acpi_drv"
                    , resources =
                        Resources::{
                        , caps = 400
                        , ram = Genode.units.MiB 4
                        , constrainPhys = True
                        }
                    , provides = [ "Platform", "Acpi" ]
                    , romReports = [ label "acpi", label "smbios_table" ]
                    , routes =
                        [ ServiceRoute.parent "IRQ"
                        , ServiceRoute.parent "IO_MEM"
                        , ServiceRoute.parent "IO_PORT"
                        ]
                    }
              , platform_drv =
                  Child.flat
                    Child.Attributes::{
                    , binary = "platform_drv"
                    , resources =
                        Resources::{
                        , caps = 800
                        , ram = Genode.units.MiB 4
                        , constrainPhys = True
                        }
                    , reportRoms = [ label "acpi" ]
                    , provides = [ "Platform", "Acpi" ]
                    , routes =
                        [ ServiceRoute.parent "Timer"
                        , ServiceRoute.parent "IRQ"
                        , ServiceRoute.parent "IO_MEM"
                        , ServiceRoute.parent "IO_PORT"
                        ]
                    , config =
                        Init.Config::{
                        , content =
                            [ XML.text
                                ''
                                <policy label_prefix="test-pci"> <pci class="ALL"/> </policy>
                                ''
                            ]
                        }
                    }
              }
        }
    }