https://gitorious.org/ocamlp3l/ocamlp3l_cvs.git
Tip revision: 2db189928c94d62a3b4757b3eec68f0a4d4113f0 authored by dicosmo on 23 June 1998, 11:28:44 UTC
*** empty log message ***
*** 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";
}