--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/build_target.pl	Mon May 10 19:54:49 2010 +0100
@@ -0,0 +1,74 @@
+#!/usr/bin/perl
+# Copyright (c) 2010 Symbian Foundation Ltd
+# This component and the accompanying materials are made available
+# under the terms of the License "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:
+# Mike Kinghan, mikek@symbian.org, for Symbian Foundation Ltd - initial contribution.
+
+# Script to build a given tools target with Raptor
+# Will look for BLD.INF or bld.inf in the current directory.
+# If not found will try in ./group.
+# $1 is the build dir for the desired target relative to $EPOCROOT/build/
+# $@ is shifted to get optional additional arguments to the sbs command
+
+use strict;
+use set_epocroot;
+use File::Spec;
+use Cwd; 
+
+if (@ARGV) {
+    if (grep(/$ARGV[0]/,("-h","--help"))) {
+        print "This script builds a target with Raptor\n";
+        print "Call with \$ARG[0] = the name of a component directory ";
+        print "relative to EPOCROOT/build\n";        
+        print "Subsequent arguments will be passed to Raptor\n";
+        print "Looks for BLD.INF or bld.inf in the component directory\n";
+        print "In not found will try in ./group\n";                        
+        exit 0;
+    }         
+}
+set_epocroot();
+my $epocroot = $ENV{'EPOCROOT'};
+my $sbs_home = $ENV{'SBS_HOME'};
+unless($sbs_home) {
+    $sbs_home = File::Spec->catfile("$epocroot","build","sbsv2","raptor");
+    $ENV{'SBS_HOME'} = $sbs_home;
+}
+my $build_dir = shift;
+$build_dir = File::Spec->catfile("$epocroot","build","$build_dir");
+if (! -d $build_dir) {
+    die "*** Error: \"$build_dir\" not found ***\n";
+}
+chdir "$build_dir" or die $!;
+if (! -f "BLD.INF" and ! -f "bld.inf") {
+	if ( -d "group") {
+		chdir "group" or die $!;
+		$build_dir = cwd;
+	}
+}
+print ">>> Build dir is \"$build_dir\"\n";
+my $bld_inf = "BLD.INF"; 
+if (! -f $bld_inf) {
+	$bld_inf = "bld.inf";
+}
+if (! -f $bld_inf) {
+	die "*** Error: No bld.inf in \"$build_dir\" ***";
+}
+my $log_stem = File::Spec->catfile("$epocroot","epoc32","build","Makefile");
+my $log_pattern = "$log_stem\.\*\.log"; 
+my $raptor = File::Spec->catfile("$sbs_home","bin","sbs");
+my $cmd = "$raptor -c tools2 -b $bld_inf @ARGV";
+print ">>> Executing: $cmd\n";
+my $rc = system($cmd) >> 8;
+my @build_logs = glob($log_pattern);
+open BLDLOG, "<$build_logs[-1]" or die $!;
+while(<BLDLOG>) {
+    print $_;
+}
+close BLDLOG;
+exit $rc;
+
+