1#!/usr/bin/perl 
2# 
3# Copyright Martin J. Bligh (mbligh@mbligh.org), 2006
4
5$bin = `realpath $0 | xargs dirname`; chomp $bin;
6require "$bin/abat_parse.pm";
7
8$plotgraph = "$bin/plotgraph";
9
10$perfdir = shift(@ARGV);
11die unless (-d $perfdir);
12
13opendir PERFDIR, $perfdir;
14my @data_files = grep /^plotdata\.[\w-]+\.[\w-]+$/, readdir PERFDIR;
15closedir PERFDIR;
16chdir ($perfdir);
17
18%axis_labels = (    'kernbench'    => 'Elapsed time (seconds)',
19            'dbench'    => 'Throughput (MB/s)',
20            'tbench'    => 'Throughput (MB/s)',
21            'reaim'        => 'Max Jobs per Minute',
22        );
23
24%plot_cols = (        'kernbench'    => '1:4:8',
25            'dbench'    => '1:4:5',
26            'tbench'    => '1:4:5',
27            'reaim'        => '1:4:5',
28        );
29            
30foreach $data_file (@data_files) {
31    $data_file =~ /^plotdata\.([\w-]+)\.([\w-]+)$/;
32    ($test, $machine) = ($1, $2);
33    print " === Analysing data file: $data_file $test $machine\n";
34    push @machines, $machine;
35    open DATAFILE, $data_file || die "Cannot open $data_file";
36    while ($data = <DATAFILE>) {
37        print "X " . $data;
38        chomp $data;
39        $data =~ s/^\d+\s+//; #  get rid of count
40        @data = split (/ /, $data);
41        $version = $data[0];
42        print "$test $version = $data\n";
43        $results{$test}{$machine}{$version} = $data;
44        push @versions, $version;
45    }
46}
47
48@machines = list_uniq (@machines);
49@versions = sort version list_uniq (@versions);
50
51@relevant = relevant_versions(@versions);
52
53foreach $machine (@machines) {
54    foreach $test (keys(%axis_labels)) {
55        graph_plot($machine, "${test}.full.${machine}",
56                $test, @versions);
57        graph_plot($machine, "${test}.${machine}",
58                $test, @relevant);
59    }
60}
61
62sub graph_plot
63{
64    my ($machine, $filename, $test, @plot_versions) = @_;
65    my $count = 0;
66
67    print " ----- test: $test machine: $machine $#plot_versions\n";
68    open (DATA, "> $filename") || die "Cannot open data file $filename";
69    foreach $version (@plot_versions) {
70        my $results = $results{$test}{$machine}{$version};
71        next unless ($results =~ /\S/);
72        $count++;
73        print "$count $version $results\n";
74        print DATA "$count $results\n";
75    }
76    close (DATA);
77    print " ----- \n";
78    print `$plotgraph $filename '$axis_labels{$test}' '$plot_cols{$test}'`;
79}
80
81