Remove tm.h and xm.h handling, as it wasn't used. Use nm.h only when needed.
[dragonfly.git] / contrib / nvi / perl_scripts / wc.pl
blob0a5015987d10edd01fc79a4598d7e76a44c6dfbd
1 sub wc {
2 my $words;
3 $i = $VI::StartLine;
4 while ($i <= $VI::StopLine) {
5 $_ = $curscr->GetLine($i++);
6 $words+=split;
8 $curscr->Msg("$words words");