/*

* Copyright (c) 2005-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: 

*

*/

#include "datawrapperbase.h"

/*@{*/

///	Constant Literals used.

_LIT(KPrefixHex,			"0x");

_LIT(KPrefixOctal,			"0");

_LIT(KSuffixBinary,			"b");

_LIT(KIncludeSection,		"include");

_LIT(KFile,					"file%d");

_LIT(KMatch,				"*{*,*}*");

_LIT(KStart,				"{");

_LIT(KSeparator,			",");

_LIT(KEnd,					"}");

_LIT(KDataRead,				"INI READ : %S %S %S");

/*@}*/

CDataWrapperBase::CDataWrapperBase()

:	CDataWrapper()

	{

	}

/**

 * Public destructor

 */

CDataWrapperBase::~CDataWrapperBase()

	{

	iInclude.ResetAndDestroy();

	iBuffer.ResetAndDestroy();

	iFs.Close();

	}

void CDataWrapperBase::InitialiseL()

	{

	iTimer.CreateLocal();

	CDataWrapper::InitialiseL();

	TBuf<KMaxTestExecuteCommandLength>	tempStore;

	TPtrC		fileName;

	TBool		moreData=ETrue;

	TBool		index=0;

	while ( moreData )

		{

		tempStore.Format(KFile(), ++index);

		moreData=GetStringFromConfig(KIncludeSection, tempStore, fileName);

		if (moreData)

			{

			CIniData*	iniData=CIniData::NewL(fileName);

			CleanupStack::PushL(iniData);

			iInclude.Append(iniData);

			CleanupStack::Pop(iniData);

			}

		}

	User::LeaveIfError(iFs.Connect());

	}

/**

 * Reads the value present from the test steps ini file within the mentioned section name and key name

 * Copies the value to the TBool reference passed in possible values TRUE, FALSE

 * @param aSectName - Section within the test steps ini file

 * @param aKeyName - Name of a key within a section

 * @return aResult - The value of the boolean

 * @return TBool - ETrue for found, EFalse for not found 

 */

TBool CDataWrapperBase::GetBoolFromConfig(const TDesC& aSectName,const TDesC& aKeyName,TBool& aResult)

	{

	TBool	ret=EFalse;

	TPtrC	result;

	TRAPD(err, ret=GetCommandStringParameterL(aSectName, aKeyName, result));

	if ( err != KErrNone )

		{

		ret=EFalse;

		}

	if ( ret )

		{

		_LIT(KTrue,"true");

		aResult=(result.FindF(KTrue) != KErrNotFound);

		}

	return ret;

	}

/**

 * Reads the value present from the test steps ini file within the mentioned section name and key name

 * Copies the value to the TInt reference passed in

 * @param aSectName - Section within the test steps ini file

 * @param aKeyName - Name of a key within a section

 * @return aResult - The value of the integer

 * @return TBool - ETrue for found, EFalse for not found 

 */

TBool CDataWrapperBase::GetIntFromConfig(const TDesC& aSectName, const TDesC& aKeyName, TInt& aResult)

	{

	TPtrC	result;

	TBool	ret=EFalse;

	TRAPD(err, ret=GetCommandStringParameterL(aSectName, aKeyName, result));

	if ( err != KErrNone )

		{

		ret=EFalse;

		}

	if ( ret )

		{

		TLex	lex(result);

		ret=(lex.Val(aResult)==KErrNone);

		}

	return ret;

	}

/**

 * Reads the value present from the test steps ini file within the mentioned section name and key name

 * Copies the value to the TReal reference passed in

 * @param aSectName - Section within the test steps ini file

 * @param aKeyName - Name of a key within a section

 * @return aResult - The value of the real

 * @return TBool - ETrue for found, EFalse for not found 

 */

TBool CDataWrapperBase::GetRealFromConfig(const TDesC& aSectName, const TDesC& aKeyName, TReal& aResult)

	{

	TPtrC result;

	TBool ret=EFalse;

	TRAPD(err, ret=GetCommandStringParameterL(aSectName, aKeyName, result));

	if ( err != KErrNone )

		{

		ret = EFalse;

		}

	if ( ret )

		{

		TLex lex(result);

		ret = ( lex.Val(aResult)==KErrNone );

		}

	return ret;

	}

/**

 * Reads the value present from the test steps ini file within the mentioned section name and key name

 * Copies the value to the TPtrC reference passed in

 * @param aSectName - Section within the test steps ini file

 * @param aKeyName - Name of a key within a section

 * @return aResult - Reference to the string on the heap

 * @return TBool - ETrue for found, EFalse for not found 

 */

TBool CDataWrapperBase::GetStringFromConfig(const TDesC& aSectName, const TDesC& aKeyName, TPtrC& aResult)

	{

	TBool	ret=EFalse;

	TRAPD(err, ret=GetCommandStringParameterL(aSectName, aKeyName, aResult));

	if ( err != KErrNone )

		{

		ret=EFalse;

		}

	return ret;

	}

/**

 * Reads the value present from the test steps ini file within the mentioned section name and key name

 * Copies the value to the TInt reference passed in. The value can optionally be prefixed with 0x

 * @param aSectName - Section within the test steps ini file

 * @param aKeyName - Name of a key within a section

 * @return aResult - The integer value of the Hex input

 * @return TBool - ETrue for found, EFalse for not found 

 */	

TBool CDataWrapperBase::GetHexFromConfig(const TDesC& aSectName, const TDesC& aKeyName, TInt& aResult)

	{

	TPtrC	result;

	TBool	ret=EFalse;

	TRAPD(err, ret=GetCommandStringParameterL(aSectName, aKeyName, result));

	if ( err != KErrNone )

		{

		ret=EFalse;

		}

	if ( ret )

		{

		TLex	lex;

		if( result.FindC(KPrefixHex)==KErrNone )

			{

			lex=result.Mid(KPrefixHex().Length());

			}

		else

			{

			lex=result;

			}

		ret=(lex.Val((TUint &)aResult, EHex)==KErrNone);

		}

	return ret;

	}

/**

 * Reads the value present from the test steps ini file within the mentioned section name and key name

 * Copies the value to the TUint reference passed in.

 * If the value is prefixed with 0x the value is read as a hexidecimal value

 * If the value is suffixed with b the value is read as a binary value

 * If the value is prefixed with a 0 the value is read as an octal value

 * If it does not match the above it is read in as an integer

 * @param aSectName - Section within the test steps ini file

 * @param aKeyName - Name of a key within a section

 * @return aResult - The integer value of the Hex input

 * @return TBool - ETrue for found, EFalse for not found 

 */	

TBool CDataWrapperBase::GetUintFromConfig(const TDesC& aSectName, const TDesC& aKeyName, TUint& aResult)

	{

	TPtrC	result;

	TBool	ret=EFalse;

	TRAPD(err, ret=GetCommandStringParameterL(aSectName, aKeyName, result));

	if ( err != KErrNone )

		{

		ret=EFalse;

		}

	if ( ret )

		{

		TLex	lex(result);

		if( result.FindC(KPrefixHex)==KErrNone )

			{

			lex=result.Mid(KPrefixHex().Length());

			ret=(lex.Val(aResult, EHex)==KErrNone);

			}

		else

			{

			TInt	binarySuffixPosition=result.Length()-KSuffixBinary().Length();

			if ( result.FindC(KSuffixBinary)==binarySuffixPosition )

				{

				lex=result.Left(binarySuffixPosition);

				ret=(lex.Val(aResult, EBinary)==KErrNone);

				}

			else

				{

				if( result.FindC(KPrefixOctal)==KErrNone )

					{

					ret=(lex.Val(aResult, EOctal)==KErrNone);

					}

				else

					{

					TInt	intResult;

					ret=(lex.Val(intResult)==KErrNone);

					if ( ret )

						{

						aResult=(TUint)intResult;

						}

					}

				}

			}

		}

	return ret;

	}

/**

 *   Return array of string parameters i.e. key=a1,a2,a3 returns array which contains

 *   String a1, a2 and a3.

 *   @return ret - EFalse if can't get a String parameter from Config file.  ETrue if KErrNone

 */

TBool CDataWrapperBase::GetArrayRectFromConfig(const TDesC& aSectName, const TDesC& aKeyName, RPointerArray<HBufC>& aResult)

	{

	TBool	ret=EFalse;

	TPtrC completeArray;

	TRAPD(err, ret=GetCommandStringParameterL(aSectName, aKeyName, completeArray));

	if ( err != KErrNone )

		{

		ret=EFalse;

		}

    TLex16 lex(completeArray); // Here we have the array as a string i.e. "a1,a2,a3"

    TBuf<256> buf;

    TChar chr;

    while(!lex.Eos())

        {

        chr = lex.Get();

        // Check if there was a list separator

        if ((chr == ',') && (lex.Peek() == '('))

            {

            HBufC* param = buf.AllocLC();

            buf.Zero();

            aResult.Append(param);

            CleanupStack::Pop(param); // pointer to buf is stored in RPointerArray

            }

        // If not separator character we can store the character into array

        else

            {

            buf.Append(chr);

            }

        }

    // Remember to put last token into array (,a3)

    HBufC* param = buf.AllocLC();

    aResult.Append(param);

    CleanupStack::Pop(param);

    return ret;

	}

/**

 * Reads the parameter	asociated to the specified command

 * @param aSectName	Section on ini file

 * @param aKeyName		Name of the parameter

 * @param aResult			descriptor containing parameter

 * @return TBool  ETrue for found, EFalse for not found 

 */

TBool CDataWrapperBase::GetCommandStringParameterL(const TDesC& aSectName, const TDesC& aKeyName, TPtrC& aResult)

	{

	TBool	ret=EFalse;

	if ( aSectName.Length()!=0 )

		{

		ret=CDataWrapper::GetStringFromConfig(aSectName, aKeyName, aResult);

		for ( TInt index=iInclude.Count(); (index>0) && (!ret); )

			{

			ret=iInclude[--index]->FindVar(aSectName, aKeyName, aResult);

			}

		}

	if ( ret )

		{

		if ( aResult.Match(KMatch)!=KErrNotFound )

			{

			//	We have an entry of the format

			//	entry =*{section,entry}*

			//	where * is one or more characters

			//	We need to construct this from other data in the ini file replacing {*,*}

			//	with the data from

			//	[section]

			//	entry =some_value

			HBufC*	buffer=HBufC::NewLC(aResult.Length());

			buffer->Des().Copy(aResult);

			TInt	startLength=KStart().Length();

			TInt	sparatorLength=KSeparator().Length();

			TInt	endLength=KEnd().Length();

			TInt	bufferLength;

			TInt	start;

			TInt	sparator;

			TInt	end;

			TPtrC	remaining;

			TLex	lex;

			do

				{

				bufferLength=buffer->Length();

				start=buffer->Find(KStart);

				remaining.Set(buffer->Des().Right(bufferLength-start-startLength));

				sparator=remaining.Find(KSeparator);

				remaining.Set(remaining.Right(remaining.Length()-sparator-sparatorLength));

				sparator += (start + startLength);

				end=remaining.Find(KEnd) + sparator + sparatorLength;

				TPtrC	sectionName(buffer->Ptr()+start+startLength, sparator-start-startLength);

				TPtrC	keyName(buffer->Ptr()+sparator+sparatorLength, end-sparator-sparatorLength);

				sectionName.Set(TLex(sectionName).NextToken());

				keyName.Set(TLex(keyName).NextToken());

				TInt	entrySize=0;

				TPtrC	entryData;

				TBool	found=CDataWrapper::GetStringFromConfig(sectionName, keyName, entryData);

				for ( TInt index=iInclude.Count(); (index>0) && (!found);  )

					{

					found=iInclude[--index]->FindVar(sectionName, keyName, entryData);

					}

				if ( found )

					{

					entrySize=entryData.Length();

					}

				TInt	newLength=start + bufferLength - end - endLength + entrySize;

				HBufC*	bufferNew=HBufC::NewLC(newLength);

				bufferNew->Des().Copy(buffer->Ptr(), start);

				if ( entrySize>0 )

					{

					bufferNew->Des().Append(entryData);

					}

				bufferNew->Des().Append(buffer->Ptr() + end + endLength, bufferLength - end - endLength);

				CleanupStack::Pop(bufferNew);

				CleanupStack::PopAndDestroy(buffer);

				buffer=bufferNew;

				CleanupStack::PushL(buffer);

				}

			while ( buffer->Match(KMatch)!=KErrNotFound );

			iBuffer.Append(buffer);

			CleanupStack::Pop(buffer);

			aResult.Set(*buffer);

			INFO_PRINTF4(KDataRead, &aSectName, &aKeyName , &aResult);

			}

		}

	return ret;

	}

/**

 * Utility function to produce time delay

 * @param aTimeoutInSecs Times in micro seconds

 */

void CDataWrapperBase::Timedelay(TInt aTimeoutInSecs)

	{

	TRequestStatus	status;

	iTimer.After(status, aTimeoutInSecs);

	User::WaitForRequest(status);

	}

TBool CDataWrapperBase::GetEnumFromConfig(const TDesC& aSectName, const TDesC& aKeyName, const TEnumEntryTable* aTable, TInt& aResult)

	{

	TPtrC	str;

	TBool	ret=GetStringFromConfig(aSectName, aKeyName, str);

	if ( ret )

		{

		TBool	found=EFalse;

		TInt	index=0;

		while ( (aTable[index].iValue!=-1) && !found )

			{

			if ( aTable[index].iString==str )

				{

				found=ETrue;

				aResult=aTable[index].iValue;

				}

			else

				{

				++index;

				}

			}

		if ( !found )

			{

			ret=GetIntFromConfig(aSectName, aKeyName, aResult);

			}

		}

	return ret;

	}