buildtools/Cmake/my_valgrind.pl

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