// Copyright (c) 1999-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:
//

/**
 @file
 @internalAll
*/

#include <ir_sock.h>
#include "client_util.H"

EXPORT_C TIASResponse::TIASResponse()
/** Default constructor. Marks the response type as missing.

@see TIASDataType */
	{
	SetLength(1);
	operator[](0)=EIASDataMissing;
	}

void TIASResponse::SetToInteger(TUint anInteger)
//
// set the response data to the specified integer
//
	{
	SetLength(5);
	operator[](0)=(TUint8)EIASDataInteger;
	BigEndian::Put32(WPtr()+1,anInteger);
	}

void TIASResponse::SetToCharString(const TDesC8& aCharString)
//
// set the response data to the specified integer
//
	{
	__ASSERT_ALWAYS(aCharString.Length()<=256,IrdaUtil::Panic(EIASResponseDes8Overflow));
	SetLength(3);
	operator[](0)=(TUint8)EIASDataUserString;				// Type field
	operator[](1)=(TUint8)EIASCharSetUserStringASCII;		// Character set
	operator[](2)=(TUint8)aCharString.Size();				// String Size

	Append(aCharString);
	}

#ifdef _UNICODE
void TIASResponse::SetToCharString(const TDesC16& aWideString)
//
// set the response data to the specified integer
//
	{
	__ASSERT_ALWAYS(aWideString.Size()<=256,IrdaUtil::Panic(EIASResponseDes8Overflow));
	SetLength(3);
	operator[](0)=(TUint8)EIASDataUserString;				// Type field
	operator[](1)=(TUint8)EIASCharSetUserStringUnicode;		// Character Set
	operator[](2)=(TUint8)aWideString.Size();				// String Size

	TUint8* narrowPtr = (TUint8*)(aWideString.Ptr());
	TPtr8  narrowString(narrowPtr,aWideString.Size(),aWideString.Size());
	Append(narrowString);
	}
#endif

void TIASResponse::SetToOctetSeq(const TDesC8& aBinData)
//
// set the response data to the specified integer
//
	{
	__ASSERT_ALWAYS(aBinData.Length()<=256,IrdaUtil::Panic(EIASResponseDes8Overflow));
	SetLength(3);
	operator[](0)=(TUint8)EIASDataOctetSequence;			// Type field
	BigEndian::Put16(WPtr()+1,(TUint16)aBinData.Length());
	Append(aBinData);
	}

//
// Suck out an octet sequence if there is one.
//
EXPORT_C TInt TIASResponse::GetInteger(TInt &aResult,TInt anIndex) const
/** Returns the response integer.

This is called if the response type indicates an integer.

@param aResult On return, contains the 32-bit response integer value. 
@param anIndex Reserved for future use. This argument must be allowed to default 
to 0 and must not be overriden. 
@return KErrNone, if successful. KErrCorrupt, if the response type is not an 
integer. */
	{
	if (Type()!=EIASDataInteger)
		return KErrCorrupt;
	// IAS Integers are 4 bytes, zero indexed with one length byte.
	if (Length()<5+anIndex*4)
		return KErrCorrupt;
	aResult=BigEndian::Get32(Ptr()+1);
	return KErrNone;
	}

//
// Suck out an octet sequence if there is one.
//
EXPORT_C TInt TIASResponse::GetOctetSeq(TDes8 &aResult,TInt anIndex) const
/** Returns the response binary data.

@param aResult On return, contains the the binary data. The number of bytes 
returned can never be greater than (KMaxQueryStringLength - 3). 
@param anIndex Reserved for future use. 
@return KErrNone, if successful. KErrCorrupt, if the response type is not binary 
data. KErrNotSupported, if a non-zero value has been specified for anIndex. */
	{
	if (anIndex>0)
		return KErrNotSupported;
	if (Type()!=EIASDataOctetSequence)
		return KErrCorrupt;

	aResult.Copy(Ptr()+3,operator[](2));
	return KErrNone;	
	}

//
// Suck out an ASCII/ISO string if there is one.
//
EXPORT_C TInt TIASResponse::GetCharString(TDes8 &aResult,TInt anIndex) const
/** Returns the response string.

This is called if the response type indicates a string.

@param aResult On return, an 8 bit modifiable descriptor containing the response 
string. The length of the response string can never be greater than the value 
of (KMaxQueryStringLength - 3). 
@param anIndex Reserved for future use. This argument must be allowed to default 
to 0 and must not be overriden. 
@return If successful, one of the TIASCharSet enumerator values defining the 
character set encoding of the response string. KErrNotSupported, if a non-zero 
value has been specified for anIndex. KErrCorrupt, if the response type is 
not a string. 
@see TIASResponse::Type() */
	{
	if (anIndex>0)
		return KErrNotSupported;
	if (Type()!=EIASDataUserString)
		return KErrCorrupt;

	TUint8 charSet = operator[](1);
	TInt returnValue = static_cast<TInt>(charSet);
	aResult.Copy(Ptr()+3,operator[](2));

	return returnValue;
	}

//
// Suck out an ASCII/ISO string if there is one.
//
EXPORT_C const TPtrC8 TIASResponse::GetCharString8(TInt anIndex) const
/** Returns a non-modifiable pointer descriptor representing the response string.

This is called if the response type indicates a string.

@param anIndex Reserved for future use. This argument must be allowed to default 
to 0 and must not be overriden. 
@return A non-modifiable pointer descriptor representing the response string. 
If the response type is not a string or the string is flagged as being UNICODE, 
then this pointer descriptor is empty, i.e. it has zero length. 
@see TIASResponse::Type() */
	{
	TPtr8 p(NULL,0);

	if (anIndex>0)
		return p;
	if (Type()!=EIASDataUserString || operator[](3)==EIASCharSetUserStringUnicode)
		return p;

	p.Set(WPtr()+3,operator[](2),operator[](2));

	return TPtrC8(p);
	}

//
// Suck out a unicode string if there is one.
//
EXPORT_C TInt TIASResponse::GetCharString(TDes16 &/*aResult*/,TInt /*anIndex*/) const
/** Gets a TDes16 string of unicode characters from the TIASResponse object. */
	{
	if (Type()!=EIASDataUserString && operator[](3)!=EIASCharSetUserStringUnicode)
		return KErrCorrupt;
	return KErrNotSupported;
	}

//
// Suck out a unicode string if there is one.
//
EXPORT_C const TPtrC16 TIASResponse::GetCharString16(TInt /*anIndex*/) const
/** Gets a TPtrC16 string of unicode characters from the TIASResponse object. */
	{
	return TPtr16(NULL,0);
	}

EXPORT_C TBool TIASResponse::IsList() const
	{
	return operator[](0)>0;
	}

EXPORT_C TInt TIASResponse::NumItems() const
	{
	return operator[](0);
	}

EXPORT_C TIASDataType TIASResponse::Type() const
	{
	if ((operator[](0)>EIASDataMissing)&&(operator[](0)<=EIASDataUserString))
		return  (TIASDataType)operator[](0);
	else
		return EIASDataMissing;
	}

// EOF