1 #!/usr/bin/perl 2 # 3 # Copyright Martin J. Bligh (mbligh (at] mbligh.org), 2006 4 5 ($file, $y_label, $columns, $title) = @ARGV; 6 die unless (-f $file); 7 die unless ($y_label); 8 die unless ($columns =~ /^1:\d+/); 9 10 # print " ++++++ plotgraph $file\n"; 11 plotgraph($file, $y_label, $columns, $title); 12 # print " ++++++ plotgraph\n"; 13 14 # First column must be kernel count, second kernel version, third is job number 15 # $columns spec is 1:y-value:y-stddev 16 sub plotgraph { 17 my ($file, $y_label, $columns, $title) = @_; 18 my @xtics; 19 20 if (!$title) { 21 $title = $file; 22 $title =~ s#.*/##; 23 } 24 open (INDATA, $file); 25 open (DATA_MAIN, "> ${file}.main"); 26 open (DATA_MM, "> ${file}.mm"); 27 open (DATA_OTHER, "> ${file}.other"); 28 my $count; 29 while ($data = <INDATA>) { 30 chomp $data; 31 ($count, my $version, my $job) = split (/\s+/, $data); 32 $short_ver = $version; 33 $short_ver =~ s/\+.*/+p$job/; 34 push @xtics, "\"$short_ver\" $count"; 35 if ($version =~ /^2\.\d+\.\d+(\.\d+|-rc\d+)?(-git\d+)?$/) { 36 print DATA_MAIN "$data\n"; 37 $plot_main = "\"${file}.main\" using $columns title \"mainline\""; 38 } elsif ($version =~ /^2\.\d+\.\d+(-rc\d+)?-mm\d+$/) { 39 print DATA_MM "$data\n"; 40 $plot_mm = "\"${file}.mm\" using $columns title \"-mm\""; 41 } else { 42 print DATA_OTHER "$data\n"; 43 $plot_other = "\"${file}.other\" using $columns title \"other\""; 44 } 45 } 46 close (INDATA); 47 close (DATA_MAIN); 48 close (DATA_MM); 49 close (DATA_OTHER); 50 51 die unless ($count > 0); 52 $x_res = $count * 12; 53 $y_res = 900; 54 push @plots, $plot_main if ($plot_main); 55 push @plots, $plot_mm if ($plot_mm); 56 push @plots, $plot_other if ($plot_other); 57 $plots = join (',', @plots); 58 59 open (GNUPLOT, "> ${file}.gnuplot"); 60 # print "MACHINE: $machine\n"; 61 print GNUPLOT "set terminal png size $x_res,$y_res\n"; 62 print GNUPLOT "set key below\n"; 63 print GNUPLOT "set title \"$title\"\n"; 64 print GNUPLOT "set xlabel \"Kernel\"\n"; 65 print GNUPLOT "set ylabel \"${y_label}\"\n"; 66 print GNUPLOT "set output \"${file}.png\"\n"; 67 print GNUPLOT "set style data yerrorlines\n"; 68 print GNUPLOT "set grid\n"; 69 $xtics = join ',', @xtics; 70 print GNUPLOT "\nset xtics rotate (${xtics})\n\n"; 71 print GNUPLOT "plot $plots\n"; 72 print GNUPLOT "replot"; 73 close (GNUPLOT); 74 `/usr/bin/gnuplot ${file}.gnuplot`; 75 `chmod 644 ${file}.gnuplot`; 76 `chmod 644 ${file}.png`; 77 } 78
