#

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

# All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the License "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:

#

my @rootdirs;

open PIPE, "dir /b /ad \\ |";

while (<PIPE>) {

	my $dir=$_;

#	print;

	chomp $dir;

	unless (/^epoc32$/i) {

		$dir="\\".$dir."\\*.bld";

		push @rootdirs, $dir;

	}

}

close PIPE;

my %bldfiles;

my $dir;

foreach $dir (@rootdirs) {

#	print "$dir\n";

	open PIPE, "dir /s /b $dir 2>NUL |";

	while (<PIPE>) {

		my %bldfileprops;

		$bldfileprops{'fullname'}=lc $_;

		/\\(\w+)\.bld$/;

		my $name=lc $1;

		$bldfileprops{'name'}=$name;

		if (defined $bldfiles{$name}) {

			die "Duplicate build file name $name\n";

		}

		$bldfiles{$name}=\%bldfileprops;

	}

	close PIPE;

}

my $bld;

my @defaults;

my @compulsory;

foreach $bld (keys %bldfiles) {

	my $ref=$bldfiles{$bld};

	my $filename=$$ref{'fullname'};

	chomp $filename;

	my @options;

	my @components;

	open FILE, $filename or die "Could not open file $filename\n";

	while (<FILE>) {

		if (/^\!(\w+)$/) {

			$$ref{lc $1}=1;

		} elsif (/^\<option/i) {

			push @options, $_;

		} elsif (!/^\s*$/) {

			push @components, $_;

		}

	}

	close FILE;

	$$ref{'options'}=\@options;

	$$ref{'components'}=\@components;

	if (!$$ref{'explicit'}) {

		push @defaults, $bld;

	}

	if ($$ref{'compulsory'}) {

		if ($$ref{'explicit'}) {

			die "File $filename: can't be COMPULSORY and EXPLICIT\n";

		}

		push @compulsory, $bld;

	}

}

my @todo_temp;

my @omit;

my $i;

my $nargs=scalar(@ARGV);

if ($nargs==0) {

	@todo_temp=@defaults;

} else {

	@todo_temp=@compulsory;

	for ($i=0; $i<$nargs; ++$i) {

		my $name=lc($ARGV[$i]);

		if ($name eq '+') {

			foreach $bld (@defaults) {

				push @todo_temp, $bld if (!grep {$bld eq $_} @todo_temp);

			}

		} elsif ($name=~/^\-(\w+)$/) {

			if (defined $bldfiles{$1}) {

				my $ref=$bldfiles{$1};

				if ($$ref{'compulsory'}) {

					die "Cannot omit $1\n";

				}

				push @omit, $1 if (!grep {$1 eq $_} @omit);

			} else {

				die "Unrecognised build $1\n";

			}

		} elsif (defined $bldfiles{$name}) {

			push @todo_temp, $name if (!grep {$name eq $_} @todo_temp);

		} else {

			die "Unrecognised build $name\n";

		}

	}

}

#print join "\n",@todo_temp;

#print "\n";

my @todo;

foreach $bld (@todo_temp) {

	push @todo, $bld if (!grep {$bld eq $_} @omit);

}

#print join "\n",@todo;

#print "\n";

my @output1;

my @output2;

my $nvariants=0;

foreach $bld (@todo) {

	my $ref=$bldfiles{$bld};

	next if ($nargs==0 && $$ref{'explicit'});

	++$nvariants if (!$$ref{'incremental'});

	my $optref=$$ref{'options'};

	my $compref=$$ref{'components'};

	my $option;

	my $component;

	foreach $option (@$optref) {

		$option=~s/\s+/ /;

		if (!grep {$_ eq $option} @output1) {

			push @output1, $option;

		}

	}

	foreach $component (@$compref) {

		$component=~s/\s+/ /;

		if (!grep {$_ eq $component} @output2) {

			push @output2, $component;

		}

	}

}

if ($nvariants==0) {

	die "No variants specified for building\n";

}

@output1=sort @output1;

@output2=sort @output2;

my $output;

foreach (@output1) {

	$output.=$_;

}

$output.="\n";

foreach (@output2) {

	$output.=$_;

}

$output.="\n";

print "\n\n$output";