apps/sel4test-driver/scripts/generate-spread.pl

#!/usr/bin/env perl
#
# Copyright 2017, Data61, CSIRO (ABN 41 687 119 230)
#
# SPDX-License-Identifier: BSD-2-Clause
#

use warnings;
use strict;

my $prio = 98;
my $order = 0;
my $length = 0;
my %state = ();

my @overhead = ();

my $run_length = 10000;

#initial run is the calibration loop
exit -1 if not (<> =~ m/^Processing set 0\.\.\./); #match the first set
exit -1 if not (<> =~ m/^\s*(.*):\s+(\d+), (\d+), (\d+)/); #match its only member
@overhead = ($2, $3, $4);
exit -1 if not ($1 =~ m/measure_bench_overhead/); #make sure it's a bench overhead measurement
@overhead = map { int($_ / $run_length) } @overhead;
print "overhead = ";
print join ", ", @overhead;
print "\n";

#process IPC data
while (<>) {
	if (m/^Processing set \d+\.\.\./) {
		$prio = 98;
		$order = 0;
		$length = 0;
		%state = ();
		printf "\n$prio %s 100, Length %d:\n", $order ? "<-" : "->", $length;
		next;
	}
	elsif (m/^\s*(.*):\s+(\d+), (\d+), (\d+)/) {
		if (exists $state{$1}) { #we've come across a state we've seen before -- reset
			%state = ();
			$state{$1} = 1;

			if ($length == 10) {
				if($order == 1) {
					$prio++;
					$order = 0;
					$length = 0;
				} else {
					$order++;
					$length = 0;
				}
			} else {
				$length++;
			}

			printf "\n$prio %s 100, Length %d:\n", $order ? "<-" : "->", $length;
		} else {
			$state{$1} = 1;
		}
		printf "    $1:\n";
		printf "        CCNT: %d\n", int( ($2 - (2 * $overhead[0]))/$run_length );
		printf "        PMC0: %d\n", int( ($3 - (2 * $overhead[1]))/$run_length );
		printf "        PMC1: %d\n", int( ($4 - (2 * $overhead[2]))/$run_length );
	}
	else {
		print STDERR "invalid line: ";
		print STDERR;
	}
}