1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/env perl
# Copyright (c) 2012-2025. 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;
# Many other parameters (such as trace-children) are set in Tests.cmake
my @argv = ("valgrind", "--quiet");
my $count = 0;
while (defined(my $arg = shift)) {
# print "arg($count)$arg\n";
if ($arg =~ m!/smpirun$!) {
@argv = ( $arg, "-keep-temps", "-quiet", "-wrapper", "@argv" );
} elsif ($arg eq "--cd") {
$arg = shift;
print "cd $arg\n";
chdir ($arg);
$count++;
} else {
push @argv, $arg;
}
$count++;
}
# print "COMMAND:";
# map { print "$_ " } @argv;
# print "\n";
exec @argv;
|
