qi-hardware/eda-tools
1
0
Fork 0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2024-11-25 21:13:45 +02:00
Code

rptflt/rptflt.pl: filter for KiCad DRC reports

Browse Source
This commit is contained in:
Werner Almesberger 2014-06-01 10:35:27 -03:00
parent 8c5d7d7bcd
commit c07e33bec6
1 changed files with 104 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
rptflt/rptflt.pl Executable file
View File

@ -0,0 +1,104 @@
#!/usr/bin/perl
#
# rptflt.pl - Filter known issues from KiCad DRC reports
#
# Written 2014 by Werner Almesberger
# Copyright 2014 Werner Almesberger
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
#
# Usage:
#
# - generate a DRC report file with pcbnew, e.g., foo.rpt
# - review report file for any real issues
# - rename foo.rpt to foo.exceptions
# - to check for new errors, generate new report file, then run
# rptflt.pl foo.exceptions foo.rpt
#
sub compact
{
local ($m);
die if $#e != 2;
die unless $e[0] =~ /^ErrType\(\d+\):\s+(.*)\s*$/;
$m = $1;
die unless $e[1] =~ /^\s+@[^:]++:\s+(.*)\s*$/;
$m .= "; $1";
die unless $e[2] =~ /^\s+@[^:]+:\s+(.*)\s*$/;
$m .= "; $1";
return $m;
}
sub add
{
local ($m);
$m = &compact;
$exc{$m} = 1;
undef @e;
}
sub filter
{
local ($m);
$m = &compact;
if (defined $exc{$m}) {
$seen{$m} = 1;
} else {
print join("", @e);
}
undef @e;
}
sub process
{
open(FILE, $_[0]) || die "$_[0]: $!";
undef @e;
while (<FILE>) {
if (/^ErrType/) {
&flush if @e;
@e = ($_);
next;
}
if (/^\s+@/) {
die unless @e;
push(@e, $_);
next;
}
&flush if @e;
print unless $silent;
}
&flush if @e;
close FILE;
}
if ($#ARGV != 1) {
print stderr "usage: $0 name.exceptions name.rpt\n";
exit(1);
}
*flush = *add;
$silent = 1;
&process($ARGV[0]);
*flush = *filter;
$silent = 0;
&process($ARGV[1]);
for $m (keys %exc) {
#print STDERR "check $i\n";
next if $seen{$m};
print STDERR "Warning: exception \"$m\" not seen\n";
}