--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tsrc/testing/tools/builder.pl	Tue May 25 12:44:54 2010 +0300
@@ -0,0 +1,303 @@
+use Cwd; # for cwd
+
+my $debug = 0;
+my $allowRun = 1;
+my $optionClean = 1;
+my $optionBuild = 1;
+my $optionFusion = 1;
+my $optionEngineTests = 1;
+my $optionUnitTests = 1;
+my $optionPlatform = "";
+
+########################################
+# BUILD LISTS
+#
+
+my @fusionComponents = ( 
+		"videoutils\\group",
+		"videoplayer\\group"
+	);
+
+my @engineTests = (
+		"videoutils\\tsrc\\group",
+		"videoplayer\\tsrc\\group"
+	);
+
+my @unitTests = (
+		"videoplayer\\videoplayback\\videohelix\\tsrc\\ut_videohelixtest\\group",
+		"videoplayer\\videoplayback\\videoplaybackcontrols\\tsrc\\videoplaybackcontrols_test\\group",
+		"videoplayer\\videoplayback\\videoplaybackviews\\tsrc\\ut_userinputhandlertest\\group",
+		"videoplayer\\videoplayerapp\\mpxvideoplayer\\tsrc\\ut_mpxvideoplayertest\\group",
+		"videoplayer\\videocollection\\hgmyvideos\\tsrc\\ut_vcxhgmyvideosmainview\\group"
+	);
+
+########################################
+# PARSE ARGUMENTS
+#
+
+while(scalar(@ARGV) >= 1)
+{
+	my $argument = shift(@ARGV);
+
+	if($argument eq "-nobuild")
+	{
+		$optionBuild = 0;
+	}
+
+	elsif($argument eq "-noclean")
+	{
+		$optionClean = 0;
+	}
+
+	elsif($argument eq "-nounit")
+	{
+		$optionUnitTests = 0;
+	}
+	
+	elsif($argument eq "-noengine")
+	{
+		$optionEngineTests = 0;
+	}
+
+	elsif($argument eq "-nofusion")
+	{
+		$optionFusion = 0;
+	}
+	
+	elsif($argument eq "-platform")
+	{
+		$optionPlatform = shift(@ARGV);
+	}
+
+	elsif($argument eq "-debug")
+	{
+		$debug = 1;
+	}
+
+	elsif($argument eq "-norun")
+	{
+		$allowRun = 0;
+	}
+	
+	elsif($argument eq "-help")
+	{
+		ShowHelp();
+	}
+	
+	else
+	{
+		ShowHelp();
+	}
+}
+
+########################################
+# MAIN FUNCTION
+#
+
+my $basepath = FindBasePath();
+exit("NO VIDEOAPP_DOMAIN FOLDER FOUND") if $basepath eq "";
+
+if ( $optionClean )
+{
+	if ( $optionFusion )
+	{
+		foreach my $component ( @fusionComponents )
+		{
+		    Clean( $basepath, $component, $optionPlatform, 0 );
+		}
+	}
+		
+	if ( $optionEngineTests )
+	{
+		foreach my $component ( @engineTests )
+		{
+		    Clean( $basepath, $component, $optionPlatform, 1 );
+		}
+	}
+		
+	if ( $optionUnitTests )
+	{
+		# Clean all unit tests
+		foreach my $component ( @unitTests )
+		{
+		    Clean( $basepath, $component, $optionPlatform, 1 );
+		}
+	}
+}
+
+if ( $optionBuild )
+{
+	if ( $optionFusion )
+	{
+		foreach my $component ( @fusionComponents )
+		{
+		    Build( $basepath, $component, $optionPlatform, 0 );
+		}
+	}
+		
+	if ( $optionEngineTests )
+	{
+		# Clean all engine tests
+		foreach my $component ( @engineTests )
+		{
+		    Build( $basepath, $component, $optionPlatform, 1 );
+		}
+	}
+		
+	if ( $optionUnitTests )
+	{
+		# Clean all unit tests
+		foreach my $component ( @unitTests )
+		{
+		    Build( $basepath, $component, $optionPlatform, 1 );
+		}
+	}
+}
+
+########################################
+# FindBasePath
+#
+
+sub FindBasePath
+{
+	print ">> FindBasePath\n" if $debug;
+	$currpath = cwd;
+	$basepath = "";
+	my $domain = "VideoApp_Domain";
+	
+	my $pos = rindex( $currpath, $domain );
+	
+	if( $pos != -1 )
+	{
+		$basepath = "\\" . substr( $currpath, 3, $pos + length( $domain ) - 3 );
+		$basepath =~ s/\//\\/g;
+	  print "BASEPATH FOUND: $basepath\n" if $debug;
+	}
+	
+	print "<< FindBasePath (" . $basepath . ")\n" if $debug;
+	return $basepath;
+}
+
+########################################
+# Clean
+#
+
+sub Clean
+{
+	my ( $baseDir, $destDir, $optionPlatform, $isTestComponent ) = @_;
+	print ">>> CLEAN ${baseDir}\\${destDir}\\bld.inf FOR $optionPlatform\n" if $debug;
+	print "##\n#\n# CLEANING ${baseDir}\\${destDir}\n#\n##\n";
+	
+	my $cmd = "";
+	
+	if( $isTestComponent )
+	{
+		if( $optionPlatform eq "" ) # platform not given, clean armv5.test and winscw.test
+		{
+			$cmd = "sbs reallyclean -b ${baseDir}\\${destDir}\\bld.inf -c winscw.test";
+			print $cmd . "\n" if $debug;
+			system($cmd) if $allowRun;
+			$cmd = "sbs reallyclean -b ${baseDir}\\${destDir}\\bld.inf -c armv5.test";
+			print $cmd . "\n" if $debug;
+			system($cmd) if $allowRun;
+		}
+		else # platform is given, run clean only for that
+		{
+			$cmd .= "sbs reallyclean -b ${baseDir}\\${destDir}\\bld.inf -c ${optionPlatform}\.test";
+			print $cmd . "\n" if $debug;
+			system($cmd) if $allowRun;
+		}
+	}
+	else # is not testcomponent
+	{
+		$cmd .= "sbs reallyclean -b ${baseDir}\\${destDir}\\bld.inf";
+		$cmd .= " -c $optionPlatform" if $optionPlatform ne "";
+		print $cmd . "\n" if $debug;
+		system($cmd) if $allowRun;
+	}
+	print "<<< CLEAN\n" if $debug;
+}
+
+########################################
+# Build
+#
+
+sub Build
+{
+	my ( $baseDir, $destDir, $optionPlatform, $isTestComponent ) = @_;
+	print ">>> BUILD ${baseDir}\\${destDir}\\bld.inf FOR $optionPlatform\n" if $debug;
+	print "##\n#\n# BUILDING ${baseDir}\\${destDir}\n#\n##\n";
+	#my $cmd = "sbs -b ${baseDir}\\${destDir}\\bld.inf";
+	#$cmd .= " -c $optionPlatform" if $optionPlatform ne "";
+	#$cmd .= ".test" if $isTestComponent;
+	#print $cmd . "\n" if $debug;
+	#system($cmd) if $allowRun;
+	
+	my $cmd = "";
+	
+	if( $isTestComponent )
+	{
+		if( $optionPlatform eq "" ) # platform not given, clean armv5.test and winscw.test
+		{
+			$cmd = "sbs -b ${baseDir}\\${destDir}\\bld.inf -c winscw.test";
+			print $cmd . "\n" if $debug;
+			system($cmd) if $allowRun;
+			$cmd = "sbs -b ${baseDir}\\${destDir}\\bld.inf -c armv5.test";
+			print $cmd . "\n" if $debug;
+			system($cmd) if $allowRun;
+		}
+		else # platform is given, run clean only for that
+		{
+			$cmd .= "sbs -b ${baseDir}\\${destDir}\\bld.inf -c ${optionPlatform}\.test";
+			print $cmd . "\n" if $debug;
+			system($cmd) if $allowRun;
+		}
+	}
+	else # is not testcomponent
+	{
+		$cmd .= "sbs -b ${baseDir}\\${destDir}\\bld.inf";
+		$cmd .= " -c $optionPlatform" if $optionPlatform ne "";
+		print $cmd . "\n" if $debug;
+		system($cmd) if $allowRun;
+	}
+	
+	print "<<< BUILD\n" if $debug;
+}
+
+#------------------------------------------------------------------------------------
+# ShowHelp
+#------------------------------------------------------------------------------------
+sub ShowHelp {
+
+print <<USAGE_EOF;
+builder.pl
+
+This script will search the VideoApp_Domain root folder from current path.
+if the root folder is not found, the script will exit. In any other case,
+it builds all components.
+
+Options:
+
+-platform   wanted platform
+-noclean    no clean.
+-nobuild    no build.
+-nofusion   exclude fusion components.
+-noengine   exclude engine tests.
+-nounit     exclude unit tests.
+-debug      show debug message
+-norun      do not run, for debugging purposes
+-help       You're reading it.
+
+Examples:
+
+builder.pl -nobuild -platform armv5_udeb
+	This will clean all the armv5_udeb components without building them.
+
+builder.pl -noclean -nofusion -noengine -platform armv5_udeb
+	This will build only unit tests without cleaning them first.
+
+USAGE_EOF
+
+	exit();
+
+};
\ No newline at end of file