#!/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";
}