/************************************************************************* * * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * Copyright 2000, 2010 Oracle and/or its affiliates. * * OpenOffice.org - a multi-platform office productivity suite * * This file is part of OpenOffice.org. * * OpenOffice.org is free software: you can redistribute it and/or modify * it under the terms of the GNU Lesser General Public License version 3 * only, as published by the Free Software Foundation. * * OpenOffice.org 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 version 3 for more details * (a copy is included in the LICENSE file that accompanied this code). * * You should have received a copy of the GNU Lesser General Public License * version 3 along with OpenOffice.org. If not, see * * for a copy of the LGPLv3 License. * ************************************************************************/ // MARKER(update_precomp.py): autogen include statement, do not remove #include "precompiled_basic.hxx" //#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include //================================================================================================== #include #include #include #include #include #include #include using namespace ::com::sun::star; using namespace ::com::sun::star::uno; using namespace ::com::sun::star::script; using namespace ::com::sun::star::resource; using namespace ::com::sun::star::uno; using namespace ::com::sun::star::lang; using namespace ::com::sun::star::beans; using namespace ::com::sun::star::script; using namespace ::com::sun::star::container; using namespace ::com::sun::star::reflection; using namespace ::com::sun::star::awt; using namespace ::com::sun::star::io; using namespace ::cppu; using namespace ::osl; //=================================================================== void unoToSbxValue( SbxVariable* pVar, const Any& aValue ); Any sbxToUnoValue( SbxVariable* pVar ); Reference< frame::XModel > getModelFromBasic( SbxObject* pBasic ) { OSL_PRECOND( pBasic != NULL, "getModelFromBasic: illegal call!" ); if ( !pBasic ) return NULL; // look for the ThisComponent variable, first in the parent (which // might be the document's Basic), then in the parent's parent (which might be // the application Basic) const ::rtl::OUString sThisComponent( RTL_CONSTASCII_USTRINGPARAM( "ThisComponent" ) ); SbxVariable* pThisComponent = NULL; SbxObject* pLookup = pBasic->GetParent(); while ( pLookup && !pThisComponent ) { pThisComponent = pLookup->Find( sThisComponent, SbxCLASS_OBJECT ); pLookup = pLookup->GetParent(); } if ( !pThisComponent ) { OSL_TRACE("Failed to get ThisComponent"); // the application Basic, at the latest, should have this variable return NULL; } Any aThisComponent( sbxToUnoValue( pThisComponent ) ); Reference< frame::XModel > xModel( aThisComponent, UNO_QUERY ); if ( !xModel.is() ) { // it's no XModel. Okay, ThisComponent nowadays is allowed to be a controller. Reference< frame::XController > xController( aThisComponent, UNO_QUERY ); if ( xController.is() ) xModel = xController->getModel(); } if ( !xModel.is() ) return NULL; #if OSL_DEBUG_LEVEL > 0 OSL_TRACE("Have model ThisComponent points to url %s", ::rtl::OUStringToOString( xModel->getURL(), RTL_TEXTENCODING_ASCII_US ).pData->buffer ); #endif return xModel; } void SFURL_firing_impl( const ScriptEvent& aScriptEvent, Any* pRet, const Reference< frame::XModel >& xModel ) { OSL_TRACE("SFURL_firing_impl() processing script url %s", ::rtl::OUStringToOString( aScriptEvent.ScriptCode, RTL_TEXTENCODING_ASCII_US ).pData->buffer ); try { Reference< provider::XScriptProvider > xScriptProvider; if ( xModel.is() ) { Reference< provider::XScriptProviderSupplier > xSupplier( xModel, UNO_QUERY ); OSL_ENSURE( xSupplier.is(), "SFURL_firing_impl: failed to get script provider supplier" ); if ( xSupplier.is() ) xScriptProvider.set( xSupplier->getScriptProvider() ); } else { Reference< XComponentContext > xContext; Reference< XPropertySet > xProps( ::comphelper::getProcessServiceFactory(), UNO_QUERY ); OSL_ASSERT( xProps.is() ); OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString::createFromAscii( "DefaultContext" ) ) >>= xContext ); if ( xContext.is() ) { Reference< provider::XScriptProviderFactory > xFactory( xContext->getValueByName( ::rtl::OUString::createFromAscii( "/singletons/com.sun.star.script.provider.theMasterScriptProviderFactory" ) ), UNO_QUERY ); OSL_ENSURE( xFactory.is(), "SFURL_firing_impl: failed to get master script provider factory" ); if ( xFactory.is() ) { Any aCtx; aCtx <<= ::rtl::OUString::createFromAscii( "user" ); xScriptProvider.set( xFactory->createScriptProvider( aCtx ), UNO_QUERY ); } } } if ( !xScriptProvider.is() ) { OSL_TRACE("SFURL_firing_impl() Failed to create msp"); return; } Sequence< Any > inArgs( 0 ); Sequence< Any > outArgs( 0 ); Sequence< sal_Int16 > outIndex; // get Arguments for script inArgs = aScriptEvent.Arguments; Reference< provider::XScript > xScript = xScriptProvider->getScript( aScriptEvent.ScriptCode ); if ( !xScript.is() ) { OSL_TRACE("SFURL_firing_impl() Failed to obtain XScript"); return; } Any result = xScript->invoke( inArgs, outIndex, outArgs ); if ( pRet ) { *pRet = result; } } catch ( RuntimeException& re ) { OSL_TRACE("SFURL_firing_impl() Caught RuntimeException reason %s.", ::rtl::OUStringToOString( re.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer ); } catch ( Exception& e ) { OSL_TRACE("SFURL_firing_impl() Caught Exception reason %s.", ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer ); } } class BasicScriptListener_Impl : public WeakImplHelper1< XScriptListener > { StarBASICRef maBasicRef; Reference< frame::XModel > m_xModel; virtual void firing_impl(const ScriptEvent& aScriptEvent, Any* pRet); public: BasicScriptListener_Impl( StarBASIC* pBasic, const Reference< frame::XModel >& xModel ) : maBasicRef( pBasic ), m_xModel( xModel ) {} // Methods of XAllListener virtual void SAL_CALL firing(const ScriptEvent& aScriptEvent) throw( RuntimeException ); virtual Any SAL_CALL approveFiring(const ScriptEvent& aScriptEvent) throw( InvocationTargetException, RuntimeException ); // Methods of XEventListener virtual void SAL_CALL disposing(const EventObject& Source) throw( RuntimeException ); }; // Methods XAllListener void BasicScriptListener_Impl::firing( const ScriptEvent& aScriptEvent ) throw ( RuntimeException ) { firing_impl( aScriptEvent, NULL ); } Any BasicScriptListener_Impl::approveFiring( const ScriptEvent& aScriptEvent ) throw ( InvocationTargetException, RuntimeException ) { Any aRetAny; firing_impl( aScriptEvent, &aRetAny ); return aRetAny; } // Methods XEventListener void BasicScriptListener_Impl::disposing(const EventObject& ) throw ( RuntimeException ) { // TODO: ??? //NAMESPACE_VOS(OGuard) guard( Application::GetSolarMutex() ); //xSbxObj.Clear(); } void BasicScriptListener_Impl::firing_impl( const ScriptEvent& aScriptEvent, Any* pRet ) { //Guard< Mutex > aGuard( Mutex::getGlobalMutex() ); //{ if( aScriptEvent.ScriptType.compareToAscii( "StarBasic" ) == 0 ) { // Full qualified name? String aMacro( aScriptEvent.ScriptCode ); String aLibName; String aLocation; if( aMacro.GetTokenCount( '.' ) == 3 ) { sal_uInt16 nLast = 0; ::rtl::OUString aFullLibName = aMacro.GetToken( 0, '.', nLast ); sal_Int32 nIndex = aFullLibName.indexOf( (sal_Unicode)':' ); if (nIndex >= 0) { aLocation = aFullLibName.copy( 0, nIndex ); aLibName = aFullLibName.copy( nIndex + 1 ); } String aModul = aMacro.GetToken( 0, '.', nLast ); aMacro.Erase( 0, nLast ); } SbxObject* p = maBasicRef; SbxObject* pParent = p->GetParent(); SbxObject* pParentParent = pParent ? pParent->GetParent() : NULL; StarBASICRef xAppStandardBasic; StarBASICRef xDocStandardBasic; if( pParentParent ) { // Own basic must be document library xAppStandardBasic = (StarBASIC*)pParentParent; xDocStandardBasic = (StarBASIC*)pParent; } else if( pParent ) { String aName = p->GetName(); if( aName.EqualsAscii("Standard") ) { // Own basic is doc standard lib xDocStandardBasic = (StarBASIC*)p; } xAppStandardBasic = (StarBASIC*)pParent; } else { xAppStandardBasic = (StarBASIC*)p; } sal_Bool bSearchLib = true; StarBASICRef xLibSearchBasic; if( aLocation.EqualsAscii("application") ) xLibSearchBasic = xAppStandardBasic; else if( aLocation.EqualsAscii("document") ) xLibSearchBasic = xDocStandardBasic; else bSearchLib = false; SbxVariable* pMethVar = NULL; // Be still tolerant and make default search if no search basic exists if( bSearchLib && xLibSearchBasic.Is() ) { StarBASICRef xLibBasic; sal_Int16 nCount = xLibSearchBasic->GetObjects()->Count(); for( sal_Int16 nObj = -1; nObj < nCount ; nObj++ ) { StarBASIC* pBasic; if( nObj == -1 ) { pBasic = (StarBASIC*)xLibSearchBasic; } else { SbxVariable* pVar = xLibSearchBasic->GetObjects()->Get( nObj ); pBasic = PTR_CAST(StarBASIC,pVar); } if( pBasic ) { String aName = pBasic->GetName(); if( aName == aLibName ) { // Search only in the lib, not automatically in application basic USHORT nFlags = pBasic->GetFlags(); pBasic->ResetFlag( SBX_GBLSEARCH ); pMethVar = pBasic->Find( aMacro, SbxCLASS_DONTCARE ); pBasic->SetFlags( nFlags ); break; } } } } // Default: Be tolerant and search everywhere if( (!pMethVar || !pMethVar->ISA(SbMethod)) && maBasicRef.Is() ) pMethVar = maBasicRef->FindQualified( aMacro, SbxCLASS_DONTCARE ); SbMethod* pMeth = PTR_CAST(SbMethod,pMethVar); if( !pMeth ) return; // Setup parameters SbxArrayRef xArray; String aTmp; sal_Int32 nCnt = aScriptEvent.Arguments.getLength(); if( nCnt ) { xArray = new SbxArray; const Any *pArgs = aScriptEvent.Arguments.getConstArray(); for( sal_Int32 i = 0; i < nCnt; i++ ) { SbxVariableRef xVar = new SbxVariable( SbxVARIANT ); unoToSbxValue( (SbxVariable*)xVar, pArgs[i] ); xArray->Put( xVar, sal::static_int_cast< USHORT >(i+1) ); } } // Call method SbxVariableRef xValue = pRet ? new SbxVariable : 0; if( xArray.Is() ) pMeth->SetParameters( xArray ); pMeth->Call( xValue ); if( pRet ) *pRet = sbxToUnoValue( xValue ); pMeth->SetParameters( NULL ); } else // scripting framework script { //callBasic via scripting framework SFURL_firing_impl( aScriptEvent, pRet, m_xModel ); } } Any implFindDialogLibForDialog( const Any& rDlgAny, SbxObject* pBasic ) { Any aRetDlgLibAny; SbxVariable* pDlgLibContVar = pBasic->Find ( String::CreateFromAscii("DialogLibraries"), SbxCLASS_OBJECT ); if( pDlgLibContVar && pDlgLibContVar->ISA(SbUnoObject) ) { SbUnoObject* pDlgLibContUnoObj = (SbUnoObject*)(SbxBase*)pDlgLibContVar; Any aDlgLibContAny = pDlgLibContUnoObj->getUnoAny(); Reference< XLibraryContainer > xDlgLibContNameAccess( aDlgLibContAny, UNO_QUERY ); OSL_ENSURE( xDlgLibContNameAccess.is(), "implFindDialogLibForDialog: no lib container for the given dialog!" ); if( xDlgLibContNameAccess.is() ) { Sequence< ::rtl::OUString > aLibNames = xDlgLibContNameAccess->getElementNames(); const ::rtl::OUString* pLibNames = aLibNames.getConstArray(); sal_Int32 nLibNameCount = aLibNames.getLength(); for( sal_Int32 iLib = 0 ; iLib < nLibNameCount ; iLib++ ) { if ( !xDlgLibContNameAccess->isLibraryLoaded( pLibNames[ iLib ] ) ) // if the library isn't loaded, then the dialog cannot originate from this lib continue; Any aDlgLibAny = xDlgLibContNameAccess->getByName( pLibNames[ iLib ] ); Reference< XNameAccess > xDlgLibNameAccess( aDlgLibAny, UNO_QUERY ); OSL_ENSURE( xDlgLibNameAccess.is(), "implFindDialogLibForDialog: invalid dialog lib!" ); if( xDlgLibNameAccess.is() ) { Sequence< ::rtl::OUString > aDlgNames = xDlgLibNameAccess->getElementNames(); const ::rtl::OUString* pDlgNames = aDlgNames.getConstArray(); sal_Int32 nDlgNameCount = aDlgNames.getLength(); for( sal_Int32 iDlg = 0 ; iDlg < nDlgNameCount ; iDlg++ ) { Any aDlgAny = xDlgLibNameAccess->getByName( pDlgNames[ iDlg ] ); if( aDlgAny == rDlgAny ) { aRetDlgLibAny = aDlgLibAny; break; } } } } } } return aRetDlgLibAny; } static ::rtl::OUString aDecorationPropName = ::rtl::OUString::createFromAscii( "Decoration" ); static ::rtl::OUString aTitlePropName = ::rtl::OUString::createFromAscii( "Title" ); void RTL_Impl_CreateUnoDialog( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite ) { static ::rtl::OUString aResourceResolverPropName = ::rtl::OUString::createFromAscii( "ResourceResolver" ); (void)pBasic; (void)bWrite; Reference< XMultiServiceFactory > xMSF( comphelper::getProcessServiceFactory() ); if( !xMSF.is() ) return; // We need at least 1 parameter if ( rPar.Count() < 2 ) { StarBASIC::Error( SbERR_BAD_ARGUMENT ); return; } // Get dialog SbxBaseRef pObj = (SbxBase*)rPar.Get( 1 )->GetObject(); if( !(pObj && pObj->ISA(SbUnoObject)) ) { StarBASIC::Error( SbERR_BAD_ARGUMENT ); return; } SbUnoObject* pUnoObj = (SbUnoObject*)(SbxBase*)pObj; Any aAnyISP = pUnoObj->getUnoAny(); TypeClass eType = aAnyISP.getValueType().getTypeClass(); if( eType != TypeClass_INTERFACE ) { StarBASIC::Error( SbERR_BAD_ARGUMENT ); return; } // Create new uno dialog Reference< XNameContainer > xDialogModel( xMSF->createInstance ( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ) ), UNO_QUERY ); if( !xDialogModel.is() ) return; Reference< XInputStreamProvider > xISP; aAnyISP >>= xISP; if( !xISP.is() ) return; Reference< XComponentContext > xContext; Reference< XPropertySet > xProps( xMSF, UNO_QUERY ); OSL_ASSERT( xProps.is() ); OSL_VERIFY( xProps->getPropertyValue( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM("DefaultContext")) ) >>= xContext ); // Import the DialogModel Reference< XInputStream > xInput( xISP->createInputStream() ); // i83963 Force decoration uno::Reference< beans::XPropertySet > xDlgModPropSet( xDialogModel, uno::UNO_QUERY ); if( xDlgModPropSet.is() ) { bool bDecoration = true; try { Any aDecorationAny = xDlgModPropSet->getPropertyValue( aDecorationPropName ); aDecorationAny >>= bDecoration; if( !bDecoration ) { xDlgModPropSet->setPropertyValue( aDecorationPropName, makeAny( true ) ); xDlgModPropSet->setPropertyValue( aTitlePropName, makeAny( ::rtl::OUString() ) ); } } catch( UnknownPropertyException& ) {} } // Find dialog library for dialog, direct access is not possible here StarBASIC* pStartedBasic = pINST->GetBasic(); SbxObject* pParentBasic = pStartedBasic ? pStartedBasic->GetParent() : NULL; SbxObject* pParentParentBasic = pParentBasic ? pParentBasic->GetParent() : NULL; SbxObject* pSearchBasic1 = NULL; SbxObject* pSearchBasic2 = NULL; if( pParentParentBasic ) { pSearchBasic1 = pParentBasic; pSearchBasic2 = pParentParentBasic; } else { pSearchBasic1 = pStartedBasic; pSearchBasic2 = pParentBasic; } Any aDlgLibAny; if( pSearchBasic1 ) { aDlgLibAny = implFindDialogLibForDialog( aAnyISP, pSearchBasic1 ); if( pSearchBasic2 && aDlgLibAny.getValueType().getTypeClass() == TypeClass_VOID ) aDlgLibAny = implFindDialogLibForDialog( aAnyISP, pSearchBasic2 ); } OSL_TRACE("About to try get a hold of ThisComponent"); Reference< frame::XModel > xModel = getModelFromBasic( pStartedBasic ) ; Reference< XScriptListener > xScriptListener = new BasicScriptListener_Impl( pStartedBasic, xModel ); Sequence< Any > aArgs( 4 ); aArgs[ 0 ] <<= xModel; aArgs[ 1 ] <<= xInput; aArgs[ 2 ] = aDlgLibAny; aArgs[ 3 ] <<= xScriptListener; // Create a "living" Dialog Reference< XControl > xCntrl; try { Reference< XDialogProvider > xDlgProv( xMSF->createInstanceWithArguments( ::rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.scripting.DialogProvider" ) ), aArgs ), UNO_QUERY ); xCntrl.set( xDlgProv->createDialog( rtl::OUString() ), UNO_QUERY_THROW ); // Add dialog model to dispose vector Reference< XComponent > xDlgComponent( xCntrl->getModel(), UNO_QUERY ); pINST->getComponentVector().push_back( xDlgComponent ); // need ThisCompoent from calling script } // preserve existing bad behaviour, it's possible... but probably // illegal to open 2 dialogs ( they ARE modal ) when this happens, sometimes // create dialog fails. So, in this case let's not throw, just leave basic // detect the unset object. catch( uno::Exception& ) { } // Return dialog Any aRetVal; aRetVal <<= xCntrl; SbxVariableRef refVar = rPar.Get(0); unoToSbxValue( (SbxVariable*)refVar, aRetVal ); } //===================================================================