#!/usr/bin/perl -w

my $pattern = shift (@ARGV);
$pattern = 'util/defs/wntmsci' if (!defined $pattern);

# removes crud from diffs
my $filter = 0;

while (<>) {
    my $line = $_;
    if ($line =~ m/^--- ([^ \t]*)/) { # spaces in fname ?
	my $path = $1;
	if ($path =~ m/$pattern/) {
	    $filter = 1;
	    print STDERR "Prune $path section\n";
	} else {
	    $filter = 0;
#	    print STDERR "Preserve $path section\n";
	}
    }
    print $line if (!$filter);
}