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 to display the content of a feature manager
sl@0: # data file.
sl@0: # 
sl@0: #
sl@0: 
sl@0: use strict;
sl@0: use fmcreate;
sl@0: 
sl@0: #
sl@0: # Find out what file the user is interested in..
sl@0: # Make sure it's specified and exists.
sl@0: #
sl@0: my $datfile = $ARGV[-1];
sl@0: die "Usage: showfeatcontent.pl <featmanager-data-filename>"
sl@0:     unless(defined($datfile));
sl@0: die "Specify an existing file" unless(-f $datfile);
sl@0: 
sl@0: #
sl@0: # Create an object that represents a feature data file.
sl@0: #
sl@0: my $fmc = FMCreate->new();
sl@0: 
sl@0: #
sl@0: # Load the content of the data file into our FMCreate object.
sl@0: # Note that this will die if the content does not seem to be a feature set
sl@0: # file. This can happen if the first four bytes aren't 'feat' or if reading
sl@0: # the file fails at any point. This will also happen if the file is the wrong
sl@0: # size.
sl@0: #
sl@0: $fmc->LoadUp($datfile);
sl@0: 
sl@0: #
sl@0: # Display the content.
sl@0: #
sl@0: $fmc->ShowALL();