LCOV - code coverage report
Current view: top level - libreoffice/scripting/source/basprov - basprov.cxx (source / functions) Hit Total Coverage
Test: libreoffice_filtered.info Lines: 93 212 43.9 %
Date: 2012-12-27 Functions: 9 17 52.9 %
Legend: Lines: hit not hit

          Line data    Source code
       1             : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
       2             : /*
       3             :  * This file is part of the LibreOffice project.
       4             :  *
       5             :  * This Source Code Form is subject to the terms of the Mozilla Public
       6             :  * License, v. 2.0. If a copy of the MPL was not distributed with this
       7             :  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
       8             :  *
       9             :  * This file incorporates work covered by the following license notice:
      10             :  *
      11             :  *   Licensed to the Apache Software Foundation (ASF) under one or more
      12             :  *   contributor license agreements. See the NOTICE file distributed
      13             :  *   with this work for additional information regarding copyright
      14             :  *   ownership. The ASF licenses this file to you under the Apache
      15             :  *   License, Version 2.0 (the "License"); you may not use this file
      16             :  *   except in compliance with the License. You may obtain a copy of
      17             :  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
      18             :  */
      19             : 
      20             : #include "basprov.hxx"
      21             : #include "basscript.hxx"
      22             : #include "baslibnode.hxx"
      23             : #include <com/sun/star/frame/XModel.hpp>
      24             : #include <com/sun/star/script/browse/BrowseNodeTypes.hpp>
      25             : #include <com/sun/star/script/provider/ScriptFrameworkErrorType.hpp>
      26             : #include <com/sun/star/document/XEmbeddedScripts.hpp>
      27             : #include <com/sun/star/uri/UriReferenceFactory.hpp>
      28             : 
      29             : #include <cppuhelper/implementationentry.hxx>
      30             : #include <rtl/uri.hxx>
      31             : #include <osl/process.h>
      32             : #include <osl/file.hxx>
      33             : #include <osl/mutex.hxx>
      34             : #include <vcl/svapp.hxx>
      35             : #include <basic/sbx.hxx>
      36             : #include <basic/basmgr.hxx>
      37             : #include <basic/basicmanagerrepository.hxx>
      38             : #include <basic/sbstar.hxx>
      39             : #include <basic/sbmod.hxx>
      40             : #include <basic/sbmeth.hxx>
      41             : #include <sfx2/app.hxx>
      42             : #include <sfx2/objsh.hxx>
      43             : 
      44             : #include <com/sun/star/util/XMacroExpander.hpp>
      45             : #include <com/sun/star/script/XLibraryContainer2.hpp>
      46             : #include <com/sun/star/uri/XUriReference.hpp>
      47             : #include <com/sun/star/uri/XUriReferenceFactory.hpp>
      48             : #include <com/sun/star/uri/XVndSunStarScriptUrl.hpp>
      49             : 
      50             : #include <util/util.hxx>
      51             : #include <util/MiscUtils.hxx>
      52             : 
      53             : 
      54             : using namespace ::com::sun::star;
      55             : using namespace ::com::sun::star::lang;
      56             : using namespace ::com::sun::star::uno;
      57             : using namespace ::com::sun::star::script;
      58             : using namespace ::com::sun::star::document;
      59             : using namespace ::sf_misc;
      60             : 
      61             : //.........................................................................
      62             : namespace basprov
      63             : {
      64             : //.........................................................................
      65             : 
      66             :     // =============================================================================
      67             :     // component operations
      68             :     // =============================================================================
      69             : 
      70           1 :     static ::rtl::OUString getImplementationName_BasicProviderImpl()
      71             :     {
      72             :         static ::rtl::OUString* pImplName = 0;
      73           1 :         if ( !pImplName )
      74             :         {
      75           1 :             ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
      76           1 :             if ( !pImplName )
      77             :             {
      78           1 :                 static ::rtl::OUString aImplName( "com.sun.star.comp.scripting.ScriptProviderForBasic"  );
      79           1 :                 pImplName = &aImplName;
      80           1 :             }
      81             :         }
      82           1 :         return *pImplName;
      83             :     }
      84             : 
      85             :     // -----------------------------------------------------------------------------
      86             : 
      87           1 :     static Sequence< ::rtl::OUString > getSupportedServiceNames_BasicProviderImpl()
      88             :     {
      89             :         static Sequence< ::rtl::OUString >* pNames = 0;
      90           1 :         if ( !pNames )
      91             :         {
      92           1 :             ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
      93           1 :             if ( !pNames )
      94             :             {
      95           1 :                 static Sequence< ::rtl::OUString > aNames(4);
      96           1 :                 aNames.getArray()[0] = ::rtl::OUString( "com.sun.star.script.provider.ScriptProviderForBasic"  );
      97           1 :                 aNames.getArray()[1] = ::rtl::OUString( "com.sun.star.script.provider.LanguageScriptProvider"  );
      98           1 :                 aNames.getArray()[2] = ::rtl::OUString( "com.sun.star.script.provider.ScriptProvider"  );
      99           1 :                 aNames.getArray()[3] = ::rtl::OUString( "com.sun.star.script.browse.BrowseNode"  );
     100           1 :                 pNames = &aNames;
     101           1 :             }
     102             :         }
     103           1 :         return *pNames;
     104             :     }
     105             : 
     106             :     // =============================================================================
     107             :     // BasicProviderImpl
     108             :     // =============================================================================
     109             : 
     110           1 :     BasicProviderImpl::BasicProviderImpl( const Reference< XComponentContext >& xContext )
     111             :         :m_pAppBasicManager( 0 )
     112             :         ,m_pDocBasicManager( 0 )
     113             :         ,m_xLibContainerApp( 0 )
     114             :         ,m_xLibContainerDoc( 0 )
     115             :         ,m_xContext( xContext )
     116             :         ,m_bIsAppScriptCtx( true )
     117           1 :         ,m_bIsUserCtx(true)
     118             :     {
     119           1 :     }
     120             : 
     121             :     // -----------------------------------------------------------------------------
     122             : 
     123           2 :     BasicProviderImpl::~BasicProviderImpl()
     124             :     {
     125           2 :     }
     126             : 
     127             :     // -----------------------------------------------------------------------------
     128             : 
     129           0 :     bool BasicProviderImpl::isLibraryShared( const Reference< script::XLibraryContainer >& rxLibContainer, const ::rtl::OUString& rLibName )
     130             :     {
     131           0 :         bool bIsShared = false;
     132             : 
     133           0 :         Reference< script::XLibraryContainer2 > xLibContainer( rxLibContainer, UNO_QUERY );
     134           0 :         if ( xLibContainer.is() && xLibContainer->hasByName( rLibName ) && xLibContainer->isLibraryLink( rLibName ) )
     135             :         {
     136           0 :             ::rtl::OUString aFileURL;
     137           0 :             if ( m_xContext.is() )
     138             :             {
     139           0 :                 Reference< uri::XUriReferenceFactory > xUriFac( uri::UriReferenceFactory::create( m_xContext ) );
     140             : 
     141           0 :                 ::rtl::OUString aLinkURL( xLibContainer->getLibraryLinkURL( rLibName ) );
     142           0 :                 Reference<  uri::XUriReference > xUriRef( xUriFac->parse( aLinkURL ), UNO_QUERY );
     143             : 
     144           0 :                 if ( xUriRef.is() )
     145             :                 {
     146           0 :                     ::rtl::OUString aScheme = xUriRef->getScheme();
     147           0 :                     if ( aScheme.equalsIgnoreAsciiCaseAsciiL(RTL_CONSTASCII_STRINGPARAM("file")) )
     148             :                     {
     149           0 :                         aFileURL = aLinkURL;
     150             :                     }
     151           0 :                     else if ( aScheme.equalsIgnoreAsciiCaseAsciiL(RTL_CONSTASCII_STRINGPARAM("vnd.sun.star.pkg")) )
     152             :                     {
     153           0 :                         ::rtl::OUString aAuthority = xUriRef->getAuthority();
     154           0 :                         if ( aAuthority.matchIgnoreAsciiCaseAsciiL( RTL_CONSTASCII_STRINGPARAM( "vnd.sun.star.expand:" ) ) )
     155             :                         {
     156           0 :                             ::rtl::OUString aDecodedURL( aAuthority.copy( sizeof ( "vnd.sun.star.expand:" ) - 1 ) );
     157           0 :                             aDecodedURL = ::rtl::Uri::decode( aDecodedURL, rtl_UriDecodeWithCharset, RTL_TEXTENCODING_UTF8 );
     158             :                             Reference<util::XMacroExpander> xMacroExpander(
     159           0 :                                 m_xContext->getValueByName(
     160           0 :                                 ::rtl::OUString("/singletons/com.sun.star.util.theMacroExpander") ),
     161           0 :                                 UNO_QUERY );
     162           0 :                             if ( xMacroExpander.is() )
     163           0 :                                 aFileURL = xMacroExpander->expandMacros( aDecodedURL );
     164           0 :                         }
     165           0 :                     }
     166           0 :                 }
     167             :             }
     168             : 
     169           0 :             if ( !aFileURL.isEmpty() )
     170             :             {
     171           0 :                 osl::DirectoryItem aFileItem;
     172           0 :                 osl::FileStatus aFileStatus( osl_FileStatus_Mask_FileURL );
     173           0 :                 OSL_VERIFY( osl::DirectoryItem::get( aFileURL, aFileItem ) == osl::FileBase::E_None );
     174           0 :                 OSL_VERIFY( aFileItem.getFileStatus( aFileStatus ) == osl::FileBase::E_None );
     175           0 :                 ::rtl::OUString aCanonicalFileURL( aFileStatus.getFileURL() );
     176             : 
     177           0 :                 ::rtl::OUString aSearchURL1( "share/basic"  );
     178           0 :                 ::rtl::OUString aSearchURL2( "share/uno_packages"  );
     179           0 :                 if( aCanonicalFileURL.indexOf( aSearchURL1 ) != -1 || aCanonicalFileURL.indexOf( aSearchURL2 ) != -1 )
     180           0 :                     bIsShared = true;
     181           0 :             }
     182             :         }
     183             : 
     184           0 :         return bIsShared;
     185             :     }
     186             : 
     187             :     // -----------------------------------------------------------------------------
     188             :     // XServiceInfo
     189             :     // -----------------------------------------------------------------------------
     190             : 
     191           0 :     ::rtl::OUString BasicProviderImpl::getImplementationName(  ) throw (RuntimeException)
     192             :     {
     193           0 :         return getImplementationName_BasicProviderImpl();
     194             :     }
     195             : 
     196             :     // -----------------------------------------------------------------------------
     197             : 
     198           0 :     sal_Bool BasicProviderImpl::supportsService( const ::rtl::OUString& rServiceName ) throw (RuntimeException)
     199             :     {
     200           0 :         Sequence< ::rtl::OUString > aNames( getSupportedServiceNames() );
     201           0 :         const ::rtl::OUString* pNames = aNames.getConstArray();
     202           0 :         const ::rtl::OUString* pEnd = pNames + aNames.getLength();
     203           0 :         for ( ; pNames != pEnd && !pNames->equals( rServiceName ); ++pNames )
     204             :             ;
     205             : 
     206           0 :         return pNames != pEnd;
     207             :     }
     208             : 
     209             :     // -----------------------------------------------------------------------------
     210             : 
     211           0 :     Sequence< ::rtl::OUString > BasicProviderImpl::getSupportedServiceNames(  ) throw (RuntimeException)
     212             :     {
     213           0 :         return getSupportedServiceNames_BasicProviderImpl();
     214             :     }
     215             : 
     216             :     // -----------------------------------------------------------------------------
     217             :     // XInitialization
     218             :     // -----------------------------------------------------------------------------
     219             : 
     220           1 :     void BasicProviderImpl::initialize( const Sequence< Any >& aArguments ) throw (Exception, RuntimeException)
     221             :     {
     222             :         // TODO
     223             : 
     224           1 :         SolarMutexGuard aGuard;
     225             : 
     226           1 :         if ( aArguments.getLength() != 1 )
     227             :         {
     228             :             throw IllegalArgumentException(
     229             :                 ::rtl::OUString( "BasicProviderImpl::initialize: incorrect argument count."  ),
     230             :                 *this,
     231             :                 1
     232           0 :             );
     233             :         }
     234             : 
     235           1 :         Reference< frame::XModel > xModel;
     236             : 
     237           1 :         m_xInvocationContext.set( aArguments[0], UNO_QUERY );
     238           1 :         if ( m_xInvocationContext.is() )
     239             :         {
     240           0 :             xModel.set( m_xInvocationContext->getScriptContainer(), UNO_QUERY );
     241           0 :             if ( !xModel.is() )
     242             :             {
     243             :                 throw IllegalArgumentException(
     244             :                     ::rtl::OUString( "BasicProviderImpl::initialize: unable to determine the document model from the script invocation context."  ),
     245             :                     *this,
     246             :                     1
     247           0 :                 );
     248             :             }
     249             :         }
     250             :         else
     251             :         {
     252           1 :             if ( !( aArguments[0] >>= m_sScriptingContext ) )
     253             :             {
     254             :                 throw IllegalArgumentException(
     255           0 :                     ::rtl::OUString( "BasicProviderImpl::initialize: incorrect argument type "   ).concat(  aArguments[0].getValueTypeName() ),
     256             :                     *this,
     257             :                     1
     258           0 :                 );
     259             :             }
     260             : 
     261           1 :             ::rtl::OUString sDoc = OUSTR("vnd.sun.star.tdoc");
     262           1 :             if ( m_sScriptingContext.indexOf( sDoc  ) == 0 )
     263             :             {
     264           1 :                 xModel = MiscUtils::tDocUrlToModel(  m_sScriptingContext );
     265             :                 // TODO: use ScriptingContantsPool for SCRIPTING_DOC_REF
     266           1 :             }
     267             :         }
     268             : 
     269           1 :         if ( xModel.is() )
     270             :         {
     271           1 :             Reference< XEmbeddedScripts > xDocumentScripts( xModel, UNO_QUERY );
     272           1 :             if ( xDocumentScripts.is() )
     273             :             {
     274           1 :                 m_pDocBasicManager = ::basic::BasicManagerRepository::getDocumentBasicManager( xModel );
     275           1 :                 m_xLibContainerDoc.set( xDocumentScripts->getBasicLibraries(), UNO_QUERY );
     276             :                 OSL_ENSURE( m_pDocBasicManager && m_xLibContainerDoc.is(),
     277             :                     "BasicProviderImpl::initialize: invalid BasicManager, or invalid script container!" );
     278             :             }
     279           1 :             m_bIsAppScriptCtx = false;
     280             :         }
     281             :         else
     282             :         {
     283             :             // Provider has been created with application context for user
     284             :             // or share
     285           0 :             if ( m_sScriptingContext != "user" )
     286             :             {
     287           0 :                 m_bIsUserCtx = false;
     288             :             }
     289             :             else
     290             :             {
     291             :                 /*
     292             :                 throw RuntimeException(
     293             :                     ::rtl::OUString( "BasicProviderImpl::initialize: no scripting context!"  ),
     294             :                     Reference< XInterface >() );
     295             :                 */
     296             :             }
     297             :         }
     298             : 
     299             :         // TODO
     300           1 :         if ( !m_pAppBasicManager )
     301           1 :             m_pAppBasicManager = SFX_APP()->GetBasicManager();
     302             : 
     303           1 :         if ( !m_xLibContainerApp.is() )
     304           1 :             m_xLibContainerApp = Reference< script::XLibraryContainer >( SFX_APP()->GetBasicContainer(), UNO_QUERY );
     305           1 :     }
     306             : 
     307             :     // -----------------------------------------------------------------------------
     308             : 
     309             :     // XScriptProvider
     310             :     // -----------------------------------------------------------------------------
     311             : 
     312           1 :     Reference < provider::XScript > BasicProviderImpl::getScript( const ::rtl::OUString& scriptURI )
     313             :         throw ( provider::ScriptFrameworkErrorException, RuntimeException)
     314             :     {
     315             :         // TODO
     316             : 
     317           1 :         SolarMutexGuard aGuard;
     318             : 
     319           1 :         Reference< provider::XScript > xScript;
     320           1 :         Reference< uri::XUriReferenceFactory > xFac ( uri::UriReferenceFactory::create( m_xContext )  );
     321             : 
     322             :         Reference<  uri::XUriReference > uriRef(
     323           1 :             xFac->parse( scriptURI ), UNO_QUERY );
     324             : 
     325           1 :         Reference < uri::XVndSunStarScriptUrl > sfUri( uriRef, UNO_QUERY );
     326             : 
     327           1 :         if ( !uriRef.is() || !sfUri.is() )
     328             :         {
     329           0 :             ::rtl::OUString errorMsg("BasicProviderImpl::getScript: failed to parse URI: ");
     330           0 :             errorMsg = errorMsg.concat( scriptURI );
     331             :             throw provider::ScriptFrameworkErrorException(
     332             :                 errorMsg, Reference< XInterface >(),
     333             :                 scriptURI, OUSTR("Basic"),
     334           0 :                 provider::ScriptFrameworkErrorType::MALFORMED_URL );
     335             :         }
     336             : 
     337             : 
     338           1 :         ::rtl::OUString aDescription = sfUri->getName();
     339           1 :         ::rtl::OUString aLocation = sfUri->getParameter(
     340           1 :             ::rtl::OUString("location") );
     341             : 
     342           1 :         sal_Int32 nIndex = 0;
     343             :         // In some strange circumstances the Library name can have an
     344             :         // apparantly illegal '.' in it ( in imported VBA )
     345             : 
     346           1 :         BasicManager* pBasicMgr =  NULL;
     347           1 :         if ( aLocation == "document" )
     348             :         {
     349           1 :             pBasicMgr = m_pDocBasicManager;
     350             :         }
     351           0 :         else if ( aLocation == "application" )
     352             :         {
     353           0 :             pBasicMgr = m_pAppBasicManager;
     354             :         }
     355           1 :         rtl::OUString sProjectName;
     356           1 :         if (  pBasicMgr )
     357           1 :             sProjectName = pBasicMgr->GetName();
     358             : 
     359           1 :         ::rtl::OUString aLibrary;
     360           1 :         if ( !sProjectName.isEmpty() && aDescription.match( sProjectName ) )
     361             :         {
     362             :             OSL_TRACE("LibraryName %s is part of the url %s",
     363             :                 rtl::OUStringToOString( sProjectName, RTL_TEXTENCODING_UTF8 ).getStr(),
     364             :                 rtl::OUStringToOString( aDescription, RTL_TEXTENCODING_UTF8 ).getStr() );
     365           0 :             aLibrary = sProjectName;
     366           0 :             nIndex = sProjectName.getLength() + 1;
     367             :         }
     368             :         else
     369           1 :             aLibrary = aDescription.getToken( 0, (sal_Unicode)'.', nIndex );
     370           1 :         ::rtl::OUString aModule;
     371           1 :         if ( nIndex != -1 )
     372           1 :             aModule = aDescription.getToken( 0, (sal_Unicode)'.', nIndex );
     373           1 :         ::rtl::OUString aMethod;
     374           1 :         if ( nIndex != -1 )
     375           1 :             aMethod = aDescription.getToken( 0, (sal_Unicode)'.', nIndex );
     376             : 
     377           1 :         if ( !aLibrary.isEmpty() && !aModule.isEmpty() && !aMethod.isEmpty() && !aLocation.isEmpty() )
     378             :         {
     379             : 
     380           1 :             if ( pBasicMgr )
     381             :             {
     382           1 :                 StarBASIC* pBasic = pBasicMgr->GetLib( aLibrary );
     383           1 :                 if ( !pBasic )
     384             :                 {
     385           1 :                     sal_uInt16 nId = pBasicMgr->GetLibId( aLibrary );
     386           1 :                     if ( nId != LIB_NOTFOUND )
     387             :                     {
     388           0 :                         pBasicMgr->LoadLib( nId );
     389           0 :                         pBasic = pBasicMgr->GetLib( aLibrary );
     390             :                     }
     391             :                 }
     392           1 :                 if ( pBasic )
     393             :                 {
     394           0 :                     SbModule* pModule = pBasic->FindModule( aModule );
     395           0 :                     if ( pModule )
     396             :                     {
     397           0 :                         SbxArray* pMethods = pModule->GetMethods();
     398           0 :                         if ( pMethods )
     399             :                         {
     400           0 :                             SbMethod* pMethod = static_cast< SbMethod* >( pMethods->Find( aMethod, SbxCLASS_METHOD ) );
     401           0 :                             if ( pMethod && !pMethod->IsHidden() )
     402             :                             {
     403           0 :                                 if ( m_pDocBasicManager == pBasicMgr )
     404           0 :                                     xScript = new BasicScriptImpl( aDescription, pMethod, *m_pDocBasicManager, m_xInvocationContext );
     405             :                                 else
     406           0 :                                     xScript = new BasicScriptImpl( aDescription, pMethod );
     407             :                             }
     408             :                         }
     409             :                     }
     410             :                 }
     411             :             }
     412             :         }
     413             : 
     414           1 :         if ( !xScript.is() )
     415             :         {
     416           1 :             ::rtl::OUStringBuffer aMessage;
     417           1 :             aMessage.appendAscii( "The following Basic script could not be found:\n" );
     418           1 :             aMessage.appendAscii( "library: '" ).append( aLibrary ).appendAscii( "'\n" );
     419           1 :             aMessage.appendAscii( "module: '" ).append( aModule ).appendAscii( "'\n" );
     420           1 :             aMessage.appendAscii( "method: '" ).append( aMethod ).appendAscii( "'\n" );
     421           1 :             aMessage.appendAscii( "location: '" ).append( aLocation ).appendAscii( "'\n" );
     422             :             throw provider::ScriptFrameworkErrorException(
     423             :                 aMessage.makeStringAndClear(),
     424             :                 Reference< XInterface >(),
     425             :                 scriptURI, OUSTR("Basic"),
     426           1 :                 provider::ScriptFrameworkErrorType::NO_SUCH_SCRIPT );
     427             :         }
     428             : 
     429           1 :         return xScript;
     430             :     }
     431             : 
     432             :     // -----------------------------------------------------------------------------
     433             :     // XBrowseNode
     434             :     // -----------------------------------------------------------------------------
     435             : 
     436           0 :     ::rtl::OUString BasicProviderImpl::getName(  ) throw (RuntimeException)
     437             :     {
     438             :         // TODO
     439             : 
     440           0 :         SolarMutexGuard aGuard;
     441             : 
     442           0 :         return ::rtl::OUString("Basic");
     443             :     }
     444             : 
     445             :     // -----------------------------------------------------------------------------
     446             : 
     447           0 :     Sequence< Reference< browse::XBrowseNode > > BasicProviderImpl::getChildNodes(  ) throw (RuntimeException)
     448             :     {
     449           0 :         SolarMutexGuard aGuard;
     450             : 
     451           0 :         Reference< script::XLibraryContainer > xLibContainer;
     452           0 :         BasicManager* pBasicManager = NULL;
     453             : 
     454           0 :         if ( m_bIsAppScriptCtx )
     455             :         {
     456           0 :             xLibContainer = m_xLibContainerApp;
     457           0 :             pBasicManager = m_pAppBasicManager;
     458             :         }
     459             :         else
     460             :         {
     461           0 :             xLibContainer = m_xLibContainerDoc;
     462           0 :             pBasicManager = m_pDocBasicManager;
     463             :         }
     464             : 
     465           0 :         Sequence< Reference< browse::XBrowseNode > > aChildNodes;
     466             : 
     467           0 :         if ( pBasicManager && xLibContainer.is() )
     468             :         {
     469           0 :             Sequence< ::rtl::OUString > aLibNames = xLibContainer->getElementNames();
     470           0 :             sal_Int32 nLibCount = aLibNames.getLength();
     471           0 :             const ::rtl::OUString* pLibNames = aLibNames.getConstArray();
     472           0 :             aChildNodes.realloc( nLibCount );
     473           0 :             Reference< browse::XBrowseNode >* pChildNodes = aChildNodes.getArray();
     474           0 :             sal_Int32 childrenFound = 0;
     475             : 
     476           0 :             for ( sal_Int32 i = 0 ; i < nLibCount ; ++i )
     477             :             {
     478           0 :                 bool bCreate = false;
     479           0 :                 if ( m_bIsAppScriptCtx )
     480             :                 {
     481           0 :                     bool bShared = isLibraryShared( xLibContainer, pLibNames[i] );
     482           0 :                     if ( ( m_bIsUserCtx && !bShared ) || ( !m_bIsUserCtx && bShared ) )
     483           0 :                         bCreate = true;
     484             :                 }
     485             :                 else
     486             :                 {
     487           0 :                     bCreate = true;
     488             :                 }
     489           0 :                 if ( bCreate )
     490             :                 {
     491             :                     pChildNodes[childrenFound++] = static_cast< browse::XBrowseNode* >( new BasicLibraryNodeImpl(
     492           0 :                         m_xContext, m_sScriptingContext, pBasicManager, xLibContainer, pLibNames[i], m_bIsAppScriptCtx ) );
     493             :                 }
     494             :             }
     495             : 
     496           0 :             if ( childrenFound != nLibCount )
     497           0 :                 aChildNodes.realloc( childrenFound );
     498             :         }
     499             : 
     500           0 :         return aChildNodes;
     501             :     }
     502             : 
     503             :     // -----------------------------------------------------------------------------
     504             : 
     505           0 :     sal_Bool BasicProviderImpl::hasChildNodes(  ) throw (RuntimeException)
     506             :     {
     507           0 :         SolarMutexGuard aGuard;
     508             : 
     509           0 :         sal_Bool bReturn = sal_False;
     510           0 :         Reference< script::XLibraryContainer > xLibContainer;
     511           0 :         if ( m_bIsAppScriptCtx )
     512             :         {
     513           0 :             xLibContainer = m_xLibContainerApp;
     514             :         }
     515             :         else
     516             :         {
     517           0 :              xLibContainer = m_xLibContainerDoc;
     518             :         }
     519           0 :         if ( xLibContainer.is() )
     520           0 :             bReturn = xLibContainer->hasElements();
     521             : 
     522           0 :         return bReturn;
     523             :     }
     524             : 
     525             :     // -----------------------------------------------------------------------------
     526             : 
     527           0 :     sal_Int16 BasicProviderImpl::getType(  ) throw (RuntimeException)
     528             :     {
     529           0 :         SolarMutexGuard aGuard;
     530             : 
     531           0 :         return browse::BrowseNodeTypes::CONTAINER;
     532             :     }
     533             : 
     534             :     // =============================================================================
     535             :     // component operations
     536             :     // =============================================================================
     537             : 
     538           1 :     static Reference< XInterface > SAL_CALL create_BasicProviderImpl(
     539             :         Reference< XComponentContext > const & xContext )
     540             :         SAL_THROW(())
     541             :     {
     542           1 :         return static_cast< lang::XTypeProvider * >( new BasicProviderImpl( xContext ) );
     543             :     }
     544             : 
     545             :     // -----------------------------------------------------------------------------
     546             : 
     547             :     static struct ::cppu::ImplementationEntry s_component_entries [] =
     548             :     {
     549             :         {
     550             :             create_BasicProviderImpl, getImplementationName_BasicProviderImpl,
     551             :             getSupportedServiceNames_BasicProviderImpl, ::cppu::createSingleComponentFactory,
     552             :             0, 0
     553             :         },
     554             :         { 0, 0, 0, 0, 0, 0 }
     555             :     };
     556             : 
     557             :     // -----------------------------------------------------------------------------
     558             : 
     559             : //.........................................................................
     560             : }   // namespace basprov
     561             : //.........................................................................
     562             : 
     563             : 
     564             : // =============================================================================
     565             : // component exports
     566             : // =============================================================================
     567             : 
     568             : extern "C"
     569             : {
     570           1 :     SAL_DLLPUBLIC_EXPORT void * SAL_CALL basprov_component_getFactory(
     571             :         const sal_Char * pImplName, lang::XMultiServiceFactory * pServiceManager,
     572             :         registry::XRegistryKey * pRegistryKey )
     573             :     {
     574             :         return ::cppu::component_getFactoryHelper(
     575           1 :             pImplName, pServiceManager, pRegistryKey, ::basprov::s_component_entries );
     576             :     }
     577             : }
     578             : 
     579             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10