gecko-dev/tools/tests/isa-module.pl

32 строки
633 B
Perl
Исходник Обычный вид История

1999-09-28 18:38:20 +04:00
#!/usr/bin/perl -w
use Cwd;
$curdir = cwd();
@path_fields = split(/\//,$curdir);
$path = join ("/",@path_fields);
print "Searching in " . $path . "\n";
open (REPORT, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetModule 2>&1 |" ) || die "open: $! \n";
print "Modules:\n";
while (<REPORT>) {
$module = $_;
$module =~ s/:.*//;
print $module;
}
close(REPORT);
open (REPORT, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetFactory 2>&1 |" ) || die "open: $! \n";
print "\nComponents:\n";
while (<REPORT>) {
$module = $_;
$module =~ s/:.*//;
print $module;
}
close(REPORT);