/*

* Copyright (c) 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: This file contains TestScripterImp implementation.

*

*/

// INCLUDE FILES

#include <StifTestInterface.h>

#include <StifParser.h>

#include "TestScripterInternal.h"

#include "TestScripter.h"

// EXTERNAL DATA STRUCTURES

//extern  ?external_data;

// EXTERNAL FUNCTION PROTOTYPES  

//extern ?external_function( ?arg_type,?arg_type );

// CONSTANTS

//const ?type ?constant_var = ?constant;

// MACROS

//#define ?macro ?macro_def

// LOCAL CONSTANTS AND MACROS

//const ?type ?constant_var = ?constant;

//#define ?macro_name ?macro_def

// MODULE DATA STRUCTURES

//enum ?declaration

//typedef ?declaration

// LOCAL FUNCTION PROTOTYPES

//?type ?function_name( ?arg_type, ?arg_type );

// FORWARD DECLARATIONS

//class ?FORWARD_CLASSNAME;

// ============================= LOCAL FUNCTIONS ===============================

// None

// ============================ MEMBER FUNCTIONS ===============================

// -----------------------------------------------------------------------------

// CScriptBase::CScriptBase

// Constructor.

// -----------------------------------------------------------------------------

//

EXPORT_C CScriptBase::CScriptBase( CTestModuleIf& aTestModuleIf ):

    iTestModuleIf( aTestModuleIf )

    {

	// Handles multible 'waittestclass' given in test configure file.

    iSignalErrors.Reset();

    }

// -----------------------------------------------------------------------------

// CScriptBase::TestModuleIf

// Get reference to TestModuleIf API.

// -----------------------------------------------------------------------------

//

EXPORT_C CTestModuleIf& CScriptBase::TestModuleIf()

    { 

    return iTestModuleIf; 

    }

// -----------------------------------------------------------------------------

// CScriptBase::Signal

// Signal TestScripter to continue from waittestclass.

// -----------------------------------------------------------------------------

//

EXPORT_C void CScriptBase::Signal( TInt aError )

    { 

    if( iStatus ) 

        {

        User::RequestComplete( iStatus, aError ); 

        }

    else

    	{

		// Handles multible 'waittestclass' given in test configure file.

		// There is active object in CTestRunner also and it has higher

		// priority than CTestContinue(It must be higher that e.g.

		// 'allownextresult' is gotten right from configure file). That why we

		// have to use this array and take signal "count" to the array for

		// later handling.

    	iSignalErrors.Append( aError );

    	}

    }

// -----------------------------------------------------------------------------

// CScriptBase::CallTestClass

// Called from test class. TestScripter forwards

// operations to other test class object.

// aLine: in: <object name> <method name> <parameters>

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::CallTestClass( const TDesC& aLine )

    { 

    if( iFunc )

        {

        return iFunc( iTestScripter, EStifTSCallClass, aLine ); 

        }

    return KErrNotSupported;

    };

// -----------------------------------------------------------------------------

// CScriptBase::GetTestObject

// Get test class object address.

// -----------------------------------------------------------------------------

//

EXPORT_C CScriptBase* CScriptBase::GetTestObject( const TDesC& aObjectName )

    { 

    if( iFunc )

        {

        TInt ret = iFunc( iTestScripter, EStifTSGetObject, aObjectName );

        if( ret > 0 )

            {

            return( CScriptBase* )ret;

            } 

        }

    return NULL;

    };

// -----------------------------------------------------------------------------

// CScriptBase::EnableSignal

// Enable Signal().

// -----------------------------------------------------------------------------

//

EXPORT_C void CScriptBase::EnableSignal( TRequestStatus& aStatus )

    { 

    aStatus = KRequestPending; 

    iStatus = &aStatus; 

	// Handles multible 'waittestclass' given in test configure file.

    if( iSignalErrors.Count() > 0 )

    	{

		// Complete signal and remove it from array.

    	TInt error = iSignalErrors[0];

    	iSignalErrors.Remove( 0 );

    	User::RequestComplete( iStatus, error ); 

    	}

    }

// -----------------------------------------------------------------------------

// CScriptBase::CancelSignal

// Cancel Signal().

// -----------------------------------------------------------------------------

//

EXPORT_C void CScriptBase::CancelSignal()

    { 

    if(iStatus!=NULL)

        {

        User::RequestComplete( iStatus, KErrCancel ); 

        }

    }

// -----------------------------------------------------------------------------

// CScriptBase::SetScripter

// Set scripter callback.

// -----------------------------------------------------------------------------

//

EXPORT_C void CScriptBase::SetScripter( CallBackFunc aFunc, CTestScripter* aTestScripter )

    { 

    iTestScripter = aTestScripter; 

    iFunc = aFunc; 

    }

// -----------------------------------------------------------------------------

// CScriptBase::RunInternalL

// Run specified method from test class.

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::RunInternalL ( 

    TStifFunctionInfo const aFunctions[], 

    TInt aCount, 

    CStifItemParser& aItem  ) 

    {

    TInt ret = KErrNotFound;

    TPtrC command; 

    User::LeaveIfError ( aItem.GetNextString( command ) );

    TInt i = 0;

    TName funcName;

    // Search function from table and call it

    for ( i = 0; i < aCount; i++ )

        {

        funcName = aFunctions[i].iFunctionName;      

        if ( command == funcName )

            {

            if( iLog )

                {

                iLog->Log(_L("Calling [%S]"), &command );

                }

            ret  = ( this->*(aFunctions[i].iMethod) )( aItem );    

            break;            

            }

        }

    if( i == aCount )

        {

        iLog->Log( _L("[%S] not found"), &command );

        }

    return ret;

    }

// -----------------------------------------------------------------------------

// CScriptBase::GetConstantValue

// Internal fuction to get const value defined in 

// [Define]...[Enddefine] section of script file

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::GetConstantValue( const TDesC& aName, TDes& aValue )

	{	

		return iTestScripter->GetConstantValue( aName, aValue );

	}

// -----------------------------------------------------------------------------

// CScriptBase::GetConstantValue

// Internal fuction to get const value defined in 

// [Define]...[Enddefine] section of script file

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::GetConstantValue( const TDesC& aName, TInt& aValue )

	{	

	TInt ret = KErrNone;

	TBuf<32> valStr;

	ret = iTestScripter->GetConstantValue( aName, valStr );

	if ( ret != KErrNone )

	{

		return ret;

	}

	TLex converter( valStr );

	ret = converter.Val( aValue );

	return ret;

	}

// -----------------------------------------------------------------------------

// CScriptBase::GetConstantValue

// Internal fuction to get const value defined in 

// [Define]...[Enddefine] section of script file

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::GetConstantValue( const TDesC& aName, TReal& aValue )

	{	

	TInt ret = KErrNone;

	TBuf<32> valStr;

	ret = iTestScripter->GetConstantValue( aName, valStr );

	if ( ret != KErrNone )

	{

		return ret;

	}

	TLex converter( valStr );

	ret = converter.Val( aValue );

	return ret;

	}

// -----------------------------------------------------------------------------

// CScriptBase::SetResultDescription

// Result description can be set from within the test class method 

// -----------------------------------------------------------------------------

//

EXPORT_C void CScriptBase::SetResultDescription(const TDesC& aDescription)

	{

	iTestScripter->SetResultDescription(aDescription);

	}

// -----------------------------------------------------------------------------

// CScriptBase::SetLocalValue

// Internal fuction to set local value

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::SetLocalValue(const TDesC& aName, const TDesC& aValue)

    {	

		return iTestScripter->SetLocalValue(aName, aValue);

    }

// -----------------------------------------------------------------------------

// CScriptBase::SetLocalValue

// Internal fuction to set local value

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::SetLocalValue(const TDesC& aName, const TInt aValue)

    {

    TBuf<20> buf;

    buf.Format(_L("%d"), aValue);

    return iTestScripter->SetLocalValue(aName, buf);

    }

// -----------------------------------------------------------------------------

// CScriptBase::SetLocalValue

// Internal fuction to set local value

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::SetLocalValue(const TDesC& aName, const TReal aValue )

    {	

    TBuf<50> buf;

    buf.Format(_L("%g"), aValue);

    return iTestScripter->SetLocalValue(aName, buf);

    }	

// -----------------------------------------------------------------------------

// CScriptBase::GetLocalValue

// Internal fuction to get local value

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::GetLocalValue(const TDesC& aName, TDes& aValue)

    {	

		return iTestScripter->GetLocalValue(aName, aValue);

    }

// -----------------------------------------------------------------------------

// CScriptBase::GetLocalValue

// Internal fuction to get local value

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::GetLocalValue(const TDesC& aName, TInt& aValue)

    {

    TInt ret = KErrNone;

    TBuf<50> valStr;

    ret = iTestScripter->GetLocalValue(aName, valStr);

    if(ret != KErrNone)

        {

        return ret;

        }

    TLex converter(valStr);

    ret = converter.Val(aValue);

    return ret;

    }

// -----------------------------------------------------------------------------

// CScriptBase::GetLocalValue

// Internal fuction to get local value

// -----------------------------------------------------------------------------

//

EXPORT_C TInt CScriptBase::GetLocalValue(const TDesC& aName, TReal& aValue )

    {

    TInt ret = KErrNone;

    TBuf<50> valStr;

    ret = iTestScripter->GetLocalValue(aName, valStr);

    if(ret != KErrNone)

        {

        return ret;

        }

    TLex converter(valStr);

    ret = converter.Val(aValue);

    return ret;

    }

// End of File