use strict;

my $SYSDEFTOOLS_PATH = "packages\\sysdeftools";

my $XALAN_J = "java -jar $SYSDEFTOOLS_PATH\\xalan.jar";

my $XALAN_C = "packages\\sysmodelgen\\rsc\\installed\\Xalan\\Xalan.exe";

system("rmdir /S /Q tmp") if (-d "tmp");

mkdir("tmp");

chdir("tmp");

print "\n\n### CLONE MCL/sftools/fbf/projects/packages REPO ###\n";

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

my $timestamp = sprintf "%4d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec;

#print "\n\n### CLONE MCL/sf/os/buildtools REPO ###\n";

#system("hg clone -r RCL_3 http://developer.symbian.org/oss/MCL/sf/os/buildtools");

print "\n\n### CLONE MCL/sftools/fbf/projects/platforms REPO ###\n";

system("hg clone -r default http://developer.symbian.org/oss/MCL/sftools/fbf/projects/platforms");

# get the codelines from the packages repo

opendir(DIR, "packages");

my @codelines = grep(($_ !~ /^\.\.?$/ and $_ =~ /^symbian/), readdir(DIR));

close(DIR);

# loop over codelines

for my $codeline (@codelines)

{

	mkdir($codeline);

	my $ROOT_SYSDEF = "packages\\$codeline\\os\\deviceplatformrelease\\foundation_system\\system_model\\system_definition.xml";

	# Full model in schema 3.0.0 format, including all of the test units.

	print "\n\n### GENERATE FULL MODEL ###\n";

	my $updatehifi_cmd = "hg -R packages update -r HighFidelityModel";

	print "$updatehifi_cmd\n";

	system($updatehifi_cmd);

	my $full_cmd = "$XALAN_C -o $codeline\\full_system_model_3.0.xml $ROOT_SYSDEF $SYSDEFTOOLS_PATH\\joinsysdef.xsl";

	print "$full_cmd\n";

	system($full_cmd);

	# Filter the model to remove the test and techview units

	print "\n\n### REMOVE UNDESIRED UNITS ###\n";

	my $filter_cmd = "$XALAN_C -o $codeline\\system_model_3.0.xml -p filter \"'!test,!techview'\" -p filter-type 'has' $codeline\\full_system_model_3.0.xml $SYSDEFTOOLS_PATH\\filtering.xsl";

	print "$filter_cmd\n";

	system($filter_cmd);

	# Downgrade the model to schema 2.0.1 for use with Helium and Raptor

	print "\n\n### DOWNGRADE TO SCHEMA 2.0.1 ###\n";

	my $downgrade_cmd = "$XALAN_C -o $codeline\\system_model.xml $codeline\\system_model_3.0.xml $SYSDEFTOOLS_PATH\\sysdefdowngrade.xsl";

	print "$downgrade_cmd\n";

	system($downgrade_cmd);

	print "\n\n### PUSH TO PLATFORMS REPOSITORY (auto) ###\n";

	my $isdifferent = 1;

	#compare to latest

	if (-d "platforms\\$codeline\\single\\sysdefs\\auto")

	{

		opendir(DIR, "platforms\\$codeline\\single\\sysdefs\\auto");

		my @files = grep(($_ !~ /^\.\.?$/ and $_ =~ /^model_/), readdir(DIR));

		@files = sort { $b cmp $a } @files;

		close(DIR);

		my $mostrecent = shift @files;

		print "mostrecent $mostrecent\n";

		#compare

		my $file1 = '';

		my $file2 = '';

		{

			local $/ = undef;

			open(FILE1, "platforms\\$codeline\\single\\sysdefs\\auto\\$mostrecent");

			{

				$file1 = <FILE1>;

			}

			close(FILE1);

			open(FILE2, "$codeline\\system_model.xml");

			{

				$file2 = <FILE2>;

			}

			close(FILE2);

		}

		$isdifferent = 0 if ($file1 eq $file2);

	}

	if ($isdifferent)

	{

		mkdir("platforms\\$codeline") if (!-d "platforms\\$codeline");

		mkdir("platforms\\$codeline\\single") if (!-d "platforms\\$codeline\\single");

		mkdir("platforms\\$codeline\\single\\sysdefs") if (!-d "platforms\\$codeline\\single\\sysdefs");

		mkdir("platforms\\$codeline\\single\\sysdefs\\auto") if (!-d "platforms\\$codeline\\single\\sysdefs\\auto");

		system("hg -R platforms add");

		# Split model into package models

		print "\n\n### SPLIT MODEL INTO PACKAGE MODELS ###\n";

		my $updatedefault_cmd = "hg -R packages update -r default";

		print "$updatedefault_cmd\n";

		system($updatedefault_cmd);

		my $splitmodel_cmd = "perl ..\\split_sysdef.pl -s $codeline\\system_model.xml -o packages\\$codeline";

		print "$splitmodel_cmd\n";

		system($splitmodel_cmd);

		if ($codeline eq 'symbian3') # also update CompilerCompatibility

		{

			my $splitmodel2_cmd = "perl ..\\split_sysdef.pl -s $codeline\\system_model.xml -o packages\\CompilerCompatibility";

			print "$splitmodel2_cmd\n";

			system($splitmodel2_cmd);

		}

		my $diff_cmd = "hg -R packages diff --stat";

		print "$diff_cmd\n";

		my @diff_output = `$diff_cmd`;

		if (@diff_output)

		{

			print "$commit_cmd\n";

			system($commit_cmd);

			my $push_cmd = "hg -R packages push http://darios:symbian696b\@developer.symbian.org/oss/MCL/sftools/fbf/projects/packages";

			print "$push_cmd\n";

		}

	}

}