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