#

# 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 "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: XIMP Framework Test Code 

#

#!perl

#

use strict;

use File::Path;

$|=1; # ensures that any progress information sent to the screen is displayed immediately and not buffered

# When this script is used with build tools, move is done only for WINSCW platform 

if ( exists($ENV{'PLATFORM'})  && 

     ($ENV{'PLATFORM'} ne 'WINSCW' ) )

	{

	print "\nEUnit Test DLL Mover: nothing to do for platform.\n";

	exit 0;

	}

# destination folder where EUnit test dlls are placed

my $destFolder = "\\epoc32\\release\\winscw\\udeb\\z\\sys\\bin";

# ABLD command 

# If this script is used with build chain, then "TO_BLDINF" env. variable points to the ABLD folder 

# else use ABLD from current folder

my $abldCommand = ""; 

if (exists($ENV{'TO_BLDINF'}))

	{

	$abldCommand = $ENV{'TO_BLDINF'} . "\\abld build winscw udeb -what";	

	}

else

	{

	$abldCommand = "abld build winscw udeb -what";

	}

# get option

my $option = $ARGV[0];

# get all the files produced by the ABLD

my @allProducedFiles = `$abldCommand`;

# we're interested only from dlls

my @dllList = grep{ $_=~m#^.+\.dll$#i }@allProducedFiles;

print "\n";

foreach my $dll (@dllList)

	{

	chomp($dll);

    # skip those which are not mt_, ut_, t_, dec_

    my @paths = split(/\\/, $dll);

    next unless (grep { $paths[-1] =~ m#^$_.+$#i; } (qw(mt_ ut_ t_ dec_)));

	if( $option eq "-wipe" )

		{

		my($dllPath, $dllName) = $dll =~ m/(.*\\)(.*)$/;

		$dll = $destFolder . "\\" . $dllName;

		print "EUnit Test DLL Mover: CLEANING $dll\n";

		rmtree $dll;

		}

	else

		{

		print "EUnit Test DLL Mover: COPYING $dll to $destFolder\n";

		system "copy $dll ${destFolder}";

		}

	}