libsodium 1.0.8
[tomato.git] / release / src / btools / libfoo.pl
blob17565713828c8342f48744ef5f8c74ece4cd3e22
1 #!/usr/bin/perl
3 # libfoo.pl
4 # Copyright (C) 2006-2008 Jonathan Zarate
6 # - strip un-needed objects
7 # - create xref of symbols used
10 $root = $ENV{"TARGETDIR"};
11 $uclibc = $ENV{"TOOLCHAIN"};
12 $router = $ENV{"SRCBASE"} . "/router";
14 sub error
16 print STDERR "\n*** ERROR: " . (shift) . "\n\n";
17 exit 1;
20 sub basename
22 my $fn = shift;
23 if ($fn =~ /([^\/]+)$/) {
24 return $1;
26 return $fn;
29 sub load
31 my $fname = shift;
33 if ((-l $fname) ||
34 ($fname =~ /\/lib\/modules\/\d+\.\d+\.\d+/) ||
35 ($fname =~ /\.(asp|gif|png|svg|js|jsx|css|txt|pat|sh)$/)) {
36 return;
39 if (-d $fname) {
40 my $d;
41 if (opendir($d, $fname)) {
42 foreach (readdir($d)) {
43 if ($_ !~ /^\./) {
44 load($fname . "/" . $_);
47 closedir($d);
49 return;
53 my $f;
54 my $base;
55 my $ok;
56 my $s;
58 $base = basename($fname);
59 print LOG "\n\nreadelf $base:\n";
61 open($f, "mipsel-linux-readelf -WhsdD ${fname} 2>&1 |") || error("readelf - $!\n");
63 while (<$f>) {
64 print LOG;
66 if (/\s+Type:\s+(\w+)/) {
67 $elf_type{$base} = $1;
68 $ok = 1;
69 last;
73 if (!$ok) {
74 close($f);
75 return;
78 print "$elf_type{$base} $base", " " x 30, "\r";
80 push(@elfs, $base);
82 while (<$f>) {
83 print LOG;
85 if (/\(NEEDED\)\s+Shared library: \[(.+)\]/) {
86 push(@{$elf_lib{$base}}, $1);
88 elsif (/Symbol table for image:/) {
89 last;
93 while (<$f>) {
94 print LOG;
96 if (/\s+(WEAK|GLOBAL)\s+(?:DEFAULT|VISIBLE)\s+(\w+)\s+(\w+)/) {
97 $s = $3;
98 if ($2 eq 'UND') {
99 if ($1 eq 'GLOBAL') {
100 $elf_ext{$base}{$s} = 1;
102 else {
103 print LOG "*** not GLOBAL\n";
106 elsif ($2 eq 'ABS') {
108 elsif ($2 =~ /^\d+$/) {
109 $elf_exp{$base}{$s} = 1;
111 else {
112 print LOG "*** unknown type\n";
115 elsif (!/Num Buc:/) {
116 print LOG "*** strange line\n";
120 close($f);
123 sub fixDynDep
125 my ($user, $dep) = @_;
127 if (!defined $elf_dyn{$user}{$dep}) {
128 push(@{$elf_lib{$user}}, $dep);
129 $elf_dyn{$user}{$dep} = 1;
131 print LOG "FixDynDep: $user = $dep\n";
135 sub fixDyn
137 my $s;
139 foreach (@elfs) {
140 if (/^libipt_.+\.so$/) {
141 fixDynDep("iptables", $_);
143 elsif (/^libip6t_.+\.so$/) {
144 fixDynDep("ip6tables", $_);
146 elsif (/^CP\d+\.so$/) {
147 fixDynDep("smbd", $_);
151 fixDynDep("l2tpd", "cmd.so");
152 fixDynDep("l2tpd", "sync-pppd.so");
153 fixDynDep("pppd", "pppol2tp.so");
154 fixDynDep("pppd", "pptp.so");
155 fixDynDep("pppd", "rp-pppoe.so");
157 fixDynDep("libcrypto.so.1.0.0", "libssl.so.1.0.0");
159 #shibby
160 fixDynDep("transmission-daemon", "libevent-2.0.so.5");
161 fixDynDep("transmission-daemon", "libcurl.so.4.3.0");
162 # fixDynDep("transmission-daemon", "libiconv.so.2.4.0");
163 fixDynDep("transmission-remote", "libevent-2.0.so.5");
164 fixDynDep("transmission-remote", "libcurl.so.4.3.0");
165 # fixDynDep("transmission-remote", "libiconv.so.2.4.0");
166 fixDynDep("radvd", "libdaemon.so.0.5.0");
167 fixDynDep("miniupnpd", "libnfnetlink.so.0.2.0");
168 fixDynDep("dnscrypt-proxy", "libsodium.so.18.0.1");
169 fixDynDep("tincd", "liblzo2.so.2.0.0");
170 fixDynDep("openvpn", "liblzo2.so.2.0.0");
172 #minidlna module, bwq518
173 fixDynDep("minidlna", "libz.so.1");
174 fixDynDep("minidlna", "libstdc.so.6");
175 fixDynDep("minidlna", "libiconv.so.2.4.0");
176 fixDynDep("minidlna", "libssl.so.1.0.0");
177 fixDynDep("minidlna", "libjpeg.so");
178 fixDynDep("minidlna", "libogg.so.0");
179 fixDynDep("minidlna", "libvorbis.so.0");
180 fixDynDep("minidlna", "libid3tag.so.0");
181 fixDynDep("minidlna", "libexif.so.12");
182 fixDynDep("minidlna", "libFLAC.so.8");
183 fixDynDep("libjepg.so", "libc.so.0");
184 fixDynDep("libavcodec.so.52", "libpthread.so.0");
186 #mysql - bwq518
187 fixDynDep("mysql", "libmysqlclient.so.16.0.0");
188 fixDynDep("my_print_defaults", "libmysqlclient.so.16.0.0");
189 fixDynDep("myisamchk", "libmysqlclient.so.16.0.0");
190 fixDynDep("mysqladmin", "libmysqlclient.so.16.0.0");
191 fixDynDep("mysqld", "libmysqlclient.so.16.0.0");
192 fixDynDep("mysqldump", "libmysqlclient.so.16.0.0");
193 fixDynDep("mysql", "libmysqlclient_r.so.16.0.0");
194 fixDynDep("my_print_defaults", "libmysqlclient_r.so.16.0.0");
195 fixDynDep("myisamchk", "libmysqlclient_r.so.16.0.0");
196 fixDynDep("mysqladmin", "libmysqlclient_r.so.16.0.0");
197 fixDynDep("mysqld", "libmysqlclient_r.so.16.0.0");
198 fixDynDep("mysqldump", "libmysqlclient_r.so.16.0.0");
199 fixDynDep("libmysqlclient.so.16.0.0", "libz.so.1");
200 fixDynDep("libmysqlclient_r.so.16.0.0", "libz.so.1");
201 fixDynDep("libmysqlclient.so.16.0.0", "libncurses.so.5");
202 fixDynDep("libmysqlclient_r.so.16.0.0", "libncurses.so.5");
203 fixDynDep("libmysqlclient.so.16.0.0", "libcrypto.so.1.0.0");
204 fixDynDep("libmysqlclient_r.so.16.0.0", "libcrypto.so.1.0.0");
205 fixDynDep("libmysqlclient.so.16.0.0", "libssl.so.1.0.0");
206 fixDynDep("libmysqlclient_r.so.16.0.0", "libssl.so.1.0.0");
207 fixDynDep("mysql", "libz.so.1");
208 fixDynDep("mysqld", "libz.so.1");
209 fixDynDep("mysqldump", "libz.so.1");
210 fixDynDep("myisamchk", "libz.so.1");
211 fixDynDep("mysqladmin", "libz.so.1");
212 fixDynDep("my_print_defaults", "libz.so.1");
213 fixDynDep("mysql", "libncurses.so.5");
214 fixDynDep("mysqld", "libncurses.so.5");
215 fixDynDep("mysqldump", "libncurses.so.5");
216 fixDynDep("myisamchk", "libncurses.so.5");
217 fixDynDep("mysqladmin", "libncurses.so.5");
218 fixDynDep("my_print_defaults", "libncurses.so.5");
219 fixDynDep("mysql", "libz.so.1");
220 fixDynDep("mysqld", "libz.so.1");
221 fixDynDep("mysqldump", "libz.so.1");
222 fixDynDep("myisamchk", "libz.so.1");
223 fixDynDep("mysqladmin", "libz.so.1");
224 fixDynDep("my_print_defaults", "libz.so.1");
225 fixDynDep("mysql", "libncurses.so.5");
226 fixDynDep("mysqld", "libncurses.so.5");
227 fixDynDep("mysqldump", "libncurses.so.5");
228 fixDynDep("myisamchk", "libncurses.so.5");
229 fixDynDep("mysqladmin", "libncurses.so.5");
230 fixDynDep("my_print_defaults", "libncurses.so.5");
231 fixDynDep("mysql", "libcrypto.so.1.0.0");
232 fixDynDep("mysqld", "libcrypto.so.1.0.0");
233 fixDynDep("mysqldump", "libcrypto.so.1.0.0");
234 fixDynDep("myisamchk", "libcrypto.so.1.0.0");
235 fixDynDep("mysqladmin", "libcrypto.so.1.0.0");
236 fixDynDep("my_print_defaults", "libcrypto.so.1.0.0");
237 fixDynDep("mysql", "libssl.so.1.0.0");
238 fixDynDep("mysqld", "libssl.so.1.0.0");
239 fixDynDep("mysqldump", "libssl.so.1.0.0");
240 fixDynDep("myisamchk", "libssl.so.1.0.0");
241 fixDynDep("mysqladmin", "libssl.so.1.0.0");
242 fixDynDep("my_print_defaults", "libssl.so.1.0.0");
244 #ipset modules
245 fixDynDep("libipset_iphash.so", "ipset");
246 fixDynDep("libipset_iptree.so", "ipset");
247 fixDynDep("libipset_ipmap.so", "ipset");
248 fixDynDep("libipset_ipporthash.so", "ipset");
249 fixDynDep("libipset_ipportiphash.so", "ipset");
250 fixDynDep("libipset_ipportnethash.so", "ipset");
251 fixDynDep("libipset_iptreemap.so", "ipset");
252 fixDynDep("libipset_macipmap.so", "ipset");
253 fixDynDep("libipset_nethash.so", "ipset");
254 fixDynDep("libipset_portmap.so", "ipset");
255 fixDynDep("libipset_setlist.so", "ipset");
257 fixDynDep("tomatodata.cgi", "libc.so.0");
258 fixDynDep("tomatoups.cgi", "libc.so.0");
259 fixDynDep("apcupsd", "libc.so.0");
260 fixDynDep("apcupsd", "libgcc_s.so.1");
261 fixDynDep("apcaccess", "libc.so.0");
262 fixDynDep("smtp", "libc.so.0");
264 # fixDynDep("libbcm.so", "libshared.so");
265 # fixDynDep("libbcm.so", "libc.so.0");
267 fixDynDep("nginx", "libpcre.so.1.2.3");
268 fixDynDep("nginx", "libpcreposix.so.0.0.2");
269 fixDynDep("php-cgi", "libxml2.so.2.9.1");
270 fixDynDep("php-cgi", "libpng12.so.0.51.0");
271 fixDynDep("php-cgi", "libpng.so.3.51.0");
272 fixDynDep("php-cgi", "libiconv.so.2.5.1");
273 fixDynDep("php-cgi", "libsqlite3.so.0.8.6");
274 fixDynDep("php-cgi", "libcurl.so.4.3.0");
275 fixDynDep("php-cli", "libxml2.so.2.9.1");
276 fixDynDep("php-cli", "libpng12.so.0.51.0");
277 fixDynDep("php-cli", "libpng.so.3.51.0");
278 fixDynDep("php-cli", "libiconv.so.2.5.1");
279 fixDynDep("php-cli", "libsqlite3.so.0.8.6");
280 fixDynDep("php-cli", "libcurl.so.4.3.0");
282 fixDynDep("curl", "libcurl.so.4.3.0");
284 #!!TB - Updated Broadcom WL driver
285 fixDynDep("libbcmcrypto.so", "libc.so.0");
286 fixDynDep("nas", "libbcmcrypto.so");
287 fixDynDep("wl", "libbcmcrypto.so");
288 fixDynDep("nas", "libc.so.0");
289 fixDynDep("wl", "libc.so.0");
291 #Roadkill for NocatSplash
292 fixDynDep("splashd","libglib-1.2.so.0.0.10");
295 sub usersOf
297 my $name = shift;
298 my $sym = shift;
299 my @x;
300 my $e;
301 my $l;
303 @x = ();
304 foreach $e (@elfs) {
305 foreach $l (@{$elf_lib{$e}}) {
306 if ($l eq $name) {
307 if ((!defined $sym) || (defined $elf_ext{$e}{$sym})) {
308 push(@x, $e);
310 last;
314 return @x;
317 sub resolve
319 my $name = shift;
320 my $sym = shift;
321 my $l;
323 foreach $l (@{$elf_lib{$name}}) {
324 # print "\n$l $sym ", $elf_exp{$l}{$sym}, "\n";
325 return $l if (defined $elf_exp{$l}{$sym});
327 return "*** unresolved ***";
330 sub fillGaps
332 my $name;
333 my $sym;
334 my @users;
335 my $u;
336 my $t;
337 my $found;
339 # print "Resolving implicit links...\n";
341 foreach $name (@elfs) {
342 foreach $sym (keys %{$elf_ext{$name}}) {
343 $found = 0;
345 if ($sym eq '__uClibc_start_main') {
346 $sym = '__uClibc_main';
349 # __gnu_local_gp is defined specially by the linker on MIPS
350 if ($sym eq '__gnu_local_gp') {
351 $found = 1;
353 elsif (resolve($name, $sym) eq "*** unresolved ***") {
354 @users = usersOf($name);
355 foreach $u (@users) {
356 # if exported by $u
357 if (defined $elf_exp{$u}{$sym}) {
358 fixDynDep($name, $u);
359 $found = 1;
361 # if exported by shared libs of $u
362 if (($t = resolve($u, $sym)) ne "*** unresolved ***") {
363 fixDynDep($name, $t);
364 $found = 1;
368 if ($found == 0) {
369 print "Unable to resolve $sym used by $name\n", @users;
370 exit 1;
377 sub tab
379 my $current = shift;
380 my $target = shift;
381 my $s = "";
382 my $n;
384 while (1) {
385 $n = $current + (4 - ($current % 4));
386 last if ($n > $target);
387 $s = $s . "\t";
388 $current = $n;
390 while ($current < $target) {
391 $s = $s . " ";
392 $current++;
394 return $s;
397 sub genXref
399 my $f;
400 my $fname;
401 my $s;
402 my @u;
404 # print "Generating Xref Report...\n";
406 open($f, ">libfoo_xref.txt");
407 foreach $fname (sort keys %elf_type) {
408 print $f "$fname:\n";
410 if (scalar(@{$elf_lib{$fname}}) > 0) {
411 print $f "Dependency:\n";
412 foreach $s (sort @{$elf_lib{$fname}}) {
413 print $f "\t$s", defined $elf_dyn{$fname}{$s} ? " (dyn)\n" : "\n";
417 if (scalar(keys %{$elf_exp{$fname}}) > 0) {
418 print $f "Export:\n";
419 foreach $s (sort keys %{$elf_exp{$fname}}) {
420 @u = usersOf($fname, $s);
421 if (scalar(@u) > 0) {
422 print $f "\t$s", tab(length($s) + 4, 40), " > ", join(",", @u), "\n";
424 else {
425 print $f "\t$s\n";
430 if (scalar(keys %{$elf_ext{$fname}}) > 0) {
431 print $f "External:\n";
432 foreach $s (sort keys %{$elf_ext{$fname}}) {
433 print $f "\t$s", tab(length($s) + 4, 40), " < ", resolve($fname, $s), "\n";
437 print $f "\n";
439 close($f);
443 sub genSO
445 my ($so, $arc, $strip, $opt) = @_;
446 my $name = basename($so);
447 my $sym;
448 my $fn;
449 my $inuse;
450 my @used;
451 my @unused;
452 my $cmd;
453 my $before, $after;
455 if (!-f $so) {
456 print "$name: not found, skipping...\n";
457 return 0;
460 #!!TB
461 if (!-f $arc) {
462 print "$arc: not found, skipping...\n";
463 return 0;
466 foreach $sym (sort keys %{$elf_exp{$name}}) {
467 if ((scalar(usersOf($name, $sym)) > 0) || (${strip} eq "no")) {
468 push(@used, $sym);
470 else {
471 push(@unused, $sym);
475 # print "\n$name: Attempting to link ", scalar(@used), " and remove ", scalar(@unused), " objects...\n";
477 print LOG "\n\n${base}\n";
479 # $cmd = "mipsel-uclibc-ld -shared -s -z combreloc --warn-common --fatal-warnings ${opt} -soname ${name} -o ${so}";
480 $cmd = "mipsel-uclibc-gcc -shared -nostdlib -Wl,-s,-z,combreloc -Wl,--warn-common -Wl,--fatal-warnings -Wl,--gc-sections ${opt} -Wl,-soname=${name} -o ${so}";
481 foreach (@{$elf_lib{$name}}) {
482 if ((!$elf_dyn{$name}{$_}) && (/^lib(.+)\.so/)) {
483 $cmd .= " -l$1";
485 else {
486 # print LOG "Not marking for linkage: $_\n";
489 # print "$cmd -u... ${arc}\n";
490 if (scalar(@used) == 0) {
491 print "$name: WARNING: Library is not used by anything, deleting...\n";
492 unlink $so;
493 # <>;
494 return 0;
496 $cmd .= " -u " . join(" -u ", @used) . " ". $arc;
498 print LOG "Command: $cmd\n";
499 print LOG "Used: ", join(",", @used), "\n";
500 print LOG "Unused: ", join(",", @unused), "\n";
502 $before = -s $so;
504 system($cmd);
505 if ($? != 0) {
506 error("ld returned $?");
509 $after = -s $so;
511 print "$name: Attempted to remove ", scalar(@unused), "/", scalar(@unused) + scalar(@used), " symbols. ";
512 printf "%.2fK - %.2fK = %.2fK\n", $before / 1024, $after / 1024, ($before - $after) / 1024;
514 # print "\n$name: Attempting to link ", scalar(@used), " and remove ", scalar(@unused), " objects...\n";
515 # printf "Before: %.2fK / After: %.2fK / Removed: %.2fK\n\n", $before / 1024, $after / 1024, ($before - $after) / 1024;
517 return ($before > $after)
525 # print "\nlibfoo.pl - fooify shared libraries\n";
526 # print "Copyright (C) 2006-2007 Jonathan Zarate\n\n";
528 if ((!-d $root) || (!-d $uclibc) || (!-d $router)) {
529 print "Missing or invalid environment variables\n";
530 exit(1);
533 open(LOG, ">libfoo.debug");
534 #open(LOG, ">/dev/null");
536 print "Loading...\r";
537 load($root);
538 print "Finished loading files.", " " x 30, "\r";
540 fixDyn();
541 fillGaps();
543 genXref();
545 $stripshared = "yes";
546 if ($ARGV[0] eq "--noopt") {
547 $stripshared = "no";
550 genSO("${root}/lib/libc.so.0", "${uclibc}/lib/libc.a", "", "-Wl,-init=__uClibc_init ${uclibc}/lib/optinfo/interp.os");
551 genSO("${root}/lib/libresolv.so.0", "${uclibc}/lib/libresolv.a", "${stripshared}");
552 genSO("${root}/lib/libcrypt.so.0", "${uclibc}/lib/libcrypt.a", "${stripshared}");
553 genSO("${root}/lib/libm.so.0", "${uclibc}/lib/libm.a");
554 genSO("${root}/lib/libpthread.so.0", "${uclibc}/lib/libpthread.a", "${stripshared}", "-u pthread_mutexattr_init -Wl,-init=__pthread_initialize_minimal_internal");
555 genSO("${root}/lib/libutil.so.0", "${uclibc}/lib/libutil.a", "${stripshared}");
556 # genSO("${root}/lib/libdl.so.0", "${uclibc}/lib/libdl.a", "${stripshared}");
557 # genSO("${root}/lib/libnsl.so.0", "${uclibc}/lib/libnsl.a", "${stripshared}");
559 genSO("${root}/usr/lib/libcrypto.so.1.0.0", "${router}/openssl/libcrypto.a");
560 genSO("${root}/usr/lib/libssl.so.1.0.0", "${router}/openssl/libssl.a", "${stripshared}", "-L${router}/openssl");
562 genSO("${root}/usr/lib/libzebra.so", "${router}/zebra/lib/libzebra.a");
563 genSO("${root}/usr/lib/libz.so.1", "${router}/zlib/libz.a");
564 genSO("${root}/usr/lib/libjpeg.so", "${router}/jpeg/libjpeg.a");
565 #genSO("${root}/usr/lib/libsqlite3.so.0.8.6", "${router}/sqlite/.libs/libsqlite3.a");
566 genSO("${root}/usr/lib/libogg.so.0", "${router}/libogg/src/.libs/libogg.a");
567 genSO("${root}/usr/lib/libvorbis.so.0", "${router}/libvorbis/lib/.libs/libvorbis.a", "", "-L${router}/libogg/src/.libs");
568 genSO("${root}/usr/lib/libid3tag.so.0", "${router}/libid3tag/.libs/libid3tag.a", "", "-L${router}/zlib");
569 genSO("${root}/usr/lib/libexif.so.12", "${router}/libexif/libexif/.libs/libexif.a");
570 genSO("${root}/usr/lib/libFLAC.so.8", "${router}/flac/src/libFLAC/.libs/libFLAC.a", "", "-L${router}/libogg/src/.libs");
571 genSO("${root}/usr/lib/libavcodec.so.52", "${router}/ffmpeg/libavcodec/libavcodec.a", "", "-L${router}/ffmpeg/libavutil -L${router}/zlib");
572 genSO("${root}/usr/lib/libavutil.so.50", "${router}/ffmpeg/libavutil/libavutil.a", "-L${router}/zlib");
573 genSO("${root}/usr/lib/libavformat.so.52", "${router}/ffmpeg/libavformat/libavformat.a", "", "-L${router}/ffmpeg/libavutil -L${router}/ffmpeg/libavcodec -L${router}/zlib");
574 genSO("${root}/usr/lib/libsmb.so", "${router}/samba/source/bin/libsmb.a");
575 genSO("${root}/usr/lib/libbigballofmud.so", "${router}/samba3/source/bin/libbigballofmud.a");
577 genSO("${root}/usr/lib/liblzo2.so.2.0.0", "${router}/lzo/src/.libs/liblzo2.a");
578 # genSO("${root}/usr/lib/libtamba.so", "${router}/samba3/source/bin/libtamba.a");
579 # genSO("${root}/usr/lib/libiptc.so", "${router}/iptables/libiptc/libiptc.a");
580 # genSO("${root}/usr/lib/libshared.so", "${router}/shared/libshared.a");
581 # genSO("${root}/usr/lib/libnvram.so", "${router}/nvram/libnvram.a");
582 # genSO("${root}/usr/lib/libusb-1.0.so.0", "${router}/libusb10/libusb/.libs/libusb-1.0.a");
583 # genSO("${root}/usr/lib/libusb-0.1.so.4", "${router}/libusb/libusb/.libs/libusb.a", "", "-L${router}/libusb10/libusb/.libs");
585 genSO("${root}/usr/lib/libbcmcrypto.so", "${router}/libbcmcrypto/libbcmcrypto.a");
587 #shibby
588 genSO("${root}/usr/lib/libcurl.so.4.3.0", "${router}/libcurl/lib/.libs/libcurl.a", "", "-L${router}/zlib");
589 genSO("${root}/usr/lib/libevent-2.0.so.5", "${router}/libevent/.libs/libevent.a");
590 genSO("${root}/usr/lib/libdaemon.so.0.5.0", "${router}/libdaemon/libdaemon/.libs/libdaemon.a");
591 genSO("${root}/usr/lib/libiconv.so.2.5.1", "${router}/libiconv/lib/.libs/libiconv.a");
592 genSO("${root}/usr/lib/libnfnetlink.so.0.2.0", "${router}/libnfnetlink/src/.libs/libnfnetlink.a");
593 genSO("${root}/usr/lib/libsodium.so.18.0.1", "${router}/libsodium/src/libsodium/.libs/libsodium.a");
594 genSO("${root}/usr/lib/libpng.so.3.51.0", "${router}/libpng/.libs/libpng.a", "", "-L${router}/zlib");
595 genSO("${root}/usr/lib/libpng12.so.0.51.0", "${router}/libpng/.libs/libpng12.a", "", "-L${router}/zlib");
596 genSO("${root}/usr/lib/libxml2.so.2.9.1", "${router}/libxml2/.libs/libxml2.a");
598 print "\n";
600 close(LOG);
601 exit(0);