gecko-dev/config/beos/depend.pl

76 строки
1.9 KiB
Perl

#perl
#
# The contents of this file are subject to the Netscape Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/NPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is mozilla.org code.
#
# The Initial Developer of the Original Code is Netscape
# Communications Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s):
#
# Build BeOS intermodule dependencies
$| = 1;
@SOLIST=<dist/bin/*.so dist/bin/component/*.so dist/BeOS*/bin/*.so /boot/develop/lib/x86/*.so>;
# load defined symbols
foreach $so (@SOLIST) {
next if $so eq $name;
if(open(SO, "objdump --dynamic-syms $so | grep \" g \" | cut -f 2 | cut -c 10- |")) {
$so =~ s/\/*[^\/]*\///g;
$so =~ s/^lib//;
$so =~ s/\.so$//;
while($def = <SO>) {
chop $def;
#if($defsyms{$def}) {
# print "$def already defined in $defsyms{$1}\n";
#}
$defsyms{$def} = $so;
}
close(SO);
}
}
mkdir "dependencies.beos", 0777;
foreach $name (@ARGV) {
($libname = $name) =~ s/\/*[^\/]*\///g;
$libname =~ s/^lib//;
$libname =~ s/\.so$//;
print "Processing $libname...\n";
if(open(IN, "objdump --dynamic-syms $name | grep *UND* | cut -c 33- |")) {
@syms = <IN>;
close IN;
chop @syms;
foreach $s (@syms) {
$so = $defsyms{$s};
$deps{$so}++ if $so && $so ne $libname;
#print "$s not found\n" unless $so;
}
if(open(OUT, ">dependencies.beos/$libname.dependencies")) {
foreach $key (sort(keys %deps)) {
print OUT " $key";
}
print OUT "\n";
close(OUT);
}
}
undef %deps;
}