forked from amazingfate/loongoffice
340 lines
12 KiB
C++
340 lines
12 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 .
|
|
*/
|
|
|
|
#include <macroloader.hxx>
|
|
|
|
#include <com/sun/star/document/UpdateDocMode.hpp>
|
|
#include <com/sun/star/document/MacroExecMode.hpp>
|
|
#include <com/sun/star/frame/DispatchResultState.hpp>
|
|
#include <basic/basmgr.hxx>
|
|
#include <basic/sbuno.hxx>
|
|
#include <cppuhelper/implbase5.hxx>
|
|
#include <cppuhelper/supportsservice.hxx>
|
|
#include <framework/documentundoguard.hxx>
|
|
#include <rtl/ref.hxx>
|
|
#include <sfx2/app.hxx>
|
|
#include <sfx2/docfile.hxx>
|
|
#include <sfx2/frame.hxx>
|
|
#include <sfx2/objsh.hxx>
|
|
#include <sfx2/request.hxx>
|
|
#include <sfx2/sfxsids.hrc>
|
|
#include <svl/intitem.hxx>
|
|
#include <tools/urlobj.hxx>
|
|
#include <vcl/svapp.hxx>
|
|
|
|
#include <boost/scoped_ptr.hpp>
|
|
|
|
using namespace ::com::sun::star;
|
|
using namespace ::com::sun::star::frame;
|
|
using namespace ::com::sun::star::lang;
|
|
using namespace ::com::sun::star::uno;
|
|
using namespace ::com::sun::star::util;
|
|
|
|
SfxMacroLoader::SfxMacroLoader(const css::uno::Sequence< css::uno::Any >& aArguments)
|
|
throw (css::uno::Exception, css::uno::RuntimeException)
|
|
{
|
|
Reference < XFrame > xFrame;
|
|
if ( aArguments.getLength() )
|
|
{
|
|
aArguments[0] >>= xFrame;
|
|
m_xFrame = xFrame;
|
|
}
|
|
}
|
|
|
|
OUString SAL_CALL SfxMacroLoader::getImplementationName()
|
|
throw (css::uno::RuntimeException, std::exception)
|
|
{
|
|
return OUString("com.sun.star.comp.sfx2.SfxMacroLoader");
|
|
}
|
|
|
|
sal_Bool SAL_CALL SfxMacroLoader::supportsService(OUString const & ServiceName)
|
|
throw (css::uno::RuntimeException, std::exception)
|
|
{
|
|
return cppu::supportsService(this, ServiceName);
|
|
}
|
|
|
|
css::uno::Sequence<OUString> SAL_CALL SfxMacroLoader::getSupportedServiceNames()
|
|
throw (css::uno::RuntimeException, std::exception)
|
|
{
|
|
css::uno::Sequence< OUString > aSeq(1);
|
|
aSeq[0] = OUString("com.sun.star.frame.ProtocolHandler");
|
|
return aSeq;
|
|
}
|
|
|
|
SfxObjectShell* SfxMacroLoader::GetObjectShell_Impl()
|
|
{
|
|
SfxObjectShell* pDocShell = NULL;
|
|
Reference < XFrame > xFrame( m_xFrame.get(), UNO_QUERY );
|
|
if ( xFrame.is() )
|
|
{
|
|
SfxFrame* pFrame=0;
|
|
for ( pFrame = SfxFrame::GetFirst(); pFrame; pFrame = SfxFrame::GetNext( *pFrame ) )
|
|
{
|
|
if ( pFrame->GetFrameInterface() == xFrame )
|
|
break;
|
|
}
|
|
|
|
if ( pFrame )
|
|
pDocShell = pFrame->GetCurrentDocument();
|
|
}
|
|
|
|
return pDocShell;
|
|
}
|
|
|
|
|
|
uno::Reference<frame::XDispatch> SAL_CALL SfxMacroLoader::queryDispatch(
|
|
const util::URL& aURL ,
|
|
const OUString& /*sTargetFrameName*/,
|
|
sal_Int32 /*nSearchFlags*/ ) throw( uno::RuntimeException, std::exception )
|
|
{
|
|
uno::Reference<frame::XDispatch> xDispatcher;
|
|
if(aURL.Complete.startsWith("macro:"))
|
|
xDispatcher = this;
|
|
return xDispatcher;
|
|
}
|
|
|
|
|
|
uno::Sequence< uno::Reference<frame::XDispatch> > SAL_CALL
|
|
SfxMacroLoader::queryDispatches( const uno::Sequence < frame::DispatchDescriptor >& seqDescriptor )
|
|
throw( uno::RuntimeException, std::exception )
|
|
{
|
|
sal_Int32 nCount = seqDescriptor.getLength();
|
|
uno::Sequence< uno::Reference<frame::XDispatch> > lDispatcher(nCount);
|
|
for( sal_Int32 i=0; i<nCount; ++i )
|
|
lDispatcher[i] = this->queryDispatch( seqDescriptor[i].FeatureURL,
|
|
seqDescriptor[i].FrameName,
|
|
seqDescriptor[i].SearchFlags );
|
|
return lDispatcher;
|
|
}
|
|
|
|
|
|
void SAL_CALL SfxMacroLoader::dispatchWithNotification(
|
|
const util::URL& aURL, const uno::Sequence<beans::PropertyValue>& /*lArgs*/,
|
|
const uno::Reference<frame::XDispatchResultListener>& xListener )
|
|
throw (uno::RuntimeException, std::exception)
|
|
{
|
|
SolarMutexGuard aGuard;
|
|
|
|
uno::Any aAny;
|
|
ErrCode nErr = loadMacro( aURL.Complete, aAny, GetObjectShell_Impl() );
|
|
if( xListener.is() )
|
|
{
|
|
// always call dispatchFinished(), because we didn't load a document but
|
|
// executed a macro instead!
|
|
frame::DispatchResultEvent aEvent;
|
|
|
|
aEvent.Source = static_cast< ::cppu::OWeakObject* >(this);
|
|
if( nErr == ERRCODE_NONE )
|
|
aEvent.State = frame::DispatchResultState::SUCCESS;
|
|
else
|
|
aEvent.State = frame::DispatchResultState::FAILURE;
|
|
|
|
xListener->dispatchFinished( aEvent ) ;
|
|
}
|
|
}
|
|
|
|
uno::Any SAL_CALL SfxMacroLoader::dispatchWithReturnValue(
|
|
const util::URL& aURL, const uno::Sequence<beans::PropertyValue>& )
|
|
throw (uno::RuntimeException, std::exception)
|
|
{
|
|
uno::Any aRet;
|
|
loadMacro( aURL.Complete, aRet, GetObjectShell_Impl() );
|
|
return aRet;
|
|
}
|
|
|
|
void SAL_CALL SfxMacroLoader::dispatch(
|
|
const util::URL& aURL, const uno::Sequence<beans::PropertyValue>& /*lArgs*/ )
|
|
throw (uno::RuntimeException, std::exception)
|
|
{
|
|
SolarMutexGuard aGuard;
|
|
|
|
uno::Any aAny;
|
|
loadMacro( aURL.Complete, aAny, GetObjectShell_Impl() );
|
|
}
|
|
|
|
void SAL_CALL SfxMacroLoader::addStatusListener(
|
|
const uno::Reference< frame::XStatusListener >& ,
|
|
const util::URL& )
|
|
throw (uno::RuntimeException, std::exception)
|
|
{
|
|
/* TODO
|
|
How we can handle different listener for further coming or currently running dispatch() jobs
|
|
without any inconsistency!
|
|
*/
|
|
}
|
|
|
|
|
|
void SAL_CALL SfxMacroLoader::removeStatusListener(
|
|
const uno::Reference< frame::XStatusListener >&,
|
|
const util::URL& )
|
|
throw (uno::RuntimeException, std::exception)
|
|
{
|
|
}
|
|
|
|
ErrCode SfxMacroLoader::loadMacro( const OUString& rURL, com::sun::star::uno::Any& rRetval, SfxObjectShell* pSh )
|
|
throw ( ucb::ContentCreationException, uno::RuntimeException )
|
|
{
|
|
#ifdef DISABLE_SCRIPTING
|
|
(void) rURL;
|
|
(void) rRetval;
|
|
(void) pSh;
|
|
return ERRCODE_BASIC_PROC_UNDEFINED;
|
|
#else
|
|
SfxObjectShell* pCurrent = pSh;
|
|
if ( !pCurrent )
|
|
// all not full qualified names use the BASIC of the given or current document
|
|
pCurrent = SfxObjectShell::Current();
|
|
|
|
// 'macro:///lib.mod.proc(args)' => macro of App-BASIC
|
|
// 'macro://[docname|.]/lib.mod.proc(args)' => macro of current or qualified document
|
|
// 'macro://obj.method(args)' => direct API call, execute it via App-BASIC
|
|
OUString aMacro( rURL );
|
|
sal_Int32 nHashPos = aMacro.indexOf( '/', 8 );
|
|
sal_Int32 nArgsPos = aMacro.indexOf( '(' );
|
|
BasicManager *pAppMgr = SfxGetpApp()->GetBasicManager();
|
|
BasicManager *pBasMgr = 0;
|
|
ErrCode nErr = ERRCODE_NONE;
|
|
|
|
// should a macro function be executed ( no direct API call)?
|
|
if ( -1 != nHashPos && ( -1 == nArgsPos || nHashPos < nArgsPos ) )
|
|
{
|
|
// find BasicManager
|
|
SfxObjectShell* pDoc = NULL;
|
|
OUString aBasMgrName( INetURLObject::decode(aMacro.copy( 8, nHashPos-8 ), '%', INetURLObject::DECODE_WITH_CHARSET) );
|
|
if ( aBasMgrName.isEmpty() )
|
|
pBasMgr = pAppMgr;
|
|
else if ( aBasMgrName == "." )
|
|
{
|
|
// current/actual document
|
|
pDoc = pCurrent;
|
|
if (pDoc)
|
|
pBasMgr = pDoc->GetBasicManager();
|
|
}
|
|
else
|
|
{
|
|
// full qualified name, find document by name
|
|
for ( SfxObjectShell *pObjSh = SfxObjectShell::GetFirst();
|
|
pObjSh && !pBasMgr;
|
|
pObjSh = SfxObjectShell::GetNext(*pObjSh) )
|
|
if ( aBasMgrName == pObjSh->GetTitle(SFX_TITLE_APINAME) )
|
|
{
|
|
pDoc = pObjSh;
|
|
pBasMgr = pDoc->GetBasicManager();
|
|
}
|
|
}
|
|
|
|
if ( pBasMgr )
|
|
{
|
|
const bool bIsAppBasic = ( pBasMgr == pAppMgr );
|
|
const bool bIsDocBasic = ( pBasMgr != pAppMgr );
|
|
|
|
if ( pDoc )
|
|
{
|
|
// security check for macros from document basic if an SFX doc is given
|
|
if ( !pDoc->AdjustMacroMode( OUString() ) )
|
|
// check forbids execution
|
|
return ERRCODE_IO_ACCESSDENIED;
|
|
}
|
|
|
|
// find BASIC method
|
|
OUString aQualifiedMethod( INetURLObject::decode(aMacro.copy( nHashPos+1 ), '%', INetURLObject::DECODE_WITH_CHARSET) );
|
|
OUString aArgs;
|
|
if ( -1 != nArgsPos )
|
|
{
|
|
// remove arguments from macro name
|
|
aArgs = aQualifiedMethod.copy( nArgsPos - nHashPos - 1 );
|
|
aQualifiedMethod = aQualifiedMethod.copy( 0, nArgsPos - nHashPos - 1 );
|
|
}
|
|
|
|
if ( pBasMgr->HasMacro( aQualifiedMethod ) )
|
|
{
|
|
Any aOldThisComponent;
|
|
const bool bSetDocMacroMode = ( pDoc != NULL ) && bIsDocBasic;
|
|
const bool bSetGlobalThisComponent = ( pDoc != NULL ) && bIsAppBasic;
|
|
if ( bSetDocMacroMode )
|
|
{
|
|
// mark document: it executes an own macro, so it's in a modal mode
|
|
pDoc->SetMacroMode_Impl( true );
|
|
}
|
|
|
|
if ( bSetGlobalThisComponent )
|
|
{
|
|
// document is executed via AppBASIC, adjust ThisComponent variable
|
|
aOldThisComponent = pAppMgr->SetGlobalUNOConstant( "ThisComponent", makeAny( pDoc->GetModel() ) );
|
|
}
|
|
|
|
// just to let the shell be alive
|
|
SfxObjectShellRef xKeepDocAlive = pDoc;
|
|
|
|
{
|
|
// attempt to protect the document against the script tampering with its Undo Context
|
|
boost::scoped_ptr< ::framework::DocumentUndoGuard > pUndoGuard;
|
|
if ( bIsDocBasic )
|
|
pUndoGuard.reset( new ::framework::DocumentUndoGuard( pDoc->GetModel() ) );
|
|
|
|
// execute the method
|
|
SbxVariableRef retValRef = new SbxVariable;
|
|
nErr = pBasMgr->ExecuteMacro( aQualifiedMethod, aArgs, retValRef );
|
|
if ( nErr == ERRCODE_NONE )
|
|
rRetval = sbxToUnoValue( retValRef );
|
|
}
|
|
|
|
if ( bSetGlobalThisComponent )
|
|
{
|
|
pAppMgr->SetGlobalUNOConstant( "ThisComponent", aOldThisComponent );
|
|
}
|
|
|
|
if ( bSetDocMacroMode )
|
|
{
|
|
// remove flag for modal mode
|
|
pDoc->SetMacroMode_Impl( false );
|
|
}
|
|
}
|
|
else
|
|
nErr = ERRCODE_BASIC_PROC_UNDEFINED;
|
|
}
|
|
else
|
|
nErr = ERRCODE_IO_NOTEXISTS;
|
|
}
|
|
else
|
|
{
|
|
// direct API call on a specified object
|
|
OUStringBuffer aCall;
|
|
aCall.append('[').append(INetURLObject::decode(aMacro.copy(6), '%',
|
|
INetURLObject::DECODE_WITH_CHARSET));
|
|
aCall.append(']');
|
|
pAppMgr->GetLib(0)->Execute(aCall.makeStringAndClear());
|
|
nErr = SbxBase::GetError();
|
|
}
|
|
|
|
SbxBase::ResetError();
|
|
return nErr;
|
|
#endif
|
|
}
|
|
|
|
extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface * SAL_CALL
|
|
com_sun_star_comp_sfx2_SfxMacroLoader_get_implementation(
|
|
css::uno::XComponentContext *,
|
|
css::uno::Sequence<css::uno::Any> const &arguments)
|
|
{
|
|
return cppu::acquire(new SfxMacroLoader(arguments));
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|