Skip site navigation (1)Skip section navigation (2)
Date:      Thu, 22 Jun 2000 09:15:07 -0400 (EDT)
From:      Matt Loschert <loschert@servint.com>
To:        Tony Finch <dot@dotat.at>
Cc:        hackers@FreeBSD.ORG
Subject:   Re: buildworld summary
Message-ID:  <Pine.BSF.4.21.0006220913370.78764-200000@delft.lan.loschert.net>
In-Reply-To: <200006220304.DAA25678@hand.dotat.at>

next in thread | previous in thread | raw e-mail | index | archive | help

[-- Attachment #1 --]
On Thu, 22 Jun 2000, Tony Finch wrote:

> A few months ago someone posted a script that summarizes make
> buildworld as it progresses. I've searched the ports and the mailing
> lists but I can't find it any more :-( so I'd be grateful if someone
> would tell me. Thanks.
> 
> Tony.
> -- 
> f.a.n.finch    fanf@covalent.net    dot@dotat.at
> 356 pungent unguent for stump-itch
> 
> 
> 
> To Unsubscribe: send mail to majordomo@FreeBSD.org
> with "unsubscribe freebsd-hackers" in the body of the message


I think you are referring to the attached Perl script by Bill Fenner.

- Matt

--
Matt Loschert                           loschert@servint.com
Software Engineer                       voice (703) 847-1381
ServInt Internet Services               fax   (703) 847-1383



[-- Attachment #2 --]
#!/usr/bin/perl
#
# whereintheworld
# Parses "make world" output and summarize where it's been so far.
#
# Bill Fenner <fenner@freebsd.org> 11 January 2000
#
# $Id: whereintheworld,v 1.2 2000/01/11 21:18:37 fenner Exp $
#
use strict;

my $lastarrow = undef;
my $inside = 0;
my @lines = ();
my $thresh = 5;
my $lastwasdash = 0;
my $file = $ARGV[0] || (-f "/usr/src/world.out" ? "/usr/src/world.out" : "-");
open(LOG, $file) || die "$file: $!\n";
while (<LOG>) {
	if (/^------------/) {
		$inside = !$inside;
		print unless ($lastwasdash);
		$lastwasdash = 1;
		next;
	}
	if ($inside && /^>>>/) {
		print;
		$lastwasdash = 0;
		next;
	}
	push(@lines, $_);
	if ($#lines > $thresh) {
		my $line = shift(@lines);
		$lastarrow = $line if ($line =~ /^===>/);
	}
}
exit if ($lastwasdash);
if ($lines[0] !~ /^===>/ && $lastarrow) {
	print $lastarrow, "...\n";
}
print @lines;

Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?Pine.BSF.4.21.0006220913370.78764-200000>