minix/dist/nvi/perl_scripts/make.pl
Lionel Sambuc 3e1db26a5a Termcap update, replacing elvis by nvi.
Removing elvis, importing nvi, ctags, updating libedit.

Change-Id: I881eb04d2dc64cf112facd992de1114e1a59107f
2013-01-24 07:44:38 +01:00

20 lines
339 B
Perl

sub push_tags {
my ($fh) = shift;
my ($tagq) = $curscr->TagQ("msg");
while(<$fh>) {
my ($f, $l, $m);
if ((($f, $l, $m) = split /:/) >= 2 && -f $f && $l =~ /^\d+$/) {
$tagq->Add($f, $l, $m);
}
}
$tagq->Push();
}
sub make {
local (*FH);
open FH, "make 2>&1 |";
::push_tags(\*FH);
close FH;
}
1;