kerneltest/e32test/group/check.bat
author John Imhofe
Mon, 19 Oct 2009 15:55:17 +0100
changeset 0 a41df078684a
permissions -rw-r--r--
Convert Kernelhwsrv package from SFL to EPL kernel\eka\compsupp is subject to the ARM EABI LICENSE userlibandfileserver\fatfilenameconversionplugins\unicodeTables is subject to the Unicode license kernel\eka\kernel\zlib is subject to the zlib license

@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 the License "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

@perl -x check.bat
@goto end
#!perl

require Cwd;
$cwd=Cwd::getcwd();
#print "cwd: ",$cwd,"\n";
$cwd =~ s/\//\\/;
$cwd =~ /^(\w:)?([\\|\/]\S+[\\|\/])/isx;
$drive=$1;
$prjroot=$2;
#print "drive ",$drive,"\n";
#print "project root: ",$prjroot,"\n";
@cpps=();
@mmps=();
@mmpflags=();
%sources=();
%sourceusers=();
ls ($prjroot);
#print "CPP files:\n";
#foreach $entry (@cpps)
#	{
#	print $entry,"\n";
#	}
#print "MMP files:\n";
$count=0;
$countz=0;
$countsrc=0;
foreach $entry (@mmps)
	{
#	print $entry,"\n";
	$srclist=$sources{$entry};
	$mmpflags[$count]=0;
	++$count;
	++$countz if (scalar(@$srclist)==0);
	$countsrc += scalar(@$srclist);
	foreach $src (@$srclist)
		{
		$uselist=$sourceusers{$src};
		$sourceusers{$src}=$uselist." ".$entry;
#		print "\t",$src,"\n";
		}
	}
$hashsize=scalar(%sources);
#print $hashsize;
#print "Count=",$count,"\n";
#print "CountZ=",$countz,"\n";
#print "CountSrc=",$countsrc,"\n";

foreach $entry (@cpps)
	{
	$uses=$sourceusers{$entry};
	print "File ",$entry," not referenced by any .MMP file\n" unless $uses;
	}

parsebldinf();

$i=0;
foreach $entry (@mmps)
	{
	next if $mmpflags[$i++];
	print "\n",$entry,".MMP does not appear in BLD.INF\n";
	print "\t Source files:\n";
	$srclist=$sources{$entry};
	foreach $src (@$srclist)
		{
		print "\t",$src,"\n";
		}
	}
end;

sub ls
	{
	my $dir=@_[0];
	$dir =~ s/\//\\/;
#	print $dir,"\n";
	opendir(DIR,$dir);
	my @dir=readdir(DIR);
	closedir(DIR);
	my $entry;
	my $fullentry;
	foreach $entry (@dir)
		{
		$entry=~s/\//\\/;
		next if (($entry eq ".") or ($entry eq ".."));
		$fullentry=$dir.$entry;
		if (-d $fullentry)
			{
			ls($fullentry."\\");
			}
		else
			{
			push @cpps, uc($fullentry) if ($entry =~ /\S+\.cpp/isx);
			if ($entry =~ /(\S+)\.mmp/isx)
				{
				push @mmps, uc($1);
				parsemmp($fullentry,\%sources);
				}
#			print $fullentry,"\n";
			}
		}
	}

sub parsemmp
	{
	my $mmpfile=@_[0];
	my $array=@_[1];
	my $project;
	my $subproject;
#	print "ParseMMP ",$mmpfile,"\n";
	open(MMP,$mmpfile);
	my @sources=();
	while(<MMP>)
		{
		if (/^PROJECT\s+(\S+)/isx)
			{
			$project=uc($1);
#			print "Project ",$project,"\n";
			}
		elsif (/^SUBPROJECT\s+(\S+)/isx)
			{
			$subproject=uc($1);
#			print "Subproject ",$subproject,"\n";
			}
		elsif (/^source\s*(.+)/isx)
			{
#			print $1;
			my $list=$1;
			while($list)
				{
				$list =~ /^(\S+)\s*(.*)/isx;
				push @sources, "\\".$project."\\".$subproject."\\".uc($1);
				$list=$2;
#				print "\t Source ",$1,"\n";
				}
			}
		}
	close(MMP);
	$mmpfile =~ /\S*\\(\S+)\.mmp/isx;
	$mmpfileshort=uc($1);
	$$array{$mmpfileshort}=\@sources;
	}

sub parsebldinf
	{
	my $reachedmmps=0;
	open(BLDINF,"bld.inf");
	while (<BLDINF>)
		{
#		print;
		if ($reachedmmps==0)
			{
			$reachedmmps=1 if (/PRJ_MMPFILES|PRJ_TESTMMPFILES/isx);
			next;
			}
		/(\S+)\s*.*/isx;
		my $mmpfile=uc($1);
#		print "****************",$mmpfile,"\n";
		my $mmp;
		my $i=0;
		foreach $mmp (@mmps)
			{
			$mmpflags[$i]=1 if ($mmp eq $mmpfile);
			++$i;
			}
		}
	close(BLDINF);
	}

__END__
:end