#
# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# 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:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description:
#

use Cwd;
use Getopt::Long;
my %opts=();
my $result = GetOptions (	\%opts,
							"iby=s",
							"build=s",
							"drive=s",
							"udir=s",
							"kdir=s",
							"zip=s",
							"verbose"
							);


if (!$result || !$opts{iby} || !$opts{build}) {
	usage();
	exit;
}
my $IbyFileName = $opts{iby};
open IBY, $IbyFileName or die "Cannot open IBY file $IbyFileName\n";
my $build = $opts{build};
my $srcdrv = Cwd::getcwd();
$srcdrv=~/(\w\:).*/;
$srcdrv=$1;
if ($opts{drive}) {
	$srcdrv=$opts{drive};
}
my $udir = $opts{udir};
my $kdir = $opts{kdir};
my $zip = $opts{zip};
my $verbose = $opts{verbose};

if ($verbose) {
	print "IBY file  : $IbyFileName\n";
	print "Build     : $build\n";
	print "Drive     : $srcdrv\n";
	print "User Dir  : $udir\n";
	print "Kernel Dir: $kdir\n";
	print "ZIP file  : $zip\n";
}

while(<IBY>) {
	if (/^\s*\/\//) {
		print "Comment: $_\n" if ($verbose);
		next;
	}
	/^\s*(\w+)(.*)$/;
	my $keyword=$1;
	my $rest=$2;
	unless ($keyword eq 'file' or $keyword eq 'data' or $keyword eq 'dll' or $keyword eq 'device') {
		next;
	}
	if ($rest=~/^\s*\[\w+\](.*)$/) {
		$rest=$1;	# lose [MAGIC]
	}
	next unless ($rest=~/^\s*\=\s*(.*)$/);
	$rest=$1;
	my @word=split /\s+/, $rest;
	my $source=$word[0];
	my $dest=$word[1];
	$source=~ s/##BUILD##/$build/g;
	$source=~ s/##MAIN##/$udir/g;
	$source=~ s/##ASSP##/$kdir/g;
	$source=~ s/##KMAIN##/$kdir/g;
	$source=~ s/##ELOCLDIR##/$udir/g;
	$source=$srcdrv.$source;
#	print "$source->$dest\n";
	my @destpath=split /(\/|\\)/,$dest;
	while ($destpath[0]=~/^\s*$/ or $destpath[0] eq '\\' or $destpath[0] eq '\/') {
		shift @destpath;
	}
	my $npathc=scalar(@destpath);
	my $destfilename=pop @destpath;
	my $destdirname=join '', @destpath;
	if ($destdirname=~/^(.*)\\\s*$/) {
		$destdirname=$1;
	}
	if ($destdirname=~/^\\(.*?)$/) {
		$destdirname=$1;
	}
	print "$source->$destfilename @ $destdirname $npathc\n" if ($verbose);
	unless (-d $destdirname) {
		system "md $destdirname";
	}
	if (-e $source) {
		system "copy $source $destdirname\\$destfilename >NUL";
	} else {
		warn "$source not found\n";
	}
}
if ($zip) {
	unless ($zip =~ /^(.*?)\.zip$/i) {
		$zip .= '.zip';
	}
	system "del $zip";
	system "zip -r $zip *";
}

exit;

# END OF MAIN

sub usage {
	print <<EOT;

perl cptest.pl <options>

Copy tests to target directory structure

The following options are required:
  -i, --iby = <IBY file name>
  -b, --build = <build>         UDEB or UREL

The following are optional:
  -d, --drive = <drive with executables on>

         Defaults to current drive

  -u, --udir = <user directory>	  e.g. ARM4, X86
  -k, --kdir = <kernel directory> e.g. MISA, NX86
  -z, --zip = <zipfile name>
  -v, --verbose

EOT
}