minix/dist/nvi/perl_scripts/forall.pl
Lionel Sambuc 3e1db26a5a Termcap update, replacing elvis by nvi.
Removing elvis, importing nvi, ctags, updating libedit.

Change-Id: I881eb04d2dc64cf112facd992de1114e1a59107f
2013-01-24 07:44:38 +01:00

11 lines
191 B
Perl

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;