-create_dirs_and_links() {
- local test=$1
- local kver=$2
- local clck=$3
-
- local d=results/by-kern/$kver/$clck/$test
- mkdir -p $d
- mkdir -p results/by-kern/$kver/$test # 1
- mkdir -p results/by-test/$test/$kver # 2
- mkdir -p results/by-test/$test/$clck # 3
- mkdir -p results/by-clck/$clck/$kver # 4
- mkdir -p results/by-clck/$clck/$test # 5
- ln -sfT ../../../${d#results/} results/by-kern/$kver/$test/$clck # 1
- ln -sfT ../../../${d#results/} results/by-test/$test/$kver/$clck # 2
- ln -sfT ../../../${d#results/} results/by-test/$test/$clck/$kver # 3
- ln -sfT ../../../${d#results/} results/by-clck/$clck/$kver/$test # 4
- ln -sfT ../../../${d#results/} results/by-clck/$clck/$test/$kver # 5
- echo $d
+echo_plot() {
+ plot=$1
+ [[ "$_plot_separator" ]] && echo ", \\"
+ _plot_separator=t
+ echo -n " " $plot
+}
+
+traffic_and_length() {
+ local opts
+ case $traffic in
+ flood) opts='';;
+ 50) opts="-p $((2*(44+$1*8)))";;
+ oneatatime) opts="-o";;
+ *) error "Unknown traffic specification: $traffic"
+ esac
+ echo $opts -l $1
+}
+
+start_load() {
+ unset LATESTER_CONTROL_HACKBENCH
+ case $load in
+ none) ;;
+ cpu) export LATESTER_CONTROL_HACKBENCH=$(sshgw 'nohup setpgid hackbench -g 3 -l 100000 >/dev/null & echo $!');;
+ eth) ping -f -s 60000 -q 192.168.2.3 & loadpid=$!;; # TODO: Generate eth load from another computer
+ can) latester -q -d can1 -i 0x7ff & loadpid=$!;;
+ *) error "Unknown load specification: $load"
+ esac
+}
+
+kill_load() {
+ case $load in
+ none) ;;
+ cpu) sshgw "kill -9 -$LATESTER_CONTROL_HACKBENCH; killall -q -9 hackbench || :";;
+ eth) kill $loadpid;;
+ can) kill $loadpid;;
+ *) error "Unknown load specification: $load"
+ esac
+}
+
+_measure() {
+ # Remove data from the last measurement
+ rm -rf *
+ # Kill load generators left possibly from the past runs
+ killall -q ping || :
+ killall -q latester || :
+ if [[ ! "$NO_GW_NEEDED" ]]; then
+ sshgw 'killall -q hackbench || :'
+ # Set can interfaces up
+ sshgw 'for i in 0 1; do ip link show dev can$i|grep -q UP || ip link set can$i up type can bitrate 1000000; done'
+ # Delete all vcan interfaces
+ sshgw 'for dev in $(ip l|grep -o vcan[^:]\\+); do ip link del dev $dev; done'
+ # Reset priorities
+ sshgw 'if pid=`pidof irq/145-can0`; then chrt -p -f 50 $pid > /dev/null; fi'
+ sshgw 'if pid=`pidof irq/146-can1`; then chrt -p -f 50 $pid > /dev/null; fi'
+ sshgw 'if pid=`pidof sirq-net-rx/0`; then chrt -p -f 49 $pid > /dev/null; fi'
+ sshgw 'if pid=`pidof sirq-net-tx/0`; then chrt -p -f 49 $pid > /dev/null; fi'
+ # Set the length of qdisc queue to avoid ENOBUFS errors
+ sshgw 'ifconfig can0 txqueuelen 1000; ifconfig can1 txqueuelen 1000'
+ ifconfig can0 txqueuelen 200
+ ifconfig can1 txqueuelen 200
+ cleanupgw
+
+ type prepare >/dev/null 2>&1 && prepare || :
+ start_load
+ fi
+
+ main
+
+ if [[ ! "$NO_GW_NEEDED" ]]; then
+ kill_load
+ fi
+
+ if [ ! "$SKIPPED" ]; then
+ # Create a plot script at the end to signalize that the
+ # measurement was successfully finished
+ cat > plot.sh <<-EOF
+ #!/bin/bash
+ export kvers=$kvers
+ export hostkvers=$hostkvers
+ export traffic=$traffic
+ export load=$load
+ cd \$(dirname \$0)/$(dirname $script)
+ exec ./$(basename $script) --plot "\$@"
+ EOF
+ chmod +x plot.sh
+ fi