#!perl

# SupplementalKits.pl

# 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:
#


package SupplementalKits;


use File::Path;
use FindBin;                # where does this script live?
#use lib $FindBin::Bin;      # use this directory for libraries, to find...
use KitStandardLocations;



my $PlatformProductToolsDir = $FindBin::Bin;
$PlatformProductToolsDir =~ s/common/$Platform/i;    # change "common" to platform name in path to tools directory
unshift (@INC, $PlatformProductToolsDir);            # add this to the @INC list of library paths
require KitPlatformSpecific;                         # and read the platform-specific definitions
require $BuildBaseName."_supplementary";

my $scriptFileSupplementaryKits = "InstallSupplementaryKit.pl";



# ------------------------------------- main routine -----------------------------------

sub SupplementalKits()
{
	# set up environment & preserve old values
	my $OutputDirWithoutDrive = $OutputDir;
	$OutputDirWithoutDrive =~ s/^\w:(.*)$/$1/i;
	my $oldEpocRoot = $ENV{EPOCROOT};
	my $oldPath = $ENV{path};
	my $oldOutputDir = $ENV{OUTPUTDIR};
	$ENV{EPOCROOT} ="$OutputDirWithoutDrive\\techview\\";
	$ENV{path} = "$ENV{EPOCROOT}epoc32\\tools\\;$ENV{EPOCROOT}epoc32\\gcc\\bin\\;".$ENV{path};
	$ENV{OUTPUTDIR} = "$ProductPath\\SupplementaryProducts";



	# read [emul] tag and replace it in the files
	foreach my $package (@replaceEmulPackage)
	{
		replaceEmul($package);
	}


	# set up the source directory path for .bin packages
	foreach my $package (@addSourcePackage)
	{
		addSource($package->[0], eval $package->[1]);
	}


	# create Supplementary products directory
	(mkpath ($ENV{OUTPUTDIR}) or print "WARNING: Unable to create directory $ENV{OUTPUTDIR} - $!\n") if (! -d $ENV{OUTPUTDIR});



	# main build procedure
	foreach my $directory (@requiredSupplementaryKits)
	{
	print "** Supplemental Kit:  building from $directory\n";
		# set up the source directory path for .src packages in this product
		chdir ("$SuppKitPath\\$directory\\pkgdef");
		foreach my $sourcePackage (<$SuppKitPath\\$directory\\pkgdef\\com.symbian.src.*>)
		{
			addSource($sourcePackage, $SourceDir);
		}
		chdir ("$SuppKitPath\\$directory\\group");
		system ("bldmake bldfiles");
		system ("abld makefile");
		system ("abld target tools");
	}


	# copy Supplementary Products installation script into the right directory
	my $ProductToolsDir = $FindBin::Bin;
	$ProductToolsDir =~ s|/|\\|g;
	system("copy ".$ProductToolsDir."\\".$scriptFileSupplementaryKits." ".$ENV{OUTPUTDIR});



	# restore environment & finish
	$ENV{EPOCROOT} =  $oldEpocRoot;
	$ENV{path} = $oldPath;
	$ENV{OUTPUTDIR} = $oldOutputDir;

}




# ------------------------------------- Sub procedures -----------------------------------


# function inserts the leading directory in the src= statement
sub addSource()
{
    my $pkgDefFile = $_[0] ;
    my $srcDir = $_[1] ;


    # read source definition file
    open (FILE, "<$pkgDefFile") or print "WARNING: Supplementary Kits: Couldn't read file $pkgDefFile\n";
    my @pkgList = <FILE>;
    close(FILE);
    unlink($pkgDefFile);

    # write file with replaced src=
    open (FILE, ">$pkgDefFile") or print "WARNING: Supplementary Kits: Couldn't write file $pkgDefFile\n";
    foreach $line (@pkgList)
    {
		# insert source directory at start
		$line =~ s|src="(\\){0,1}|src="$srcDir\\|gi;

		# remove double slashes if present
		$line =~ s|\\\\|\\|gi ;
        
    	print FILE $line ;
    }
    close(FILE);
}




# function reads [emul] tag and replaces it in the file specified as the parameter
sub replaceEmul()
{
    my $emul = "" ;
    my $pkgDefFile = $_[0] ;

    # read source definition file
    open (FILE, "<$pkgDefFile") or print "WARNING: Supplementary Kits: Couldn't read file $pkgDefFile\n";
    my @pkgList = <FILE>;
    close(FILE);
    

    # look for definition of [emul]
    foreach $line (@pkgList)
    {
        if ( $line =~ m|emul\]\">(.*?)<|i )
        {
            $emul = $1;

            # remove [sdkroot] if present
            if ( $emul =~ m|\[sdkroot\](.*)|i )
            {
                $emul = $1;
            }
            
            last;
        }
    }


    # if [emul] not defined, enter a default
    if ($emul EQ "")
    {
        $emul = "bin\\TechView";
    }

   
    # write file with replaced emul
    open (FILE, ">$pkgDefFile") or print "WARNING: Supplementary Kits: Couldn't write file $pkgDefFile\n";
    foreach $line (@pkgList)
    {
        if ($line =~ m|<item|gi)
        {
    	    $line =~ s|\[emul\]|$emul|g ;
        }
    	print FILE $line ;
    }
    close(FILE);
}