/** @file
* Copyright (c) 2007 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:  TUpnpSoapParser
 *
*/


#include "upnpsoapparser.h"

#include "upnpsoapmessage.h"
#include "upnpcontenthandlerscontroller.h"
#include "upnpaction.h"
#include "upnpsoapliterals.h"

// -----------------------------------------------------------------------------
// C++ constructor
// -----------------------------------------------------------------------------
//
TUpnpSoapParser::TUpnpSoapParser(
    CUpnpContentHandlersController& aParsingController )
    : iParsingController( aParsingController )
    {
    }

// -----------------------------------------------------------------------------
// CleanupResetAndDestroy
// Releases array, and object keapt in it.
// Used as method passed to TCleanupItem object.
// -----------------------------------------------------------------------------
//
LOCAL_C void CleanupResetAndDestroy(TAny* aRPointerArray)
    {
    reinterpret_cast<RPointerArray<CUpnpDescriptionProperty>* >(aRPointerArray)
        ->ResetAndDestroy();
    }

// -----------------------------------------------------------------------------
// TUpnpSoapParser::UpdateActionWithOKResponseL
// For internal use. Update all necessary information from a SOAP-message
// that should be OK answer (e.g. received by Http 200 OK message).
// -----------------------------------------------------------------------------
//
void TUpnpSoapParser::UpdateActionWithOKResponseL( CUpnpSoapMessage* aMessage,
    CUpnpAction* aAction )
    {
    if ( NULL == aMessage )
        {
        return;
        }
    RPointerArray<CUpnpDescriptionProperty> parsedValues;
    CleanupStack::PushL( TCleanupItem( CleanupResetAndDestroy, &parsedValues ) );

    UpdateActionL( aMessage, aAction, parsedValues );
    if ( parsedValues[0]->Name() == KUpnpSoapFault )
        {
        UpdateActionFaultL( parsedValues[0], aAction );
        }
    else
        {
        ProcessActionArgumentsL( parsedValues, aAction );
        }
    CleanupStack::PopAndDestroy( &parsedValues );
    }

// -----------------------------------------------------------------------------
// TUpnpSoapParser::UpdateActionWithErrorResponseL
// For internal use. Update all necessary information from a SOAP-message
// that should contain SOAP error (fault) message (eg. received by http
// 500 InternalServerError message.
// -----------------------------------------------------------------------------
//
void TUpnpSoapParser::UpdateActionWithErrorResponseL(
    CUpnpSoapMessage* aMessage, CUpnpAction* aAction )
    {
    if ( NULL == aMessage )
        {
        return;
        }
    RPointerArray<CUpnpDescriptionProperty> parsedValues;
    CleanupStack::PushL( TCleanupItem( CleanupResetAndDestroy, &parsedValues ) );

    UpdateActionL( aMessage, aAction, parsedValues );
    if ( parsedValues[0]->Name() == KUpnpSoapFault )
        {
        UpdateActionFaultL( parsedValues[0], aAction );
        }
    else
        {
        User::Leave( KErrArgument );
        }
    CleanupStack::PopAndDestroy( &parsedValues );
    }

// -----------------------------------------------------------------------------
// TUpnpSoapParser::UpdateActionWithRequestL
// Update action with all necessary information from
// a SOAP request message.
// -----------------------------------------------------------------------------
//
void TUpnpSoapParser::UpdateActionWithRequestL(
    CUpnpSoapMessage* aMessage, CUpnpAction* aAction )
    {
    if ( NULL == aMessage )
        {
        return;
        }
    RPointerArray<CUpnpDescriptionProperty> parsedArguments;
    CleanupStack::PushL( TCleanupItem( CleanupResetAndDestroy, &parsedArguments ) );

    UpdateActionL( aMessage, aAction, parsedArguments );
    ProcessActionArgumentsL( parsedArguments, aAction );
    CleanupStack::PopAndDestroy( &parsedArguments );
    }

// -----------------------------------------------------------------------------
// TUpnpSoapParser::UpdateActionL
// Common code used by 3 particular soap update action methods methods
// @post if there were no leave aParsedValues has at least 1 object within
// -----------------------------------------------------------------------------
//
void TUpnpSoapParser::UpdateActionL( CUpnpSoapMessage* aMessage,
    CUpnpAction* aAction, RPointerArray<CUpnpDescriptionProperty>& aParsedValues )
    {
    aAction->SetSender( aMessage->Sender() );
    aAction->SetLocal( aMessage->Local() );
    aAction->SetSessionId( aMessage->SessionId() );

    iParsingController.ParseSoapL( aMessage->Body(), aParsedValues );
    if ( aParsedValues.Count() == 0 )    //error of parsing, nothing retrieved
        {
        User::Leave( KErrArgument );
        }
    }

// -----------------------------------------------------------------------------
// TUpnpSoapParser::ProcessActionArgumentsL
// Process parsed description property, and the rest of parsed properties
// and update action arguments with them.
// -----------------------------------------------------------------------------
//
void TUpnpSoapParser::ProcessActionArgumentsL(
    RPointerArray<CUpnpDescriptionProperty>& aProperties, CUpnpAction* aAction )
    {
    TRAPD( err, UpdateActionArgumentsL( aProperties, aAction ) );
    if( KErrNone != err )
        {
        if ( EInvalidArgs == err )
            {
            User::Leave( KErrArgument );
            }
        }
    }

// -----------------------------------------------------------------------------
// TUpnpSoapParser::UpdateActionArgumentsL
// Update all action arguments with previously parsed properties.
// -----------------------------------------------------------------------------
//
void TUpnpSoapParser::UpdateActionArgumentsL(
    RPointerArray<CUpnpDescriptionProperty>& aProperties, CUpnpAction* aAction )
    {
    aAction->SetError( EHttpOk );
    for ( TInt i(1); i < aProperties.Count(); ++i )
        {
        CUpnpDescriptionProperty* property = aProperties[i];
        aAction->SetArgumentL( property->Name(), property->Value() );
        }
    }

// -----------------------------------------------------------------------------
// TUpnpSoapParser::UpdateActionFaultL
// Update action error value from parsed description property
// -----------------------------------------------------------------------------
//
void TUpnpSoapParser::UpdateActionFaultL(
    CUpnpDescriptionProperty* aProperty, CUpnpAction* aAction )
    {
    TLex8 code( aProperty->Value() );
    TInt errNumber( aAction->Error() );
    TInt parseErr = code.Val( errNumber );
    aAction->SetError( errNumber );
    User::LeaveIfError( parseErr );
    }

//  End of File