137 lines
3.4 KiB
Plaintext
137 lines
3.4 KiB
Plaintext
# 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 inside 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/[drivers_interactive_pkg] \
|
|
genodelabs/pkg/tyrquake_libretro \
|
|
genodelabs/src/fb_upscale \
|
|
genodelabs/src/init \
|
|
genodelabs/src/report_rom \
|
|
genodelabs/src/retro_frontend \
|
|
|
|
#
|
|
# 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>
|
|
|
|
<start name="timer">
|
|
<resource name="RAM" quantum="1M"/>
|
|
<provides><service name="Timer"/></provides>
|
|
</start>
|
|
|
|
<start name="drivers" caps="1000">
|
|
<resource name="RAM" quantum="32M"/>
|
|
<binary name="init"/>
|
|
<route>
|
|
<service name="ROM" label="config"> <parent label="drivers.config"/> </service>
|
|
<service name="Timer"> <child name="timer"/> </service>
|
|
<any-service> <parent/> </any-service>
|
|
</route>
|
|
<provides>
|
|
<service name="Input"/>
|
|
<service name="Framebuffer"/>
|
|
</provides>
|
|
</start>
|
|
|
|
<start name="fb_upscale">
|
|
<resource name="RAM" quantum="4M"/>
|
|
<provides> <service name="Framebuffer"/> </provides>
|
|
<route>
|
|
<service name="Framebuffer">
|
|
<child name="drivers"/> </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="tyrquake_libretro.lib.so">
|
|
<libc stdout="/dev/log" stderr="/dev/log"/>
|
|
<vfs>
|
|
<tar name="quake.tar"/>
|
|
<dir name="dev"> <log/> </dir>
|
|
<dir name="id1"> <tar name="quake.tar"/> </dir>
|
|
<ram/>
|
|
</vfs>
|
|
<variables>
|
|
<variable key="tyrquake_colored_lighting" value="disabled"/>
|
|
<variable key="tyrquake_resolution" value="640x400"/>
|
|
</variables>
|
|
<controller port="0" device="3"/>
|
|
</config>
|
|
<route>
|
|
<service name="Framebuffer">
|
|
<child name="fb_upscale"/> </service>
|
|
<service name="Input">
|
|
<child name="drivers"/> </service>
|
|
<service name="Report">
|
|
<child name="report_rom"/> </service>
|
|
<any-service> <parent/> <any-child/> </any-service>
|
|
</route>
|
|
</start>
|
|
</config>}
|
|
|
|
install_config $config
|
|
|
|
#
|
|
# Download and extract shareware Quake
|
|
#
|
|
if {![file exist "bin/quake.tar"]} {
|
|
if {![file exist bin/quake_sw.zip]} {
|
|
puts "Downloading shareware Quake..."
|
|
set zip_url "https://archive.org/download/quakeshareware/QUAKE_SW.zip"
|
|
catch { exec $wget $zip_url -O bin/quake_sw.zip }
|
|
}
|
|
|
|
puts "Extracting Quake data..."
|
|
exec mkdir -p bin/tmp/quake
|
|
exec $unzip -o bin/quake_sw.zip -d bin/tmp
|
|
exec mv "bin/tmp/QUAKE_SW/ID1/CONFIG.CFG" "bin/tmp/quake/config.cfg"
|
|
exec mv "bin/tmp/QUAKE_SW/ID1/PAK0.PAK" "bin/tmp/quake/pak0.pak"
|
|
exec tar cf bin/quake.tar -C bin/tmp/quake .
|
|
exec rm -rf bin/tmp
|
|
}
|
|
|
|
# generic modules
|
|
build_boot_image {
|
|
quake.tar
|
|
}
|
|
|
|
append qemu_args " -soundhw es1370 "
|
|
|
|
run_genode_until forever
|