diff options
Diffstat (limited to 'contrib/nvi/perl_scripts/forall.pl')
-rw-r--r-- | contrib/nvi/perl_scripts/forall.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/contrib/nvi/perl_scripts/forall.pl b/contrib/nvi/perl_scripts/forall.pl new file mode 100644 index 000000000000..b9f85013b17d --- /dev/null +++ b/contrib/nvi/perl_scripts/forall.pl @@ -0,0 +1,10 @@ +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; |