#!perl

 # Copyright (c) 2008-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:

 #

 use strict;

 use File::Copy;

 use Getopt::Long;

 use File::Basename;

 use File::Spec;

 my $basedir;

 my $platform;

 my $cfg;

 my $certpem;

 my $certkey;

 my $outdir;

 my $maketrgt;

 my $sources;

 my $stublist;

 GetOptions(

   'basedir=s' => \$basedir,

   'platform=s' => \$platform,

   'cfg=s' => \$cfg,

   'certpem=s' => \$certpem,

   'certkey=s' => \$certkey,

   'outdir=s' => \$outdir,

   'maketrgt=s' => \$maketrgt,

   'sources=s' => \$sources,

   'stublist=s' => \$stublist,

 );

 my $ROOT = $ENV{EPOCROOT};

 $ROOT =~ s#\\#/#g;

 if ($maketrgt =~ /RELEASABLES/i or $maketrgt =~ /EXTRATARGET/i)

 {

   my @targets = ();

   my @extra = ();

   my $s;

   my @a = split(/\s+/,  $sources);

   foreach my $pkg (@a)

   {

 	my $isStub = $stublist =~ /\b$pkg\b/i;

 	my $destdir = GetTargetDir($isStub);

 	my $trgtname = PkgToSis($pkg, $isStub);

 	$s =  "$destdir/$trgtname";

     GetExternalForm(\$s);

    	push(@targets, $s);

     if ($destdir =~ /epoc32\/data\/z\/.*\/udeb/ || $isStub)

 	{

 	  my $extratrgt = $destdir;

 	  $extratrgt =~ s/\/udeb//;

 	  $s = "$extratrgt/$trgtname";

       GetExternalForm(\$s);

 	  push(@extra, $s);

 	}

   }

   $s = join(' ', @targets);

   $s = join(' ', @extra) if ($maketrgt =~ /EXTRATARGET/i);

   print "$s";

   exit(0);

 }

 # Getting here is build final. The pkg file must be in basedir.

 chdir($basedir);

 # $ARGV[0] is one of the targets generated in RELEASABLES above.

 my $arg = $ARGV[0];

 my $filename = basename($arg);

 my $trgtdir = dirname($arg);

 RecursiveMkDir($trgtdir);

 my $isStub;

 ($filename, $isStub) = SisToPkg($filename);

 die "Pkg $filename does not exist!\n" if (! -f $filename);

 my $cmd;

 if ($isStub)

 {

   $cmd = "makesis -s $filename $arg";

   system($cmd);

 }

 else

 {

   # change the source locations in pkg file

   my $generatedpkg = "generated.pkg";

   EditPkgFile($filename, $generatedpkg);

   my $generatedsis = "generated.sis";

   $cmd = "makesis $generatedpkg $generatedsis";

   system($cmd);

   $cmd = "signsis -S $generatedsis $arg $certpem $certkey";

   system($cmd);

   # make an extra copy in /epoc32/data/z/tef_ecomswi.

   # iby files normally do not expect files in udeb or urel

   # under /epoc32/data/z.

   if ($trgtdir =~ /\bepoc32\b.\bdata\b.\bz\b.*\budeb\b/)

   {

 	my $extratrgt = $arg;

 	$extratrgt =~ s/[\/\\]udeb//;

 	copy($arg, $extratrgt);

   }

   unlink($generatedsis);

   unlink($generatedpkg);

 }

 ###################################################

 # subroutines

 ###################################################

 sub GetTargetDir

 {

   my $isStub = shift;

   # for armv5, store all artefacts in data/z.

   my $d = "${ROOT}epoc32/data/z/$outdir/$cfg";

   $d =~ s#/$cfg## if ($isStub);

   if ($platform =~ /winscw/i)

   {

     $d = "${ROOT}epoc32/release/$platform/$cfg/z/$outdir";

     $d = "${ROOT}epoc32/release/$platform/$cfg/z/system/install" if ($isStub);

   }

   return $d;

 }

 sub PkgToSis

 {

   my $f = shift;

   my $isStub = shift;

   $f =~ s/\.pkg$//i;

   my $suffix = ($isStub) ? ".sis" : "signed.sis";

   $f .= $suffix;

   return $f;

 }

 sub SisToPkg

 {

   my $f = shift;

   my $isStub = 1;

   $isStub = 0 if ($f =~ s/signed.sis$//);

   $f =~ s/\.sis$//;

   $f .= ".pkg";

   return ($f, $isStub);

 }

 sub EditPkgFile

 {

   my $inf = shift;

   my $outf = shift;

   open(FIN, $inf) or die "fail to read $inf $!\n";

   open(FOUT, ">$outf") or die "fail to write $outf $!\n";

   local $/ = undef;

   my $data = <FIN>;

   close(FIN);

   $data =~ s/_PLATFORM_/$platform/g;

   $data =~ s/_CFG_/$cfg/g;

   print FOUT $data;

   close(FOUT);

 }

 # simple one, cannot handle cases like \\londata04\somedir

 sub RecursiveMkDir

 {

   my $path = shift;

   $path =~ s#\\#/#g;

   my $i = 1;

   my $s;

   do {

 	$i = index($path, "/", $i);

 	if ($i != -1)

 	{

 	  $s = substr($path, 0, $i++);

 	  mkdir($s, 0777) if (! -d $s);

 	}

   } while ($i != -1);

   mkdir($path, 0777) if (! -d $path);

 }

 sub GetExternalForm

 {

   my $refs = shift;

   my @a = split(/[\/\\]/, $$refs);

   $$refs = File::Spec->catfile(@a);

 }