File: forall.pl

package info (click to toggle)
vigor 0.016-34
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 6,288 kB
  • sloc: ansic: 44,609; tcl: 1,544; sh: 1,453; makefile: 754; perl: 269; awk: 24; csh: 13
file content (10 lines) | stat: -rw-r--r-- 191 bytes parent folder | download | duplicates (29) 
1
2
3
4
5
6
7
8
9
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;