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