make.pl revision 19304 
1sub make {
2    open MAKE, "make 2>&1 1>/dev/null |";
3    while(<MAKE>) {
4	if (($file, $line, $msg) = /([^: ]*):(\d*):(.+)/) {
5	    if ($file == $prevfile && $line == $prevline) {
6		$error[-1]->[2] .= "\n$msg";
7	    } else {
8		push @error, [$file, $line, $msg];
9		($prevline, $prevfile) = ($line, $file);
10	    }
11	}
12    }
13    close MAKE;
14}
15
16sub nexterror {
17    if ($index <= $#error) {
18    	my $error = $error[$index++];
19    	$curscr->Edit($error->[0]);
20	$curscr->SetCursor($error->[1],0);
21	$curscr->Msg($error->[2]);
22    }
23}
24
25# preverror is left as an exercise
26
271;
28