genode/tool/run/image/muen
Adrian-Ken Rueegsegger aefacc9310 run: Add image/muen script to support Muen SK build
The script takes the following RUN_OPT parameters:

--image-muen-external-build  Muen system is built automatically or externally
--image-muen-system          Muen system policy
--image-muen-components      Muen system components
--image-muen-hardware        Muen hardware platform
--image-muen-gnat-path       Path to GNAT toolchain
--image-muen-spark-path      Path to SPARK toolchain
2016-01-08 14:37:56 +01:00

82 lines
2.2 KiB
Plaintext

##
# Muen system image configuration parameters
#
# \param --image-muen-external-build Muen system is built automatically or externally
# \param --image-muen-system Muen system policy
# \param --image-muen-components Muen system components
# \param --image-muen-hardware Muen hardware platform
# \param --image-muen-gnat-path Path to GNAT toolchain
# \param --image-muen-spark-path Path to SPARK toolchain
#
proc muen_external { } {
return [get_cmd_arg --image-muen-external-build "0"]
}
proc muen_system { } {
return [get_cmd_arg --image-muen-system ""]
}
proc muen_components { } {
return [get_cmd_arg --image-muen-components ""]
}
proc muen_hardware { } {
return [get_cmd_arg --image-muen-hardware ""]
}
proc muen_gnat_path { } {
return [get_cmd_arg --image-muen-gnat-path "/usr/gnat"]
}
proc muen_spark_path { } {
return [get_cmd_arg --image-muen-spark-path "/opt/spark2014"]
}
##
# Build and integrate Muen system image
#
# \param elf_img ELF binary of Genode subject
#
proc run_image {elf_img} {
if {![have_spec "muen"]} {
puts stderr "Error: Missing SPEC muen, unsupported platform"
exit -1
}
# For external Muen system integration there is nothing left to do.
if {[muen_external]} {
puts "build finished due to external Muen system integration"
exit 0
}
#
# Generate Muen build config file
#
set fh [open "[run_dir]/muen.conf" "WRONLY CREAT TRUNC"]
puts $fh "GNAT_PATH = [muen_gnat_path]"
puts $fh "SPARK_PATH = [muen_spark_path]"
puts $fh "SYSTEM = [muen_system]"
puts $fh "COMPONENTS = \"[muen_components]\""
puts $fh "HARDWARE = [muen_hardware]"
close $fh
#
# Build Muen kernel
#
puts "using Muen system policy '[muen_system]' on platform '[muen_hardware]'"
if {![file exists kernel]} { exec mkdir kernel }
exec cp [run_dir]/muen.conf kernel/muen.conf
build kernel
# Use raw binary object for base-hw on Muen
set bin_img "[run_dir]/[run_name].bin"
exec [cross_dev_prefix]objcopy -O binary $elf_img $bin_img
#
# Package Muen system image
#
exec cp $bin_img "kernel/muen/policy/obj/base_hw"
exec make -C kernel/muen/pack SYSTEM=[muen_system] HARDWARE=[muen_hardware]
exec cp kernel/muen/pack/obj/muen.img "[run_dir]/image.bin"
}