#!perl -w

 # 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 "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:

 # This simple script shows how simple it is to create a feature set data file

 # using the 'FMCreate', 'FeatureFlag' and 'FeatureDSR' classes.

 # 

 #

 use strict;

 use fmcreate;

 use featureflag;

 use featuredsr;

 #

 # First create a 'FMCreate' object. Note that the typefield defaults to "feat",

 # the fileversion defaults to '1', fileflags to '0'. Initially it contains no

 # feature flags or default supported ranges.

 #

 my $fmc = FMCreate->new();

 die "Couldn't create an 'FMCreate' object" unless(ref($fmc));

 #

 # Now we can do all sorts of things with this object - for example populating

 # it from an existing file (using the LoadUp method). But let's populate it

 # manually..

 #

 #

 # Create a feature flag object. The arguments are UID, status flag (defaults

 # to zero) and user data word. 

 #

 my $ff = FeatureFlag->new(0xabcd1234, undef, 0xf00df00d);

 die "Couldn't create a 'FeatureFlag' object" unless(ref($ff));

 #

 # Change some bits in the status flags.

 #

 $ff->Modifiable(1);

 $ff->BlackListed(0);

 $ff->Uninitialized(1);

 # Hey, I've decided I don't like the user data word (0xf00df00d) we defined

 # when we created $ff, so lets change it..

 $ff->UserData(0x12344331);

 # We need to add the feature flag to the 'FMCreate' object - they aren't tied

 # in any way yet. 

 $fmc->AddFeatureFlag($ff);

 # Create another FeatureFlag. We can't re-use the '$ff' object (without doing

 # another 'new') because '$fmc' owns it now and holds a reference to it.

 # This line creates a totally separate FeatureFlag object which we can set up

 # in any way we like - but we must remember to add it to '$fmc'.

 $ff = FeatureFlag->new(0xfedcba98);

 $fmc->AddFeatureFlag($ff);

 # Modify $ff - this is already in '$fmc' but that's ok - perhaps we want to

 # modify one that's already in.

 $ff->UserData(0x42);

 $ff->BlackListed(1);

 # Ok now create a couple of 'default supported range' objects. Again we

 # have to add these to the '$fmc' FMCreate object.

 my $dsr1 = FeatureDSR->new(0x10000000, 0x10000005);

 my $dsr2 = FeatureDSR->new(0x10000050, 0x10000055);

 die "Failed to create 'FeatureDSR' object"  unless(ref($dsr1) and ref($dsr2));

 # Add them in the wrong order to '$fmc'. Note that 'FMCreate' does not check

 # for duplicate default supported range objects (or FeatureFlag objects for

 # that matter).

 $fmc->AddFeatureDSR($dsr2);

 $fmc->AddFeatureDSR($dsr1);

 # OK, the FMCreate object '$fmc' is fairly well populated now. Lets display

 # the content.. There also are methods to just show the header information, the

 # FeatureFlag information and FeatureDSR information.

 $fmc->ShowALL();

 # Let's write the features to a binary file..

 print "\n\n\nWriting feature set data to 'featureset.dat'\n";

 $fmc->WriteToFile("featureset.dat")

 	   	or die "Couldn't write to feature set data file 'featureset.dat'\n";