home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / vspell < prev    next >
Encoding:
Text File  |  1991-03-11  |  1.1 KB  |  49 lines
  1. #!/usr/local/bin/perl
  2.  
  3. $strategy = 'standout';
  4. $USAGE = "usage: $0 [-f localdict] files ...\n";
  5.  
  6. if ($ARGV[0] eq '-f') {
  7.     shift;
  8.     $WORDS = shift || die $USAGE;
  9.     &read_dict;
  10. } elsif (-r ($WORDS = $ENV{'HOME'} . '/.ispell_words')) {
  11.     &read_dict;
  12. } 
  13.  
  14. sub read_dict {
  15.     open WORDS || die "can't open $WORDS $!";
  16.     while (<WORDS>) {
  17.     chop; $seen{$_}++;
  18.     } 
  19. } 
  20.  
  21. die $USAGE unless @ARGV;
  22.  
  23. $code = "while (<>) {\n    study;\n";
  24. if ($strategy ne 'underline') {
  25.     # ($SO, $SE) = ('*[ ',  ' ]*');  # like diction
  26.     ($SO, $SE) = ("\033[7m",  "\033[m"); # vt100 standout
  27. }
  28. open(SPELL, "spell @ARGV |");
  29. while (<SPELL>) {
  30.     chop;
  31.     next if $seen{$_};
  32.     ($lhs = $_) =~ s/(\W+)/\\$1/g;
  33.     if ($strategy eq 'underline') {
  34.     s/(.)/$1\b$1/g;
  35.     $code .= "    s/\\b$lhs\\b/$_/g;\n";
  36.     } else {
  37.     $code .= "    s/\\b$lhs\\b/$SO$_$SE/g;\n";
  38.     }
  39. } 
  40. close(SPELL) || die "can't spell @ARGV";
  41. $code .= "    print;\n}\n";
  42. #print STDERR $code;
  43. open (PAGER, "| ". ($PAGER = $ENV{'PAGER'} || 'more') . " -f");
  44. select(PAGER);
  45. eval $code;
  46. die $@ if $@;
  47. close(PAGER);
  48. die "$PAGER pipe failed" if $?;
  49.