#

# Copyright (c) 2007-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: 

#

package featuresutil;

require Exporter;

@ISA = qw(Exporter);

@EXPORT = qw(

	parseXMLDatabase

	createFeatureFile

	convert_FeatRegToFeatMgr

);

use strict;

use XML::Handler::XMLWriter;

#use IO;

use featureparser;

use featuremanager;

use featureregistry;

use featuresdat;

use featurecfg;

my $xmlDBHandle = undef; #Object of feature parser

my @includeFeatureList;	#List of included features. The included feature in this list is a hash table giving the 

			#Uid or the name. These features are collected from the iby/obey files.

my @excludeFeatureList;	#List of excluded features.The excluded feature in this list is a hash table giving the 

			#Uid or the name. These features are collected from the iby/obey files.

my $verboseFlg = 0; # verbose mode flag

my $strictFlg = 1; # strict mode flag

# Subroutine to generate warning messages.

sub WARN 

{

	print "WARNING: ".$_[0]."\n"; 

}

# Subroutine to generate error messages.

sub ERROR 

{ 

	print "ERROR: ".$_[0]."\n"; 

}

# Verbose mode output routine

sub MSG 

{

	if($verboseFlg) {

		print "**".$_[0]."...\n";

	}

}

# Subroutine to parse feature list XML database file.

# @param dbfileList					- List of XML database file names seperated by commas.

# @param fmFlag						- Flag to generate features data file.

# @param strictFlg					- Flag to enable strict mode (optional).

# @param verboseFlg                 - Flag to enable verbose mode (optional).

sub parseXMLDatabase

{

	my $dbfileList = shift;

	my $fmFlag = shift;

	$strictFlg = shift;

	$verboseFlg = shift;

	# list of xml databases

	my @filelist = split(/,/,$dbfileList);

	# return status

	my $retStatus = 0;

	# default mode is strict

	$strictFlg=0 if(!defined $strictFlg);

	# default mode is nonverbose

	$verboseFlg=0 if(!defined $verboseFlg);

	# multiple file support is not applicable for feature registry option

	if( (@filelist > 1) && (!$fmFlag) ) {

		&ERROR("Multiple XML database file support is not applicable for featureregistry option");

		return 0;

	}

	if($fmFlag) # Feature manager option handling

	{

		# create the object of feature manager class

		$xmlDBHandle = new featuremanager;

		if($xmlDBHandle) {

			foreach my $file (@filelist) 

			{

				my $status = 1;

				if(-e $file) {

					&MSG("Parsing $file");

					# parse the feature manager xml file

					$status = $xmlDBHandle->parseXMLFile($file);

					if(! $status) {

						# create the object of feature registry class

						my $registryObj = new featureregistry;

						# parse the feature registry xml file

						$status = $registryObj->parseXMLFile($file);

						if($status < 0) {

							if($strictFlg) {

								&ERROR("Invalid features database $file");

								$xmlDBHandle = undef;

								return 0;

							}

							else {

								&WARN("Invalid features database $file");

							}

						}

						elsif(! $status) {

							# if the xml file is not valid feature list xml file

							if($strictFlg) {

								&ERROR("Error in reading features database file \"$file\"");

								$xmlDBHandle = undef;

								return 0;

							}

							else {

								&WARN("Error in reading features database file \"$file\"");

							}

						}

						else {

							MSG("Converting featureregistry database to featuremanager");

							# add the feature registry file object to the feature manager file object

							if(! $xmlDBHandle->addFeatureRegistry($registryObj)) {

								if($strictFlg) {

									MSG("Error in reading features database file \"$file\"");

									$xmlDBHandle = undef;

									return 0;

								}

								else {

									&WARN("Error in reading features database file \"$file\"");

								}

							}

							else {

								# parsing feature registry database success

								$retStatus = 1;

							}

						}

					}

					elsif( $status < 0 ) {

						if($strictFlg) {

							&ERROR("Invalid features database $file");

							$xmlDBHandle = undef;

							return 0;

						}

						else {

							&WARN("Invalid features database $file");

						}

					}

					else {

						# parsing feature manager database success

						$retStatus = 1;

					}

				}

				else {

					if(!$strictFlg) {

						&WARN($file." doesn\'t exist");

						next;

					}

					else {

						&ERROR($file." doesn\'t exist");

						$xmlDBHandle = undef;

						return 0;

					}

				}

			}

		}

		else {

			&ERROR("Couldn't create feature parser object");

		}

	}

	else # Feature registry file handling

	{

		if(@filelist) {

			my $file = $filelist[0];

			$xmlDBHandle = new featureregistry;

			if($xmlDBHandle) {

				if(-e $file) {

					MSG("Parsing $file");

					my $status = $xmlDBHandle->parseXMLFile($file);

					if($status < 0) {

						&ERROR($file." is invalid feature registry file");

						$xmlDBHandle = undef;

						return 0;

					}

					elsif(!$status) {

						&ERROR("Error in reading feature registry file ".$file);

						$xmlDBHandle = undef;

					}

					else {

						# parsing feature registry database success

						$retStatus = 1;

					}

				}

				else {

					if(!$strictFlg) {

						&WARN($file." doesn\'t exist -- ");

					}

					else {

						&ERROR($file." doesn\'t exist -- ");

					}				

					$xmlDBHandle = undef;

				}

			}

			else {

				&ERROR("Couldn't create feature parser object");

			}

		}

	}

	if($retStatus) {

		return $xmlDBHandle

	}

	else {

		return $retStatus;

	}

}

# Subroutine to generate feature manager database file from the given feature registry database

# @param strictFlg - strict mode flag

# @param verboseFlg - verbose mode flag

# @param outpath - destination path for the converted database file(s)

# @param dblist - list of xml file names

sub convert_FeatRegToFeatMgr

{

	$strictFlg = shift;

	$verboseFlg = shift;

	my $outpath = shift;

	my @dblist = @_;

	# default mode is strict

	$strictFlg=0 if(!defined $strictFlg);

	# default mode is nonverbose

	$verboseFlg=0 if(!defined $verboseFlg);

	foreach my $file (@dblist)

	{

		# Create the object of feature registry

		my $fileHandle = new featureregistry;

		if(-e $file) {

			# Parse the database

			if($fileHandle->parseXMLFile($file) > 0) {

				MSG("Converting Feature Registry database $file");

				# Create directory if it doesn't exists

				if(!(-e $outpath)) {

					if(!mkdir($outpath)) {

						&ERROR("Failed to create $outpath folder");

						return 0;

					}

				}

				# Emit the contents of feature registry object into an feature manager database file

				&generateXML($fileHandle, $outpath);

			}

		}

		else {

			if(!$strictFlg) {

				&WARN($file." doesn\'t exist -- ");

				next;

			}

			else {

				&ERROR($file." doesn\'t exist -- ");

				return 0;

			}

		}

	}

}

# Subroutine to emit XML output for the given featureregistry object

# @param frObject - object of feature registry database

# @param outPath - destination path for the converted database file

sub generateXML

{

	my ($frObject, $outPath) = @_;

	my $outputFile = $frObject->fileName();

	# Extract absolute file name

	if( $outputFile =~ /[\\\/]/) {

		$outputFile =~ /.*[\\\/](.+)\z/;

		$outputFile = $1;

	}

	# Add suffix _converted

	$outputFile =~ s/(.*)([\.].+)\z/$1_converted$2/;

	my $fileHandle = new IO::File(">$outPath$outputFile");

	if($fileHandle) {

		my $writer = XML::Handler::XMLWriter->new(Output => $fileHandle);

		# Header

		$writer->start_document();

		$writer->print("<!--Converted from the feature registry ".$frObject->fileName()."-->\n\n");

		# DOCTYPE

		$writer->print("<!DOCTYPE featuredatabase SYSTEM \"featuredatabase.dtd\">\n\n");

		# Root element begin

		$writer->start_element({Name => 'featuredatabase', Attributes => {}});

		# FeatureSet element

		$writer->print("\n\t");

		$writer->start_element({Name => 'featureset', Attributes => {}});

		my $nameuidmap = $frObject->featureNameUidMap();

		foreach my $uid (sort(values %$nameuidmap)) {

			my $featinfo = $frObject->getFeatureInfo($uid);

			my %attributes = ();

			$attributes{uid} = sprintf("0x%08X",$uid);

			$attributes{statusflags} = "0x00000001";

			$attributes{name} = $featinfo->{name};

			$writer->print("\n\t\t");

			$writer->start_element({Name => 'feature', Attributes => \%attributes});

			$writer->end_element({Name => 'feature'});

		}

		$writer->print("\n\t");

		$writer->end_element({Name => 'featureset'});

		# defaultfeaturerange element

		my $rangeList = $frObject->defaultRangeList();

		foreach my $range (@$rangeList) {

			my %attributes = ();

			next if(lc($range->{support}) eq "exclude");

			$attributes{higheruid} = sprintf("0x%08X",$range->{max});

			$attributes{loweruid} = sprintf("0x%08X",$range->{min});

			$writer->print("\n\t");

			$writer->start_element({Name => 'defaultfeaturerange', Attributes => \%attributes});

			$writer->end_element({Name => 'defaultfeaturerange'});

		}

		# Root element close

		$writer->print("\n");

		$writer->end_element({Name => 'featuredatabase'});

		# Footer

		$writer->end_document();

	}

	else {

		&ERROR("Failed to create $outPath$outputFile file");

	}

}

# Subroutine to create Feature Registry/Features Data file

# @param romimage				 - Rom image number.

# @param featurefile			 - Feature file number.

# @param featurefilename		 - Name of the feature file to be generated.

# @param featureslist			 - Reference to array of hashes containing features to included/excluded.

# @param featuremanager			 - Flag to generate features data file.

# @param singleDATfile           - Flag to generate single features.dat file.

sub createFeatureFile

{

	if(!defined ($xmlDBHandle)) 

	{

		ERROR("No XML Database opened");

		return 0;

	}	

	my ($romimage,$featurefile,$featurefilename,$featureslist,$featuremanager,$singleDATfile) = @_;

	# Default setting for singleDATfile flag

	$singleDATfile = 0 if(!defined $singleDATfile);

	# Clear the global include/exclude feature list.

	@includeFeatureList = (); 

	@excludeFeatureList = ();

	for(my $k=0;$k<scalar @$featureslist;$k++)

	{

		if(($singleDATfile) || ($featureslist->[$k]{rom}==$romimage && $featureslist->[$k]{cfgfile} == $featurefile))

		{			

			AddToFeatureList($featureslist->[$k],$featuremanager);

		}

	}

	my $features = &featureparser::getFeatures(\@includeFeatureList, \@excludeFeatureList);

	if (!$features)

	{

		ERROR("No feature file generated for ROM_IMAGE[".$romimage."]");

		return 0;

	}

	else

	{

		my $object;

		if ($featuremanager) 

		{

			$object = new featuresdat($xmlDBHandle);

		}

		else

		{

			$object = new featurecfg($xmlDBHandle);

		}		

		return $object->createFile($featurefilename, $features , $featuremanager);

	}	

}

# Subroutine to add the feature specified to the included/excluded feature list

# @param featureData				 - Reference to hash containing feature information (i.e. name/uid,

# 									   included/excluded,SF and UD).  

# @param featuremanager				 - Flag to generate features data file.

sub AddToFeatureList

{

	my ($featureData, $featuremanager) = @_; 	

	my %feat = ();

	my $feature = $featureData->{feature};		

#	Check if the given value is a feature name.

	my $value = $xmlDBHandle->getFeatureUID($feature);

#	If not a feature, then may be uid value

	if(!defined $value)

	{

		if (!featureparser::IsValidNum($feature)) 

		{

			ERROR("Feature \"".$feature."\" not found in feature list XML");

			return;

		}

		if (&featureparser::ValidateUIDValue($feature))

		{

			my $featureUid = $feature;

			$feature = &featureparser::ConvertHexToDecimal($feature);

			my $featureInfo = $xmlDBHandle->getFeatureInfo($feature);

			if (!$featureInfo)

			{

				ERROR("Feature \"".$featureUid."\" not found in feature list XML");

				return;

			}

			else

			{

				$feat{uid} = $feature;

				$feat{name} = $featureInfo->{name};				

			}

		}

		else

		{

			return;

		}

	}

	else

	{

		$feat{name} = $feature;

		$feat{uid} = $value;		

	}		

	# Set the values of "SF" and "UD" for feature manager.

	if ($featuremanager) 

	{		

		&setFeatureArguments(\%feat,$featureData->{SF},$featureData->{UD});

	}	

	if($featureData->{include} == 1)

	{

		$feat{include} = 1;

		push @includeFeatureList, \%feat;

	}

	else

	{

		$feat{exclude} = 1;

		push @excludeFeatureList, \%feat;

	}

}

# Subroutine to set the values of "SF" and "UD" for the specified feature

# @param feat						- Reference to hash containing information(i.e. name and uid) 

#									  of the specified feature.

# @param SF							- Value of "SF" provided in the iby/oby file. 

# @param UD							- Value of "UD" provided in the iby/oby file.