3 # This script takes two arguments, a version script and a dynamic library
4 # (in that order), and prints a list of symbols to be exported from the
6 # It expects a 'nm' with the POSIX '-P' option, but everyone has one of
7 # those, right? It also expects that symbol names have a leading underscore,
8 # which is somewhat less likely.
10 use File
::Glob
':glob';
14 # The glob patterns that are to be applied to the demangled name
16 # The glob patterns that apply directly to the name in the .o files
18 # The patterns for local variables (usually just '*').
22 # Fill in the various glob arrays.
24 # The next pattern will go into this array.
28 open F
,$symvers or die $!;
32 # Lines of the form '} SOME_VERSION_NAME_1.0;'
33 if (/^[ \t]*\}[ \tA-Z0-9_.a-z]*;[ \t]*$/) {
37 # Comment and blank lines
38 next if (/^[ \t]*\#/);
40 # Lines of the form 'SOME_VERSION_NAME_1.1 {'
41 next if (/^[A-Z0-9_. \t]*{$/);
43 next if (/^[ \t]*global:$/);
44 # After 'local:', globs should be ignored, they won't be exported.
45 if (/^[ \t]*local:$/) {
49 # After 'extern "C++"', globs are C++ patterns
50 if (/^[ \t]*extern \"C\+\+\"[ \t]*$/) {
54 # Catch globs. Note that '{}' is not allowed in globs by this script,
55 # so only '*' and '?' and '[]' are available.
56 if (/^[ \t]*([^ \t;{}#]+);?[ \t]*$/) {
58 # Turn the glob into a regex by replacing '*' with '.*'.
60 # And replacing '?' with '.'.
65 # Important sanity check. This script can't handle lots of formats
66 # that GNU ld can, so be sure to error out if one is seen!
67 die "strange line `$_'";
71 # Make 'if (1)' for debugging.
74 (printf "%s\n",$_) foreach (@cxx_globs);
76 (printf "%s\n", $_) foreach (@globs);
78 (printf "%s\n", $_) foreach (@ignored);
82 # Combine the arrays into single regular expressions
83 # This cuts the time required from about 30 seconds to about 0.5 seconds.
85 my $glob_regex = '^_(' . (join '|',@globs) . ')$';
86 my $cxx_regex = (join '|',@cxx_globs);
89 # Get all the symbols from the library, match them, and add them to a hash.
92 my $nm = $ENV{'NM_FOR_TARGET'} || "nm";
93 # Process each symbol.
94 print STDERR
$nm.' -P '.(join ' ',@ARGV).'|';
95 open NM
,$nm.' -P '.(join ' ',@ARGV).'|' or die $!;
96 # Talk to c++filt through a pair of file descriptors.
97 open2
(*FILTIN
, *FILTOUT
, "c++filt -_") or die $!;
102 # nm prints out stuff at the start, ignore it.
105 # Ignore undefined and local symbols.
106 next if (/^([^ ]+) [Ua-z] /);
108 # GCC does not export construction vtables from shared libraries.
109 # However the symbols are marked hidden, for Darwin that makes them
110 # also external "private_extern", which means that they show up in
111 # this list. When ld64 encounters them it generates a warning that
112 # they cannot be exported, so trim them from the set now.
113 next if (/^construction vtable.*$/);
114 next if (/^__ZTC.*$/);
116 # $sym is the name of the symbol, $noeh_sym is the same thing with
117 # any '.eh' suffix removed.
118 die "unknown nm output $_" if (! /^([^ ]+) [A-Z] /);
121 $noeh_sym =~ s/\.eh$//;
123 # Maybe it matches one of the patterns based on the symbol in the .o file.
124 if ($noeh_sym =~ /$glob_regex/) {
125 $export_hash{$sym} = 1;
129 # No? Well, maybe its demangled form matches one of those patterns.
130 printf FILTOUT
"%s\n",$noeh_sym;
133 if ($dem =~ /$cxx_regex/) {
134 $export_hash{$sym} = 2;
138 # No? Well, then ignore it.
140 close NM
or die "nm error";
141 close FILTOUT
or die "c++filt error";
142 close FILTIN
or die "c++filt error";
145 # Print out the export file
147 # Print information about generating this file
148 print "# This is a generated file.\n";
149 print "# It was generated by:\n";
150 printf "# %s %s %s\n", $0, $symvers, (join ' ',@ARGV);
152 foreach my $i (keys %export_hash) {
153 printf "%s\n",$i or die;