mirror of
https://github.com/mmueller41/genode.git
synced 2026-01-21 12:32:56 +01:00
Move repositories to 'repos/' subdirectory
This patch changes the top-level directory layout as a preparatory step for improving the tools for managing 3rd-party source codes. The rationale is described in the issue referenced below. Issue #1082
This commit is contained in:
Norman Feske
262
repos/base-okl4/run/env
Normal file
262
repos/base-okl4/run/env
Normal file
@@ -0,0 +1,262 @@
|
||||
#
|
||||
# \brief OKL4-specific test-environment supplements
|
||||
# \author Norman Feske
|
||||
# \date 2010-08-16
|
||||
#
|
||||
# This file is meant to be used as '--include' argument for 'tool/run'.
|
||||
#
|
||||
|
||||
##
|
||||
# Install files needed to boot via PXE
|
||||
#
|
||||
proc install_pxe_bootloader_to_run_dir { } {
|
||||
exec cp [genode_dir]/tool/boot/pulsar [run_dir]/boot/pulsar
|
||||
exec cp [genode_dir]/tool/boot/bender [run_dir]/boot/bender
|
||||
}
|
||||
|
||||
##
|
||||
# Get the base-okl4 repository
|
||||
#
|
||||
proc base_okl4_dir {} { return [repository_contains mk/spec-okl4.mk] }
|
||||
|
||||
##
|
||||
# Read the location of the OKL4 directory from 'etc/okl4.conf'
|
||||
#
|
||||
proc okl4_dir { } {
|
||||
global _okl4_dir
|
||||
|
||||
if {![info exists _okl4_dir]} {
|
||||
if {[file exists etc/okl4.conf]} {
|
||||
set _okl4_dir [exec sed -n "/^OKL4_DIR/s/^.*=\\s*//p" etc/okl4.conf]
|
||||
if {[file exists $_okl4_dir]} { return $_okl4_dir }
|
||||
}
|
||||
|
||||
set _okl4_dir [base_okl4_dir]/contrib/okl4
|
||||
}
|
||||
|
||||
return $_okl4_dir
|
||||
}
|
||||
|
||||
##
|
||||
# Return the location of the OKL4 kernel
|
||||
#
|
||||
proc okl4 { } {
|
||||
if {[okl4_external]} { return [okl4_dir]/build/pistachio/bin/kernel }
|
||||
return bin/kernel
|
||||
}
|
||||
|
||||
##
|
||||
# Return whether okl4 kernel is provided from the outside
|
||||
#
|
||||
proc okl4_external { } {
|
||||
if {"[okl4_dir]" == "[base_okl4_dir]/contrib/okl4"} { return 0 }
|
||||
return 1
|
||||
}
|
||||
|
||||
##################################
|
||||
## Test framework API functions ##
|
||||
##################################
|
||||
|
||||
proc create_boot_directory { } {
|
||||
exec rm -rf [run_dir]
|
||||
exec mkdir -p [run_dir]/genode
|
||||
}
|
||||
|
||||
|
||||
set weaver_xml_template {
|
||||
<machine>
|
||||
<word_size size="0x20" />
|
||||
<virtual_memory name="virtual">
|
||||
<region base="0x120000" size="0x3fe00000" />
|
||||
</virtual_memory>
|
||||
<physical_memory name="system_dram">
|
||||
<region base="0x0" size="0xa000" type="dedicated" />
|
||||
</physical_memory>
|
||||
<physical_memory name="bios">
|
||||
<region base="0xf0000" size="0x10000" type="dedicated" />
|
||||
</physical_memory>
|
||||
<physical_memory name="rom_expansion">
|
||||
<region base="0x100000" size="0x1800000" type="dedicated" />
|
||||
</physical_memory>
|
||||
<physical_memory name="physical">
|
||||
<region base="0x2000000" size="0x1d000000" type="conventional" />
|
||||
</physical_memory>
|
||||
<phys_device name="timer_dev">
|
||||
<interrupt name="int_timer0" number="0" />
|
||||
</phys_device>
|
||||
<phys_device name="serial_dev">
|
||||
<interrupt name="int_serial0" number="4" />
|
||||
</phys_device>
|
||||
<phys_device name="rtc_dev">
|
||||
</phys_device>
|
||||
<page_size size="0x1000" />
|
||||
<page_size size="0x400000" />
|
||||
</machine>
|
||||
<physical_pool name="system_dram" direct="true">
|
||||
<memory src="system_dram" />
|
||||
</physical_pool>
|
||||
|
||||
<virtual_pool name="virtual">
|
||||
<memory src="virtual" />
|
||||
</virtual_pool>
|
||||
|
||||
<physical_pool name="bios" direct="true">
|
||||
<memory src="bios" />
|
||||
</physical_pool>
|
||||
|
||||
<physical_pool name="rom_expansion" direct="true">
|
||||
<memory src="rom_expansion" />
|
||||
</physical_pool>
|
||||
|
||||
<physical_pool name="physical" direct="true">
|
||||
<memory src="physical" />
|
||||
</physical_pool>
|
||||
|
||||
<kernel file="okl4_kernel" xip="false" >
|
||||
<dynamic max_threads="0x400" />
|
||||
<config>
|
||||
<option key="root_caps" value="4096"/>
|
||||
</config>
|
||||
</kernel>
|
||||
|
||||
<rootprogram file="core" virtpool="virtual" physpool="physical" />
|
||||
}
|
||||
|
||||
proc build_boot_image {binaries} {
|
||||
global weaver_xml_template
|
||||
|
||||
#
|
||||
# Strip binaries
|
||||
#
|
||||
copy_and_strip_genode_binaries_to_run_dir $binaries
|
||||
|
||||
#
|
||||
# Build kernel if needed
|
||||
#
|
||||
# Once the kernel is exists, it gets never revisited automatically.
|
||||
# Consequently, when changing the kernel sources, the kernel build must be
|
||||
# issued explicitly via 'make kernel'. This way, the rare case of changing
|
||||
# the kernel does not stand in the way of the everyday's work flow of
|
||||
# executing run scripts as quick as possible.
|
||||
#
|
||||
if {![okl4_external] && ![file exists [okl4]]} { build { kernel } }
|
||||
|
||||
exec cp [okl4] [run_dir]/kernel
|
||||
|
||||
#
|
||||
# Generate ELF weaver config
|
||||
#
|
||||
set fh [open "[run_dir].weaver.xml" "WRONLY CREAT TRUNC"]
|
||||
puts $fh {<?xml version="1.0"?>}
|
||||
puts $fh {<!DOCTYPE image SYSTEM "weaver-1.1.dtd">}
|
||||
puts $fh {<image>}
|
||||
regsub okl4_kernel $weaver_xml_template "[run_dir]/kernel" weaver_xml_template
|
||||
regsub core $weaver_xml_template "[run_dir]/genode/core" weaver_xml_template
|
||||
puts $fh $weaver_xml_template
|
||||
puts $fh { <pd name="modules">}
|
||||
puts $fh " <memsection name=\"config\" file=\"[run_dir]/genode/config\" direct=\"true\" />"
|
||||
foreach binary $binaries {
|
||||
if {$binary != "core"} {
|
||||
puts $fh " <memsection name=\"$binary\" file=\"[run_dir]/genode/$binary\" direct=\"true\" />" }
|
||||
}
|
||||
puts $fh { </pd>}
|
||||
puts $fh {</image>}
|
||||
close $fh
|
||||
|
||||
#
|
||||
# Run ELF Weaver to create a boot image
|
||||
#
|
||||
set ret [exec "[okl4_dir]/tools/pyelf/elfweaver" merge --output "[run_dir]/image.elf" "[run_dir].weaver.xml"]
|
||||
if {[regexp "error" $ret dummy]} {
|
||||
puts stderr "Elfweaver failed: $ret"
|
||||
exit -6
|
||||
}
|
||||
exec [cross_dev_prefix]strip [run_dir]/image.elf
|
||||
exec cp [run_dir]/image.elf [run_dir].elf
|
||||
|
||||
#
|
||||
# Keep only the ELF boot image, but remove stripped binaries
|
||||
#
|
||||
exec rm -r [run_dir]/genode
|
||||
|
||||
#
|
||||
# Install GRUB
|
||||
#
|
||||
install_iso_bootloader_to_run_dir
|
||||
|
||||
#
|
||||
# Install PXE bootloader pulsar
|
||||
#
|
||||
install_pxe_bootloader_to_run_dir
|
||||
|
||||
#
|
||||
# Generate grub config file
|
||||
#
|
||||
# The core binary is part of the 'binaries' list but it must
|
||||
# appear right after 'sigma0' as boot module. Hence the special case.
|
||||
#
|
||||
set fh [open "[run_dir]/boot/grub/menu.lst" "WRONLY CREAT TRUNC"]
|
||||
puts $fh "timeout 0"
|
||||
puts $fh "default 0"
|
||||
puts $fh "hiddenmenu"
|
||||
puts $fh "\ntitle Genode on OKL4"
|
||||
puts $fh "kernel /image.elf"
|
||||
puts $fh "vbeset 0x117"
|
||||
close $fh
|
||||
|
||||
create_iso_image_from_run_dir
|
||||
|
||||
#
|
||||
# Generate pulsar config file
|
||||
#
|
||||
set fh [open "[run_dir]/config-52-54-00-12-34-56" "WRONLY CREAT TRUNC"]
|
||||
# load okl4 at 256M to avoid overwritting binary, adjust by need
|
||||
puts $fh " addr 0x10000000"
|
||||
puts $fh " exec /boot/bender"
|
||||
puts $fh " load /image.elf"
|
||||
close $fh
|
||||
|
||||
#
|
||||
# Generate pulsar config file pointing to the config file above.
|
||||
#
|
||||
if {[info exists ::env(PXE_TFTP_DIR_BASE)] && [info exists ::env(PXE_TFTP_DIR_OFFSET)]} {
|
||||
exec ln -nfs "[pwd]" "$::env(PXE_TFTP_DIR_BASE)$::env(PXE_TFTP_DIR_OFFSET)"
|
||||
|
||||
set tftp_base ""
|
||||
if {[get_cmd_switch --tftp-absolute]} {
|
||||
set tftp_base $::env(PXE_TFTP_DIR_BASE)
|
||||
}
|
||||
|
||||
set fh [open "$::env(PXE_TFTP_DIR_BASE)$::env(PXE_TFTP_DIR_OFFSET)/config-00-00-00-00-00-00" "WRONLY CREAT TRUNC"]
|
||||
puts $fh " root $tftp_base$::env(PXE_TFTP_DIR_OFFSET)/[run_dir]"
|
||||
puts $fh " config config-52-54-00-12-34-56"
|
||||
close $fh
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
proc run_genode_until {{wait_for_re forever} {timeout_value 0} {running_spawn_id -1}} {
|
||||
#
|
||||
# If a running_spawn_id is specified, wait for the expected output
|
||||
#
|
||||
if {$running_spawn_id != -1} {
|
||||
wait_for_output $wait_for_re $timeout_value $running_spawn_id
|
||||
return
|
||||
}
|
||||
|
||||
#
|
||||
# Try to use one of the supported backends for running the scripts
|
||||
#
|
||||
if {[is_amt_available]} {
|
||||
spawn_amt $wait_for_re $timeout_value
|
||||
return
|
||||
}
|
||||
if {[is_qemu_available]} {
|
||||
spawn_qemu $wait_for_re $timeout_value
|
||||
return
|
||||
}
|
||||
|
||||
global run_target
|
||||
puts stderr "Error: Can't execute automatically on target '$run_target'"
|
||||
exit -1
|
||||
}
|
||||
42
repos/base-okl4/run/priority.run
Normal file
42
repos/base-okl4/run/priority.run
Normal file
@@ -0,0 +1,42 @@
|
||||
assert_spec okl4_x86
|
||||
|
||||
build "core init"
|
||||
|
||||
create_boot_directory
|
||||
|
||||
install_config "[exec cat [genode_dir]/repos/os/src/init/config.priority]"
|
||||
|
||||
build_boot_image "core init"
|
||||
|
||||
append qemu_args "-nographic -m 256"
|
||||
|
||||
# run genode until the init->init.2 process gives us a life sign
|
||||
run_genode_until "init.2.*No children to start.*\n" 100
|
||||
|
||||
puts "dumping priorities using the kernel debugger..."
|
||||
|
||||
# send escape key to break into the kernel debugger, wait for prompt
|
||||
send "\x1b"
|
||||
expect "> "
|
||||
|
||||
# send commend for dumping the scheduling queue
|
||||
send "q"
|
||||
expect "idle : idle_thread"
|
||||
|
||||
set output $expect_out(buffer)
|
||||
|
||||
#
|
||||
# The 'output' variable contains the kernel-debugger output since
|
||||
# the last prompt until the current expect string. But we care
|
||||
# only for the lines with the actual scheduler queues. Each
|
||||
# line of interest starts with a '[' character.
|
||||
#
|
||||
grep_output {^\[}
|
||||
|
||||
compare_output_to {
|
||||
[128]: (roottask) (entrypoi) (signal) (pager) (ioport) (init) {init} (signal h) (init.1) {init.1} (init.2) (signal h) (init.11) (init.12)
|
||||
[112]: {init.11} (signal h)
|
||||
[ 96]: {init.12} (signal h) (init.121) {init.121} (signal h)
|
||||
[ 64]: {init.2} (signal h)
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user