/*************************************************************************
 *
 *  $RCSfile: scripthandler.cxx,v $
 *
 *  $Revision: 1.1 $
 *
 *  last change: $Author: dfoster $ $Date: 2002-09-20 14:33:13 $
 *
 *  The Contents of this file are made available subject to the terms of
 *  either of the following licenses
 *
 *         - GNU Lesser General Public License Version 2.1
 *         - Sun Industry Standards Source License Version 1.1
 *
 *  Sun Microsystems Inc., October, 2000
 *
 *  GNU Lesser General Public License Version 2.1
 *  =============================================
 *  Copyright 2000 by Sun Microsystems, Inc.
 *  901 San Antonio Road, Palo Alto, CA 94303, USA
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser General Public
 *  License version 2.1, as published by the Free Software Foundation.
 *
 *  This library is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public
 *  License along with this library; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
 *  MA  02111-1307  USA
 *
 *
 *  Sun Industry Standards Source License Version 1.1
 *  =================================================
 *  The contents of this file are subject to the Sun Industry Standards
 *  Source License Version 1.1 (the "License"); You may not use this file
 *  except in compliance with the License. You may obtain a copy of the
 *  License at http://www.openoffice.org/license.html.
 *
 *  Software provided under this License is provided on an "AS IS" basis,
 *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
 *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
 *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
 *  See the License for the specific provisions governing your rights and
 *  obligations concerning the Software.
 *
 *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
 *
 *  Copyright: 2000 by Sun Microsystems, Inc.
 *
 *  All Rights Reserved.
 *
 *  Contributor(s): _______________________________________
 *
 *
 ************************************************************************/

#include <stdio.h>
#include "scripthandler.hxx"

#include <osl/mutex.hxx>
#include <com/sun/star/frame/DispatchResultEvent.hpp>
#include <com/sun/star/frame/DispatchResultState.hpp>
#include <com/sun/star/frame/XController.hpp>
#include <com/sun/star/frame/XModel.hpp>
#include <com/sun/star/lang/XSingleServiceFactory.hpp>

#include <cppuhelper/factory.hxx>
#include <util/util.hxx>

using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::frame;
using namespace ::com::sun::star::util;
using namespace ::com::sun::star::beans;
using namespace ::com::sun::star::lang;
using namespace ::drafts::com::sun::star::script::framework;

namespace scripting_protocolhandler
{

const sal_Char * const MYSERVICENAME = "com.sun.star.frame.ProtocolHandler";
const sal_Char * const  MYIMPLNAME = "com.sun.star.comp.ScriptProtocolHandler";
const sal_Char * MYSCHEME = "script:";
const sal_Int32 MYSCHEME_LEN = 7;

void SAL_CALL ScriptProtocolHandler::initialize( const css::uno::Sequence < css::uno::Any >& aArguments ) throw ( css::uno::Exception )
{
    if (m_bInitialised)
    {
        OSL_TRACE("ScriptProtocolHandler Already initialised");
        return;
    }
    // first argument contains a reference to the frame (may be empty or the desktop, but usually it's a "real" frame)
    aArguments[0] >>= m_xFrame;

    validateXRef(m_xFactory, "ScriptProtocolHandler::initialize: No Service Manager available");
    OSL_TRACE("ScriptProtocolHandler::initialize\n " );
    try
    {
        css::uno::Sequence < css::uno::Any > args(1);
        Reference < XModel > xModel;
        if ( m_xFrame.is() )
        {
            Reference < XController > xController = m_xFrame->getController();
            if ( xController .is() )
                xModel = xController->getModel();
        }

        args[0] <<= xModel;
        Reference< XInterface > xXinterface = m_xFactory->createInstanceWithArguments(::rtl::OUString::createFromAscii(
                                                  "drafts.com.sun.star.script.framework.provider.FunctionProvider"),args);
        validateXRef(xXinterface, "ScriptProtocolHandler::initialize: cannot get instance of FunctionProvider" );

        m_xFunctionProvider = Reference< provider::XFunctionProvider >(xXinterface, UNO_QUERY_THROW);
        m_bInitialised = true;
    }
    catch(RuntimeException &e)
    {
        throw RuntimeException(OUSTR("ScriptProtocolHandler::initialize: ") + e.Message, Reference< XInterface >());
    }
    catch (Exception &e)
    {
        throw RuntimeException(OUSTR("ScriptProtocolHandler::initialize: ") + e.Message, Reference< XInterface >());
        OSL_TRACE("ScriptProtocolHandler::initialise: Caught Exception %s",::rtl::OUStringToOString(e.Message,RTL_TEXTENCODING_ASCII_US).pData->buffer);
    }
#ifdef _DEBUG
    catch ( ... )
    {
        throw RuntimeException(OUSTR("criptProtocolHandler::initialize: UnknownException: "),
                               Reference<XInterface> ());

        OSL_TRACE("ScriptProtocolHandler::initialize: Unknown exception caught");
    }
#endif

}

Reference< XDispatch > SAL_CALL ScriptProtocolHandler::queryDispatch( const URL& aURL, const ::rtl::OUString& sTargetFrameName,
        sal_Int32 nSearchFlags ) throw( ::com::sun::star::uno::RuntimeException )
{
    Reference< XDispatch > xDispatcher;
    OSL_TRACE("ScriptProtocolHandler::queryDispatch - 1\n" );

    if( aURL.Complete.compareToAscii( ::scripting_protocolhandler::MYSCHEME,
                                      ::scripting_protocolhandler::MYSCHEME_LEN ) == 0 )
        xDispatcher = this;
    OSL_TRACE("ScriptProtocolHandler::queryDispatch - 2\n" );


    return xDispatcher;
}

Sequence< Reference < XDispatch > > SAL_CALL
ScriptProtocolHandler::queryDispatches( const Sequence < DispatchDescriptor >& seqDescriptor )
throw( RuntimeException )
{
    sal_Int32 nCount = seqDescriptor.getLength();
    Sequence< Reference < XDispatch > > lDispatcher(nCount);
    for( sal_Int32 i=0; i<nCount; ++i )
        lDispatcher[i] = this->queryDispatch( seqDescriptor[i].FeatureURL,
                                              seqDescriptor[i].FrameName,
                                              seqDescriptor[i].SearchFlags );
    OSL_TRACE("ScriptProtocolHandler::queryDispatches \n" );

    return lDispatcher;
}

void SAL_CALL ScriptProtocolHandler::dispatchWithNotification( const URL& aURL, const Sequence < PropertyValue >& lArgs,
        const Reference< XDispatchResultListener >& xListener ) throw (RuntimeException)
{
    sal_Bool bSuccess = sal_False;
    Any invokeResult;

    OSL_TRACE("ScriptProtocolHandler::dispatchWithNotification - start \nInput URL %s \n",
              ::rtl::OUStringToOString(aURL.Complete,RTL_TEXTENCODING_ASCII_US).pData->buffer);
    if ( m_bInitialised )
    {
        try
        {
            Reference < provider::XFunction > xFunc = m_xFunctionProvider->getFunction(aURL.Complete);
            validateXRef(xFunc, "ScriptProtocolHandler::dispatchWithNotification: validate xFunc - unable to obtain XFunction interface");

            Sequence< Any > inArgs(0);
            Sequence< Any > outArgs(0);
            Sequence< sal_Int16 > outIndex;

            invokeResult = xFunc->invoke(inArgs,outIndex,outArgs);
            bSuccess = sal_True;
        }

        // Office doesn't handle exceptions rethrown here very well, it cores,
        // all we can is log them and then set fail for the dispatch event!
        // (if there is a listener of course)
        catch(RuntimeException &e)
        {
            OSL_TRACE("ScriptProtocolHandler::dispatchWithNotificationn caught RuntimeException: %s",::rtl::OUStringToOString(e.Message,RTL_TEXTENCODING_ASCII_US).pData->buffer);
            ::rtl::OUString reason;
            reason.createFromAscii("ScriptProtocolHandler::dispatchWithNotification: caught RuntimeException: ");
            reason = reason + e.Message;
            invokeResult <<= reason;
        }
        catch (Exception &e)
        {
            OSL_TRACE("ScriptProtocolHandler::dispatchWithNotificationn caught Exception: %s",::rtl::OUStringToOString(e.Message,RTL_TEXTENCODING_ASCII_US).pData->buffer);
            ::rtl::OUString reason;
            reason.createFromAscii("ScriptProtocolHandler::dispatchWithNotification: caught  Exception: ");
            reason = reason + e.Message;
            invokeResult <<= reason;
        }
#ifdef _DEBUG
        catch ( ... )
        {
            ::rtl::OUString reason;
            reason.createFromAscii("ScriptProtocolHandler::dispatchWithNotification: caught unknown exception ");
            invokeResult <<= reason;
        }
#endif
    }
    else
    {
        OSL_TRACE("ScriptProtocolHandler::dispatchWithNotification: failed, ScriptProtocolHandler not initialised");
        ::rtl::OUString reason;
        reason.createFromAscii("ScriptProtocolHandler::dispatchWithNotification failed, ScriptProtocolHandler not initialised");
        invokeResult <<= reason;
    }

    if( xListener.is() )
    {
        // always call dispatchFinished(), because we didn't load a document but
        // executed a macro instead!
        ::com::sun::star::frame::DispatchResultEvent aEvent;

        aEvent.Source = static_cast< ::cppu::OWeakObject* >(this);
        aEvent.Result = invokeResult;
        if( bSuccess )
            aEvent.State = ::com::sun::star::frame::DispatchResultState::SUCCESS;
        else
            aEvent.State = ::com::sun::star::frame::DispatchResultState::FAILURE;

        xListener->dispatchFinished( aEvent ) ;
    }
    OSL_TRACE("ScriptProtocolHandler::dispatchWithNotification - end\n" );

}

void SAL_CALL ScriptProtocolHandler::dispatch( const URL& aURL, const Sequence< PropertyValue >& lArgs )
throw ( RuntimeException )
{
    dispatchWithNotification( aURL, lArgs, Reference < XDispatchResultListener >() );
}

void SAL_CALL ScriptProtocolHandler::addStatusListener( const Reference< XStatusListener >& xControl, const URL& aURL )
throw (RuntimeException)
{
    // implement if status is supported
}

void SAL_CALL ScriptProtocolHandler::removeStatusListener( const Reference< XStatusListener >& xControl, const URL& aURL )
throw (RuntimeException)
{
}

ScriptProtocolHandler::ScriptProtocolHandler( Reference < css::lang::XMultiServiceFactory > const& rFact )
        : m_xFactory( rFact ), m_bInitialised(false)
{
    OSL_TRACE("ScriptProtocolHandler::ScriptProtocolHandler - ctor\n" );
}

ScriptProtocolHandler::~ScriptProtocolHandler()
{
    OSL_TRACE("ScriptProtocolHandler::ScriptProtocolHandler - dtor\n" );
}

/* XServiceInfo */
::rtl::OUString SAL_CALL ScriptProtocolHandler::getImplementationName() throw( RuntimeException )
{
    return impl_getStaticImplementationName();
}

/* XServiceInfo */
sal_Bool SAL_CALL ScriptProtocolHandler::supportsService( const ::rtl::OUString& sServiceName ) throw( RuntimeException )
{
    Sequence< ::rtl::OUString > seqServiceNames = getSupportedServiceNames();
    const ::rtl::OUString* pArray = seqServiceNames.getConstArray();
    for ( sal_Int32 nCounter=0; nCounter<seqServiceNames.getLength(); nCounter++ )
    {
        if ( pArray[nCounter] == sServiceName )
        {
            return sal_True ;
        }
    }

    return sal_False ;
}

/* XServiceInfo */
Sequence< ::rtl::OUString > SAL_CALL ScriptProtocolHandler::getSupportedServiceNames() throw( RuntimeException )
{
    return impl_getStaticSupportedServiceNames();
}

/* Helper for XServiceInfo */
Sequence< ::rtl::OUString > ScriptProtocolHandler::impl_getStaticSupportedServiceNames()
{
    ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
    Sequence< ::rtl::OUString > seqServiceNames( 1 );
    seqServiceNames.getArray() [0] = ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYSERVICENAME );
    return seqServiceNames ;
}

/* Helper for XServiceInfo */
::rtl::OUString ScriptProtocolHandler::impl_getStaticImplementationName()
{
    return ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYIMPLNAME);
}

/* Helper for registry */
Reference < XInterface > SAL_CALL ScriptProtocolHandler::impl_createInstance( const Reference < css::lang::XMultiServiceFactory >& xServiceManager ) throw( RuntimeException )
{
    return Reference < XInterface > ( *new ScriptProtocolHandler( xServiceManager ) );
}

/* Factory for registration */
Reference < XSingleServiceFactory > ScriptProtocolHandler::impl_createFactory( const Reference< XMultiServiceFactory >& xServiceManager )
{
    Reference < XSingleServiceFactory > xReturn  (
        cppu::createSingleFactory( xServiceManager,
                                   ScriptProtocolHandler::impl_getStaticImplementationName(),
                                   ScriptProtocolHandler::impl_createInstance,
                                   ScriptProtocolHandler::impl_getStaticSupportedServiceNames() )
    );
    return xReturn;
}

}// namespace scripting_protocolhandler

/* exported functions for registration */
extern "C" {

    void SAL_CALL component_getImplementationEnvironment( const sal_Char**   ppEnvironmentTypeName ,
            uno_Environment** ppEnvironment   )
    {
        *ppEnvironmentTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME ;
    }

    sal_Bool SAL_CALL component_writeInfo( void* pServiceManager ,
                                           void* pRegistryKey )
    {
        Reference< css::registry::XRegistryKey > xKey( reinterpret_cast< css::registry::XRegistryKey* >( pRegistryKey ) ) ;

        ::rtl::OUString aStr = ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("/"));
        aStr += ::scripting_protocolhandler::ScriptProtocolHandler::impl_getStaticImplementationName();

        aStr += ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("/UNO/SERVICES"));
        Reference< css::registry::XRegistryKey > xNewKey = xKey->createKey( aStr );
        xNewKey->createKey( ::rtl::OUString::createFromAscii(::scripting_protocolhandler::MYSERVICENAME) );

        return sal_True;
    }

    void* SAL_CALL component_getFactory( const sal_Char* pImplementationName ,
                                         void*  pServiceManager  ,
                                         void*  pRegistryKey  )
    {
        // Set default return value for this operation - if it failed.
        void* pReturn = NULL ;

        if (
            ( pImplementationName != NULL ) &&
            ( pServiceManager  != NULL )
        )
        {
            // Define variables which are used in following macros.
            ::com::sun::star::uno::Reference< ::com::sun::star::lang::XSingleServiceFactory > xFactory                        ;
            ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > xServiceManager( reinterpret_cast< ::com::sun::star::lang::XMultiServiceFactory* >( pServiceManager ) ) ;

            if ( ::scripting_protocolhandler::ScriptProtocolHandler::impl_getStaticImplementationName().equals( ::rtl::OUString::createFromAscii( pImplementationName ) ) )
            {
                xFactory = ::scripting_protocolhandler::ScriptProtocolHandler::impl_createFactory( xServiceManager );
            }

            // Factory is valid - service was found.
            if ( xFactory.is() )
            {
                xFactory->acquire();
                pReturn = xFactory.get();
            }
        }

        // Return with result of this operation.
        return pReturn ;
    }
} // extern "C"