#!/usr/bin/perl
#
# read output from spell, see where problems are.
# usage: spcheck file spell-output

$file = shift (@ARGV) || die 'no file to check';
$mistakes = shift (@ARGV) || die 'no spelling mistakes file';

open (M, "$mistakes") || die "$mistakes: $!\n";
while (<M>)
{
	chomp;
	tr/a-zA-Z0-9/ /cs;
	$errs{$_} = "$_";
}
close (M);

open (F, "$file") || die "$file: $!\n";
while (<F>)
{
	chomp;
	$orig = $_;
	tr/a-zA-Z0-9/ /cs;
	$match = 0;
	foreach $m (keys %errs)
	{
		if (/\s$m\s|^$m\s|\s$m$/)
		{
			$match++;
			$pat = $m;
			last;
		}
	}

	if ($match) {
		print "($pat)> ";
	} else {
		print "   > ";
	}
	print "$orig\n";
}
close (F);

exit (0);