diff -r b31261fd4e04 -r ccd8e69b5392 tsrc/scripts/buildcheck.cmd --- 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(){ - 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(){ - 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