buildtools/Cmake/Scripts/my_valgrind.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 my @argv = ("valgrind");
   4 my $count = 0;
   5
   6 while (defined(my $arg = shift)) {
   7     print "arg($count)$arg\n";
   8     if ($arg =~ m!/smpirun$!) {
   9         @argv = ( $arg, "-wrapper", "@argv" );
  10     } elsif ($arg eq "--cd") {
  11         $arg = shift;
  12         print "cd $arg\n";
  13         chdir ($arg);
  14         $count++;
  15     } else {
  16         push @argv, $arg;
  17     }
  18     $count++;
  19 }
  20
  21 #print "COMMAND : $bin $option $cd $path\n";
  22 #print "cd $path\n";
  23 #print "valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option\n";
  24 print "@argv\n\n";
  25 system @argv;