--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/deprecated/buildtools/buildsystemtools/scanlog/complog.pl	Mon Oct 18 16:16:46 2010 +0800
@@ -0,0 +1,75 @@
+#
+# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description: 
+#
+# summarise an automated build log
+
+if (@ARGV < 1)
+	{
+#........1.........2.........3.........4.........5.........6.........7.....
+	print <<USAGE_EOF;
+
+Usage:
+  complog component [logfile]     -- extract component info from log
+
+USAGE_EOF
+	exit 1;
+	}
+
+my $component = shift @ARGV;
+my $echoing = 0;
+my $line;
+my $command;
+my $phase;
+
+while ($line=<>)
+	{
+
+	# ===-------------------------------------------------
+	# === baseline_bldfiles   
+	# ===-------------------------------------------------
+	# === bldfiles started Sat Jul 24 01:38:03 1999.
+
+	if ($line =~ /^===------/)
+		{
+		$line = <>;
+		$line =~ /=== (.*)$/;
+		$command = $1;
+		<>;
+		$line = <>;
+		$line =~ /^=== (\S+) started ... ... .. (..):(..):(..)/;
+		$phase = $1;
+		next;
+		}
+
+	# === resource == gdtran 036
+
+	if ($line =~ / == ($component .*$)/)
+		{
+		$echoing = 1;
+		print "\n== $1 === $command\n";
+		next;
+		}
+	if ($line =~ /^===/)
+		{
+		$echoing = 0;
+		next;
+		}
+	if ($echoing)
+		{
+		print $line;
+		}
+
+	}
+