4 # Parses "make world" output and summarize where it's been so far.
6 # Bill Fenner <fenner@freebsd.org> 11 January 2000
7 # Dag-Erling Smørgrav <des@freebsd.org> 09 January 2003
9 # $Id: whereintheworld,v 1.3 2000/01/28 00:42:32 fenner Exp $
20 my $width = $ENV{COLUMNS} || 80;
25 if ($line =~ /^------------/) {
27 print $line unless ($lastwasdash);
32 if ($inside && $line =~ /^>>>/) {
37 if ($line =~ /^TB /) {
41 if ($line =~ /^=+>/) {
45 if ($line =~ /^\*\*\* Error/ && $line !~ /\(ignored\)/) {
54 if (@lines && !$error) {
56 while (@lines > $thresh) {
61 print "[$elided lines elided]\n";
64 foreach $line (@lines) {
65 if (!$error && $line !~ m/^TB / && length($line) >= $width) {
66 substr($line, $width - 7) = " [...]\n";