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
|
#
# Copyright 2006 Massachusetts Institute of Technology.
# All Rights Reserved.
#
# Export of this software from the United States of America may
# require a specific license from the United States Government.
# It is the responsibility of any person or organization contemplating
# export to obtain such a license before exporting.
#
# WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
# distribute this software and its documentation for any purpose and
# without fee is hereby granted, provided that the above copyright
# notice appear in all copies and that both that copyright notice and
# this permission notice appear in supporting documentation, and that
# the name of M.I.T. not be used in advertising or publicity pertaining
# to distribution of the software without specific, written prior
# permission. Furthermore if you modify this software you must label
# your software as modified software and not distribute it in such a
# fashion that it might be confused with the original M.I.T. software.
# M.I.T. makes no representations about the suitability of
# this software for any purpose. It is provided "as is" without express
# or implied warranty.
#
$0 =~ s/^.*?([\w.-]+)$/$1/;
# The real stuff.
# Args: exportlist libfoo.so
# This code assumes the GNU version of nm.
# For now, we'll only run it on GNU/Linux systems, so that's okay.
if ($#ARGV != 1) {
die "usage: $0 exportfile libfoo.so\n";
}
my($exfile, $libfile) = @ARGV;
@missing = ();
open NM, "nm -Dg --defined-only $libfile |" || die "can't run nm on $libfile: $!";
open EXPORT, "< $exfile" || die "can't read $exfile: $!";
@export = <EXPORT>;
map chop, @export;
@export = sort @export;
@found = ();
while (<NM>) {
chop;
s/^[0-9a-fA-F]+ +//;
next if /^A /;
if (!/^[TDRBGS] /) {
unlink $libfile;
die "not sure what to do with '$_'";
}
s/^[TDRBGS] +//;
push @found, $_;
}
@found = sort @found;
while ($#export >= 0 && $#found >= 0) {
if ($export[0] eq $found[0]) {
# print "ok $export[0]\n";
shift @export;
shift @found;
} elsif ($export[0] lt $found[0]) {
push @missing, shift @export;
} else {
# Ignore added symbols, for now.
shift @found;
}
}
if ($#export >= 0) { @missing = (@missing, @export); }
if ($#missing >= 0) {
print STDERR "Missing symbols:\n\t", join("\n\t", @missing), "\n";
# unlink $libfile;
exit(1);
}
exit 0;
|
