ports-foc: Add l4linux netperf run script

Ref #773

ports-foc/run/l4linux_netperf.run

@@ -0,0 +1,187 @@
+assert_spec foc
+assert_spec arm
+
+set use_nic_bridge 0
+
+if {$use_nic_bridge == 1} {
+set route_nic "nic_bridge"
+} else {
+set route_nic "usb_drv"
+}
+
+if {![file exists bin/netserver] ||  ![file exists bin/netperf]} {
+	puts "Please download netperf-2.4.4 and put 'netserver' and 'netperf' in your '<build_dir>/bin' folder."
+	puts "(ftp://ftp.netperf.org/netperf/archive/netperf-2.4.4.tar.bz2)"
+	exit 1
+}
+
+#
+# Build
+#
+set build_components {
+	core
+	init
+	drivers/usb
+	drivers/timer
+	drivers/uart
+	drivers/platform
+	server/nic_bridge
+	l4linux
+}
+
+build $build_components
+create_boot_directory
+
+#
+# Config
+#
+set config  {
+<config>
+	<parent-provides>
+		<service name="ROM"/>
+		<service name="RAM"/>
+		<service name="IRQ"/>
+		<service name="IO_MEM"/>
+		<service name="IO_PORT"/>
+		<service name="CAP"/>
+		<service name="PD"/>
+		<service name="RM"/>
+		<service name="CPU"/>
+		<service name="LOG"/>
+		<service name="SIGNAL"/>
+	</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="kdb_uart_drv">
+		<resource name="RAM" quantum="1M"/>
+		<provides><service name="Terminal"/></provides>
+		<config><policy label="l4linux" uart="0"/></config>
+	</start>
+	<start name="usb_drv">
+		<binary name="usb_drv"/>
+		<resource name="RAM" quantum="12M"/>
+		<provides>
+			<service name="Nic"/>
+		</provides>
+			<hid />
+		<config xhci="yes">
+			<nic mac="2e:60:90:0c:4e:01" />
+		</config>
+		<route>
+			<any-service> <parent/> <any-child/> </any-service>
+		</route>
+	</start>
+	<start name="platform_drv">
+		<resource name="RAM" quantum="1M" />
+		<provides><service name="Regulator"/></provides>
+	</start>
+	<start name="l4linux">
+		<resource name="RAM" quantum="512M"/>
+		<config args="mem=400M console=ttyS0 l4x_rd=initrd.gz l4x_cpus=1 l4x_cpus_map=0"/>
+		<route>
+	}
+	append config "\t\t<service name=\"Nic\"><child name=\"$route_nic\" /> </service>"
+	append config {
+			<any-service> <any-child /><parent/> </any-service>
+		</route>
+	</start>
+	}
+
+	append_if $use_nic_bridge config {
+	<start name="nic_bridge">
+		<resource name="RAM" quantum="6M"/>
+		<provides><service name="Nic"/></provides>
+		<route>
+			<service name="Nic"> <child name="usb_drv"/> </service>
+			<any-service> <parent/> <any-child/> </any-service>
+		</route>
+	</start>
+	}
+
+
+append config {
+</config>
+}
+
+install_config $config
+
+#
+# Boot modules
+#
+set boot_modules {
+	core
+	init
+	timer
+	l4linux
+	initrd.gz
+	usb_drv
+	nic_bridge
+	platform_drv
+	kdb_uart_drv
+}
+
+set uri "http://genode.org/files/l4linux/initrd-arm-netperf.gz"
+
+if {![file exists bin/initrd.gz]} {
+	puts "Download initramfs ..."
+	exec >& /dev/null wget -c -O bin/initrd.gz $uri
+}
+
+build_boot_image  [join $boot_modules " "]
+
+
+#
+# Execute test case
+#
+set ip_match "(\[0-9]{1,3})\.(\[0-9]{1,3})\.(\[0-9]{1,3})\.(\[0-9]{1,3})"
+
+#
+# Local IP
+#
+set ip_string [ exec ip addr show dev eth0 ]
+regexp $ip_match $ip_string ip_local
+
+
+#
+# Remote IP
+#
+run_genode_until "Link status is: 1.*" 220
+set serial_id $spawn_id
+sleep 3
+send "ip addr show dev eth0\n"
+run_genode_until "inet.*\n" 3 $serial_id
+regexp $ip_match $output ip_remote
+
+puts "Using local IP: $ip_local remote IP: $ip_remote"
+
+
+#
+# TX (from board to local)
+#
+puts "Transmission test:"
+
+exec bin/netserver -p 8888 &
+send "netperf -p 8888 -H $ip_local -t TCP_STREAM && uname\n"
+run_genode_until "Linux.*" 30 $serial_id
+
+puts "\n\n"
+
+
+#
+# RX
+#
+puts "Receive test:"
+
+set results [exec bin/netperf -p 8888 -H $ip_remote  -t TCP_STREAM]
+puts $results
+
+puts "Test succeeded"
+close -i $serial_id
+exec killall netserver
+
+# vi: set ft=tcl :