Set libretro variables through Dhall

This commit is contained in:
Ehmry - 2019-07-26 17:58:26 +02:00
parent ae9ebec385
commit 5e00cf7ce2
4 changed files with 25 additions and 17 deletions

View File

@ -4,8 +4,29 @@ let Prelude = Genode.Prelude
let XML = Prelude.XML
let frontend = ./../../retro_frontend/package.dhall
let defaults = ./../../pkgDefaults.dhall
let keyboardDefaults = ./../../pkgKeyboardDefaults.dhall
let frontendConfig =
keyboardDefaults.frontendConfig
⫽ { vfs =
XML.text
''
<vfs>
<tar name="quake_shareware.tar"/>
<fs/>
<dir name="dev"> <log label="core"/> </dir>
</vfs>
''
, game =
XML.text "<game/>"
, variables =
[ { mapKey = "tyrquake_resolution", mapValue = "960x600" } ]
}
in { indexInfo =
"QUAKE engine"
, runtime =
@ -17,21 +38,6 @@ in { indexInfo =
, roms =
defaults.runtime.roms # [ "quake_shareware.tar" ]
, config =
XML.text
''
<config>
<game/>
<libc stdout="/dev/log" stderr="/dev/log"/>
<vfs>
<tar name="quake_shareware.tar"/>
<fs/>
<dir name="dev"> <log label="core"/> </dir>
</vfs>
<default-controller port="0" device="3"/>
<variables>
<variable key="tyrquake_resolution" value="960x600"/>
</variables>
</config>
''
frontend.Config.toXML frontendConfig
}
}

View File

@ -23,6 +23,7 @@ let frontendConfig =
Some ./keyboardJoypad.dhall
, game =
XML.text "<game/>"
, variables = [] : List { mapKey : Text, mapValue : Text }
}
in { runtime =

View File

@ -30,6 +30,7 @@ let frontendConfig =
}
, game =
XML.text "<game/>"
, variables = [] : List { mapKey : Text, mapValue : Text }
}
in { runtime =

@ -1 +1 @@
Subproject commit 47aa190ab7a41db3f903e0ed93fac8d854cb7c40
Subproject commit 4395cfdd597c114bf24ed70fdf8f072f65576122