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

#

#!perl

# -----------------------------------------------------------------

sub load_default_bat {

	unless (open DEFAULT_BAT, $default_bat_file) {

		die "ERROR: Cannot open default batch file: $!";

	}

	@default_bat = <DEFAULT_BAT>;

	close DEFAULT_BAT;

}

# -----------------------------------------------------------------

sub create_default_cleanup {

	if (@default_clean == 0) {

		unless (open DEFAULT_CLEAN, "DEFAULTCLEAN.TXT") {

			die "ERROR: Cannot open default cleanup batch file: $!";

		}

		@default_clean = <DEFAULT_CLEAN>;

		close DEFAULT_CLEAN;

	}

	$file_name = "\\epoc32\\data\\z\\system\\msgtest\\$_[0]\\T_$_[1]_CLEANUP_FROM_TEST.BAT";

	unless (open NEW_CLEAN, ">$file_name") {

		die "ERROR: Could not create cleanup batch file: $!";

	}

	print NEW_CLEAN @default_clean;

	close NEW_CLEAN;

}

# -----------------------------------------------------------------

sub auto_create_bat {

	# check for existance of bat file, if not present, create

	$file_name = "\\epoc32\\data\\z\\system\\msgtest\\$_[0]\\$_[1].BAT";

	unless (open NEW_BAT, $file_name) {

		unless (open NEW_BAT, ">$file_name") {

			die "ERROR: Could not create batch file: $!";

		}

		@auto_bat = @default_bat;

		foreach (@auto_bat) {

			s/\@HARNESSNAME@/$_[1]/;

		}

		print NEW_BAT @auto_bat;

		print "$file_name created.\n";

	}

	close NEW_BAT;

}

# -----------------------------------------------------------------

sub add_to_ibybat {

	$file_name = "T_$_[0]_$_[1]_TEST.BAT";

	print HARNESSIBY "data=\\epoc32\\data\\z\\system\\msgtest\\BUILD_DIR\\$file_name System\\MsgTest\\$file_name\n";

	print AUTOEXECUDEB "$file_name\n";

	print AUTOEXECUDEB $change_dir;

	print AUTOEXECUREL "$file_name\n";

	print AUTOEXECUDEB $change_dir;

}

# -----------------------------------------------------------------

die "ERROR: Bad arguments\n\n" if (@ARGV!=2);

$default_bat_file = $ARGV[1];

pop @ARGV;

&load_default_bat();

unless (open HARNESSIBY, ">\\epoc32\\rom\\include\\MsgTestHarnesses.iby") {

	die "ERROR: Cannot create MSGTESTHARNESSES.IBY file: $!";

}

print HARNESSIBY "REM\nREM Copyright © 2002 Symbian Ltd. All rights reserved.\nREM\n\n";

print HARNESSIBY "data=\\epoc32\\data\\z\\system\\msgtest\\BUILD_DIR\\AUTOEXEC.BAT AUTOEXEC.BAT\n\n";

$change_dir = "z:\ncd \\system\\msgtest\n";

unless (open AUTOEXECUDEB, ">\\epoc32\\data\\z\\system\\msgtest\\udeb\\AUTOEXEC.BAT") {

	die "ERROR: Cannot create file: $!";

}

print AUTOEXECUDEB $change_dir;

unless (open AUTOEXECUREL, ">\\epoc32\\data\\z\\system\\msgtest\\urel\\AUTOEXEC.BAT") {

	die "ERROR: Cannot create file: $!";

}

print AUTOEXECUREL $change_dir;

while (<>) {

	chomp;

	# remove comments

	@fields = split /#/, $_;

	$_ = $fields[0];

	next if ("");

	# check for a COMPONENT line

	if (/COMPONENT/i) {

		# add cleanup stage for previous component AUTOEXEC file(s)...

		&add_to_ibybat($component,"CLEANUP_FROM") if ($start_located);

		# expect line of this form: COMPONENT <COMPONENT_NAME>

		@fields = split;

		$component = $fields[1];

		print HARNESSIBY "\nREM $component\n\n#include <T_$component.IBY>\n";

		print "COMPONENT: $component.\n";

		&create_default_cleanup("UREL", $component);

		&create_default_cleanup("UDEB", $component);

		# add preparation stage to AUTOEXEC file(s).

		&add_to_ibybat($component,"PREPARE_FOR");		

		$start_located = 1;

		next;

	}

	# check for a test harness line

	if ((/UREL|UDEB/i) && defined($start_located)) {

		@fields = split;

		$test_harness = $fields[0];

		$test_harness_iby = $test_harness . ".IBY";

		$test_harness_bat = $test_harness . ".BAT";

		# add to iby

		print HARNESSIBY "data=\\epoc32\\data\\z\\system\\msgtest\\BUILD_DIR\\$test_harness_bat System\\MsgTest\\$test_harness_bat\n";

		&auto_create_bat("urel",$test_harness);

		&auto_create_bat("udeb",$test_harness);

		if (/UREL/si) {

			print AUTOEXECUREL "$test_harness_bat\n";

			print AUTOEXECUREL $change_dir;

			print AUTOEXECUREL "T_SERIALLOG c:\\MsgLogs\\$test_harness.THUMB.REL.LOG\n";

		}

		if (/UDEB/si) {

			print AUTOEXECUDEB "$test_harness_bat\n";

			print AUTOEXECUDEB $change_dir;

####			print AUTOEXECUDEB "T_SERIALLOG d:\\MsgLogs\\$test_harness.THUMB.DEB.LOG\n";

		}

#		print $_ . "\n";

	}

}

if (defined($component)) {

	&add_to_ibybat($component,"CLEANUP_FROM");

}

close HARNESSIBY;

print AUTOEXECUREL $change_dir;

print AUTOEXECUREL "T_SERIALLOG TERMINATE\n";

print AUTOEXECUREL "T_SERIALLOG TERMINATE\n";

close AUTOEXECUREL;

print AUTOEXECUDEB $change_dir;

####print AUTOEXECUDEB "T_SERIALLOG TERMINATE\n";

####print AUTOEXECUDEB "T_SERIALLOG TERMINATE\n";

close AUTOEXECUDEB;

print "Automatic preparation completed.\n";