--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cross-plat-dev-utils/get_baseline.pm	Mon May 10 19:54:49 2010 +0100
@@ -0,0 +1,44 @@
+#!/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.
+
+# Subroutine to get the mercurial revision from which this package was branched
+# from the file ../baseline.txt
+
+use strict;
+use File::Spec;
+use set_epocroot;
+
+sub trim($)
+{
+	my $string = shift;
+	$string =~ s/^\s+//;
+	$string =~ s/\s+$//;
+	return $string;
+}
+
+sub get_baseline()
+{
+	set_epocroot();
+	my $epocroot = $ENV{'EPOCROOT'};
+	my $baseline_txt = File::Spec->catfile("$epocroot","build","baseline.txt");
+	open IN,"<$baseline_txt" or die $!;
+	my @lines = <IN>;
+	close IN;
+	while(@lines and $lines[0] =~ /^\s*#/) {
+		shift @lines;
+	}
+	die "*** Error: can't extract baseline revsion no. from ../baseline.txt ***",
+		unless(@lines);
+	return trim($lines[0]);
+}
+
+1;
+
+