X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/0f19917fb0c78b87118f3cd2a61640a54bd5feb2..5e697c041ca62e634c8fa224cf4164ff4cb6ac82:/tools/cmake/scripts/my_valgrind.pl

diff --git a/tools/cmake/scripts/my_valgrind.pl b/tools/cmake/scripts/my_valgrind.pl
new file mode 100755
index 0000000000..3b273d5d61
--- /dev/null
+++ b/tools/cmake/scripts/my_valgrind.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+
+# Copyright (c) 2012-2014. The SimGrid Team.
+# All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
+
+use strict;
+use warnings;
+
+my @argv = ("valgrind");
+my $count = 0;
+
+while (defined(my $arg = shift)) {
+    print "arg($count)$arg\n";
+    if ($arg =~ m!/smpirun$!) {
+        @argv = ( $arg, "-wrapper", "@argv" );
+    } elsif ($arg eq "--cd") {
+        $arg = shift;
+        print "cd $arg\n";
+        chdir ($arg);
+        $count++;
+    } else {
+        push @argv, $arg;
+    }
+    $count++;
+}
+
+#print "COMMAND : $bin $option $cd $path\n";
+#print "cd $path\n";
+#print "valgrind --trace-children=yes --leak-check=full --show-reachable=yes --track-origins=yes --read-var-info=no $bin $option\n";
+print "@argv\n\n";
+system @argv;