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
|
#!/usr/local/bin/perl -w
BEGIN { require Exporter };
use Tk::Pretty;
%depth = ();
require 'process_object';
foreach (<*.o>)
{
do_nm($_);
}
@ARGV = <*_f.o> unless(@ARGV);
foreach (@ARGV)
{
do_need($_,0,"ARGV");
}
foreach $file (sort keys %need)
{
my $src = $file;
$src =~ s/\.o$/.c/;
print "$src ($depth{$file}) : ",Pretty($need{$file}),"\n";
}
print "\n";
foreach $name (sort keys %unres)
{
print "$name : ",Pretty($unres{$name}),"\n";
}
|
