mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
db6cbe51779e8c104abb6fb0532e2fb47864a287
libreoffice/scripting/source/basprov/basprov.cxx
Rüdiger Timm db6cbe5177 INTEGRATION: CWS scriptingf4 (1.9.4); FILE MERGED 
2004/05/11 10:08:56 toconnor 1.9.4.1: #i28888# - basic provider not executing script for Start Application event
2004-05-19 07:26:50 +00:00

588 lines
22 KiB
C++
Raw Blame History

/*************************************************************************
*
* $RCSfile: basprov.cxx,v $
*
* $Revision: 1.10 $
*
* last change: $Author: rt $ $Date: 2004-05-19 08:26:50 $
*
* 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): _______________________________________
*
*
************************************************************************/
#ifndef SCRIPTING_BASPROV_HXX
#include "basprov.hxx"
#endif
#ifndef SCRIPTING_BASSCRIPT_HXX
#include "basscript.hxx"
#endif
#ifndef SCRIPTING_BASLIBNODE_HXX
#include "baslibnode.hxx"
#endif
#ifndef _COM_SUN_STAR_FRAME_XMODEL_HPP_
#include <com/sun/star/frame/XModel.hpp>
#endif
#ifndef _DRAFTS_COM_SUN_STAR_SCRIPT_BROWSE_BROWSENODETYPES_HPP_
#include <drafts/com/sun/star/script/browse/BrowseNodeTypes.hpp>
#endif
#ifndef _CPPUHELPER_IMPLEMENTATIONENTRY_HXX_
#include <cppuhelper/implementationentry.hxx>
#endif
#ifndef _SBXCLASS_HXX
#include <svtools/sbx.hxx>
#endif
#ifndef _BASMGR_HXX
#include <basic/basmgr.hxx>
#endif
#ifndef _SB_SBSTAR_HXX
#include <basic/sbstar.hxx>
#endif
#ifndef _SB_SBMOD_HXX
#include <basic/sbmod.hxx>
#endif
#ifndef _SB_SBMETH_HXX
#include <basic/sbmeth.hxx>
#endif
#ifndef _SFXAPP_HXX
#include <sfx2/app.hxx>
#endif
#ifndef _SFX_OBJSH_HXX
#include <sfx2/objsh.hxx>
#endif
#include <com/sun/star/util/XMacroExpander.hpp>
#include <com/sun/star/script/XLibraryContainer2.hpp>
#include <com/sun/star/uri/XUriReference.hpp>
#include <com/sun/star/uri/XUriReferenceFactory.hpp>
#include <com/sun/star/uri/XVndSunStarScriptUrl.hpp>
using namespace ::com::sun::star;
using namespace ::com::sun::star::lang;
using namespace ::com::sun::star::uno;
using namespace ::drafts::com::sun::star::script;
//.........................................................................
namespace basprov
{
//.........................................................................
// =============================================================================
// component operations
// =============================================================================
static ::rtl::OUString getImplementationName_BasicProviderImpl()
{
static ::rtl::OUString* pImplName = 0;
if ( !pImplName )
{
::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
if ( !pImplName )
{
static ::rtl::OUString aImplName( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.scripting.ScriptProviderForBasic" ) );
pImplName = &aImplName;
}
}
return *pImplName;
}
// -----------------------------------------------------------------------------
static Sequence< ::rtl::OUString > getSupportedServiceNames_BasicProviderImpl()
{
static Sequence< ::rtl::OUString >* pNames = 0;
if ( !pNames )
{
::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
if ( !pNames )
{
static Sequence< ::rtl::OUString > aNames(3);
aNames.getArray()[0] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "drafts.com.sun.star.script.provider.ScriptProviderForBasic" ) );
aNames.getArray()[1] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "drafts.com.sun.star.script.provider.LanguageScriptProvider" ) );
aNames.getArray()[2] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "drafts.com.sun.star.script.provider.ScriptProvider" ) );
pNames = &aNames;
}
}
return *pNames;
}
// =============================================================================
// BasicProviderImpl
// =============================================================================
BasicProviderImpl::BasicProviderImpl( const Reference< XComponentContext >& xContext )
:m_pAppBasicManager( 0 )
,m_pDocBasicManager( 0 )
,m_xLibContainerApp( 0 )
,m_xLibContainerDoc( 0 )
,m_xContext( xContext )
,m_xScriptingContext( 0 )
,m_bIsAppScriptCtx( true )
,m_bIsUserCtx(true)
{
// TODO
if ( !m_pAppBasicManager )
m_pAppBasicManager = SFX_APP()->GetBasicManager();
}
// -----------------------------------------------------------------------------
BasicProviderImpl::~BasicProviderImpl()
{
}
// -----------------------------------------------------------------------------
// XServiceInfo
// -----------------------------------------------------------------------------
::rtl::OUString BasicProviderImpl::getImplementationName( ) throw (RuntimeException)
{
return getImplementationName_BasicProviderImpl();
}
// -----------------------------------------------------------------------------
sal_Bool BasicProviderImpl::supportsService( const ::rtl::OUString& rServiceName ) throw (RuntimeException)
{
Sequence< ::rtl::OUString > aNames( getSupportedServiceNames() );
const ::rtl::OUString* pNames = aNames.getConstArray();
const ::rtl::OUString* pEnd = pNames + aNames.getLength();
for ( ; pNames != pEnd && !pNames->equals( rServiceName ); ++pNames )
;
return pNames != pEnd;
}
// -----------------------------------------------------------------------------
Sequence< ::rtl::OUString > BasicProviderImpl::getSupportedServiceNames( ) throw (RuntimeException)
{
return getSupportedServiceNames_BasicProviderImpl();
}
// -----------------------------------------------------------------------------
// XInitialization
// -----------------------------------------------------------------------------
void BasicProviderImpl::initialize( const Sequence< Any >& aArguments ) throw (Exception, RuntimeException)
{
// TODO
::osl::MutexGuard aGuard( StarBASIC::GetGlobalMutex() );
if ( aArguments.getLength() == 1 && aArguments[0].getValueType() == ::getCppuType( (const ::rtl::OUString* ) NULL ))
{
// Provider has been created with application context for user
// or share
::rtl::OUString sTmp;
aArguments[0] >>= sTmp;
Any aAny = m_xContext->getValueByName( ::rtl::OUString::createFromAscii( "/singletons/com.sun.star.util.theMacroExpander" ) );
Reference< util::XMacroExpander > xME;
aAny >>= xME;
::rtl::OUString base = ::rtl::OUString::createFromAscii(
SAL_CONFIGFILE( "${$SYSBINDIR/bootstrap" ) );
::rtl::OUString user = ::rtl::OUString::createFromAscii( "::UserInstallation}/user" );
::rtl::OUString share = ::rtl::OUString::createFromAscii( "::BaseInstallation}/share" );
::rtl::OUString userDirString = xME->expandMacros( base.concat( user ) );
if ( !sTmp.equals( userDirString ) )
{
m_bIsUserCtx = false;
}
}
else if ( aArguments.getLength() == 1 && aArguments[0].getValueType() == ::getCppuType( ( const Reference< beans::XPropertySet >* ) NULL ))
{
// Provider has been created with document context
aArguments[0] >>= m_xScriptingContext;
if ( m_xScriptingContext.is() )
{
Reference< frame::XModel > xModel;
// TODO: use ScriptingContantsPool for SCRIPTING_DOC_REF
m_xScriptingContext->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "SCRIPTING_DOC_REF" ) ) ) >>= xModel;
if ( xModel.is() )
{
for ( SfxObjectShell* pObjShell = SfxObjectShell::GetFirst(); pObjShell; pObjShell = SfxObjectShell::GetNext( *pObjShell ) )
{
if ( xModel == pObjShell->GetModel() )
{
m_pDocBasicManager = pObjShell->GetBasicManager();
m_xLibContainerDoc = Reference< script::XLibraryContainer >( pObjShell->GetBasicContainer(), UNO_QUERY );
break;
}
}
m_bIsAppScriptCtx = sal_False;
}
}
else
{
/*
throw RuntimeException(
::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "BasicProviderImpl::initialize: no scripting context!" ) ),
Reference< XInterface >() );
*/
}
}
else
{
/*
throw RuntimeException(
::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "BasicProviderImpl::initialize: incorrect number of arguments!" ) ),
Reference< XInterface >() );
*/
}
if ( !m_xLibContainerApp.is() )
m_xLibContainerApp = Reference< script::XLibraryContainer >( SFX_APP()->GetBasicContainer(), UNO_QUERY );
}
// -----------------------------------------------------------------------------
// XScriptProvider
// -----------------------------------------------------------------------------
Reference < provider::XScript > BasicProviderImpl::getScript( const ::rtl::OUString& scriptURI )
throw (IllegalArgumentException, RuntimeException)
{
// TODO
::osl::MutexGuard aGuard( StarBASIC::GetGlobalMutex() );
Reference< provider::XScript > xScript;
Reference< lang::XMultiComponentFactory > xMcFac ( m_xContext->getServiceManager() );
Reference< uri::XUriReferenceFactory > xFac (
xMcFac->createInstanceWithContext( rtl::OUString::createFromAscii(
"com.sun.star.uri.UriReferenceFactory"), m_xContext ) , UNO_QUERY );
if ( !xFac.is() )
{
throw RuntimeException(
::rtl::OUString::createFromAscii( "BasicProviderImpl::getScript(), could not instatiate UriReferenceFactory." ),
Reference< XInterface >() );
}
Reference< uri::XUriReference > uriRef(
xFac->parse( scriptURI ), UNO_QUERY );
Reference < uri::XVndSunStarScriptUrl > sfUri( uriRef, UNO_QUERY );
if ( !uriRef.is() || !sfUri.is() )
{
::rtl::OUString errorMsg = ::rtl::OUString::createFromAscii( "BasicProviderImpl::getScript: failed to parse URI: " );
errorMsg.concat( scriptURI );
throw IllegalArgumentException( errorMsg,
Reference< XInterface >(), 1 );
}
::rtl::OUString aDescription = sfUri->getName();
::rtl::OUString aLocation = sfUri->getParameter(
::rtl::OUString::createFromAscii( "location" ) );
sal_Int32 nIndex = 0;
::rtl::OUString aLibrary = aDescription.getToken( 0, (sal_Unicode)'.', nIndex );
::rtl::OUString aModule;
if ( nIndex != -1 )
aModule = aDescription.getToken( 0, (sal_Unicode)'.', nIndex );
::rtl::OUString aMethod;
if ( nIndex != -1 )
aMethod = aDescription.getToken( 0, (sal_Unicode)'.', nIndex );
OSL_TRACE("** aLibrary = %s",
::rtl::OUStringToOString( aLibrary, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
OSL_TRACE("** aModule = %s",
::rtl::OUStringToOString( aModule, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
OSL_TRACE("** aMethod = %s",
::rtl::OUStringToOString( aMethod, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
if ( aLibrary.getLength() != 0 && aModule.getLength() != 0 && aMethod.getLength() != 0 && aLocation.getLength() != 0 )
{
BasicManager* pBasicMgr = NULL;
if ( aLocation.equals( ::rtl::OUString::createFromAscii("document") ) )
{
pBasicMgr = m_pDocBasicManager;
}
else if ( aLocation.equals( ::rtl::OUString::createFromAscii("application") ) )
{
pBasicMgr = m_pAppBasicManager;
}
if ( pBasicMgr )
{
StarBASIC* pBasic = pBasicMgr->GetLib( aLibrary );
if ( !pBasic )
{
USHORT nId = pBasicMgr->GetLibId( aLibrary );
pBasicMgr->LoadLib( nId );
pBasic = pBasicMgr->GetLib( aLibrary );
}
if ( pBasic )
{
SbModule* pModule = pBasic->FindModule( aModule );
if ( pModule )
{
SbxArray* pMethods = pModule->GetMethods();
if ( pMethods )
{
SbMethod* pMethod = static_cast< SbMethod* >( pMethods->Find( aMethod, SbxCLASS_METHOD ) );
if ( pMethod )
{
xScript = static_cast< provider::XScript* >( new BasicScriptImpl( pMethod ) );
}
}
}
}
}
}
if ( !xScript.is() )
{
throw IllegalArgumentException(
::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "BasicProviderImpl::getScript: no script!" ) ),
Reference< XInterface >(), 1 );
}
return xScript;
}
// -----------------------------------------------------------------------------
// XBrowseNode
// -----------------------------------------------------------------------------
::rtl::OUString BasicProviderImpl::getName( ) throw (RuntimeException)
{
// TODO
::osl::MutexGuard aGuard( StarBASIC::GetGlobalMutex() );
return ::rtl::OUString::createFromAscii( "Basic" );
}
// -----------------------------------------------------------------------------
Sequence< Reference< browse::XBrowseNode > > BasicProviderImpl::getChildNodes( ) throw (RuntimeException)
{
::osl::MutexGuard aGuard( StarBASIC::GetGlobalMutex() );
Reference< script::XLibraryContainer > xLibContainer;
Reference< script::XLibraryContainer2 > xLibContainer2;
BasicManager* pBasicManager = NULL;
if ( m_bIsAppScriptCtx )
{
xLibContainer = m_xLibContainerApp;
pBasicManager = m_pAppBasicManager;
}
else
{
xLibContainer = m_xLibContainerDoc;
pBasicManager = m_pDocBasicManager;
}
xLibContainer2 = Reference< script::XLibraryContainer2 >( xLibContainer, UNO_QUERY );
Sequence< Reference< browse::XBrowseNode > > aChildNodes;
if ( pBasicManager && xLibContainer.is() && xLibContainer2.is() )
{
Sequence< ::rtl::OUString > aLibNames = xLibContainer->getElementNames();
sal_Int32 nLibCount = aLibNames.getLength();
const ::rtl::OUString* pLibNames = aLibNames.getConstArray();
aChildNodes.realloc( nLibCount );
Reference< browse::XBrowseNode >* pChildNodes = aChildNodes.getArray();
sal_Int32 childsFound = 0;
sal_Int32 i;
for ( i = 0 ; i < nLibCount ; ++i )
{
if ( m_bIsAppScriptCtx )
{
sal_Bool isLibLink = false;
try
{
isLibLink = xLibContainer2->isLibraryLink( pLibNames[i] );
}
catch( container::NoSuchElementException e )
{
// TO DO can we do anything here???
continue;
}
// TO DO need to look at this
// np - if this Provider has been created with an application
// context then we need to display scripts for the user or
// share area ( this depends on the directory the Provider was
// initialised with ). In basic however it seems that scripts in
// the user area means more or less that the libraries that
// contain the scripts are not links. The share area is
// nothing more than an arbitrary directory contains libraries
// and is referenced by a link. So effectively there is no
// concept of a "share" directory with basic. For this reason
// the script framework will represent any script not in
// user area under the share node ( needs revisiting )
if ( m_bIsUserCtx && ( isLibLink == sal_False ) )
{
pChildNodes[childsFound++] = static_cast< browse::XBrowseNode* >( new BasicLibraryNodeImpl( m_xContext, m_xScriptingContext, pBasicManager, xLibContainer, pLibNames[i],m_bIsAppScriptCtx ) );
continue;
}
if ( !m_bIsUserCtx && ( isLibLink == sal_True ) )
{
pChildNodes[childsFound++] = static_cast< browse::XBrowseNode* >( new BasicLibraryNodeImpl( m_xContext, m_xScriptingContext, pBasicManager, xLibContainer, pLibNames[i],m_bIsAppScriptCtx ) );
continue;
}
}
else
{
pChildNodes[childsFound++] = static_cast< browse::XBrowseNode* >( new BasicLibraryNodeImpl( m_xContext, m_xScriptingContext, pBasicManager, xLibContainer, pLibNames[i],m_bIsAppScriptCtx ) );
}
}
if ( i != childsFound )
{
aChildNodes.realloc( childsFound );
}
}
return aChildNodes;
}
// -----------------------------------------------------------------------------
sal_Bool BasicProviderImpl::hasChildNodes( ) throw (RuntimeException)
{
::osl::MutexGuard aGuard( StarBASIC::GetGlobalMutex() );
sal_Bool bReturn = sal_False;
Reference< script::XLibraryContainer > xLibContainer;
if ( m_bIsAppScriptCtx )
{
xLibContainer = m_xLibContainerApp;
}
else
{
xLibContainer = m_xLibContainerDoc;
}
if ( xLibContainer.is() )
bReturn = xLibContainer->hasElements();
return bReturn;
}
// -----------------------------------------------------------------------------
sal_Int16 BasicProviderImpl::getType( ) throw (RuntimeException)
{
::osl::MutexGuard aGuard( StarBASIC::GetGlobalMutex() );
return browse::BrowseNodeTypes::CONTAINER;
}
// =============================================================================
// component operations
// =============================================================================
static Reference< XInterface > SAL_CALL create_BasicProviderImpl(
Reference< XComponentContext > const & xContext )
SAL_THROW( () )
{
return static_cast< lang::XTypeProvider * >( new BasicProviderImpl( xContext ) );
}
// -----------------------------------------------------------------------------
static struct ::cppu::ImplementationEntry s_component_entries [] =
{
{
create_BasicProviderImpl, getImplementationName_BasicProviderImpl,
getSupportedServiceNames_BasicProviderImpl, ::cppu::createSingleComponentFactory,
0, 0
},
{ 0, 0, 0, 0, 0, 0 }
};
// -----------------------------------------------------------------------------
//.........................................................................
} // namespace basprov
//.........................................................................
// =============================================================================
// component exports
// =============================================================================
extern "C"
{
void SAL_CALL component_getImplementationEnvironment(
const sal_Char ** ppEnvTypeName, uno_Environment ** ppEnv )
{
*ppEnvTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME;
}
sal_Bool SAL_CALL component_writeInfo(
lang::XMultiServiceFactory * pServiceManager, registry::XRegistryKey * pRegistryKey )
{
return ::cppu::component_writeInfoHelper(
pServiceManager, pRegistryKey, ::basprov::s_component_entries );
}
void * SAL_CALL component_getFactory(
const sal_Char * pImplName, lang::XMultiServiceFactory * pServiceManager,
registry::XRegistryKey * pRegistryKey )
{
return ::cppu::component_getFactoryHelper(
pImplName, pServiceManager, pRegistryKey, ::basprov::s_component_entries );
}
}
Reference in New Issue View Git Blame Copy Permalink