@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