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