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

 #

 use strict;

 #

 # A simple class to maintain a single 'default supported range' feature

 # object.

 #

 package FeatureDSR;

 sub new

 {

 	my $arg = shift;

 	my $class = ref($arg) || $arg;

 	my($low, $high) = @_;

 	my $self = {

 			       lowuid => $low,

 			       highuid => $high,

 				   endian => "LE",

 			   };

 	bless $self, $class;

 	return $self;

 }

 sub LowUID

 {

 	my $self = shift;

 	return undef unless(ref($self));

 	my $arg = shift;

 	return $self->{lowuid} unless(defined($arg));

 	$self->{lowuid} = $arg;

 	return $arg;

 }

 sub HighUID

 {

 	my $self = shift;

 	return undef unless(ref($self));

 	my $arg = shift;

 	return $self->{highuid} unless(defined($arg));

 	$self->{highuid} = $arg;

 	return $arg;

 }

 sub Endian

 {

 	my $self = shift;

 	return undef unless(ref($self));

 	my $arg = shift;

 	return $self->{endian} unless($arg =~ m/(LE|BE)i/);

 	$arg = uc($arg);

 	$self->{endian} = $arg;

 	return $arg;

 }

 # Return the content of this object as packed binary, i.e 8 bytes

 # of the specified endian-ness.

 sub BinaryContent

 {

 	my $self = shift;

 	return undef unless(ref($self));

 	my $packstring = "V2";

 	   $packstring = "N2" if($self->{endian} eq "BE");

 	my $retstring = pack($packstring, ( $self->LowUID, $self->HighUID ) );

 	return $retstring;

 }

 # Display the content of the DSR in english.

 sub Show

 {

 	my $self = shift;

 	return undef unless(ref($self));

 	my $fd = shift;

 	$fd = *STDOUT unless(defined($fd));

 	printf $fd "LOW UID 0x%08x\n", $self->LowUID();

 	printf $fd "HIGH UID 0x%08x\n", $self->HighUID();

 	return 1;

 }

 1;