diff -r 000000000000 -r 83f4b4db085c sbsv1_os/e32toolp/platform/lockit_info.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sbsv1_os/e32toolp/platform/lockit_info.pm	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,347 @@
+# Copyright (c) 2001-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:
+#
+
+package lockit_info;
+use File::Copy;
+use File::Path;
+use File::Basename;
+
+require Exporter;
+@ISA=qw(Exporter);
+@EXPORT=qw(
+	Check_Epocroot
+	Setup_LockitPath
+	Lockit_Releasables
+	Copy_Files
+	WriteTo_Info
+	LineExists
+	Lockit_SrcFile
+	Open_InfoFile
+	Close_InfoFile
+);
+
+use strict;
+use Pathutl;
+my $epocroot;
+my $epocPath;
+
+sub Check_Epocroot 
+	{
+	$epocroot = $ENV{EPOCROOT};
+	die "ERROR: Must set the EPOCROOT environment variable\n" if (!defined($epocroot));
+	$epocroot =~ s-/-\\-go;	# for those working with UNIX shells
+	die "ERROR: EPOCROOT must not include a drive letter\n" if ($epocroot =~ /^.:/);
+	die "ERROR: EPOCROOT must be an absolute path without a drive letter\n" if ($epocroot !~ /^\\/);
+	die "ERROR: EPOCROOT must not be a UNC path\n" if ($epocroot =~ /^\\\\/);
+	die "ERROR: EPOCROOT must end with a backslash\n" if ($epocroot !~ /\\$/);
+	die "ERROR: EPOCROOT must specify an existing directory\n" if (!-d $epocroot);
+
+	$epocroot=~ s-\\$--;		# chop trailing \\
+	$epocPath = "$epocroot\\epoc32\\localisation";
+	}
+
+
+## main function which handles all lockit-related function
+sub Lockit_SrcFile()
+{
+	my ($ResrcFile, $RppFile,$Resrc_Options, $FileType, $Bitmaps, $RscTarget, $lang);
+	
+	if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} &&  ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
+		($ResrcFile, $RppFile,$Resrc_Options, $FileType, $Bitmaps, $RscTarget, $lang)= @_;
+	}
+	else {
+
+		($ResrcFile, $RppFile,$Resrc_Options, $FileType, $Bitmaps, $RscTarget)= @_;
+	}
+	$RscTarget=Path_Split('File', $RscTarget);
+	my ($Tgtdir, $CWDir) = split(/:/, $Resrc_Options);
+	$Tgtdir =~s-^(.*)\\$-$1-o; # remove terminating backslash
+	$Tgtdir=~s-^\\--o; # remove leading backslash
+	
+	Check_Epocroot();
+	my $FilePath;
+
+	if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} &&  ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
+		$FilePath = Setup_LockitPath($CWDir, $ResrcFile, $FileType, $lang);
+
+		# update rppfile in epoc32\localisation if -l option specified and generating resource
+			
+		copy("$RppFile", "$FilePath\\");
+	}
+	else {
+		$FilePath = Setup_LockitPath($CWDir, $ResrcFile, $FileType);
+
+		# update rppfile in epoc32\localisation if -l option specified and generating resource
+		copy("$RppFile", "$FilePath\\$ResrcFile.rpp");
+	}
+
+	# update bitmaps in epoc32\localisation if -l option and bitmaps specified
+	if ($CWDir && ($Bitmaps ne ""))
+	{
+		my $BmpRef;
+		$Bitmaps =~ s/ +|\t/ /g; # replace tabs and more spaces with single space
+		$Bitmaps =~s/^ //g; # remove leading space
+		$Bitmaps =~s/ $//g; # remove trailing space
+
+		my (@AifBitmaps) = split(/ /, $Bitmaps);
+		foreach $BmpRef (@AifBitmaps) {
+			$BmpRef =~ /^([^\\]+)(\\.*)$/;
+			my $CDepth = $1;
+			my $bmp = $2;
+			Copy_Files($bmp, $FilePath);
+			my $file_base= basename($bmp);
+			chmod (0666,"$FilePath\\$file_base");
+		}
+	}
+
+	if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} &&  ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
+		if (LineExists($ResrcFile.$lang, $RscTarget) == 0)
+		{
+			Open_InfoFile($ResrcFile . $lang);
+
+			WriteTo_Info ( "\n\\$Tgtdir\\$RscTarget :" );
+
+			if($FileType =~ /RSC/i && $RppFile ne "") {
+				WriteTo_Info (
+					 " $ResrcFile$lang.rpp"
+				)
+			}
+
+			elsif ($RppFile ne "") {
+				WriteTo_Info (
+					 " $ResrcFile$lang.text $ResrcFile$lang.struct"
+				)
+			}
+
+			if($Bitmaps ne "")
+			{
+				my $BmpRef;
+				my (@AifBitmaps) = split(/ /, $Bitmaps);
+				foreach $BmpRef (@AifBitmaps) {
+					$BmpRef =~ /^([^\\]+)(\\.*)$/;
+					my $CDepth = $1;
+					my $bmp = $2;
+					my $file_base= basename($bmp);
+					WriteTo_Info (
+						 " $CDepth\\$file_base"
+					);
+				}
+			}
+
+			Close_InfoFile($ResrcFile . $lang);
+		}
+	}
+	else {
+		if (LineExists($ResrcFile, $RscTarget) == 0)
+		{
+			Open_InfoFile($ResrcFile);
+
+			WriteTo_Info ( "\n\\$Tgtdir\\$RscTarget :" );
+
+			if($FileType =~ /RSC/i && $RppFile ne "") {
+				WriteTo_Info (
+					 " $ResrcFile.rpp"
+				)
+			}
+
+			elsif ($RppFile ne "") {
+				WriteTo_Info (
+					 " $ResrcFile.text $ResrcFile.struct"
+				)
+			}
+
+			if($Bitmaps ne "")
+			{
+				my $BmpRef;
+				my (@AifBitmaps) = split(/ /, $Bitmaps);
+				foreach $BmpRef (@AifBitmaps) {
+					$BmpRef =~ /^([^\\]+)(\\.*)$/;
+					my $CDepth = $1;
+					my $bmp = $2;
+					my $file_base= basename($bmp);
+					WriteTo_Info (
+						 " $CDepth\\$file_base"
+					);
+				}
+			}
+
+			Close_InfoFile($ResrcFile);
+
+		}
+	}
+}
+
+
+## copy source files
+sub Copy_Files ()
+	{
+	my ($SourceName, $TargetName) = @_;
+
+	copy($SourceName, $TargetName);
+	}
+
+## create necessary directories
+sub Create_InfoFile ()
+	{
+	my ($CreateLockitPath, $CreateInfoFile, $Datadir) = @_;
+	if ( !-e "$CreateLockitPath") { mkpath($CreateLockitPath); }
+	if ( !-e "$epocPath\\group") { mkpath("$epocPath\\group"); }
+	if ( !-e "$epocPath\\group\\$CreateInfoFile.info") {	
+		open INFO,">$epocPath\\group\\$CreateInfoFile.info" or die "ERROR: Can not create file \"$CreateInfoFile\"\n"; 
+		print INFO "DATADIR: $Datadir\n";
+		close INFO;
+	}
+}
+
+## open INFO file to write source information
+sub Open_InfoFile ($)
+	{
+	my $FileToOpen = $_[0];
+	open INFO,">>$epocPath\\group\\$FileToOpen.INFO" or die "ERROR: Can not open  \"$epocPath\\group\\$FileToOpen\"\n";
+	}
+
+
+## write source filename to INFO file
+sub WriteTo_Info ($) 
+	{
+	my $Text = $_[0];
+	print INFO "$Text";
+	}
+
+
+## check whether source filename is written to INFO file
+sub LineExists ()
+	{
+	my $FileToOpen = $_[0];
+	my $LineCheck = $_[1];
+	my $exists = 0;
+
+	open INFO,"$epocPath\\group\\$FileToOpen.info" or die "ERROR: Can not open \"$FileToOpen\"\n";
+		while(<INFO>) {
+			if (/$LineCheck/i) { $exists = 1; return $exists; } 
+		}
+		close INFO;
+	return $exists;
+	}
+	
+
+#determine Components pathname and create INFO files
+sub Setup_LockitPath
+	{
+	my ($ComponentSrcPath, $Resrc, $FileType, $lang);
+
+	if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} &&  ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
+		($ComponentSrcPath, $Resrc, $FileType, $lang) = @_;
+	}
+	else {
+		($ComponentSrcPath, $Resrc, $FileType) = @_;
+	}
+	my ($temp, $CWDir) = split(/\\/, $ComponentSrcPath);
+	my $FilePath = $epocPath;
+
+	if($FileType =~ /RSS/i) { $FileType = "rsc"; }
+	if($FileType =~ /^acl|abw|aif|a[0-9]/i) {
+		$FilePath .= "\\aif";
+	}
+	
+## change added to support cnf file generation
+	if ($FileType =~ /CNF/i) { 
+		$FilePath .= "\\cnf"; 
+	}
+
+	my $WorkPath = ""; 
+
+	if($Resrc !~ /^$CWDir$/i) {
+		$WorkPath = "$Resrc"; 
+	}
+
+	$FilePath .= "\\$WorkPath\\$FileType";
+
+	if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} &&  ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
+		&Create_InfoFile("$FilePath", "$Resrc$lang", "\\$WorkPath");
+	}
+	else {
+		&Create_InfoFile("$FilePath", "$Resrc", "\\$WorkPath");
+	}
+
+	return $FilePath;
+	}
+
+
+## accumulate list of Lockit releasables
+sub Lockit_Releasables
+{
+	my ($ComponentSrcPath, $ResrcFile, $href, $Bitmaps, $lang);
+	my $Resrc;
+	my ($BaseResrc,$FileType);
+	my $LockitInfoPath;
+	my $LockitPath;
+	my %Files;
+
+	if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} &&  ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) {
+		($ComponentSrcPath, $ResrcFile, $href, $Bitmaps, $lang) = @_;
+
+		$Resrc = basename($ResrcFile);
+		($BaseResrc,$FileType) = split(/\./, $Resrc);
+		Check_Epocroot();
+	
+		$LockitInfoPath = "$epocPath\\group\\$BaseResrc$lang.info";
+
+		$LockitPath = Setup_LockitPath($ComponentSrcPath, $BaseResrc, $FileType, "");
+		%Files = %$href;
+
+		if($FileType =~ /RSS|ACL|ABW|AIF|A[0-9]/i && $Bitmaps eq ""){
+			$LockitPath .= "\\$BaseResrc$lang.rpp";
+		}
+		else {
+			$LockitPath .= "\\$Bitmaps";
+		}
+
+	}
+	else {
+		($ComponentSrcPath, $ResrcFile, $href, $Bitmaps) = @_;
+
+		$Resrc = basename($ResrcFile);
+		($BaseResrc,$FileType) = split(/\./, $Resrc);
+		Check_Epocroot();
+		$LockitInfoPath = "$epocPath\\group\\$BaseResrc.info";
+
+		$LockitPath = Setup_LockitPath($ComponentSrcPath, $BaseResrc, $FileType);
+		%Files = %$href;
+
+		if($FileType =~ /RSS|ACL|ABW|AIF|A[0-9]/i && $Bitmaps eq ""){
+			$LockitPath .= "\\$BaseResrc.rpp";
+		}
+		else {
+			$LockitPath .= "\\$Bitmaps";
+		}
+	}
+
+	my %loggedFiles;
+	$loggedFiles{lc($_)} = 1 foreach keys (%Files);
+	
+	$Files{$LockitPath} = 1 if !($loggedFiles{lc($LockitPath)});
+	$Files{$LockitInfoPath} = 1 if !($loggedFiles{lc($LockitInfoPath)});
+	
+	return %Files;
+}
+
+sub Close_InfoFile ($)
+	{
+	my $FileToClose = $_[0];
+	close INFO;
+	}
+
+1;