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

sub fail
{
 warn shift(@_)."\n";
 return undef;
}
 
sub tdiff
{
 my $file = shift;          
 my ($src) = grep(-r $_,map("mTk/$_/$file",qw(unix win generic tclGeneric)));
 return fail("Cannot find $file in mTk") unless $src; 
 my ($tcl) = grep(-r $_,map("../../../tcltk/$_/$file",qw(unix win generic)));
 ($tcl) = grep(-r $_,map("../../../tcl/$_/$file",qw(unix win generic))) unless $tcl;
 return fail("Cannot find $file in tcltk") unless $tcl; 
 print "$tcl\n$src\n";      
 system("diff -u $tcl $src > /tmp/$file");
 return "/tmp/$file";
}

if (@ARGV)
 {
  foreach (@ARGV)
   {
    my $file = tdiff($_);
    system("ned",$file) if $file;
   }
 }