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";
16 print STDERR
"\n*** ERROR: " . (shift) . "\n\n";
23 if ($fn =~ /([^\/]+)$/) {
34 ($fname =~ /\/lib\
/modules\/\d
+\
.\d
+\
.\d
+/) ||
35 ($fname =~ /\.(asp|gif|png|svg|js|jsx|css|txt|pat|sh)$/)) {
41 if (opendir($d, $fname)) {
42 foreach (readdir($d)) {
44 load
($fname . "/" . $_);
58 $base = basename
($fname);
59 print LOG
"\n\nreadelf $base:\n";
61 open($f, "mipsel-linux-readelf -WhsdD ${fname} 2>&1 |") || error
("readelf - $!\n");
66 if (/\s+Type:\s+(\w+)/) {
67 $elf_type{$base} = $1;
78 print "$elf_type{$base} $base", " " x
30, "\r";
85 if (/\(NEEDED\)\s+Shared library: \[(.+)\]/) {
86 push(@
{$elf_lib{$base}}, $1);
88 elsif (/Symbol table for image:/) {
96 if (/\s+(WEAK|GLOBAL)\s+(?:DEFAULT|VISIBLE)\s+(\w+)\s+(\w+)/) {
100 $elf_ext{$base}{$s} = 1;
103 print LOG
"*** not GLOBAL\n";
106 elsif ($2 eq 'ABS') {
108 elsif ($2 =~ /^\d+$/) {
109 $elf_exp{$base}{$s} = 1;
112 print LOG
"*** unknown type\n";
115 elsif (!/Num Buc:/) {
116 print LOG
"*** strange line\n";
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";
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");
160 fixDynDep
("transmission-daemon", "libevent-2.0.so.5");
161 fixDynDep
("transmission-daemon", "libcurl.so.4.2.0");
162 # fixDynDep("transmission-daemon", "libiconv.so.2");
163 fixDynDep
("transmission-remote", "libevent-2.0.so.5");
164 fixDynDep
("transmission-remote", "libcurl.so.4.2.0");
165 # fixDynDep("transmission-remote", "libiconv.so.2");
166 fixDynDep
("radvd", "libdaemon.so.0.5.0");
167 fixDynDep
("miniupnpd", "libnfnetlink.so.0.2.0");
170 fixDynDep
("libipset_iphash.so", "ipset");
171 fixDynDep
("libipset_iptree.so", "ipset");
172 fixDynDep
("libipset_ipmap.so", "ipset");
173 fixDynDep
("libipset_ipporthash.so", "ipset");
174 fixDynDep
("libipset_ipportiphash.so", "ipset");
175 fixDynDep
("libipset_ipportnethash.so", "ipset");
176 fixDynDep
("libipset_iptreemap.so", "ipset");
177 fixDynDep
("libipset_macipmap.so", "ipset");
178 fixDynDep
("libipset_nethash.so", "ipset");
179 fixDynDep
("libipset_portmap.so", "ipset");
180 fixDynDep
("libipset_setlist.so", "ipset");
182 fixDynDep
("tomatodata.cgi", "libc.so.0");
183 fixDynDep
("tomatoups.cgi", "libc.so.0");
184 fixDynDep
("apcupsd", "libc.so.0");
185 fixDynDep
("apcupsd", "libgcc_s.so.1");
186 fixDynDep
("apcaccess", "libc.so.0");
187 fixDynDep
("smtp", "libc.so.0");
189 # fixDynDep("libbcm.so", "libshared.so");
190 # fixDynDep("libbcm.so", "libc.so.0");
192 #!!TB - Updated Broadcom WL driver
193 fixDynDep
("libbcmcrypto.so", "libc.so.0");
194 fixDynDep
("nas", "libbcmcrypto.so");
195 fixDynDep
("wl", "libbcmcrypto.so");
196 fixDynDep
("nas", "libc.so.0");
197 fixDynDep
("wl", "libc.so.0");
199 #Roadkill for NocatSplash
200 fixDynDep
("splashd","libglib-1.2.so.0.0.10");
213 foreach $l (@
{$elf_lib{$e}}) {
215 if ((!defined $sym) || (defined $elf_ext{$e}{$sym})) {
231 foreach $l (@
{$elf_lib{$name}}) {
232 # print "\n$l $sym ", $elf_exp{$l}{$sym}, "\n";
233 return $l if (defined $elf_exp{$l}{$sym});
235 return "*** unresolved ***";
247 # print "Resolving implicit links...\n";
249 foreach $name (@elfs) {
250 foreach $sym (keys %{$elf_ext{$name}}) {
253 if ($sym eq '__uClibc_start_main') {
254 $sym = '__uClibc_main';
257 # __gnu_local_gp is defined specially by the linker on MIPS
258 if ($sym eq '__gnu_local_gp') {
261 elsif (resolve
($name, $sym) eq "*** unresolved ***") {
262 @users = usersOf
($name);
263 foreach $u (@users) {
265 if (defined $elf_exp{$u}{$sym}) {
266 fixDynDep
($name, $u);
269 # if exported by shared libs of $u
270 if (($t = resolve
($u, $sym)) ne "*** unresolved ***") {
271 fixDynDep
($name, $t);
277 print "Unable to resolve $sym used by $name\n", @users;
293 $n = $current + (4 - ($current % 4));
294 last if ($n > $target);
298 while ($current < $target) {
312 # print "Generating Xref Report...\n";
314 open($f, ">libfoo_xref.txt");
315 foreach $fname (sort keys %elf_type) {
316 print $f "$fname:\n";
318 if (scalar(@
{$elf_lib{$fname}}) > 0) {
319 print $f "Dependency:\n";
320 foreach $s (sort @
{$elf_lib{$fname}}) {
321 print $f "\t$s", defined $elf_dyn{$fname}{$s} ?
" (dyn)\n" : "\n";
325 if (scalar(keys %{$elf_exp{$fname}}) > 0) {
326 print $f "Export:\n";
327 foreach $s (sort keys %{$elf_exp{$fname}}) {
328 @u = usersOf
($fname, $s);
329 if (scalar(@u) > 0) {
330 print $f "\t$s", tab
(length($s) + 4, 40), " > ", join(",", @u), "\n";
338 if (scalar(keys %{$elf_ext{$fname}}) > 0) {
339 print $f "External:\n";
340 foreach $s (sort keys %{$elf_ext{$fname}}) {
341 print $f "\t$s", tab
(length($s) + 4, 40), " < ", resolve
($fname, $s), "\n";
353 my ($so, $arc, $strip, $opt) = @_;
354 my $name = basename
($so);
364 print "$name: not found, skipping...\n";
370 print "$arc: not found, skipping...\n";
374 foreach $sym (sort keys %{$elf_exp{$name}}) {
375 if ((scalar(usersOf
($name, $sym)) > 0) || (${strip
} eq "no")) {
383 # print "\n$name: Attempting to link ", scalar(@used), " and remove ", scalar(@unused), " objects...\n";
385 print LOG
"\n\n${base}\n";
387 # $cmd = "mipsel-uclibc-ld -shared -s -z combreloc --warn-common --fatal-warnings ${opt} -soname ${name} -o ${so}";
388 $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}";
389 foreach (@
{$elf_lib{$name}}) {
390 if ((!$elf_dyn{$name}{$_}) && (/^lib(.+)\.so/)) {
394 # print LOG "Not marking for linkage: $_\n";
397 # print "$cmd -u... ${arc}\n";
398 if (scalar(@used) == 0) {
399 print "$name: WARNING: Library is not used by anything, deleting...\n";
404 $cmd .= " -u " . join(" -u ", @used) . " ". $arc;
406 print LOG
"Command: $cmd\n";
407 print LOG
"Used: ", join(",", @used), "\n";
408 print LOG
"Unused: ", join(",", @unused), "\n";
414 error
("ld returned $?");
419 print "$name: Attempted to remove ", scalar(@unused), "/", scalar(@unused) + scalar(@used), " symbols. ";
420 printf "%.2fK - %.2fK = %.2fK\n", $before / 1024, $after / 1024, ($before - $after) / 1024;
422 # print "\n$name: Attempting to link ", scalar(@used), " and remove ", scalar(@unused), " objects...\n";
423 # printf "Before: %.2fK / After: %.2fK / Removed: %.2fK\n\n", $before / 1024, $after / 1024, ($before - $after) / 1024;
425 return ($before > $after)
433 # print "\nlibfoo.pl - fooify shared libraries\n";
434 # print "Copyright (C) 2006-2007 Jonathan Zarate\n\n";
436 if ((!-d
$root) || (!-d
$uclibc) || (!-d
$router)) {
437 print "Missing or invalid environment variables\n";
441 open(LOG
, ">libfoo.debug");
442 #open(LOG, ">/dev/null");
444 print "Loading...\r";
446 print "Finished loading files.", " " x
30, "\r";
453 $stripshared = "yes";
454 if ($ARGV[0] eq "--noopt") {
458 genSO
("${root}/lib/libc.so.0", "${uclibc}/lib/libc.a", "", "-Wl,-init=__uClibc_init ${uclibc}/lib/optinfo/interp.os");
459 genSO
("${root}/lib/libresolv.so.0", "${uclibc}/lib/libresolv.a", "${stripshared}");
460 genSO
("${root}/lib/libcrypt.so.0", "${uclibc}/lib/libcrypt.a", "${stripshared}");
461 genSO
("${root}/lib/libm.so.0", "${uclibc}/lib/libm.a");
462 genSO
("${root}/lib/libpthread.so.0", "${uclibc}/lib/libpthread.a", "${stripshared}", "-u pthread_mutexattr_init -Wl,-init=__pthread_initialize_minimal_internal");
463 genSO
("${root}/lib/libutil.so.0", "${uclibc}/lib/libutil.a", "${stripshared}");
464 # genSO("${root}/lib/libdl.so.0", "${uclibc}/lib/libdl.a", "${stripshared}");
465 # genSO("${root}/lib/libnsl.so.0", "${uclibc}/lib/libnsl.a", "${stripshared}");
467 genSO
("${root}/usr/lib/libcrypto.so.1.0.0", "${router}/openssl/libcrypto.a");
468 genSO
("${root}/usr/lib/libssl.so.1.0.0", "${router}/openssl/libssl.a", "${stripshared}", "-L${router}/openssl");
470 genSO
("${root}/usr/lib/libzebra.so", "${router}/zebra/lib/libzebra.a");
471 genSO
("${root}/usr/lib/libz.so.1", "${router}/zlib/libz.a");
472 genSO
("${root}/usr/lib/libjpeg.so", "${router}/jpeg/libjpeg.a");
473 genSO
("${root}/usr/lib/libsqlite3.so.0", "${router}/sqlite/.libs/libsqlite3.a");
474 genSO
("${root}/usr/lib/libogg.so.0", "${router}/libogg/src/.libs/libogg.a");
475 genSO
("${root}/usr/lib/libvorbis.so.0", "${router}/libvorbis/lib/.libs/libvorbis.a", "", "-L${router}/libogg/src/.libs");
476 genSO
("${root}/usr/lib/libid3tag.so.0", "${router}/libid3tag/.libs/libid3tag.a", "", "-L${router}/zlib");
477 genSO
("${root}/usr/lib/libexif.so.12", "${router}/libexif/libexif/.libs/libexif.a");
478 genSO
("${root}/usr/lib/libFLAC.so.8", "${router}/flac/src/libFLAC/.libs/libFLAC.a", "", "-L${router}/libogg/src/.libs");
479 genSO
("${root}/usr/lib/libavcodec.so.52", "${router}/ffmpeg/libavcodec/libavcodec.a", "", "-L${router}/ffmpeg/libavutil");
480 genSO
("${root}/usr/lib/libavutil.so.50", "${router}/ffmpeg/libavutil/libavutil.a");
481 genSO
("${root}/usr/lib/libavformat.so.52", "${router}/ffmpeg/libavformat/libavformat.a", "", "-L${router}/ffmpeg/libavutil -L${router}/ffmpeg/libavcodec");
482 genSO
("${root}/usr/lib/libsmb.so", "${router}/samba/source/bin/libsmb.a");
483 genSO
("${root}/usr/lib/libbigballofmud.so", "${router}/samba3/source/bin/libbigballofmud.a");
485 genSO
("${root}/usr/lib/liblzo2.so.2", "${router}/lzo/src/.libs/liblzo2.a");
486 # genSO("${root}/usr/lib/libtamba.so", "${router}/samba3/source/bin/libtamba.a");
487 # genSO("${root}/usr/lib/libiptc.so", "${router}/iptables/libiptc/libiptc.a");
488 # genSO("${root}/usr/lib/libshared.so", "${router}/shared/libshared.a");
489 # genSO("${root}/usr/lib/libnvram.so", "${router}/nvram/libnvram.a");
490 # genSO("${root}/usr/lib/libusb-1.0.so.0", "${router}/libusb10/libusb/.libs/libusb-1.0.a");
491 # genSO("${root}/usr/lib/libusb-0.1.so.4", "${router}/libusb/libusb/.libs/libusb.a", "", "-L${router}/libusb10/libusb/.libs");
493 genSO
("${root}/usr/lib/libbcmcrypto.so", "${router}/libbcmcrypto/libbcmcrypto.a");
496 genSO
("${root}/usr/lib/libcurl.so.4.2.0", "${router}/libcurl/lib/.libs/libcurl.a", "", "-L${router}/zlib");
497 genSO
("${root}/usr/lib/libevent-2.0.so.5", "${router}/libevent/.libs/libevent.a");
498 genSO
("${root}/usr/lib/libdaemon.so.0.5.0", "${router}/libdaemon/libdaemon/.libs/libdaemon.a");
499 #genSO("${root}/usr/lib/libiconv.so.2", "${router}/libiconv/lib/.libs/libiconv.a");
500 genSO
("${root}/usr/lib/libnfnetlink.so.0.2.0", "${router}/libnfnetlink/src/.libs/libnfnetlink.a");