60 lines
1.1 KiB
Bash
Executable File
60 lines
1.1 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
PWD=`pwd`
|
|
|
|
$* 2> /tmp/errors.$$
|
|
RESULT=$?
|
|
|
|
if [ $RESULT -ne 0 ]
|
|
then
|
|
exec /usr/bin/perl -x $0 $RESULT /tmp/errors.$$ "$PWD"
|
|
fi
|
|
exit 0
|
|
|
|
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
my $result = $ARGV[0];
|
|
my $filename = $ARGV[1];
|
|
my $pwd = $ARGV[2];
|
|
|
|
open(FILE, "<$filename") || die "$0: Unable to open file, $!";
|
|
|
|
my $unresolvedRefError = undef;
|
|
|
|
while (<FILE>) {
|
|
chomp;
|
|
|
|
if (defined $unresolvedRefError) {
|
|
if (m/^ ([^(]+)\(([0-9]+)\)/) {
|
|
my $file = $1;
|
|
my $lineno = $2;
|
|
|
|
if (! -f "$pwd/$file") {
|
|
$file =~ s/\.s$/.c/;
|
|
}
|
|
|
|
$_ = "$pwd/$file:$lineno:0: error: $unresolvedRefError";
|
|
} else {
|
|
$unresolvedRefError = undef;
|
|
}
|
|
}
|
|
|
|
if (m/^(Unresolved external .* referenced) in:/) {
|
|
$unresolvedRefError = $1;
|
|
$_ = "";
|
|
} elsif (m/^([^(]+)\(([0-9]+)\):(.*)$/) {
|
|
my $file = $1;
|
|
my $lineno = $2;
|
|
my $error = $3;
|
|
|
|
$_ = "$pwd/$file:$lineno:0: error: $error";
|
|
}
|
|
print STDERR "$_\n";
|
|
}
|
|
|
|
unlink($filename);
|
|
|
|
exit($result);
|