35 lines
662 B
Perl
Executable File
35 lines
662 B
Perl
Executable File
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
|
|
if $running_under_some_shell; # makeDependsTargets.pl
|
|
|
|
# $Id$
|
|
#
|
|
# Author: Ralph Lange
|
|
#
|
|
|
|
use Text::Wrap;
|
|
|
|
my ($errline, $errno, $codeline, $pointline);
|
|
|
|
$Text::Wrap::columns = $ENV{COLUMNS} if $ENV{COLUMNS};
|
|
|
|
sub Usage
|
|
{
|
|
print "Usage:\n";
|
|
print "<compile line> 2>&1 | $0\n";
|
|
|
|
exit 2;
|
|
}
|
|
|
|
while ( $errline = <> ) {
|
|
if ( $errline =~ m/^(Warning|Error)/ ) {
|
|
($errno) = ($errline =~ m/.* ([0-9]+):/);
|
|
$codeline = <>;
|
|
$pointline = <>;
|
|
next if $codeline =~ m|//\s*X.*aCC[^a-zA-Z]*$errno|;
|
|
|
|
print wrap ("", " ", $errline);
|
|
print $codeline;
|
|
print $pointline;
|
|
}
|
|
}
|