Pavan Balaji
b2e6fbd0ae
script generated to consistently point to the top-level copyright. Signed-off-by: Pavan Balaji <balaji@anl.gov>
36 linhas
816 B
Perl
Arquivo Executável
36 linhas
816 B
Perl
Arquivo Executável
#! /usr/bin/env perl
|
|
##
|
|
## Copyright (C) by Argonne National Laboratory
|
|
## See COPYRIGHT in top-level directory
|
|
##
|
|
|
|
use warnings;
|
|
|
|
#
|
|
open FD, "<unusederr.txt";
|
|
%errkeys = ();
|
|
while (<FD>) {
|
|
if (/^Name\s\*\*([\w\| \%]+)\sis defined in\s(.*)/) {
|
|
my $errname = $1;
|
|
my $location = $2;
|
|
$errkeys{$errname} = $location;
|
|
}
|
|
}
|
|
close FD;
|
|
foreach $errname (sort(keys(%errkeys))) {
|
|
my $location = $errkeys{$errname};
|
|
print "About to run on $errname ($location)\n";
|
|
open FDG, "grep -R '\"\\\*\\\*$errname\"' src 2>&1 |";
|
|
while (<FDG>) {
|
|
if (/^\.git\//) { next; }
|
|
# Skip the definition file
|
|
if (/errnames\.txt/) { next; }
|
|
if (/errnames-old\.txt/) { next; }
|
|
# Skip the translation files
|
|
if (/errhan\/defmsg\.h/) { next; }
|
|
if (/errhan\/windefmsg\.h/) { next; }
|
|
print $_;
|
|
}
|
|
close FDG;
|
|
}
|