diff options
Diffstat (limited to 'contrib/nvi/perl_scripts/make.pl')
-rw-r--r-- | contrib/nvi/perl_scripts/make.pl | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/contrib/nvi/perl_scripts/make.pl b/contrib/nvi/perl_scripts/make.pl deleted file mode 100644 index 118dd99..0000000 --- a/contrib/nvi/perl_scripts/make.pl +++ /dev/null @@ -1,27 +0,0 @@ -sub make { - open MAKE, "make 2>&1 1>/dev/null |"; - while(<MAKE>) { - if (($file, $line, $msg) = /([^: ]*):(\d*):(.+)/) { - if ($file == $prevfile && $line == $prevline) { - $error[-1]->[2] .= "\n$msg"; - } else { - push @error, [$file, $line, $msg]; - ($prevline, $prevfile) = ($line, $file); - } - } - } - close MAKE; -} - -sub nexterror { - if ($index <= $#error) { - my $error = $error[$index++]; - $curscr->Edit($error->[0]); - $curscr->SetCursor($error->[1],0); - $curscr->Msg($error->[2]); - } -} - -# preverror is left as an exercise - -1; |