| Current Path : /usr/src/contrib/nvi/perl_scripts/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //usr/src/contrib/nvi/perl_scripts/forall.pl |
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;