repo.or.cz
/
nvi.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
from RAZ: ruler dialog box
[nvi.git]
/
perl_scripts
/
forall.pl
blob
b9f85013b17ded1b605eff4ef7857188f30835df
1
sub
forall
{
2
my
(
$code
) =
shift
;
3
my
(
$i
) =
$VI
::
StartLine
-
1
;
4
while
(++
$i
<=
$VI
::
StopLine
) {
5
$_
=
$curscr
->
GetLine
(
$i
);
6
VI
::
SetLine
(
$VI
::
ScreenId
,
$i
,
$_
)
if
(&
$code
);
7
}
8
}
9
10
1
;