1999-02-25 19:35:05 +00:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
|
|
use Cwd;
|
|
|
|
|
|
|
|
$curdir = cwd();
|
|
|
|
|
|
|
|
open( LOG, ">ctor-dtor-report" ) || print "can't open $?\n";
|
|
|
|
|
|
|
|
@path_fields = split(/\//,$curdir);
|
|
|
|
|
|
|
|
pop(@path_fields);
|
|
|
|
pop(@path_fields);
|
|
|
|
|
|
|
|
$path = join ("/",@path_fields);
|
|
|
|
|
|
|
|
open (REPORT, "find $path -name \"*.o\" -print | xargs nm -Bno | egrep \"_GLOBAL_\.[ID]\" 2>&1 |" ) || die "open: $! \n";
|
|
|
|
|
|
|
|
while (<REPORT>) {
|
|
|
|
print $_;
|
|
|
|
print LOG $_;
|
|
|
|
}
|
|
|
|
close(REPORT);
|
|
|
|
|
1999-02-25 19:43:40 +00:00
|
|
|
if (-s "./ctor-dtor-report" > 0) {
|
1999-02-25 19:40:38 +00:00
|
|
|
print "Global Constructors\/Destructors Found" . "\n";
|
|
|
|
}
|