sbsv1/abld/platform/fcloggerutl.pm
author Mike Kinghan <mikek@symbian.org>
Thu, 25 Nov 2010 13:59:07 +0000
changeset 40 68f68128601f
permissions -rw-r--r--
1) Add the sbsv1 components from sftools/dev/build to make the linux_build package independent of the obsolete buildtools package. 2) Enhance romnibus.pl so that it generate the symbol file for the built rom when invoked by Raptor 3) Make the maksym.pl tool portable for Linux as well as Windows. 4) Remove the of armasm2as.pl from the e32tools component in favour of the copy now exported from sbsv1/e32util.

# Copyright (c) 1997-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:
# FC_LOGGER.PM
# 
#

package FCLoggerUTL;

require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(
	PMCheckFCLoggerVersion
);

#Function Call Logger
sub PMCheckFCLoggerVersion() {
	my $exe=$ENV{EPOCROOT}."epoc32\\tools\\fc_logger\\edgcpfe.exe";
	#Check if file exists
	if (not -e $exe) {
		print "WARNING: File doesn't exist $exe \n";
		return 0;
	}

	open FCLPIPE, "$exe -v 2>&1 |";
	# Read all output from file into array
	my @lines=<FCLPIPE>;
	chomp @lines;
	# combine into single string with each line starting with a :
	my $line=join(":", "", @lines);
	close FCLPIPE;

	if ($line =~ m/version\s([0-9\.]+)/) {
		my $Version      = $1;
		$Version		 =~ m/(\d+)\.(\d+)\.?([\d+])?/;
		my $MajorVersion = $1;
		my $MinorVersion = $2;
		my $PatchLevel   = $3;
		if ($MajorVersion<3 or $MinorVersion<7) {
			print "WARNING: $exe version is less than 3.7.1. The -logfc option will be ignored.\n";
			return 0;
		}
	}
	return 1;
}