#!/tools/local/perl -w
use strict;

my $file = (@ARGV) ? shift : 'tclDecls.m';

use vars qw(%ref);
my %mac;

require 'process_object';

my @n = grep(!/_f\.n/,glob('*.n'));

warn "Scanning object\n";
foreach my $obj (grep(!/_f\.n/,glob('*.n')))
 {
  do_nm($obj);
 }


open(TCL,"$file") || die "Cannot open $file:$!";
warn "Reading $file\n";
while (<TCL>)
 {
  if (/^\s*#\s*define\s+(\w+)\b/o)
   {
    $mac{$1} = $file;
   }
 }

foreach my $name (keys %mac)
 {
  print "$name\n" unless exists $ref{$name};
 }