genode-world/run/driar.run

# setting environment variable FORCE_QEMU permits running netperf in qemu
set force_qemu [info exists ::env(FORCE_QEMU)]

if {[expr [have_include "power_on/qemu"] && !$force_qemu]} {
	puts "\Game emulation on Qemu is not recommended.\n"
	exit
}

#
# Check used commands
#
set wget  [check_installed wget]
set unzip [check_installed unzip]

create_boot_directory

import_from_depot genodelabs/src/[base_src] \
                  genodelabs/pkg/fceumm_libretro \
                  genodelabs/src/fb_upscale \
                  genodelabs/src/init \
                  genodelabs/src/report_rom \
                  genodelabs/src/retro_frontend \

set build_components {
	drivers/audio
	drivers/framebuffer
	drivers/input
}

source ${genode_dir}/repos/base/run/platform_drv.inc
# override default platform driver policy
proc platform_drv_policy {} {
	return {
			<policy label_prefix="ps2_drv"> <device name="PS2"/> </policy>
			<policy label_prefix="usb_drv"> <pci class="USB"/> </policy>
			<policy label_prefix="fb_drv">  <pci class="VGA"/> </policy>
			<policy label_prefix="audio_drv"> <pci class="AUDIO"/> <pci class="HDAUDIO"/> </policy>}
}

append_platform_drv_build_components

build $build_components

#
# Generate config
#

append config {
<config verbose="yes">
	<default caps="128"/>
	<parent-provides>
		<service name="CPU"/>
		<service name="IO_MEM"/>
		<service name="IO_PORT"/>
		<service name="IRQ"/>
		<service name="LOG"/>
		<service name="PD"/>
		<service name="RM"/>
		<service name="ROM"/>
	</parent-provides>
	<default-route>
		<any-service> <parent/> <any-child/> </any-service>
	</default-route>}

append_if [have_spec sdl] config {
	<start name="fb_sdl">
		<resource name="RAM" quantum="4M"/>
		<provides>
			<service name="Input"/>
			<service name="Framebuffer"/>
		</provides>
		<config width="640" height="480"/>
	</start>
	<alias name="input_drv" child="fb_sdl"/>
	<alias name="fb_drv" child="fb_sdl"/>}

append_platform_drv_config

append_if [have_spec vesa] config {
	<start name="fb_drv">
		<resource name="RAM" quantum="4M"/>
		<provides><service name="Framebuffer"/></provides>
		<config buffered="yes"> </config>
		<config width="300" height="200"/>
	</start>}

append_if [have_spec pl11x] config {
	<start name="fb_drv">
		<resource name="RAM" quantum="2M"/>
		<provides><service name="Framebuffer"/></provides>
	</start>}

append_if [have_spec ps2] config {
	<start name="ps2_drv">
		<resource name="RAM" quantum="1M"/>
		<provides><service name="Input"/></provides>
	</start>
	<alias name="input_drv" child="ps2_drv"/>}

append config {
	<start name="audio_drv">
		<binary name="} [audio_drv_binary] {"/>
		<resource name="RAM" quantum="8M"/>
		<provides><service name="Audio_out"/></provides>
	</start>
	<start name="timer">
		<resource name="RAM" quantum="1M"/>
		<provides><service name="Timer"/></provides>
	</start>
	<start name="fb_upscale">
		<resource name="RAM" quantum="4M"/>
		<provides> <service name="Framebuffer"/> </provides>
		<route>
			<service name="Framebuffer">
				<child name="fb_drv"/> </service>
			<any-service> <parent/> <any-child/> </any-service>
		</route>
	</start>
	<start name="report_rom">
		<resource name="RAM" quantum="4M"/>
		<provides> <service name="Report"/> </provides>
		<config verbose="yes"/>
	</start>
	<start name="retro_frontend">
		<resource name="RAM" quantum="64M"/>
		<config core="fceumm_libretro.lib.so">
			<game rom="Driar.nes"/>
			<libc stdout="/log" stderr="/log"/>
			<vfs> <log/> </vfs>
			<controller port="0" device="257">
				<map from="KEY_LEFT" to="LEFT"/>
				<map from="KEY_RIGHT" to="RIGHT"/>
				<map from="KEY_UP" to="UP"/>
				<map from="KEY_DOWN" to="DOWN"/>

				<map from="KEY_Z" to="B"/>
				<map from="KEY_X" to="A"/>

				<map from="KEY_ENTER" to="START"/>
				<map from="KEY_RIGHTSHIFT" to="SELECT"/>
			</controller>
		</config>
		<route>
			<service name="Framebuffer">
				<child name="fb_upscale"/> </service>
			<service name="Input">
				<child name="input_drv"/> </service>
			<any-service> <parent/> <any-child/> </any-service>
		</route>
	</start>
</config>}

install_config $config

#
# Download and extract a test ROM
#
if {![file exist bin/driar.zip]} {
	set zip_url "http://driar.se/driar/driar.zip"
	catch { exec $wget $zip_url -O bin/driar.zip }
}
if {![file exist bin/Driar.nes]} {
	catch { exec $unzip -o bin/driar.zip -d bin }
}

# generic modules
append boot_modules {
	Driar.nes
} [audio_drv_binary] {
}

# platform-specific modules
lappend_if [have_spec linux] boot_modules fb_sdl
lappend_if [have_spec vesa]  boot_modules fb_drv
lappend_if [have_spec ps2]   boot_modules ps2_drv
lappend_if [have_spec pl11x] boot_modules fb_drv

append_platform_drv_boot_modules

build_boot_image $boot_modules

append qemu_args "  -soundhw es1370 "

puts "\n################\n"
set txt [open "bin/Driar.txt" r]
puts [read $txt]
close $txt
puts "\n################\n"

run_genode_until forever