scripts/parasim1.pl

   1 #!/usr/bin/perl
   2 #
   3 # --- T2-COPYRIGHT-NOTE-BEGIN ---
   4 # This copyright note is auto-generated by ./scripts/Create-CopyPatch.
   5 #
   6 # T2 SDE: scripts/parasim1.pl
   7 # Copyright (C) 2004 - 2005 The T2 SDE Project
   8 # Copyright (C) 1998 - 2003 ROCK Linux Project
   9 #
  10 # More information can be found in the files COPYING and README.
  11 #
  12 # This program is free software; you can redistribute it and/or modify
  13 # it under the terms of the GNU General Public License as published by
  14 # the Free Software Foundation; version 2 of the License. A copy of the
  15 # GNU General Public License can be found in the file COPYING.
  16 # --- T2-COPYRIGHT-NOTE-END ---
  17
  18 my $size_x=70;
  19 my $size_y=17;
  20
  21 my @data_val;
  22 my @data_nr;
  23 my $max_x = 0;
  24 my $max_y = 0;
  25
  26 my ($x, $y);
  27
  28 open(F, $ARGV[0]) || die $!;
  29 while (<F>) {
  30         @_ = split /\s+/;
  31         $max_x++;
  32         $max_y=$_[1] if $_[1] > $max_y;
  33 }
  34 close F;
  35
  36 open(F, $ARGV[0]) || die $!;
  37 for ($x=0; <F>; $x++) {
  38         @_ = split /\s+/;
  39         $_ = int(($x*$size_x) / $max_x);
  40
  41         $data_val[$_] = 0 unless defined $data_val[$_];
  42         $data_nr[$_]  = 0 unless defined $data_nr[$_];
  43
  44         $data_val[$_] += $_[1];
  45         $data_nr[$_]++;
  46 }
  47 close(F);
  48
  49 $max_y=$ARGV[1] if $ARGV[1] > 0;
  50
  51 my @leftlabel=qw/. . P a r a l l e l . J o b s . ./;
  52
  53 print "\n  ----+----------------------------------------" .
  54       "------------------------------+\n";
  55
  56 for ($y=$size_y; $y>0; $y--) {
  57         if ($y == $size_y) { printf("  %3d |", $max_y); }
  58         elsif ($y == 1) { print "    1 |"; }
  59         else {
  60                 print "    ", ($leftlabel[$size_y - $y] ne '.' ?
  61                               $leftlabel[$size_y - $y] : ' '), " |";
  62         }
  63
  64         for ($x=0; $x<$size_x; $x++) {
  65                 $_ = ($data_val[$x]*$size_y*2 / $data_nr[$x]) / $max_y;
  66                 if ($_ >= $y*2-1) { print ":"; }
  67                 elsif ($_ >= $y*2-2) { print "."; }
  68                 else { print " "; }
  69         }
  70         print "|\n";
  71 }
  72
  73 print "  ----+----------------------------------------" .
  74       "------------------------------+\n";
  75
  76 printf("      | 1                  Number of Jobs build so far  " .
  77        "               %5d |\n\n", $max_x);