#!/usr/bin/env perl

die "mydiff requires two arguments" unless $#ARGV == 1;

@lines = `cat $ARGV[0]`;
open(file, ">mydiff1.tmp");
foreach $line (@lines) {
  chomp $line;
  $line =~ s/\(\*.*\*\)//g;
  $line =~ s/\/\/.*$//g;
  $line =~ s/\s+$//g;
  print file "$line\n";
}
close(file);

@lines = `cat $ARGV[1]`;
open(file, ">mydiff2.tmp");
foreach $line (@lines) {
  chomp $line;
  $line =~ s/\(\*.*\*\)//g;
  $line =~ s/\/\/.*$//g;
  $line =~ s/\s+$//g;
  print file "$line\n";
}
close(file);

system("diff mydiff1.tmp mydiff2.tmp");
`rm -f mydiff1.tmp`;
`rm -f mydiff2.tmp`;

