--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/get_hostplatform_dir.pm	Mon May 10 19:54:49 2010 +0100
@@ -0,0 +1,28 @@
+#!/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.
+
+# Subroutines to get Raptor's value of HOSTPLATFORM_DIR
+
+use strict;
+use File::Spec;
+
+sub get_hostplatform_dir()
+{
+	my $any_old_targ = File::Spec->catfile("buildtoolguides","romtoolsguide");
+	my $build_log = perl_slurp("build_target.pl $any_old_targ --what 2> ". File::Spec->devnull());
+	$build_log =~ /<info>Environment HOSTPLATFORM_DIR=(\S*)<\/info>/;
+	my $host_platform_dir = $1;
+	die "*** Error: Can't determine HOSTPLATFORM_DIR ***", unless ($host_platform_dir);
+	return $host_platform_dir;
+}
+
+1;
+
+