--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/imgtools/buildrom/tools/featurecfg.pm	Tue Oct 27 16:36:35 2009 +0000
@@ -0,0 +1,96 @@
+#
+# 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: 
+# featureregistry.pm
+#
+
+# This package contains routines to create the feature registry file.
+use featurefile;
+package featurecfg;
+
+BEGIN
+{
+	@ISA = qw (featurefile);	# Declare this a child of featurefile class
+}       
+
+use featureparser;
+use strict;
+
+# Class constructor
+sub new
+{
+	my ($class,$xmlDBHandle) = @_;
+	my $object = $class->SUPER::new($xmlDBHandle); # Invoke base class new function
+		
+	$object->{_FEATURELIST} = undef;
+	$object->{_FEATUREHASHMAP} = undef;	
+	$object->{_FILEVERSION} = 0;
+
+	return $object;
+}
+
+# Subroutine to create feature map
+# @param $object					- Object reference which is passed implicitly
+sub createFeatureMap
+{
+	my $object = shift;		
+	
+	foreach my $fidMain (@{$object->{_FEATURELIST}}) 
+	{
+		my $fid = $fidMain->{uid};
+		
+#		Check whether the feature is present in feature list XMl file or not.
+#		If not, then generate an error message and discard this feature.
+		if (!$object->isPresentInFeatureListXML($fidMain)) 
+		{
+			next;
+		}	
+
+#		Initialise the status bit
+		$fidMain->{status} = 0;
+
+#		If a feature is to be included in Rom, then set the 0th bit.
+#		If a feature is explicitly to be excluded from ROM, then nothing is to be done, 
+#		since the 0th bit is already set to zero.
+		if ($fidMain->{include} == 1)
+		{
+			$fidMain->{status} |= 1;
+		}
+
+		my $featInfoRef = ($object->{_XMLDBHANDLE})->getFeatureInfo($fid);
+
+#		Check if the individual feature is installable, If so, set the 1st bit.
+		if($featInfoRef->{installable} eq "true")
+		{
+			$fidMain->{status} |= 2;
+		}
+		
+		$object->{_FEATUREHASHMAP}->{$fid} = $fidMain->{status};
+	}	
+}
+
+# Subroutine to write the feature entries in the feature registry configuration file.
+# @param $object					- Object reference which is passed implicitly
+sub writeFeatures
+{
+	my $object = shift;
+
+	foreach my $featureId (sort {$a <=> $b} (keys %{$object->{_FEATUREHASHMAP}}))
+	{
+		$object->write2File($featureId);
+		$object->write2File($object->{_FEATUREHASHMAP}->{$featureId});
+	}
+}
+
+1;
\ No newline at end of file