1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
#!/usr/bin/perl -w
# This script takes two arguments, a version script and a dynamic library
# (in that order), and prints a list of symbols to be exported from the
# library.
# It expects a 'nm' with the POSIX '-P' option, but everyone has one of
# those, right? It also expects that symbol names have a leading underscore,
# which is somewhat less likely.
use File::Glob ':glob';
use FileHandle;
use IPC::Open2;
# The glob patterns that are to be applied to the demangled name
my @cxx_globs = ();
# The glob patterns that apply directly to the name in the .o files
my @globs = ();
# The patterns for local variables (usually just '*').
my @ignored = ();
##########
# Fill in the various glob arrays.
# The next pattern will go into this array.
my $glob = \@globs;
my $symvers = shift;
open F,$symvers or die $!;
while (<F>) {
chomp;
# Lines of the form '} SOME_VERSION_NAME_1.0;'
if (/^[ \t]*\}[ \tA-Z0-9_.a-z]*;[ \t]*$/) {
$glob = \@globs;
next;
}
# Comment and blank lines
next if (/^[ \t]*\#/);
next if (/^[ \t]*$/);
# Lines of the form 'SOME_VERSION_NAME_1.1 {'
next if (/^[A-Z0-9_. \t]*{$/);
# Ignore 'global:'
next if (/^[ \t]*global:$/);
# After 'local:', globs should be ignored, they won't be exported.
if (/^[ \t]*local:$/) {
$glob = \@ignored;
next;
}
# After 'extern "C++"', globs are C++ patterns
if (/^[ \t]*extern \"C\+\+\"[ \t]*$/) {
$glob = \@cxx_globs;
next;
}
# Catch globs. Note that '{}' is not allowed in globs by this script,
# so only '*' and '[]' are available.
if (/^[ \t]*([^ \t;{}#]+);?[ \t]*$/) {
my $ptn = $1;
# Turn the glob into a regex by replacing '*' with '.*'.
$ptn =~ s/\*/\.\*/g;
push @$glob,$ptn;
next;
}
# Important sanity check. This script can't handle lots of formats
# that GNU ld can, so be sure to error out if one is seen!
die "strange line `$_'";
}
close F;
# Make 'if (1)' for debugging.
if (0) {
print "cxx:\n";
(printf "%s\n",$_) foreach (@cxx_globs);
print "globs:\n";
(printf "%s\n", $_) foreach (@globs);
print "ignored:\n";
(printf "%s\n", $_) foreach (@ignored);
}
##########
# Combine the arrays into single regular expressions
# This cuts the time required from about 30 seconds to about 0.5 seconds.
my $glob_regex = '^_(' . (join '|',@globs) . ')$';
my $cxx_regex = (join '|',@cxx_globs);
##########
# Get all the symbols from the library, match them, and add them to a hash.
my %export_hash = ();
my $nm = $ENV{'NM_FOR_TARGET'} || "nm";
# Process each symbol.
print STDERR $nm.' -P '.(join ' ',@ARGV).'|';
open NM,$nm.' -P '.(join ' ',@ARGV).'|' or die $!;
# Talk to c++filt through a pair of file descriptors.
open2(*FILTIN, *FILTOUT, "c++filt -_") or die $!;
NAME: while (<NM>) {
my $i;
chomp;
# nm prints out stuff at the start, ignore it.
next if (/^$/);
next if (/:$/);
# Ignore undefined and local symbols.
next if (/^([^ ]+) [Ua-z] /);
# $sym is the name of the symbol, $noeh_sym is the same thing with
# any '.eh' suffix removed.
die "unknown nm output $_" if (! /^([^ ]+) [A-Z] /);
my $sym = $1;
my $noeh_sym = $sym;
$noeh_sym =~ s/\.eh$//;
# Maybe it matches one of the patterns based on the symbol in the .o file.
if ($noeh_sym =~ /$glob_regex/) {
$export_hash{$sym} = 1;
next NAME;
}
# No? Well, maybe its demangled form matches one of those patterns.
printf FILTOUT "%s\n",$noeh_sym;
my $dem = <FILTIN>;
chomp $dem;
if ($dem =~ /$cxx_regex/) {
$export_hash{$sym} = 2;
next NAME;
}
# No? Well, then ignore it.
}
close NM or die "nm error";
close FILTOUT or die "c++filt error";
close FILTIN or die "c++filt error";
##########
# Print out the export file
# Print information about generating this file
print "# This is a generated file.\n";
print "# It was generated by:\n";
printf "# %s %s %s\n", $0, $symvers, (join ' ',@ARGV);
foreach my $i (keys %export_hash) {
printf "%s\n",$i or die;
}
|
