freebsd-dev/contrib/nvi/perl_scripts/forall.pl

11 lines
191 B
Perl
Raw Normal View History

sub forall {
my ($code) = shift;
my ($i) = $VI::StartLine-1;
while (++$i <= $VI::StopLine) {
$_ = $curscr->GetLine($i);
VI::SetLine($VI::ScreenId, $i, $_) if(&$code);
}
}
1;