Blame make-check-filter.pl
|
Packit |
dd8086 |
#!/usr/bin/env perl
|
|
Packit |
dd8086 |
# Use this to cut out the crud from make check.
|
|
Packit |
dd8086 |
# Use like this:
|
|
Packit |
dd8086 |
# make check 2>&1 | ruby ../make-check-filter.pl
|
|
Packit |
dd8086 |
# See Makefile.am
|
|
Packit |
dd8086 |
my @pats =
|
|
Packit |
dd8086 |
("^ CC",
|
|
Packit |
dd8086 |
"^ CXX",
|
|
Packit |
dd8086 |
'^(re|g)?make\[',
|
|
Packit |
dd8086 |
"^(re|g)?make ",
|
|
Packit |
dd8086 |
"Making check in",
|
|
Packit |
dd8086 |
'^[+]{2} WARN: ',
|
|
Packit |
dd8086 |
'^m4/', # doesn't work always
|
|
Packit |
dd8086 |
'^configure.ac', # doesn't work always
|
|
Packit |
dd8086 |
'^ cd \.\.', # doesn't work always
|
|
Packit |
dd8086 |
'^config.status', # doesn't work always
|
|
Packit |
dd8086 |
"^ vcd_demo.right",
|
|
Packit |
dd8086 |
'^-- ',
|
|
Packit |
dd8086 |
'^-+$',
|
|
Packit |
dd8086 |
'^##<<+$',
|
|
Packit |
dd8086 |
'^##>>+$',
|
|
Packit |
dd8086 |
'`.+\' is up to date.$',
|
|
Packit |
dd8086 |
'^\s*$');
|
|
Packit |
dd8086 |
my $pats = "(" . join("|", @pats) . ')';
|
|
Packit |
dd8086 |
# print "$pats\n";
|
|
Packit |
dd8086 |
|
|
Packit |
dd8086 |
my $skip_re = /${pats}/;
|
|
Packit |
dd8086 |
|
|
Packit |
dd8086 |
# open(STDIN, '<', '/etc/hosts')
|
|
Packit |
dd8086 |
# or die "cannot open > /etc/hosts: $!";
|
|
Packit |
dd8086 |
while (<STDIN>) {
|
|
Packit |
dd8086 |
next if $_ =~ /$pats/;
|
|
Packit |
dd8086 |
print $_;
|
|
Packit |
dd8086 |
}
|