https://gitorious.org/ocamlp3l/ocamlp3l_cvs.git
Raw File
Tip revision: 2db189928c94d62a3b4757b3eec68f0a4d4113f0 authored by dicosmo on 23 June 1998, 11:28:44 UTC
*** empty log message ***
Tip revision: 2db1899
nowarn.pl
#!/usr/bin/perl
#
# 
# File "template.ml", line 716, characters 58-3065:
# Warning: this pattern-matching is not exhaustive

while (<STDIN>) {
    if(/File "template.ml", line ([0-9]*), characters ([0-9]*)-([0-9]*):/ or
       /File "nodecode.ml", line ([0-9]*), characters ([0-9]*)-([0-9]*):/ or
       /File "parp3l.ml", line ([0-9]*), characters ([0-9]*)-([0-9]*):/) {
	$skipping = 1;
	next;
    }
    if(/Warning: this pattern-matching is not exhaustive/ and $skipping) {
	$skipping = 0;
	next;
    }
    print "$_\n";
}
back to top