File: findunusederrtxt

package info (click to toggle)
mpich2 1.2.1.1-5
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 73,904 kB
  • ctags: 65,947
  • sloc: ansic: 343,583; makefile: 55,174; java: 34,959; sh: 27,558; perl: 17,355; cpp: 10,472; python: 9,649; f90: 5,753; fortran: 5,128; cs: 4,019; csh: 152; xml: 91; php: 8
file content (30 lines) | stat: -rwxr-xr-x 727 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#! /usr/bin/perl -w
#
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>) {
	# Skip those svn files
	if (/\/\.svn\//) { 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;
}