sl@0: #!perl -w
sl@0: # Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: # All rights reserved.
sl@0: # This component and the accompanying materials are made available
sl@0: # under the terms of "Eclipse Public License v1.0"
sl@0: # which accompanies this distribution, and is available
sl@0: # at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: #
sl@0: # Initial Contributors:
sl@0: # Nokia Corporation - initial contribution.
sl@0: #
sl@0: # Contributors:
sl@0: #
sl@0: # Description:
sl@0: # This simple script shows how simple it is to create a feature set data file
sl@0: # using the 'FMCreate', 'FeatureFlag' and 'FeatureDSR' classes.
sl@0: # 
sl@0: #
sl@0: 
sl@0: use strict;
sl@0: use fmcreate;
sl@0: use featureflag;
sl@0: use featuredsr;
sl@0: 
sl@0: #
sl@0: # First create a 'FMCreate' object. Note that the typefield defaults to "feat",
sl@0: # the fileversion defaults to '1', fileflags to '0'. Initially it contains no
sl@0: # feature flags or default supported ranges.
sl@0: #
sl@0: my $fmc = FMCreate->new();
sl@0: die "Couldn't create an 'FMCreate' object" unless(ref($fmc));
sl@0: 
sl@0: #
sl@0: # Now we can do all sorts of things with this object - for example populating
sl@0: # it from an existing file (using the LoadUp method). But let's populate it
sl@0: # manually..
sl@0: #
sl@0: 
sl@0: #
sl@0: # Create a feature flag object. The arguments are UID, status flag (defaults
sl@0: # to zero) and user data word. 
sl@0: #
sl@0: my $ff = FeatureFlag->new(0xabcd1234, undef, 0xf00df00d);
sl@0: die "Couldn't create a 'FeatureFlag' object" unless(ref($ff));
sl@0: 
sl@0: #
sl@0: # Change some bits in the status flags.
sl@0: #
sl@0: $ff->Modifiable(1);
sl@0: $ff->BlackListed(0);
sl@0: $ff->Uninitialized(1);
sl@0: 
sl@0: # Hey, I've decided I don't like the user data word (0xf00df00d) we defined
sl@0: # when we created $ff, so lets change it..
sl@0: $ff->UserData(0x12344331);
sl@0: 
sl@0: # We need to add the feature flag to the 'FMCreate' object - they aren't tied
sl@0: # in any way yet. 
sl@0: $fmc->AddFeatureFlag($ff);
sl@0: 
sl@0: # Create another FeatureFlag. We can't re-use the '$ff' object (without doing
sl@0: # another 'new') because '$fmc' owns it now and holds a reference to it.
sl@0: # This line creates a totally separate FeatureFlag object which we can set up
sl@0: # in any way we like - but we must remember to add it to '$fmc'.
sl@0: 
sl@0: $ff = FeatureFlag->new(0xfedcba98);
sl@0: $fmc->AddFeatureFlag($ff);
sl@0: 
sl@0: # Modify $ff - this is already in '$fmc' but that's ok - perhaps we want to
sl@0: # modify one that's already in.
sl@0: $ff->UserData(0x42);
sl@0: $ff->BlackListed(1);
sl@0: 
sl@0: 
sl@0: 
sl@0: # Ok now create a couple of 'default supported range' objects. Again we
sl@0: # have to add these to the '$fmc' FMCreate object.
sl@0: my $dsr1 = FeatureDSR->new(0x10000000, 0x10000005);
sl@0: my $dsr2 = FeatureDSR->new(0x10000050, 0x10000055);
sl@0: die "Failed to create 'FeatureDSR' object"  unless(ref($dsr1) and ref($dsr2));
sl@0: 
sl@0: # Add them in the wrong order to '$fmc'. Note that 'FMCreate' does not check
sl@0: # for duplicate default supported range objects (or FeatureFlag objects for
sl@0: # that matter).
sl@0: $fmc->AddFeatureDSR($dsr2);
sl@0: $fmc->AddFeatureDSR($dsr1);
sl@0: 
sl@0: 
sl@0: # OK, the FMCreate object '$fmc' is fairly well populated now. Lets display
sl@0: # the content.. There also are methods to just show the header information, the
sl@0: # FeatureFlag information and FeatureDSR information.
sl@0: $fmc->ShowALL();
sl@0: 
sl@0: 
sl@0: # Let's write the features to a binary file..
sl@0: print "\n\n\nWriting feature set data to 'featureset.dat'\n";
sl@0: $fmc->WriteToFile("featureset.dat")
sl@0: 	   	or die "Couldn't write to feature set data file 'featureset.dat'\n";