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
}