Pavan Balaji
b2e6fbd0ae
script generated to consistently point to the top-level copyright. Signed-off-by: Pavan Balaji <balaji@anl.gov>
49 linhas
888 B
Perl
Arquivo Executável
49 linhas
888 B
Perl
Arquivo Executável
#! /usr/bin/env perl
|
|
##
|
|
## Copyright (C) by Argonne National Laboratory
|
|
## See COPYRIGHT in top-level directory
|
|
##
|
|
|
|
# A simple check of the make output when developing
|
|
|
|
$debug = 0;
|
|
|
|
while (<>) {
|
|
if (/cd (\w*) \&\& make/) {
|
|
print "Dir $1\n";
|
|
}
|
|
if (/^gcc /) {
|
|
s/[\r\n]*$//;
|
|
while (/\\$/) {
|
|
# Read continuation lines
|
|
s/\\$//;
|
|
$_ .= <>;
|
|
}
|
|
RESTART:$gccline = $_;
|
|
$filename = $gccline;
|
|
$filename =~ s/.*\s(\w*\.c)/\1/;
|
|
if ($filename eq $gccline) {
|
|
# No file name was found, so reset to null
|
|
$filename = "";
|
|
}
|
|
while (<>) {
|
|
s/[\r\n]*$//;
|
|
while (/\\$/) {
|
|
$nextline = <>;
|
|
$nextline =~ s/[\r\n]*//;
|
|
$_ .= $nextline;
|
|
}
|
|
print "Looking for |$filename|\n" if $debug;
|
|
if ($filename ne "" && /^$filename/) {
|
|
print "$_\n";
|
|
}
|
|
else {
|
|
last;
|
|
}
|
|
}
|
|
if (/^gcc/) {
|
|
goto RESTART;
|
|
}
|
|
}
|
|
}
|