tsrc/scripts/buildcheck.cmd
changeset 15 ccd8e69b5392
parent 2 b31261fd4e04
child 20 e8be2c2e049d
child 22 496ad160a278
--- a/tsrc/scripts/buildcheck.cmd	Tue Feb 02 00:09:07 2010 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,106 +0,0 @@
-rem
-rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
-rem All rights reserved.
-rem This component and the accompanying materials are made available
-rem under the terms of "Eclipse Public License v1.0"
-rem which accompanies this distribution, and is available
-rem at the URL "http://www.eclipse.org/legal/epl-v10.html".
-rem
-rem Initial Contributors:
-rem Nokia Corporation - initial contribution.
-rem
-rem Contributors:
-rem
-rem Description:
-rem
-
-@goto invoke_perl
-
-#!perl
-#line 5
-
-################################################################################################################
-# This Script will be used to count errors and warnings in abld
-################################################################################################################
-
-#	Packages needed
-use strict;					# strict naming rules
-use Getopt::Long;		# parameter handling
-use Cwd;						# Directory operations
-Getopt::Long::Configure( "bundling_override","ignore_case_always" );
-
-my($param_help,
-	 $param_dest);
-my($ecount)=0;
-my($wcount)=0;
-my($destination)=cwd;
-
-# read commandline parameters
-my $result = GetOptions('help'			=> \$param_help,						# Display help info												
-												'dest=s' 		=> \$param_dest);					  # Destination directory												
-if(defined $param_dest){
-	$destination=$param_dest ;		
-	}
-else{
-	print "\n Note: No results destination directory specified.\n";
-	$destination=~s/\//\\/g;
-	$destination=$destination."\\";
-	}	
-	
-$destination.="\Build";
-mkdir($destination);
-print " Note: Results will be copied to $destination\n";
-open SUMMARY,">$destination\\summary.txt" or die "Can't Open $!";
-system("bldmake bldfiles");
-display_critical_error() if($?!=0);   
-system("abld reallyclean winscw urel");
-print "\n *** Building for winscw urel and logging in file $destination\\winscw_log.txt *** \n";
-system("abld build winscw urel >$destination\\winscw_log.txt");
-display_critical_error() if($?!=0);   
-print "\n *** End of Building for winscw urel *** \n";
-open LOGFILE,"$destination\\winscw_log.txt" or die "Can't Open $!";
-print "\n *** Writing summary for winscw *** \n";
-while(<LOGFILE>){
- if($_=~/error/){
- $ecount++;
- }
- if($_=~/warning/){
- $wcount++;
- }
-}
-close LOGFILE;
-print SUMMARY "WINSCW build Errors\t=$ecount \n";
-print SUMMARY "WINSCW build Warnings\t=$wcount \n";
-$ecount=0;
-$wcount=0;
-print "\n *** Building for armv5 urel and logging in $destination\\armv5_log.txt *** \n";
-system("abld reallyclean armv5 urel");
-system("abld build armv5 urel >$destination\\armv5_log.txt");
-display_critical_error() if($?!=0);
-print "\n *** End of Building for armv5 urel *** \n";
-open LOGFILE,"$destination\\armv5_log.txt" or die "Can't Open $!";
-print "\n *** Writing summary for armv5 *** \n ";
-while(<LOGFILE>){
- if($_=~/error/){
- $ecount++;
- }
- if($_=~/warning/){
- $wcount++;
- }
-}
-close LOGFILE;
-print SUMMARY "ARMV5 build Errors\t=$ecount \n";
-print SUMMARY "ARMV5 build Warnings\t=$wcount \n";
-close LOGFILE;
-close SUMMARY;
-print "\n *** DONE *** \n";
-
-sub display_critical_error {  
-  print "\n-> Critical Error Occured : ".$?."\n" if(!@_[0]);  
-  print "\n-> Critical Error Occured : ".@_[0]."\n" if(@_[0]);  	  
-  exit 1;
-  }	
-__END__
-
-:invoke_perl
-@perl -x -S buildcheck.cmd %1 %2 %3 %4 %5 %6 %7 %8 %9