• file
• revisions
• annotate
• diff
• comparison
• raw

tools/tests/isa-module.pl@deefc01c0e14 (annotated)

tools/tests/isa-module.pl

Thu, 15 Jan 2015 21:03:48 +0100

author

Michael Schloh von Bennewitz <michael@schloh.com>

date

Thu, 15 Jan 2015 21:03:48 +0100

branch

TOR_BUG_9701

changeset 11

deefc01c0e14

permissions

-rwxr-xr-x

Integrate friendly tips from Tor colleagues to make (or not) 4.5 alpha 3;
This includes removal of overloaded (but unused) methods, and addition of
a overlooked call to DataStruct::SetData(nsISupports, uint32_t, bool.)

michael@0	1	#!/usr/bin/perl -w
michael@0	2
michael@0	3	use Cwd;
michael@0	4
michael@0	5	$curdir = cwd();
michael@0	6
michael@0	7	@path_fields = split(/\//,$curdir);
michael@0	8
michael@0	9	$path = join ("/",@path_fields);
michael@0	10
michael@0	11	print "Searching in " . $path . "\n";
michael@0	12
michael@0	13	open (REPORT, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetModule 2>&1 |" ) || die "open: $! \n";
michael@0	14
michael@0	15	print "Modules:\n";
michael@0	16	while (<REPORT>) {
michael@0	17	$module = $_;
michael@0	18	$module =~ s/:.*//;
michael@0	19	print $module;
michael@0	20	}
michael@0	21	close(REPORT);
michael@0	22
michael@0	23	open (REPORT, "find $path -name \"*.so\" -print | xargs nm -Bno | egrep NSGetFactory 2>&1 |" ) || die "open: $! \n";
michael@0	24
michael@0	25	print "\nComponents:\n";
michael@0	26	while (<REPORT>) {
michael@0	27	$module = $_;
michael@0	28	$module =~ s/:.*//;
michael@0	29	print $module;
michael@0	30	}
michael@0	31	close(REPORT);