# Copyright (c) 2004-2009 Nokia Corporation and/or its subsidiary(-ies).

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

#

# Initial Contributors:

# Nokia Corporation - initial contribution.

#

# Contributors:

#

# Description:

# Generate a link-dependency graph

# Given a baseline list of components, look through the BLDMAKE

# generated files to find the individual DLL and EXE makefiles.

# Scan those makefile to find out which .LIB files are generated,

# and which .LIB files are required, thereby deducing the 

# component dependency graph.

# 

#

my @components;

my %component_releases;

my %components_by_lib;

my %libs_needed;

my %component_deps;

my $errors = 0;

my @platforms = ("WINS", "ARMI", "MAWD");

my $makefile_count=0;

while (<>)

	{

	s/\s*#.*$//;

	if ($_ =~ /^$/)

		{

		next;

		}

	if ($_ =~ /<option (\w+)(.*)>/)

		{

		# placeholder

		next;	

		}

	push @components, lc $_;

	}

scan_bldmakes();

if ($makefile_count==0)

	{

	error("No makefiles scanned!??");

	}

if (%libs_needed==0)

	{

	error("No libraries needed!??");

	}

foreach $lib (sort keys %libs_needed)

	{

	if ($components_by_lib{$lib} eq "")

		{

		error("library $lib is not produced by any component!");

		$components_by_lib{$lib} = "($lib)";

		}

	}

if ($errors > 0)

	{

	print "\n";

	}

foreach $component (sort keys %component_deps)

	{

	my %dependencies;

	foreach $lib (split /\s+/, $component_deps{$component})

		{

		next if ($lib eq "");

		my $dependent = $components_by_lib{$lib};

		$dependencies{$dependent} = 1;

		}

	print "$component $component_releases{$component}:";

	foreach $dependent (sort keys %dependencies)

		{

		next if ($dependent eq $component);

		print " $dependent";

		}

	print "\n";

	}

sub scan_bldmakes

	{

	foreach $line (@components)

		{

		next if ($line =~ /<special (\w+)(.*)>/);

		my ($name, $groupdir, $subdir, $release) = split /\s+/,$line;

		$component_releases{$name} = $release;

		my $bldmake = "\\epoc32\\build\\$groupdir";

		if (! -d $bldmake)

			{

			error("bldmake failed for $name $release");

			next;

			}

		foreach $platform (@platforms)

			{

			scan_bldmake_makefile($name,"$bldmake\\$platform.make");

			}

		}

	}

exit ($errors > 0);

sub error

	{

	my ($text) = @_;

	print "# ERROR: $text\n";

	$errors+=1;

	}

# In \epoc32\build\<place>\wins.make

#

# SAVESPACEAPPARC :

#	nmake -nologo $(VERBOSE) -f "\EPOC32\BUILD\APPARC\GROUP\WINS\APPARC.WINS" $(CFG) CLEANBUILD$(CFG)

#

# repeated N times

sub scan_bldmake_makefile

	{

	my ($component, $makefile) = @_;

	if (! -e $makefile) 

		{

		return;

		}

	open FILE, "<$makefile" or error("Can't open $makefile") and return;

	while ($line = <FILE>)

		{

		if ($line =~ /^SAVESPACE/)

			{

			$line = <FILE>;

			if ($line =~ /-f "(\S+)"\s/i)

				{

				scan_mmp_makefile($component,$1);

				}

			}

		}

	close FILE;

	}

# In \EPOC32\MAKE\LEXICON\WINS\INSO.WINS

#

# # MMPFile \LEXICON\GROUP\INSO.MMP

# # Target INSO.LIB

# # TargetType LIB

# # GeneralTargetType LIB

#

# In \EPOC32\BUILD\APPARC\GROUP\WINS\APPARC.WINS

#

# LIBRARY : "$(EPOCLIB)UDEB\APPARC.LIB"

#

# LIBS= \

#	"$(EPOCLINKDEB)\EUSER.LIB" \

#	"$(EPOCLINKDEB)\EFSRV.LIB" \

#	"$(EPOCLINKDEB)\GDI.LIB" \

#	"$(EPOCLINKDEB)\ESTOR.LIB"

#

sub scan_mmp_makefile

	{

	my ($component, $makefile) = @_;

	open SUBFILE, "<$makefile" or error("Can't open mmp $makefile for $component") and return;

	$makefile_count++;

	while ($line = <SUBFILE>)

		{

		if ($line =~ /^LIBRARY : .*\\(\S+)"/ || 

			$line =~ /^# Target (\S+\.LIB)/)

			{

			my $built_lib = $1;

			my $previous = $components_by_lib{$built_lib};

			if ($previous && $previous ne $component)

				{

				error("$built_lib is generated by $component and $previous");

				next;

				}

			$components_by_lib{$built_lib} = $component;

			next

			}

		if ($line =~ /^LIBS= \\/)

			{

			while ($line = <SUBFILE>)

				{

				if ($line =~ /\\(\S+)"/)

					{

					$component_deps{$component} .= " $1";

					$libs_needed{$1} = 1;

					}

				if ($line !~ /\\$/)

					{

					last;

					}

				}

			}

		}

	close SUBFILE;

	}