/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
*/
#include <memory>
#include <config_features.h>
#include <sal/macros.h>
#include <svtools/unoimap.hxx>
#include <svx/unofill.hxx>
#include <editeng/unonrule.hxx>
#include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
#include <com/sun/star/container/XNameAccess.hpp>
#include <com/sun/star/text/textfield/Type.hpp>
#include <editsrc.hxx>
#include <servuno.hxx>
#include <unonames.hxx>
#include <appluno.hxx>
#include <cellsuno.hxx>
#include <fielduno.hxx>
#include <styleuno.hxx>
#include <afmtuno.hxx>
#include <defltuno.hxx>
#include <drdefuno.hxx>
#include <docsh.hxx>
#include <drwlayer.hxx>
#include <confuno.hxx>
#include <shapeuno.hxx>
#include "cellvaluebinding.hxx"
#include "celllistsource.hxx"
#include <addruno.hxx>
#include <chart2uno.hxx>
#include <tokenuno.hxx>
#include <PivotTableDataProvider.hxx>
// Support creation of GraphicStorageHandler and EmbeddedObjectResolver
#include <svx/xmleohlp.hxx>
#include <svx/xmlgrhlp.hxx>
#include <sfx2/docfile.hxx>
#include <sfx2/docfilt.hxx>
#include <com/sun/star/script/vba/XVBAEventProcessor.hpp>
#include <com/sun/star/document/XCodeNameQuery.hpp>
#include <com/sun/star/drawing/XDrawPagesSupplier.hpp>
#include <com/sun/star/form/XFormsSupplier.hpp>
#include <svx/unomod.hxx>
#include <vbahelper/vbaaccesshelper.hxx>
#include <comphelper/processfactory.hxx>
#include <basic/basmgr.hxx>
#include <sfx2/app.hxx>
#include <cppuhelper/component_context.hxx>
#include <cppuhelper/implbase.hxx>
#include <com/sun/star/script/vba/XVBACompatibility.hpp>
using namespace ::com::sun::star;
bool isInVBAMode( ScDocShell& rDocSh )
{
uno::Reference<script::XLibraryContainer> xLibContainer = rDocSh.GetBasicContainer();
uno::Reference<script::vba::XVBACompatibility> xVBACompat( xLibContainer, uno::UNO_QUERY );
if ( xVBACompat.is() )
return xVBACompat->getVBACompatibilityMode();
return false;
}
class ScVbaObjectForCodeNameProvider : public ::cppu::WeakImplHelper< container::XNameAccess >
{
uno::Any maWorkbook;
uno::Any maCachedObject;
ScDocShell* mpDocShell;
public:
explicit ScVbaObjectForCodeNameProvider( ScDocShell* pDocShell ) : mpDocShell( pDocShell )
{
uno::Sequence< uno::Any > aArgs(2);
// access the application object ( parent for workbook )
aArgs[0] <<= ooo::vba::createVBAUnoAPIServiceWithArgs( mpDocShell, "ooo.vba.Application", uno::Sequence< uno::Any >() );
aArgs[1] <<= mpDocShell->GetModel();
maWorkbook <<= ooo::vba::createVBAUnoAPIServiceWithArgs( mpDocShell, "ooo.vba.excel.Workbook", aArgs );
}
virtual sal_Bool SAL_CALL hasByName( const OUString& aName ) override
{
SolarMutexGuard aGuard;
maCachedObject = uno::Any(); // clear cached object
ScDocument& rDoc = mpDocShell->GetDocument();
// aName is generated from the stream name which can be different ( case-wise )
// from the code name
if( aName.equalsIgnoreAsciiCase( rDoc.GetCodeName() ) )
maCachedObject = maWorkbook;
else
{
OUString sCodeName;
SCTAB nCount = rDoc.GetTableCount();
for( SCTAB i = 0; i < nCount; i++ )
{
rDoc.GetCodeName( i, sCodeName );
// aName is generated from the stream name which can be different ( case-wise )
// from the code name
if( sCodeName.equalsIgnoreAsciiCase( aName ) )
{
OUString sSheetName;
if( rDoc.GetName( i, sSheetName ) )
{
uno::Reference< frame::XModel > xModel( mpDocShell->GetModel() );
uno::Reference <sheet::XSpreadsheetDocument> xSpreadDoc( xModel, uno::UNO_QUERY_THROW );
uno::Reference<sheet::XSpreadsheets > xSheets( xSpreadDoc->getSheets(), uno::UNO_QUERY_THROW );
uno::Reference< container::XIndexAccess > xIndexAccess( xSheets, uno::UNO_QUERY_THROW );
uno::Reference< sheet::XSpreadsheet > xSheet( xIndexAccess->getByIndex( i ), uno::UNO_QUERY_THROW );
uno::Sequence< uno::Any > aArgs(3);
aArgs[0] = maWorkbook;
aArgs[1] <<= xModel;
aArgs[2] <<= sSheetName;
// use the convenience function
maCachedObject <<= ooo::vba::createVBAUnoAPIServiceWithArgs( mpDocShell, "ooo.vba.excel.Worksheet", aArgs );
break;
}
}
}
}
return maCachedObject.hasValue();
}
css::uno::Any SAL_CALL getByName( const OUString& aName ) override
{
SolarMutexGuard aGuard;
if ( !hasByName( aName ) )
throw css::container::NoSuchElementException();
return maCachedObject;
}
virtual css::uno::Sequence< OUString > SAL_CALL getElementNames( ) override
{
SolarMutexGuard aGuard;
ScDocument& rDoc = mpDocShell->GetDocument();
SCTAB nCount = rDoc.GetTableCount();
uno::Sequence< OUString > aNames( nCount + 1 );
SCTAB index = 0;
OUString sCodeName;
for( ; index < nCount; ++index )
{
rDoc.GetCodeName( index, sCodeName );
aNames[ index ] = sCodeName;
}
aNames[ index ] = rDoc.GetCodeName();
return aNames;
}
// XElemenAccess
virtual css::uno::Type SAL_CALL getElementType( ) override { return uno::Type(); }
virtual sal_Bool SAL_CALL hasElements( ) override { return true; }
};
class ScVbaCodeNameProvider : public ::cppu::WeakImplHelper< document::XCodeNameQuery >
{
ScDocShell& mrDocShell;
public:
explicit ScVbaCodeNameProvider( ScDocShell& rDocShell ) : mrDocShell(rDocShell) {}
// XCodeNameQuery
OUString SAL_CALL getCodeNameForObject( const uno::Reference< uno::XInterface >& xIf ) override
{
SolarMutexGuard aGuard;
OUString sCodeName;
// need to find the page ( and index ) for this control
uno::Reference< drawing::XDrawPagesSupplier > xSupplier( mrDocShell.GetModel(), uno::UNO_QUERY_THROW );
uno::Reference< container::XIndexAccess > xIndex( xSupplier->getDrawPages(), uno::UNO_QUERY_THROW );
sal_Int32 nLen = xIndex->getCount();
bool bMatched = false;
for ( sal_Int32 index = 0; index < nLen; ++index )
{
try
{
uno::Reference< form::XFormsSupplier > xFormSupplier( xIndex->getByIndex( index ), uno::UNO_QUERY_THROW );
uno::Reference< container::XIndexAccess > xFormIndex( xFormSupplier->getForms(), uno::UNO_QUERY_THROW );
// get the www-standard container
uno::Reference< container::XIndexAccess > xFormControls( xFormIndex->getByIndex(0), uno::UNO_QUERY_THROW );
sal_Int32 nCntrls = xFormControls->getCount();
for( sal_Int32 cIndex = 0; cIndex < nCntrls; ++cIndex )
{
uno::Reference< uno::XInterface > xControl( xFormControls->getByIndex( cIndex ), uno::UNO_QUERY_THROW );
bMatched = ( xControl == xIf );
if ( bMatched )
{
OUString sName;
mrDocShell.GetDocument().GetCodeName( static_cast<SCTAB>( index ), sName );
sCodeName = sName;
}
}
}
catch( uno::Exception& ) {}
if ( bMatched )
break;
}
// Probably should throw here ( if !bMatched )
return sCodeName;
}
OUString SAL_CALL getCodeNameForContainer( const uno::Reference<uno::XInterface>& xContainer ) override
{
SolarMutexGuard aGuard;
uno::Reference<drawing::XDrawPagesSupplier> xSupplier(mrDocShell.GetModel(), uno::UNO_QUERY_THROW);
uno::Reference<container::XIndexAccess> xIndex(xSupplier->getDrawPages(), uno::UNO_QUERY_THROW);
for (sal_Int32 i = 0, n = xIndex->getCount(); i < n; ++i)
{
try
{
uno::Reference<form::XFormsSupplier> xFormSupplier(xIndex->getByIndex(i), uno::UNO_QUERY_THROW);
uno::Reference<container::XIndexAccess> xFormIndex(xFormSupplier->getForms(), uno::UNO_QUERY_THROW);
// get the www-standard container
uno::Reference<container::XIndexAccess> xFormControls(xFormIndex->getByIndex(0), uno::UNO_QUERY_THROW);
if (xFormControls == xContainer)
{
OUString aName;
if (mrDocShell.GetDocument().GetCodeName(static_cast<SCTAB>(i), aName))
return aName;
}
}
catch( uno::Exception& ) {}
}
return OUString();
}
};
namespace {
using Type = ScServiceProvider::Type;
struct ProvNamesId_Type
{
const char * pName;
ScServiceProvider::Type nType;
};
const ProvNamesId_Type aProvNamesId[] =
{
{ "com.sun.star.sheet.Spreadsheet", Type::SHEET },
{ "com.sun.star.text.TextField.URL", Type::URLFIELD },
{ "com.sun.star.text.TextField.PageNumber", Type::PAGEFIELD },
{ "com.sun.star.text.TextField.PageCount", Type::PAGESFIELD },
{ "com.sun.star.text.TextField.Date", Type::DATEFIELD },
{ "com.sun.star.text.TextField.Time", Type::TIMEFIELD },
{ "com.sun.star.text.TextField.DateTime", Type::EXT_TIMEFIELD },
{ "com.sun.star.text.TextField.DocInfo.Title", Type::TITLEFIELD },
{ "com.sun.star.text.TextField.FileName", Type::FILEFIELD },
{ "com.sun.star.text.TextField.SheetName", Type::SHEETFIELD },
{ "com.sun.star.style.CellStyle", Type::CELLSTYLE },
{ "com.sun.star.style.PageStyle", Type::PAGESTYLE },
{ "com.sun.star.sheet.TableAutoFormat", Type::AUTOFORMAT },
{ "com.sun.star.sheet.TableAutoFormats", Type::AUTOFORMATS },
{ "com.sun.star.sheet.SheetCellRanges", Type::CELLRANGES },
{ "com.sun.star.sheet.FunctionDescriptions", Type::FUNCTIONDESCRIPTIONS },
{ "com.sun.star.sheet.GlobalSheetSettings", Type::GLOBALSHEETSETTINGS },
{ "com.sun.star.sheet.RecentFunctions", Type::RECENTFUNCTIONS },
{ "com.sun.star.drawing.GradientTable", Type::GRADTAB },
{ "com.sun.star.drawing.HatchTable", Type::HATCHTAB },
{ "com.sun.star.drawing.BitmapTable", Type::BITMAPTAB },
{ "com.sun.star.drawing.TransparencyGradientTable", Type::TRGRADTAB },
{ "com.sun.star.drawing.MarkerTable", Type::MARKERTAB },
{ "com.sun.star.drawing.DashTable", Type::DASHTAB },
{ "com.sun.star.text.NumberingRules", Type::NUMRULES },
{ "com.sun.star.sheet.Defaults", Type::DOCDEFLTS },
{ "com.sun.star.drawing.Defaults", Type::DRAWDEFLTS },
{ "com.sun.star.comp.SpreadsheetSettings", Type::DOCSPRSETT },
{ "com.sun.star.document.Settings", Type::DOCCONF },
{ "com.sun.star.image.ImageMapRectangleObject", Type::IMAP_RECT },
{ "com.sun.star.image.ImageMapCircleObject", Type::IMAP_CIRC },
{ "com.sun.star.image.ImageMapPolygonObject", Type::IMAP_POLY },
// Support creation of GraphicStorageHandler and EmbeddedObjectResolver
{ "com.sun.star.document.ExportGraphicStorageHandler", Type::EXPORT_GRAPHIC_STORAGE_HANDLER },
{ "com.sun.star.document.ImportGraphicStorageHandler", Type::IMPORT_GRAPHIC_STORAGE_HANDLER },
{ "com.sun.star.document.ExportEmbeddedObjectResolver", Type::EXPORT_EOR },
{ "com.sun.star.document.ImportEmbeddedObjectResolver", Type::IMPORT_EOR },
{ SC_SERVICENAME_VALBIND, Type::VALBIND },
{ SC_SERVICENAME_LISTCELLBIND, Type::LISTCELLBIND },
{ SC_SERVICENAME_LISTSOURCE, Type::LISTSOURCE },
{ SC_SERVICENAME_CELLADDRESS, Type::CELLADDRESS },
{ SC_SERVICENAME_RANGEADDRESS, Type::RANGEADDRESS },
{ "com.sun.star.sheet.DocumentSettings",Type::SHEETDOCSET },
{ SC_SERVICENAME_CHDATAPROV, Type::CHDATAPROV },
{ SC_SERVICENAME_CHART_PIVOTTABLE_DATAPROVIDER, Type::CHART_PIVOTTABLE_DATAPROVIDER },
{ SC_SERVICENAME_FORMULAPARS, Type::FORMULAPARS },
{ SC_SERVICENAME_OPCODEMAPPER, Type::OPCODEMAPPER },
{ "ooo.vba.VBAObjectModuleObjectProvider", Type::VBAOBJECTPROVIDER },
{ "ooo.vba.VBACodeNameProvider", Type::VBACODENAMEPROVIDER },
{ "ooo.vba.VBAGlobals", Type::VBAGLOBALS },
// case-correct versions of the service names (#i102468#)
{ "com.sun.star.text.textfield.URL", Type::URLFIELD },
{ "com.sun.star.text.textfield.PageNumber", Type::PAGEFIELD },
{ "com.sun.star.text.textfield.PageCount", Type::PAGESFIELD },
{ "com.sun.star.text.textfield.Date", Type::DATEFIELD },
{ "com.sun.star.text.textfield.Time", Type::TIMEFIELD },
{ "com.sun.star.text.textfield.DateTime", Type::EXT_TIMEFIELD },
{ "com.sun.star.text.textfield.docinfo.Title", Type::TITLEFIELD },
{ "com.sun.star.text.textfield.FileName", Type::FILEFIELD },
{ "com.sun.star.text.textfield.SheetName", Type::SHEETFIELD },
{ "ooo.vba.VBAGlobals", Type::VBAGLOBALS },
};
// old service names that were in 567 still work in createInstance,
// in case some macro is still using them
const ProvNamesId_Type aOldNames[] =
{
{ "stardiv.one.text.TextField.URL", Type::URLFIELD },
{ "stardiv.one.text.TextField.PageNumber", Type::PAGEFIELD },
{ "stardiv.one.text.TextField.PageCount", Type::PAGESFIELD },
{ "stardiv.one.text.TextField.Date", Type::DATEFIELD },
{ "stardiv.one.text.TextField.Time", Type::TIMEFIELD },
{ "stardiv.one.text.TextField.DocumentTitle", Type::TITLEFIELD },
{ "stardiv.one.text.TextField.FileName", Type::FILEFIELD },
{ "stardiv.one.text.TextField.SheetName", Type::SHEETFIELD },
{ "stardiv.one.style.CellStyle", Type::CELLSTYLE },
{ "stardiv.one.style.PageStyle", Type::PAGESTYLE },
};
sal_Int32 getFieldType(ScServiceProvider::Type nOldType)
{
switch (nOldType)
{
case Type::URLFIELD:
return text::textfield::Type::URL;
case Type::PAGEFIELD:
return text::textfield::Type::PAGE;
case Type::PAGESFIELD:
return text::textfield::Type::PAGES;
case Type::DATEFIELD:
return text::textfield::Type::DATE;
case Type::TIMEFIELD:
return text::textfield::Type::TIME;
case Type::EXT_TIMEFIELD:
return text::textfield::Type::EXTENDED_TIME;
case Type::TITLEFIELD:
return text::textfield::Type::DOCINFO_TITLE;
case Type::FILEFIELD:
return text::textfield::Type::EXTENDED_FILE;
case Type::SHEETFIELD:
return text::textfield::Type::TABLE;
default:
;
}
return text::textfield::Type::URL; // default to URL for no reason whatsoever.
}
} // namespace
ScServiceProvider::Type ScServiceProvider::GetProviderType(const OUString& rServiceName)
{
if (!rServiceName.isEmpty())
{
for (const ProvNamesId_Type & i : aProvNamesId)
{
if (rServiceName.equalsAscii( i.pName ))
{
return i.nType;
}
}
for (const ProvNamesId_Type & rOldName : aOldNames)
{
OSL_ENSURE( rOldName.pName, "ScServiceProvider::GetProviderType: no oldname => crash");
if (rServiceName.equalsAscii( rOldName.pName ))
{
OSL_FAIL("old service name used");
return rOldName.nType;
}
}
}
return Type::INVALID;
}
uno::Reference<uno::XInterface> ScServiceProvider::MakeInstance(
Type nType, ScDocShell* pDocShell )
{
uno::Reference<uno::XInterface> xRet;
switch (nType)
{
case Type::SHEET:
// not inserted yet - DocShell=Null
xRet.set(static_cast<sheet::XSpreadsheet*>(new ScTableSheetObj(nullptr,0)));
break;
case Type::URLFIELD:
case Type::PAGEFIELD:
case Type::PAGESFIELD:
case Type::DATEFIELD:
case Type::TIMEFIELD:
case Type::EXT_TIMEFIELD:
case Type::TITLEFIELD:
case Type::FILEFIELD:
case Type::SHEETFIELD:
{
uno::Reference<text::XTextRange> xNullContent;
xRet.set(static_cast<text::XTextField*>(
new ScEditFieldObj(xNullContent, nullptr, getFieldType(nType), ESelection())));
} break;
case Type::CELLSTYLE:
xRet.set(static_cast<style::XStyle*>(new ScStyleObj( nullptr, SfxStyleFamily::Para, OUString() )));
break;
case Type::PAGESTYLE:
xRet.set(static_cast<style::XStyle*>(new ScStyleObj( nullptr, SfxStyleFamily::Page, OUString() )));
break;
case Type::AUTOFORMAT:
xRet.set(static_cast<container::XIndexAccess*>(new ScAutoFormatObj( SC_AFMTOBJ_INVALID )));
break;
case Type::AUTOFORMATS:
xRet.set(static_cast<container::XIndexAccess*>(new ScAutoFormatsObj()));
break;
case Type::CELLRANGES:
// isn't inserted, rather filled
// -> DocShell must be set, but empty ranges
if (pDocShell)
xRet.set(static_cast<sheet::XSheetCellRanges*>(new ScCellRangesObj( pDocShell, ScRangeList() )));
break;
case Type::FUNCTIONDESCRIPTIONS:
xRet.set(static_cast<sheet::XFunctionDescriptions*>(new ScFunctionListObj()));
break;
case Type::GLOBALSHEETSETTINGS:
xRet.set(static_cast<sheet::XGlobalSheetSettings*>(new ScSpreadsheetSettings()));
break;
case Type::RECENTFUNCTIONS:
xRet.set(static_cast<sheet::XRecentFunctions*>(new ScRecentFunctionsObj()));
break;
case Type::DOCDEFLTS:
if (pDocShell)
xRet.set(static_cast<beans::XPropertySet*>(new ScDocDefaultsObj( pDocShell )));
break;
case Type::DRAWDEFLTS:
if (pDocShell)
xRet.set(static_cast<beans::XPropertySet*>(new ScDrawDefaultsObj( pDocShell )));
break;
// Drawing layer tables are not in SvxUnoDrawMSFactory,
// because SvxUnoDrawMSFactory doesn't have a SdrModel pointer.
// Drawing layer is always allocated if not there (MakeDrawLayer).
case Type::GRADTAB:
if (pDocShell)
xRet.set(SvxUnoGradientTable_createInstance( pDocShell->MakeDrawLayer() ));
break;
case Type::HATCHTAB:
if (pDocShell)
xRet.set(SvxUnoHatchTable_createInstance( pDocShell->MakeDrawLayer() ));
break;
case Type::BITMAPTAB:
if (pDocShell)
xRet.set(SvxUnoBitmapTable_createInstance( pDocShell->MakeDrawLayer() ));
break;
case Type::TRGRADTAB:
if (pDocShell)
xRet.set(SvxUnoTransGradientTable_createInstance( pDocShell->MakeDrawLayer() ));
break;
case Type::MARKERTAB:
if (pDocShell)
xRet.set(SvxUnoMarkerTable_createInstance( pDocShell->MakeDrawLayer() ));
break;
case Type::DASHTAB:
if (pDocShell)
xRet.set(SvxUnoDashTable_createInstance( pDocShell->MakeDrawLayer() ));
break;
case Type::NUMRULES:
if (pDocShell)
xRet.set(SvxCreateNumRule( pDocShell->MakeDrawLayer() ));
break;
case Type::DOCSPRSETT:
case Type::SHEETDOCSET:
case Type::DOCCONF:
if (pDocShell)
xRet.set(static_cast<beans::XPropertySet*>(new ScDocumentConfiguration(pDocShell)));
break;
case Type::IMAP_RECT:
xRet.set(SvUnoImageMapRectangleObject_createInstance( ScShapeObj::GetSupportedMacroItems() ));
break;
case Type::IMAP_CIRC:
xRet.set(SvUnoImageMapCircleObject_createInstance( ScShapeObj::GetSupportedMacroItems() ));
break;
case Type::IMAP_POLY:
xRet.set(SvUnoImageMapPolygonObject_createInstance( ScShapeObj::GetSupportedMacroItems() ));
break;
// Support creation of GraphicStorageHandler and EmbeddedObjectResolver
case Type::EXPORT_GRAPHIC_STORAGE_HANDLER:
xRet.set(static_cast<cppu::OWeakObject *>(new SvXMLGraphicHelper( SvXMLGraphicHelperMode::Write )));
break;
case Type::IMPORT_GRAPHIC_STORAGE_HANDLER:
xRet.set(static_cast<cppu::OWeakObject *>(new SvXMLGraphicHelper( SvXMLGraphicHelperMode::Read )));
break;
case Type::EXPORT_EOR:
if (pDocShell)
xRet.set(static_cast<cppu::OWeakObject *>(new SvXMLEmbeddedObjectHelper( *pDocShell, SvXMLEmbeddedObjectHelperMode::Write )));
break;
case Type::IMPORT_EOR:
if (pDocShell)
xRet.set(static_cast<cppu::OWeakObject *>(new SvXMLEmbeddedObjectHelper( *pDocShell, SvXMLEmbeddedObjectHelperMode::Read )));
break;
case Type::VALBIND:
case Type::LISTCELLBIND:
if (pDocShell)
{
bool bListPos = ( nType == Type::LISTCELLBIND );
uno::Reference<sheet::XSpreadsheetDocument> xDoc( pDocShell->GetBaseModel(), uno::UNO_QUERY );
xRet.set(*new calc::OCellValueBinding( xDoc, bListPos ));
}
break;
case Type::LISTSOURCE:
if (pDocShell)
{
uno::Reference<sheet::XSpreadsheetDocument> xDoc( pDocShell->GetBaseModel(), uno::UNO_QUERY );
xRet.set(*new calc::OCellListSource( xDoc ));
}
break;
case Type::CELLADDRESS:
case Type::RANGEADDRESS:
if (pDocShell)
{
bool bIsRange = ( nType == Type::RANGEADDRESS );
xRet.set(*new ScAddressConversionObj( pDocShell, bIsRange ));
}
break;
case Type::CHDATAPROV:
if (pDocShell)
xRet = *new ScChart2DataProvider( &pDocShell->GetDocument() );
break;
case Type::CHART_PIVOTTABLE_DATAPROVIDER:
if (pDocShell)
xRet = *new sc::PivotTableDataProvider(&pDocShell->GetDocument());
break;
case Type::FORMULAPARS:
if (pDocShell)
xRet.set(static_cast<sheet::XFormulaParser*>(new ScFormulaParserObj( pDocShell )));
break;
case Type::OPCODEMAPPER:
if (pDocShell)
{
ScDocument& rDoc = pDocShell->GetDocument();
ScAddress aAddress;
ScCompiler* pComp = new ScCompiler(&rDoc, aAddress, rDoc.GetGrammar());
xRet.set(static_cast<sheet::XFormulaOpCodeMapper*>(new ScFormulaOpCodeMapperObj(::std::unique_ptr<formula::FormulaCompiler> (pComp))));
break;
}
break;
#if HAVE_FEATURE_SCRIPTING
case Type::VBAOBJECTPROVIDER:
if (pDocShell && pDocShell->GetDocument().IsInVBAMode())
{
xRet.set(static_cast<container::XNameAccess*>(new ScVbaObjectForCodeNameProvider( pDocShell )));
}
break;
case Type::VBACODENAMEPROVIDER:
if ( pDocShell && isInVBAMode( *pDocShell ) )
{
xRet.set(static_cast<document::XCodeNameQuery*>(new ScVbaCodeNameProvider(*pDocShell)));
}
break;
case Type::VBAGLOBALS:
if (pDocShell)
{
uno::Any aGlobs;
if ( !pDocShell->GetBasicManager()->GetGlobalUNOConstant( "VBAGlobals", aGlobs ) )
{
uno::Sequence< uno::Any > aArgs(1);
aArgs[ 0 ] <<= pDocShell->GetModel();
xRet = ::comphelper::getProcessServiceFactory()->createInstanceWithArguments( "ooo.vba.excel.Globals", aArgs );
pDocShell->GetBasicManager()->SetGlobalUNOConstant( "VBAGlobals", uno::Any( xRet ) );
BasicManager* pAppMgr = SfxApplication::GetBasicManager();
if ( pAppMgr )
pAppMgr->SetGlobalUNOConstant( "ThisExcelDoc", aArgs[ 0 ] );
// create the VBA document event processor
uno::Reference< script::vba::XVBAEventProcessor > xVbaEvents(
::ooo::vba::createVBAUnoAPIServiceWithArgs( pDocShell, "com.sun.star.script.vba.VBASpreadsheetEventProcessor", aArgs ), uno::UNO_QUERY );
pDocShell->GetDocument().SetVbaEventProcessor( xVbaEvents );
}
}
break;
#endif
default:
break;
}
return xRet;
}
uno::Sequence<OUString> ScServiceProvider::GetAllServiceNames()
{
const sal_uInt16 nEntries = SAL_N_ELEMENTS(aProvNamesId);
uno::Sequence<OUString> aRet(nEntries);
OUString* pArray = aRet.getArray();
for (sal_uInt16 i = 0; i < nEntries; i++)
{
pArray[i] = OUString::createFromAscii( aProvNamesId[i].pName );
}
return aRet;
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.
↑ V572 It is odd that the object which was created using 'new' operator is immediately cast to another type.