tests/gcov-filter.pl


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

$prefix = join(' ', @ARGV);
$prefix .= ' ' if ($prefix ne '');

$lines = join('', <STDIN>);
$lines =~ s/File (.+)\nLines (.+)\n(.+\n)*\n/$1 $2\n/g;
$lines =~ s/.+include\/c\+\+.+\n//g;

foreach $line (split /\n/, $lines)
{
	print "$prefix$line\n";
}