probe exported symbols
Signed-off-by: Love Hornquist Astrand <lha@h5l.org>
This commit is contained in:

committed by
Love Hornquist Astrand

parent
c6bbdb545b
commit
d6f90d3ef5
77
cf/w32-list-externs-from-objs.pl
Normal file
77
cf/w32-list-externs-from-objs.pl
Normal file
@@ -0,0 +1,77 @@
|
||||
my $show_module_name = 1;
|
||||
my $use_indent = 1;
|
||||
my $strip_leading_underscore = 0;
|
||||
|
||||
# Dump all symbols for the given object file that are defined and have
|
||||
# external scope.
|
||||
|
||||
sub dump_symbols_for_file($)
|
||||
{
|
||||
$fn = shift;
|
||||
|
||||
print STDERR "Opening dump of object [$fn]\n";
|
||||
|
||||
open(SP, '-|', "dumpbin /symbols \"".$fn."\"") or die "Can't open pipe for $fn";
|
||||
|
||||
LINE:
|
||||
while (<SP>) {
|
||||
# 008 00000000 SECT3 notype () External | _encode_AccessDescription
|
||||
|
||||
/^[[:xdigit:]]{3,}\s[[:xdigit:]]{8,}\s(\w+)\s+\w*\s+(?:\(\)| )\s+(\w+)\s+\|\s+(\w+)$/ && do {
|
||||
my ($section, $visibility, $symbol) = ($1, $2, $3);
|
||||
|
||||
if ($section ne "UNDEF" && $visibility eq "External") {
|
||||
print $fn if $show_module_name;
|
||||
print "\t" if $use_indent || $show_module_name;
|
||||
|
||||
if ($strip_leading_underscore && $symbol =~ /_(.*)/) {
|
||||
$symbol = $1;
|
||||
}
|
||||
print $symbol;
|
||||
print "\n";
|
||||
}
|
||||
};
|
||||
}
|
||||
|
||||
close SP;
|
||||
}
|
||||
|
||||
sub use_response_file($)
|
||||
{
|
||||
$fn = shift;
|
||||
|
||||
open (RF, '<', $fn) or die "Can't open response file $fn";
|
||||
|
||||
while (<RF>) {
|
||||
/(\S+)/ && do {
|
||||
dump_symbols_for_file($1);
|
||||
}
|
||||
}
|
||||
close RF;
|
||||
}
|
||||
|
||||
for (@ARGV) {
|
||||
ARG: {
|
||||
/-q/ && do {
|
||||
$show_module_name = 0;
|
||||
last ARG;
|
||||
};
|
||||
|
||||
/-1/ && do {
|
||||
$use_indent = 0;
|
||||
last ARG;
|
||||
};
|
||||
|
||||
/-u/ && do {
|
||||
$strip_leading_underscore = 1;
|
||||
last ARG;
|
||||
};
|
||||
|
||||
/@(.*)/ && do {
|
||||
use_response_file($1);
|
||||
last ARG;
|
||||
};
|
||||
|
||||
dump_symbols_for_file($_);
|
||||
}
|
||||
}
|
Reference in New Issue
Block a user