1 # This awk script processes the output of objdump --dynamic-syms
2 # into a simple format that should not change when the ABI is not changing.
12 /[^
:]+\.so\.
[0-9.
]+:[ ]+.file format .
*$
/ {
18 sub(/:$
/, "", sofullname
);
20 sub(/^.
*\
//, "", soname
);
21 sub(/\.so\.
[0-9.
]+$
/, "", soname
);
23 suppress =
((filename_regexp
!= "" && sofullname !~ filename_regexp
) \
24 || (libname_regexp
!= "" && soname !~ libname_regexp
));
32 /^
[0-9a
-fA
-F
]+ / { sub(/ /, " - ") }
35 $
4 ==
"*UND*" { next }
40 $
2 ==
"g" || $
2 ==
"w" && NF ==
7 {
48 gsub(/[()]/, "", version
);
50 if (version ==
"GLIBC_PRIVATE") next;
53 if (type ==
"D" && $
4 ==
".tbss") {
56 else if (type ==
"D" && $
4 ==
".opd") {
63 else if ($
4 ==
"*ABS*") {
67 else if (type ==
"DO") {
70 else if (type ==
"DF") {
71 if (symbol ~
/^\.
/ && seen_opd
>=
0)
77 else if (type ==
"iD" && $
4 ==
".text") {
83 desc = symbol
" " version
" " weak
" ? " type
" " $
4 " " $
5;
86 desc = symbol
" " version
" " weak
" ? " type
" " $
4 " " $
5;
89 # Disabled -- weakness should not matter to shared library ABIs any more.
90 #if (weak == "w") type = tolower(type);
92 desc =
" " symbol
" " type size
;
95 version = soname
" " version
(combine_fullname ?
" " sofullname
: "");
97 if (version in versions
) {
98 versions
[version
] = versions
[version
] "\n" desc
;
101 versions
[version
] = desc
;
107 NF ==
0 || /DYNAMIC SYMBOL TABLE
/ || /file format
/ { next }
110 print "Don't grok this line:", $
0
114 if (!
end && (combine
|| ! parse_names
|| soname ==
""))
116 tofile = parse_names
&& !combine
;
119 for (version in versions
) {
120 if (nverslist ==
0) {
125 split(verslist
, s
, "\n");
126 if (version
< s
[1]) {
128 for (i =
1; i
<= nverslist
; ++i
) {
129 verslist = verslist
"\n" s
[i
];
134 for (i =
2; i
<= nverslist
; ++i
) {
135 if (version
< s
[i
]) break;
136 verslist = verslist
"\n" s
[i
];
138 verslist = verslist
"\n" version
;
139 for (; i
<= nverslist
; ++i
) {
140 verslist = verslist
"\n" s
[i
];
147 out = prefix soname
".symlist";
148 if (soname in outfiles
)
149 out = out
"." ++outfiles
[soname
];
151 outfiles
[soname
] =
1;
155 split(verslist
, order
, "\n");
156 for (i =
1; i
<= nverslist
; ++i
) {
160 print version
>> out
;
162 outpipe =
"sort >> " out
;
167 print prefix version
;
170 print versions
[version
] | outpipe
;
173 delete versions
[version
];
175 for (version in versions
)
176 delete versions
[version
];
179 print "wrote", out
, "for", sofullname
;