Home | History | Annotate | Line # | Download | only in perl_scripts 
      1 sub push_tags {
      2     my ($fh) = shift;
      3     my ($tagq) = $curscr->TagQ("msg");
      4     while(<$fh>) {
      5 	my ($f, $l, $m);
      6 	if ((($f, $l, $m) = split /:/) >= 2 && -f $f && $l =~ /^\d+$/) {
      7 	    $tagq->Add($f, $l, $m);
      8 	}
      9     }
     10     $tagq->Push();
     11 }
     12 
     13 sub make {
     14     local (*FH);
     15     open FH, "make 2>&1 |";
     16     ::push_tags(\*FH);
     17     close FH;
     18 }
     19 
     20 1;
     21