Genode Packages collection https://git.sr.ht/~ehmry/genodepkgs/
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

x86.dhall 2.9KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899
  1. let Test = ./test.dhall ? env:DHALL_GENODE_TEST
  2. let Genode = Test.Genode
  3. let XML = Genode.Prelude.XML
  4. let Init = Genode.Init
  5. let Child = Init.Child
  6. let Resources = Init.Resources
  7. let ServiceRoute = Init.ServiceRoute
  8. let label = λ(_ : Text) → { local = _, route = _ } : Child.Attributes.Label
  9. let signal =
  10. Child.flat
  11. Child.Attributes::{
  12. , binary = "test-signal"
  13. , exitPropagate = True
  14. , priority = 5
  15. , resources = Init.Resources::{ caps = 500, ram = Genode.units.MiB 10 }
  16. }
  17. let rtc = Child.flat Child.Attributes::{ binary = "test-rtc" }
  18. let pciInit =
  19. Init::{
  20. , verbose = True
  21. , routes =
  22. [ ServiceRoute.parent "Timer"
  23. , ServiceRoute.child "Platform" "platform_drv"
  24. ]
  25. , children = toMap
  26. { test-pci =
  27. Child.flat
  28. Child.Attributes::{
  29. , binary = "test-pci"
  30. , exitPropagate = True
  31. , resources = Resources::{ ram = Genode.units.MiB 3 }
  32. }
  33. , acpi_drv =
  34. Child.flat
  35. Child.Attributes::{
  36. , binary = "acpi_drv"
  37. , resources = Resources::{
  38. , caps = 400
  39. , ram = Genode.units.MiB 4
  40. , constrainPhys = True
  41. }
  42. , provides = [ "Platform", "Acpi" ]
  43. , romReports = [ label "acpi", label "smbios_table" ]
  44. , routes =
  45. [ ServiceRoute.parent "IRQ"
  46. , ServiceRoute.parent "IO_MEM"
  47. , ServiceRoute.parent "IO_PORT"
  48. ]
  49. }
  50. , platform_drv =
  51. Child.flat
  52. Child.Attributes::{
  53. , binary = "platform_drv"
  54. , resources = Resources::{
  55. , caps = 800
  56. , ram = Genode.units.MiB 4
  57. , constrainPhys = True
  58. }
  59. , reportRoms = [ label "acpi" ]
  60. , provides = [ "Platform", "Acpi" ]
  61. , routes =
  62. [ ServiceRoute.parent "IRQ"
  63. , ServiceRoute.parent "IO_MEM"
  64. , ServiceRoute.parent "IO_PORT"
  65. ]
  66. , config = Init.Config::{
  67. , policies =
  68. [ Init.Config.Policy::{
  69. , content =
  70. [ XML.leaf
  71. { name = "pci"
  72. , attributes = toMap { class = "ALL" }
  73. }
  74. ]
  75. , label = Init.LabelSelector.prefix "test-pci"
  76. }
  77. ]
  78. }
  79. }
  80. }
  81. }
  82. in Test::{
  83. , children =
  84. [ { mapKey = "signal", mapValue = signal }
  85. , { mapKey = "rtc", mapValue = rtc }
  86. ]
  87. # Test.initToChildren pciInit
  88. }