[Compbench-devel] CompBenchmarks++/libcompbenchmarks/share/perl/CBM LibUI.pm, 1.1, 1.2

[Frederic T. <xf...@us...>]

Update of /cvsroot/compbench/CompBenchmarks++/libcompbenchmarks/share/perl/CBM
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv22189

Modified Files:
	LibUI.pm 
Log Message:
Interface to planned benchmarks and compilers.
Hash defining standard compilers.

Index: LibUI.pm
===================================================================
RCS file: /cvsroot/compbench/CompBenchmarks++/libcompbenchmarks/share/perl/CBM/LibUI.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** LibUI.pm	30 Jan 2007 19:10:54 -0000	1.1
--- LibUI.pm	15 Feb 2007 19:01:36 -0000	1.2
***************
*** 18,21 ****
--- 18,35 ----
  use vars qw($VERSION @ISA @EXPORT_OK);
  
+ our %DEFAULT_COMPILERS = ('C' =>
+ 			  ['/usr/bin/gccx',
+ 			   '/usr/bin/tcc',
+ 			   'gcc-2.95', 'gcc-2.96',
+ 			   'gcc-3.1', 'gcc-3.2', 'gcc-3.3',
+ 			   'gcc-3.4', 'gcc-4.0', 'gcc-4.1',
+ 			   '/usr/local/bin/gcc',
+ 			   '/usr/local/bin/tcc'],
+ 			  'C++' =>
+ 			  ['/usr/bin/g++',
+ 			   'g++-2.95', 'g++-2.96',
+ 			   'g++-3.1', 'g++-3.2', 'g++-3.3',
+ 			   'g++-3.4', 'g++-4.0', 'g++-4.1',
+ 			   '/usr/local/bin/g++']);
  $VERSION="0.5.0";
  
***************
*** 130,133 ****
--- 144,199 ----
  }
  
+ sub plannedBenchmarks {
+   my $self = shift;
+   my $P    = Plan();
+ 
+   my $n = $P->benchmarkNumber();
+   my $i;
+   my @result;
+ 
+   for($i=0; $i<$n; $i++) {
+     push(@result, $P->getBenchmark($i));
+   }
+   return(@result);
+ }
+ 
+ sub plannedBenchmark {
+   my $self = shift;
+   my $b    = shift;
+   my $P    = Plan();
+ 
+   my $n = $P->benchmarkNumber();
+   my $i;
+ 
+   for($i=0; $i<$n; $i++) {
+     if ($P->getBenchmark($i)->Name() eq $b->Name()) {
+       return(1);
+     }
+   }
+ 
+   return(0);
+ }
+ 
+ sub bytes {
+   my $self    = shift;
+   my $remains = shift;
+   my $tot     = 0;
+ 
+   if ($remains>1024) {
+     $tot=$remains/1024.0;
+     $tot=sprintf("%0.2f", $tot);
+     if ($tot>1024.0) {
+       $tot=$tot/1024.0;
+       $tot=sprintf("%0.2f", $tot);
+       $tot.="Mb";
+     } else {
+       $tot.="Kb";
+     }
+   } else {
+     $tot="$remains" . "b";
+   }
+ 
+   return($tot);
+ }
  sub DESTROY {
    my $self = shift;