set use_sd_card_drv [expr [have_spec omap4] || [have_spec arndale] || [have_spec pl180]] set use_ahci_drv [expr [have_spec x86] && ![have_spec linux]] set use_ram_blk [have_spec linux] if {[have_spec odroid_xu]} { puts "Run script does not support this platform"; exit } if {[expr ![have_include "power_on/qemu"] && !$use_ram_blk]} { puts "\nPlease setup your native sd or hard drive. Remove this fail stop"; puts "check when you have prepared your native environment.\n"; exit 0 } # # Build # set build_components { core init drivers/timer test/libc_block } lappend_if $use_ahci_drv build_components drivers/ahci lappend_if $use_sd_card_drv build_components drivers/sd_card lappend_if $use_ram_blk build_components server/ram_blk source ${genode_dir}/repos/base/run/platform_drv.inc append_platform_drv_build_components build $build_components create_boot_directory # # Generate config # set config { } append_platform_drv_config append_if $use_ahci_drv config { } append_if $use_sd_card_drv config { } append_if $use_ram_blk config { } append config { } install_config $config # # Boot modules # # generic modules set boot_modules { core init timer ld.lib.so libc.lib.so vfs.lib.so libm.lib.so posix.lib.so test-libc_block } lappend_if $use_ahci_drv boot_modules ahci_drv lappend_if $use_sd_card_drv boot_modules sd_card_drv lappend_if $use_ram_blk boot_modules ram_blk lappend_if $use_ram_blk boot_modules test.hda append_platform_drv_boot_modules build_boot_image $boot_modules # # Execute test case # set disk_image "bin/test.hda" set cmd "dd if=/dev/zero of=$disk_image bs=1024 count=65536" puts "creating disk image: $cmd" catch { exec sh -c $cmd } # # Qemu # append qemu_args " -nographic " append_if $use_ahci_drv qemu_args " -drive id=disk,file=$disk_image,format=raw,if=none -device ahci,id=ahci -device ide-drive,drive=disk,bus=ahci.0 -boot d" append_if $use_sd_card_drv qemu_args " -drive file=$disk_image,format=raw,if=sd,cache=writeback " run_genode_until {.*child "test-libc_block" exited with exit value 0.*} 60 exec rm -f $disk_image puts "\nTest succeeded\n" # vi: set ft=tcl :