1*2c696243SAndrew Rist /************************************************************** 2cdf0e10cSrcweir * 3*2c696243SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 4*2c696243SAndrew Rist * or more contributor license agreements. See the NOTICE file 5*2c696243SAndrew Rist * distributed with this work for additional information 6*2c696243SAndrew Rist * regarding copyright ownership. The ASF licenses this file 7*2c696243SAndrew Rist * to you under the Apache License, Version 2.0 (the 8*2c696243SAndrew Rist * "License"); you may not use this file except in compliance 9*2c696243SAndrew Rist * with the License. You may obtain a copy of the License at 10*2c696243SAndrew Rist * 11*2c696243SAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 12*2c696243SAndrew Rist * 13*2c696243SAndrew Rist * Unless required by applicable law or agreed to in writing, 14*2c696243SAndrew Rist * software distributed under the License is distributed on an 15*2c696243SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*2c696243SAndrew Rist * KIND, either express or implied. See the License for the 17*2c696243SAndrew Rist * specific language governing permissions and limitations 18*2c696243SAndrew Rist * under the License. 19*2c696243SAndrew Rist * 20*2c696243SAndrew Rist *************************************************************/ 21*2c696243SAndrew Rist 22*2c696243SAndrew Rist 23cdf0e10cSrcweir 24cdf0e10cSrcweir // MARKER(update_precomp.py): autogen include statement, do not remove 25cdf0e10cSrcweir #include "precompiled_scripting.hxx" 26cdf0e10cSrcweir #include "scripthandler.hxx" 27cdf0e10cSrcweir 28cdf0e10cSrcweir #include <osl/mutex.hxx> 29cdf0e10cSrcweir 30cdf0e10cSrcweir #include <com/sun/star/frame/DispatchResultEvent.hpp> 31cdf0e10cSrcweir #include <com/sun/star/frame/DispatchResultState.hpp> 32cdf0e10cSrcweir #include <com/sun/star/frame/XController.hpp> 33cdf0e10cSrcweir #include <com/sun/star/frame/XModel.hpp> 34cdf0e10cSrcweir 35cdf0e10cSrcweir #include <com/sun/star/document/XEmbeddedScripts.hpp> 36cdf0e10cSrcweir #include <com/sun/star/document/XScriptInvocationContext.hpp> 37cdf0e10cSrcweir 38cdf0e10cSrcweir #include <com/sun/star/lang/XSingleServiceFactory.hpp> 39cdf0e10cSrcweir 40cdf0e10cSrcweir #include <com/sun/star/script/provider/XScriptProviderSupplier.hpp> 41cdf0e10cSrcweir #include <com/sun/star/script/provider/XScriptProviderFactory.hpp> 42cdf0e10cSrcweir #include <com/sun/star/script/provider/ScriptFrameworkErrorType.hpp> 43cdf0e10cSrcweir 44cdf0e10cSrcweir #include <sfx2/objsh.hxx> 45cdf0e10cSrcweir #include <sfx2/frame.hxx> 46cdf0e10cSrcweir #include <sfx2/sfxdlg.hxx> 47cdf0e10cSrcweir #include <vcl/abstdlg.hxx> 48cdf0e10cSrcweir #include <tools/diagnose_ex.h> 49cdf0e10cSrcweir 50cdf0e10cSrcweir #include <cppuhelper/factory.hxx> 51cdf0e10cSrcweir #include <cppuhelper/exc_hlp.hxx> 52cdf0e10cSrcweir #include <util/util.hxx> 53cdf0e10cSrcweir #include <framework/documentundoguard.hxx> 54cdf0e10cSrcweir 55cdf0e10cSrcweir #include "com/sun/star/uno/XComponentContext.hpp" 56cdf0e10cSrcweir #include "com/sun/star/uri/XUriReference.hpp" 57cdf0e10cSrcweir #include "com/sun/star/uri/XUriReferenceFactory.hpp" 58cdf0e10cSrcweir #include "com/sun/star/uri/XVndSunStarScriptUrl.hpp" 59cdf0e10cSrcweir #include "com/sun/star/beans/XPropertySet.hpp" 60cdf0e10cSrcweir 61cdf0e10cSrcweir using namespace ::com::sun::star; 62cdf0e10cSrcweir using namespace ::com::sun::star::uno; 63cdf0e10cSrcweir using namespace ::com::sun::star::frame; 64cdf0e10cSrcweir using namespace ::com::sun::star::util; 65cdf0e10cSrcweir using namespace ::com::sun::star::beans; 66cdf0e10cSrcweir using namespace ::com::sun::star::lang; 67cdf0e10cSrcweir using namespace ::com::sun::star::script; 68cdf0e10cSrcweir using namespace ::com::sun::star::script::provider; 69cdf0e10cSrcweir using namespace ::com::sun::star::document; 70cdf0e10cSrcweir 71cdf0e10cSrcweir namespace scripting_protocolhandler 72cdf0e10cSrcweir { 73cdf0e10cSrcweir 74cdf0e10cSrcweir const sal_Char * const MYSERVICENAME = "com.sun.star.frame.ProtocolHandler"; 75cdf0e10cSrcweir const sal_Char * const MYIMPLNAME = "com.sun.star.comp.ScriptProtocolHandler"; 76cdf0e10cSrcweir const sal_Char * MYSCHEME = "vnd.sun.star.script"; 77cdf0e10cSrcweir const sal_Int32 MYSCHEME_LEN = 20; 78cdf0e10cSrcweir 79cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::initialize( 80cdf0e10cSrcweir const css::uno::Sequence < css::uno::Any >& aArguments ) 81cdf0e10cSrcweir throw ( css::uno::Exception ) 82cdf0e10cSrcweir { 83cdf0e10cSrcweir if ( m_bInitialised ) 84cdf0e10cSrcweir { 85cdf0e10cSrcweir return ; 86cdf0e10cSrcweir } 87cdf0e10cSrcweir 88cdf0e10cSrcweir // first argument contains a reference to the frame (may be empty or the desktop, 89cdf0e10cSrcweir // but usually it's a "real" frame) 90cdf0e10cSrcweir if ( aArguments.getLength() && 91cdf0e10cSrcweir sal_False == ( aArguments[ 0 ] >>= m_xFrame ) ) 92cdf0e10cSrcweir { 93cdf0e10cSrcweir ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::initialize: could not extract reference to the frame" ); 94cdf0e10cSrcweir throw RuntimeException( temp, Reference< XInterface >() ); 95cdf0e10cSrcweir } 96cdf0e10cSrcweir 97cdf0e10cSrcweir ENSURE_OR_THROW( m_xFactory.is(), "ScriptProtocolHandler::initialize: No Service Manager available" ); 98cdf0e10cSrcweir m_bInitialised = true; 99cdf0e10cSrcweir } 100cdf0e10cSrcweir 101cdf0e10cSrcweir Reference< XDispatch > SAL_CALL ScriptProtocolHandler::queryDispatch( 102cdf0e10cSrcweir const URL& aURL, const ::rtl::OUString& sTargetFrameName, sal_Int32 nSearchFlags ) 103cdf0e10cSrcweir throw( ::com::sun::star::uno::RuntimeException ) 104cdf0e10cSrcweir { 105cdf0e10cSrcweir (void)sTargetFrameName; 106cdf0e10cSrcweir (void)nSearchFlags; 107cdf0e10cSrcweir 108cdf0e10cSrcweir Reference< XDispatch > xDispatcher; 109cdf0e10cSrcweir // get scheme of url 110cdf0e10cSrcweir 111cdf0e10cSrcweir Reference< uri::XUriReferenceFactory > xFac ( 112cdf0e10cSrcweir m_xFactory->createInstance( rtl::OUString::createFromAscii( 113cdf0e10cSrcweir "com.sun.star.uri.UriReferenceFactory") ) , UNO_QUERY ); 114cdf0e10cSrcweir if ( xFac.is() ) 115cdf0e10cSrcweir { 116cdf0e10cSrcweir Reference< uri::XUriReference > uriRef( 117cdf0e10cSrcweir xFac->parse( aURL.Complete ), UNO_QUERY ); 118cdf0e10cSrcweir if ( uriRef.is() ) 119cdf0e10cSrcweir { 120cdf0e10cSrcweir if ( uriRef->getScheme().equals( ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYSCHEME ) ) ) 121cdf0e10cSrcweir { 122cdf0e10cSrcweir xDispatcher = this; 123cdf0e10cSrcweir } 124cdf0e10cSrcweir } 125cdf0e10cSrcweir } 126cdf0e10cSrcweir 127cdf0e10cSrcweir return xDispatcher; 128cdf0e10cSrcweir } 129cdf0e10cSrcweir 130cdf0e10cSrcweir Sequence< Reference< XDispatch > > SAL_CALL 131cdf0e10cSrcweir ScriptProtocolHandler::queryDispatches( 132cdf0e10cSrcweir const Sequence < DispatchDescriptor >& seqDescriptor ) 133cdf0e10cSrcweir throw( RuntimeException ) 134cdf0e10cSrcweir { 135cdf0e10cSrcweir sal_Int32 nCount = seqDescriptor.getLength(); 136cdf0e10cSrcweir Sequence< Reference< XDispatch > > lDispatcher( nCount ); 137cdf0e10cSrcweir for ( sal_Int32 i = 0; i < nCount; ++i ) 138cdf0e10cSrcweir { 139cdf0e10cSrcweir lDispatcher[ i ] = this->queryDispatch( seqDescriptor[ i ].FeatureURL, 140cdf0e10cSrcweir seqDescriptor[ i ].FrameName, 141cdf0e10cSrcweir seqDescriptor[ i ].SearchFlags ); 142cdf0e10cSrcweir } 143cdf0e10cSrcweir return lDispatcher; 144cdf0e10cSrcweir } 145cdf0e10cSrcweir 146cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::dispatchWithNotification( 147cdf0e10cSrcweir const URL& aURL, const Sequence < PropertyValue >& lArgs, 148cdf0e10cSrcweir const Reference< XDispatchResultListener >& xListener ) 149cdf0e10cSrcweir throw ( RuntimeException ) 150cdf0e10cSrcweir { 151cdf0e10cSrcweir 152cdf0e10cSrcweir sal_Bool bSuccess = sal_False; 153cdf0e10cSrcweir Any invokeResult; 154cdf0e10cSrcweir bool bCaughtException = sal_False; 155cdf0e10cSrcweir Any aException; 156cdf0e10cSrcweir 157cdf0e10cSrcweir if ( m_bInitialised ) 158cdf0e10cSrcweir { 159cdf0e10cSrcweir try 160cdf0e10cSrcweir { 161cdf0e10cSrcweir bool bIsDocumentScript = ( aURL.Complete.indexOfAsciiL( RTL_CONSTASCII_STRINGPARAM( "document" ) ) !=-1 ); 162cdf0e10cSrcweir // TODO: isn't this somewhat strange? This should be a test for a location=document parameter, shouldn't it? 163cdf0e10cSrcweir 164cdf0e10cSrcweir if ( bIsDocumentScript ) 165cdf0e10cSrcweir { 166cdf0e10cSrcweir // obtain the component for our security check 167cdf0e10cSrcweir Reference< XEmbeddedScripts > xDocumentScripts; 168cdf0e10cSrcweir if ( getScriptInvocation() ) 169cdf0e10cSrcweir xDocumentScripts.set( m_xScriptInvocation->getScriptContainer(), UNO_SET_THROW ); 170cdf0e10cSrcweir 171cdf0e10cSrcweir OSL_ENSURE( xDocumentScripts.is(), "ScriptProtocolHandler::dispatchWithNotification: can't do the security check!" ); 172cdf0e10cSrcweir if ( !xDocumentScripts.is() || !xDocumentScripts->getAllowMacroExecution() ) 173cdf0e10cSrcweir return; 174cdf0e10cSrcweir } 175cdf0e10cSrcweir 176cdf0e10cSrcweir // Creates a ScriptProvider ( if one is not created allready ) 177cdf0e10cSrcweir createScriptProvider(); 178cdf0e10cSrcweir 179cdf0e10cSrcweir Reference< provider::XScript > xFunc = 180cdf0e10cSrcweir m_xScriptProvider->getScript( aURL.Complete ); 181cdf0e10cSrcweir ENSURE_OR_THROW( xFunc.is(), 182cdf0e10cSrcweir "ScriptProtocolHandler::dispatchWithNotification: validate xFunc - unable to obtain XScript interface" ); 183cdf0e10cSrcweir 184cdf0e10cSrcweir 185cdf0e10cSrcweir Sequence< Any > inArgs( 0 ); 186cdf0e10cSrcweir Sequence< Any > outArgs( 0 ); 187cdf0e10cSrcweir Sequence< sal_Int16 > outIndex; 188cdf0e10cSrcweir 189cdf0e10cSrcweir if ( lArgs.getLength() > 0 ) 190cdf0e10cSrcweir { 191cdf0e10cSrcweir int argCount = 0; 192cdf0e10cSrcweir for ( int index = 0; index < lArgs.getLength(); index++ ) 193cdf0e10cSrcweir { 194cdf0e10cSrcweir // Sometimes we get a propertyval with name = "Referer" 195cdf0e10cSrcweir // this is not an argument to be passed to script, so 196cdf0e10cSrcweir // ignore. 197cdf0e10cSrcweir if ( lArgs[ index ].Name.compareToAscii("Referer") != 0 || 198cdf0e10cSrcweir lArgs[ index ].Name.getLength() == 0 ) 199cdf0e10cSrcweir { 200cdf0e10cSrcweir inArgs.realloc( ++argCount ); 201cdf0e10cSrcweir inArgs[ argCount - 1 ] = lArgs[ index ].Value; 202cdf0e10cSrcweir } 203cdf0e10cSrcweir } 204cdf0e10cSrcweir } 205cdf0e10cSrcweir 206cdf0e10cSrcweir // attempt to protect the document against the script tampering with its Undo Context 207cdf0e10cSrcweir ::std::auto_ptr< ::framework::DocumentUndoGuard > pUndoGuard; 208cdf0e10cSrcweir if ( bIsDocumentScript ) 209cdf0e10cSrcweir pUndoGuard.reset( new ::framework::DocumentUndoGuard( m_xScriptInvocation ) ); 210cdf0e10cSrcweir 211cdf0e10cSrcweir bSuccess = sal_False; 212cdf0e10cSrcweir while ( !bSuccess ) 213cdf0e10cSrcweir { 214cdf0e10cSrcweir Any aFirstCaughtException; 215cdf0e10cSrcweir try 216cdf0e10cSrcweir { 217cdf0e10cSrcweir invokeResult = xFunc->invoke( inArgs, outIndex, outArgs ); 218cdf0e10cSrcweir bSuccess = sal_True; 219cdf0e10cSrcweir } 220cdf0e10cSrcweir catch( const provider::ScriptFrameworkErrorException& se ) 221cdf0e10cSrcweir { 222cdf0e10cSrcweir if ( !aFirstCaughtException.hasValue() ) 223cdf0e10cSrcweir aFirstCaughtException = ::cppu::getCaughtException(); 224cdf0e10cSrcweir 225cdf0e10cSrcweir if ( se.errorType != provider::ScriptFrameworkErrorType::NO_SUCH_SCRIPT ) 226cdf0e10cSrcweir // the only condition which allows us to retry is if there is no method with the 227cdf0e10cSrcweir // given name/signature 228cdf0e10cSrcweir ::cppu::throwException( aFirstCaughtException ); 229cdf0e10cSrcweir 230cdf0e10cSrcweir if ( inArgs.getLength() == 0 ) 231cdf0e10cSrcweir // no chance to retry if we can't strip more in-args 232cdf0e10cSrcweir ::cppu::throwException( aFirstCaughtException ); 233cdf0e10cSrcweir 234cdf0e10cSrcweir // strip one argument, then retry 235cdf0e10cSrcweir inArgs.realloc( inArgs.getLength() - 1 ); 236cdf0e10cSrcweir } 237cdf0e10cSrcweir } 238cdf0e10cSrcweir } 239cdf0e10cSrcweir // Office doesn't handle exceptions rethrown here very well, it cores, 240cdf0e10cSrcweir // all we can is log them and then set fail for the dispatch event! 241cdf0e10cSrcweir // (if there is a listener of course) 242cdf0e10cSrcweir catch ( const Exception & e ) 243cdf0e10cSrcweir { 244cdf0e10cSrcweir aException = ::cppu::getCaughtException(); 245cdf0e10cSrcweir 246cdf0e10cSrcweir ::rtl::OUString reason = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScriptProtocolHandler::dispatch: caught " ) ); 247cdf0e10cSrcweir 248cdf0e10cSrcweir invokeResult <<= reason.concat( aException.getValueTypeName() ).concat( e.Message ); 249cdf0e10cSrcweir 250cdf0e10cSrcweir bCaughtException = sal_True; 251cdf0e10cSrcweir } 252cdf0e10cSrcweir } 253cdf0e10cSrcweir else 254cdf0e10cSrcweir { 255cdf0e10cSrcweir ::rtl::OUString reason = ::rtl::OUString::createFromAscii( 256cdf0e10cSrcweir "ScriptProtocolHandler::dispatchWithNotification failed, ScriptProtocolHandler not initialised" 257cdf0e10cSrcweir ); 258cdf0e10cSrcweir invokeResult <<= reason; 259cdf0e10cSrcweir } 260cdf0e10cSrcweir 261cdf0e10cSrcweir if ( bCaughtException ) 262cdf0e10cSrcweir { 263cdf0e10cSrcweir SfxAbstractDialogFactory* pFact = SfxAbstractDialogFactory::Create(); 264cdf0e10cSrcweir 265cdf0e10cSrcweir if ( pFact != NULL ) 266cdf0e10cSrcweir { 267cdf0e10cSrcweir VclAbstractDialog* pDlg = 268cdf0e10cSrcweir pFact->CreateScriptErrorDialog( NULL, aException ); 269cdf0e10cSrcweir 270cdf0e10cSrcweir if ( pDlg != NULL ) 271cdf0e10cSrcweir { 272cdf0e10cSrcweir pDlg->Execute(); 273cdf0e10cSrcweir delete pDlg; 274cdf0e10cSrcweir } 275cdf0e10cSrcweir } 276cdf0e10cSrcweir } 277cdf0e10cSrcweir 278cdf0e10cSrcweir if ( xListener.is() ) 279cdf0e10cSrcweir { 280cdf0e10cSrcweir // always call dispatchFinished(), because we didn't load a document but 281cdf0e10cSrcweir // executed a macro instead! 282cdf0e10cSrcweir ::com::sun::star::frame::DispatchResultEvent aEvent; 283cdf0e10cSrcweir 284cdf0e10cSrcweir aEvent.Source = static_cast< ::cppu::OWeakObject* >( this ); 285cdf0e10cSrcweir aEvent.Result = invokeResult; 286cdf0e10cSrcweir if ( bSuccess ) 287cdf0e10cSrcweir { 288cdf0e10cSrcweir aEvent.State = ::com::sun::star::frame::DispatchResultState::SUCCESS; 289cdf0e10cSrcweir } 290cdf0e10cSrcweir else 291cdf0e10cSrcweir { 292cdf0e10cSrcweir aEvent.State = ::com::sun::star::frame::DispatchResultState::FAILURE; 293cdf0e10cSrcweir } 294cdf0e10cSrcweir 295cdf0e10cSrcweir try 296cdf0e10cSrcweir { 297cdf0e10cSrcweir xListener->dispatchFinished( aEvent ) ; 298cdf0e10cSrcweir } 299cdf0e10cSrcweir catch(RuntimeException & e) 300cdf0e10cSrcweir { 301cdf0e10cSrcweir OSL_TRACE( 302cdf0e10cSrcweir "ScriptProtocolHandler::dispatchWithNotification: caught RuntimeException" 303cdf0e10cSrcweir "while dispatchFinished %s", 304cdf0e10cSrcweir ::rtl::OUStringToOString( e.Message, 305cdf0e10cSrcweir RTL_TEXTENCODING_ASCII_US ).pData->buffer ); 306cdf0e10cSrcweir } 307cdf0e10cSrcweir } 308cdf0e10cSrcweir } 309cdf0e10cSrcweir 310cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::dispatch( 311cdf0e10cSrcweir const URL& aURL, const Sequence< PropertyValue >& lArgs ) 312cdf0e10cSrcweir throw ( RuntimeException ) 313cdf0e10cSrcweir { 314cdf0e10cSrcweir dispatchWithNotification( aURL, lArgs, Reference< XDispatchResultListener >() ); 315cdf0e10cSrcweir } 316cdf0e10cSrcweir 317cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::addStatusListener( 318cdf0e10cSrcweir const Reference< XStatusListener >& xControl, const URL& aURL ) 319cdf0e10cSrcweir throw ( RuntimeException ) 320cdf0e10cSrcweir { 321cdf0e10cSrcweir (void)xControl; 322cdf0e10cSrcweir (void)aURL; 323cdf0e10cSrcweir 324cdf0e10cSrcweir // implement if status is supported 325cdf0e10cSrcweir } 326cdf0e10cSrcweir 327cdf0e10cSrcweir void SAL_CALL ScriptProtocolHandler::removeStatusListener( 328cdf0e10cSrcweir const Reference< XStatusListener >& xControl, const URL& aURL ) 329cdf0e10cSrcweir throw ( RuntimeException ) 330cdf0e10cSrcweir { 331cdf0e10cSrcweir (void)xControl; 332cdf0e10cSrcweir (void)aURL; 333cdf0e10cSrcweir } 334cdf0e10cSrcweir 335cdf0e10cSrcweir bool 336cdf0e10cSrcweir ScriptProtocolHandler::getScriptInvocation() 337cdf0e10cSrcweir { 338cdf0e10cSrcweir if ( !m_xScriptInvocation.is() && m_xFrame.is() ) 339cdf0e10cSrcweir { 340cdf0e10cSrcweir Reference< XController > xController = m_xFrame->getController(); 341cdf0e10cSrcweir if ( xController .is() ) 342cdf0e10cSrcweir { 343cdf0e10cSrcweir // try to obtain an XScriptInvocationContext interface, preferred from the 344cdf0e10cSrcweir // mode, then from the controller 345cdf0e10cSrcweir if ( !m_xScriptInvocation.set( xController->getModel(), UNO_QUERY ) ) 346cdf0e10cSrcweir m_xScriptInvocation.set( xController, UNO_QUERY ); 347cdf0e10cSrcweir } 348cdf0e10cSrcweir } 349cdf0e10cSrcweir return m_xScriptInvocation.is(); 350cdf0e10cSrcweir } 351cdf0e10cSrcweir 352cdf0e10cSrcweir void ScriptProtocolHandler::createScriptProvider() 353cdf0e10cSrcweir { 354cdf0e10cSrcweir if ( m_xScriptProvider.is() ) 355cdf0e10cSrcweir return; 356cdf0e10cSrcweir 357cdf0e10cSrcweir try 358cdf0e10cSrcweir { 359cdf0e10cSrcweir // first, ask the component supporting the XScriptInvocationContext interface 360cdf0e10cSrcweir // (if there is one) for a script provider 361cdf0e10cSrcweir if ( getScriptInvocation() ) 362cdf0e10cSrcweir { 363cdf0e10cSrcweir Reference< XScriptProviderSupplier > xSPS( m_xScriptInvocation, UNO_QUERY ); 364cdf0e10cSrcweir if ( xSPS.is() ) 365cdf0e10cSrcweir m_xScriptProvider = xSPS->getScriptProvider(); 366cdf0e10cSrcweir } 367cdf0e10cSrcweir 368cdf0e10cSrcweir // second, ask the model in our frame 369cdf0e10cSrcweir if ( !m_xScriptProvider.is() && m_xFrame.is() ) 370cdf0e10cSrcweir { 371cdf0e10cSrcweir Reference< XController > xController = m_xFrame->getController(); 372cdf0e10cSrcweir if ( xController .is() ) 373cdf0e10cSrcweir { 374cdf0e10cSrcweir Reference< XScriptProviderSupplier > xSPS( xController->getModel(), UNO_QUERY ); 375cdf0e10cSrcweir if ( xSPS.is() ) 376cdf0e10cSrcweir m_xScriptProvider = xSPS->getScriptProvider(); 377cdf0e10cSrcweir } 378cdf0e10cSrcweir } 379cdf0e10cSrcweir 380cdf0e10cSrcweir 381cdf0e10cSrcweir // as a fallback, ask the controller 382cdf0e10cSrcweir if ( !m_xScriptProvider.is() && m_xFrame.is() ) 383cdf0e10cSrcweir { 384cdf0e10cSrcweir Reference< XScriptProviderSupplier > xSPS( m_xFrame->getController(), UNO_QUERY ); 385cdf0e10cSrcweir if ( xSPS.is() ) 386cdf0e10cSrcweir m_xScriptProvider = xSPS->getScriptProvider(); 387cdf0e10cSrcweir } 388cdf0e10cSrcweir 389cdf0e10cSrcweir // if nothing of this is successful, use the master script provider 390cdf0e10cSrcweir if ( !m_xScriptProvider.is() ) 391cdf0e10cSrcweir { 392cdf0e10cSrcweir Reference< XPropertySet > xProps( m_xFactory, UNO_QUERY_THROW ); 393cdf0e10cSrcweir 394cdf0e10cSrcweir ::rtl::OUString dc( 395cdf0e10cSrcweir RTL_CONSTASCII_USTRINGPARAM( "DefaultContext" ) ); 396cdf0e10cSrcweir 397cdf0e10cSrcweir Reference< XComponentContext > xCtx( 398cdf0e10cSrcweir xProps->getPropertyValue( dc ), UNO_QUERY_THROW ); 399cdf0e10cSrcweir 400cdf0e10cSrcweir ::rtl::OUString tmspf = ::rtl::OUString::createFromAscii( 401cdf0e10cSrcweir "/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory"); 402cdf0e10cSrcweir 403cdf0e10cSrcweir Reference< provider::XScriptProviderFactory > xFac( 404cdf0e10cSrcweir xCtx->getValueByName( tmspf ), UNO_QUERY_THROW ); 405cdf0e10cSrcweir 406cdf0e10cSrcweir Any aContext; 407cdf0e10cSrcweir if ( getScriptInvocation() ) 408cdf0e10cSrcweir aContext = makeAny( m_xScriptInvocation ); 409cdf0e10cSrcweir m_xScriptProvider = Reference< provider::XScriptProvider > ( 410cdf0e10cSrcweir xFac->createScriptProvider( aContext ), UNO_QUERY_THROW ); 411cdf0e10cSrcweir } 412cdf0e10cSrcweir } 413cdf0e10cSrcweir catch ( RuntimeException & e ) 414cdf0e10cSrcweir { 415cdf0e10cSrcweir ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::createScriptProvider(), " ); 416cdf0e10cSrcweir throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() ); 417cdf0e10cSrcweir } 418cdf0e10cSrcweir catch ( Exception & e ) 419cdf0e10cSrcweir { 420cdf0e10cSrcweir ::rtl::OUString temp = OUSTR( "ScriptProtocolHandler::createScriptProvider: " ); 421cdf0e10cSrcweir throw RuntimeException( temp.concat( e.Message ), Reference< XInterface >() ); 422cdf0e10cSrcweir } 423cdf0e10cSrcweir } 424cdf0e10cSrcweir 425cdf0e10cSrcweir ScriptProtocolHandler::ScriptProtocolHandler( 426cdf0e10cSrcweir Reference< css::lang::XMultiServiceFactory > const& rFact ) : 427cdf0e10cSrcweir m_bInitialised( false ), m_xFactory( rFact ) 428cdf0e10cSrcweir { 429cdf0e10cSrcweir } 430cdf0e10cSrcweir 431cdf0e10cSrcweir ScriptProtocolHandler::~ScriptProtocolHandler() 432cdf0e10cSrcweir { 433cdf0e10cSrcweir } 434cdf0e10cSrcweir 435cdf0e10cSrcweir /* XServiceInfo */ 436cdf0e10cSrcweir ::rtl::OUString SAL_CALL ScriptProtocolHandler::getImplementationName( ) 437cdf0e10cSrcweir throw( RuntimeException ) 438cdf0e10cSrcweir { 439cdf0e10cSrcweir return impl_getStaticImplementationName(); 440cdf0e10cSrcweir } 441cdf0e10cSrcweir 442cdf0e10cSrcweir /* XServiceInfo */ 443cdf0e10cSrcweir sal_Bool SAL_CALL ScriptProtocolHandler::supportsService( 444cdf0e10cSrcweir const ::rtl::OUString& sServiceName ) 445cdf0e10cSrcweir throw( RuntimeException ) 446cdf0e10cSrcweir { 447cdf0e10cSrcweir Sequence< ::rtl::OUString > seqServiceNames = getSupportedServiceNames(); 448cdf0e10cSrcweir const ::rtl::OUString* pArray = seqServiceNames.getConstArray(); 449cdf0e10cSrcweir for ( sal_Int32 nCounter = 0; nCounter < seqServiceNames.getLength(); nCounter++ ) 450cdf0e10cSrcweir { 451cdf0e10cSrcweir if ( pArray[ nCounter ] == sServiceName ) 452cdf0e10cSrcweir { 453cdf0e10cSrcweir return sal_True ; 454cdf0e10cSrcweir } 455cdf0e10cSrcweir } 456cdf0e10cSrcweir 457cdf0e10cSrcweir return sal_False ; 458cdf0e10cSrcweir } 459cdf0e10cSrcweir 460cdf0e10cSrcweir /* XServiceInfo */ 461cdf0e10cSrcweir Sequence< ::rtl::OUString > SAL_CALL ScriptProtocolHandler::getSupportedServiceNames() 462cdf0e10cSrcweir throw( RuntimeException ) 463cdf0e10cSrcweir { 464cdf0e10cSrcweir return impl_getStaticSupportedServiceNames(); 465cdf0e10cSrcweir } 466cdf0e10cSrcweir 467cdf0e10cSrcweir /* Helper for XServiceInfo */ 468cdf0e10cSrcweir Sequence< ::rtl::OUString > ScriptProtocolHandler::impl_getStaticSupportedServiceNames() 469cdf0e10cSrcweir { 470cdf0e10cSrcweir ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() ); 471cdf0e10cSrcweir Sequence< ::rtl::OUString > seqServiceNames( 1 ); 472cdf0e10cSrcweir seqServiceNames.getArray() [ 0 ] = 473cdf0e10cSrcweir ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYSERVICENAME ); 474cdf0e10cSrcweir return seqServiceNames ; 475cdf0e10cSrcweir } 476cdf0e10cSrcweir 477cdf0e10cSrcweir /* Helper for XServiceInfo */ 478cdf0e10cSrcweir ::rtl::OUString ScriptProtocolHandler::impl_getStaticImplementationName() 479cdf0e10cSrcweir { 480cdf0e10cSrcweir return ::rtl::OUString::createFromAscii( ::scripting_protocolhandler::MYIMPLNAME ); 481cdf0e10cSrcweir } 482cdf0e10cSrcweir 483cdf0e10cSrcweir /* Helper for registry */ 484cdf0e10cSrcweir Reference< XInterface > SAL_CALL ScriptProtocolHandler::impl_createInstance( 485cdf0e10cSrcweir const Reference< css::lang::XMultiServiceFactory >& xServiceManager ) 486cdf0e10cSrcweir throw( RuntimeException ) 487cdf0e10cSrcweir { 488cdf0e10cSrcweir return Reference< XInterface > ( *new ScriptProtocolHandler( xServiceManager ) ); 489cdf0e10cSrcweir } 490cdf0e10cSrcweir 491cdf0e10cSrcweir /* Factory for registration */ 492cdf0e10cSrcweir Reference< XSingleServiceFactory > ScriptProtocolHandler::impl_createFactory( 493cdf0e10cSrcweir const Reference< XMultiServiceFactory >& xServiceManager ) 494cdf0e10cSrcweir { 495cdf0e10cSrcweir Reference< XSingleServiceFactory > xReturn ( 496cdf0e10cSrcweir cppu::createSingleFactory( xServiceManager, 497cdf0e10cSrcweir ScriptProtocolHandler::impl_getStaticImplementationName(), 498cdf0e10cSrcweir ScriptProtocolHandler::impl_createInstance, 499cdf0e10cSrcweir ScriptProtocolHandler::impl_getStaticSupportedServiceNames() ) 500cdf0e10cSrcweir ); 501cdf0e10cSrcweir return xReturn; 502cdf0e10cSrcweir } 503cdf0e10cSrcweir 504cdf0e10cSrcweir } // namespace scripting_protocolhandler 505cdf0e10cSrcweir 506cdf0e10cSrcweir /* exported functions for registration */ 507cdf0e10cSrcweir extern "C" 508cdf0e10cSrcweir { 509cdf0e10cSrcweir 510cdf0e10cSrcweir #undef css 511cdf0e10cSrcweir #define css ::com::sun::star 512cdf0e10cSrcweir 513cdf0e10cSrcweir void SAL_CALL component_getImplementationEnvironment( 514cdf0e10cSrcweir const sal_Char** ppEnvironmentTypeName, uno_Environment** ppEnvironment ) 515cdf0e10cSrcweir { 516cdf0e10cSrcweir (void)ppEnvironment; 517cdf0e10cSrcweir 518cdf0e10cSrcweir *ppEnvironmentTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME ; 519cdf0e10cSrcweir } 520cdf0e10cSrcweir 521cdf0e10cSrcweir void* SAL_CALL component_getFactory( const sal_Char * pImplementationName , 522cdf0e10cSrcweir void * pServiceManager , 523cdf0e10cSrcweir void * pRegistryKey ) 524cdf0e10cSrcweir { 525cdf0e10cSrcweir (void)pRegistryKey; 526cdf0e10cSrcweir 527cdf0e10cSrcweir // Set default return value for this operation - if it failed. 528cdf0e10cSrcweir void * pReturn = NULL ; 529cdf0e10cSrcweir 530cdf0e10cSrcweir if ( 531cdf0e10cSrcweir ( pImplementationName != NULL ) && 532cdf0e10cSrcweir ( pServiceManager != NULL ) 533cdf0e10cSrcweir ) 534cdf0e10cSrcweir { 535cdf0e10cSrcweir // Define variables which are used in following macros. 536cdf0e10cSrcweir ::com::sun::star::uno::Reference< 537cdf0e10cSrcweir ::com::sun::star::lang::XSingleServiceFactory > xFactory ; 538cdf0e10cSrcweir ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory > 539cdf0e10cSrcweir xServiceManager( reinterpret_cast< 540cdf0e10cSrcweir ::com::sun::star::lang::XMultiServiceFactory* >( pServiceManager ) ) ; 541cdf0e10cSrcweir 542cdf0e10cSrcweir if ( ::scripting_protocolhandler::ScriptProtocolHandler::impl_getStaticImplementationName().equals( 543cdf0e10cSrcweir ::rtl::OUString::createFromAscii( pImplementationName ) ) ) 544cdf0e10cSrcweir { 545cdf0e10cSrcweir xFactory = ::scripting_protocolhandler::ScriptProtocolHandler::impl_createFactory( xServiceManager ); 546cdf0e10cSrcweir } 547cdf0e10cSrcweir 548cdf0e10cSrcweir // Factory is valid - service was found. 549cdf0e10cSrcweir if ( xFactory.is() ) 550cdf0e10cSrcweir { 551cdf0e10cSrcweir xFactory->acquire(); 552cdf0e10cSrcweir pReturn = xFactory.get(); 553cdf0e10cSrcweir } 554cdf0e10cSrcweir } 555cdf0e10cSrcweir 556cdf0e10cSrcweir // Return with result of this operation. 557cdf0e10cSrcweir return pReturn ; 558cdf0e10cSrcweir } 559cdf0e10cSrcweir } // extern "C" 560cdf0e10cSrcweir 561cdf0e10cSrcweir 562