#!/usr/local/bin/perl -w

BEGIN { require Exporter };

use Tk::Pretty;

# %depth = ();

require 'process_object';


foreach $obj (<*.o>)
 {
  do_nm($obj);
 }


foreach $obj (<*.o>)
 {
  do_need($obj,0,"ARGV");
 }

foreach $name (sort keys %unres)
 {
  if ($name =~ /^X[A-Z]/)
   {
    print "$name : ",Pretty($unres{$name}),"\n";
   }
 }