Files
loongoffice/sc/source/ui/docshell/tablink.cxx
Norbert Thiebaud d92aa2f445 remove SFX_APP() macro that was a mer wrapper for SfxGetApp()
Change-Id: I480a789c767dd671775c9d70d96bf71908f21f5b
2014-06-27 17:08:04 +02:00

597 lines
20 KiB
C++

/* -*- 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 <sfx2/sfxsids.hrc>
#include <sfx2/app.hxx>
#include <svl/itemset.hxx>
#include <svl/stritem.hxx>
#include <sfx2/docfile.hxx>
#include <sfx2/docfilt.hxx>
#include <sfx2/fcontnr.hxx>
#include <sfx2/linkmgr.hxx>
#include <tools/urlobj.hxx>
#include <unotools/transliterationwrapper.hxx>
#include "tablink.hxx"
#include "scextopt.hxx"
#include "table.hxx"
#include "document.hxx"
#include "docsh.hxx"
#include "globstr.hrc"
#include "undoblk.hxx"
#include "undotab.hxx"
#include "global.hxx"
#include "hints.hxx"
#include "dociter.hxx"
#include <formula/opcode.hxx>
#include "formulacell.hxx"
#include "formulaiter.hxx"
#include "tokenarray.hxx"
struct TableLink_Impl
{
ScDocShell* m_pDocSh;
Window* m_pOldParent;
Link m_aEndEditLink;
TableLink_Impl() : m_pDocSh( NULL ), m_pOldParent( NULL ) {}
};
TYPEINIT1(ScTableLink, ::sfx2::SvBaseLink);
ScTableLink::ScTableLink(ScDocShell* pDocSh, const OUString& rFile,
const OUString& rFilter, const OUString& rOpt,
sal_uLong nRefresh ):
::sfx2::SvBaseLink(sfx2::LINKUPDATE_ONCALL,FORMAT_FILE),
ScRefreshTimer( nRefresh ),
pImpl( new TableLink_Impl ),
aFileName(rFile),
aFilterName(rFilter),
aOptions(rOpt),
bInCreate( false ),
bInEdit( false ),
bAddUndo( true ),
bDoPaint( true )
{
pImpl->m_pDocSh = pDocSh;
}
ScTableLink::ScTableLink(SfxObjectShell* pShell, const OUString& rFile,
const OUString& rFilter, const OUString& rOpt,
sal_uLong nRefresh ):
::sfx2::SvBaseLink(sfx2::LINKUPDATE_ONCALL,FORMAT_FILE),
ScRefreshTimer( nRefresh ),
pImpl( new TableLink_Impl ),
aFileName(rFile),
aFilterName(rFilter),
aOptions(rOpt),
bInCreate( false ),
bInEdit( false ),
bAddUndo( true ),
bDoPaint( true )
{
pImpl->m_pDocSh = static_cast< ScDocShell* >( pShell );
SetRefreshHandler( LINK( this, ScTableLink, RefreshHdl ) );
SetRefreshControl( &pImpl->m_pDocSh->GetDocument().GetRefreshTimerControlAddress() );
}
ScTableLink::~ScTableLink()
{
// Verbindung aufheben
StopRefreshTimer();
OUString aEmpty;
ScDocument& rDoc = pImpl->m_pDocSh->GetDocument();
SCTAB nCount = rDoc.GetTableCount();
for (SCTAB nTab=0; nTab<nCount; nTab++)
if (rDoc.IsLinked(nTab) && aFileName.equals(rDoc.GetLinkDoc(nTab)))
rDoc.SetLink( nTab, SC_LINK_NONE, aEmpty, aEmpty, aEmpty, aEmpty, 0 );
delete pImpl;
}
void ScTableLink::Edit( Window* pParent, const Link& rEndEditHdl )
{
// DefModalDialogParent setzen, weil evtl. aus der DocShell beim ConvertFrom
// ein Optionen-Dialog kommt...
pImpl->m_aEndEditLink = rEndEditHdl;
pImpl->m_pOldParent = Application::GetDefDialogParent();
if (pParent)
Application::SetDefDialogParent(pParent);
bInEdit = true;
SvBaseLink::Edit( pParent, LINK( this, ScTableLink, TableEndEditHdl ) );
}
::sfx2::SvBaseLink::UpdateResult ScTableLink::DataChanged(
const OUString&, const ::com::sun::star::uno::Any& )
{
sfx2::LinkManager* pLinkManager=pImpl->m_pDocSh->GetDocument().GetLinkManager();
if (pLinkManager!=NULL)
{
OUString aFile, aFilter;
pLinkManager->GetDisplayNames(this, 0, &aFile, NULL, &aFilter);
// the file dialog returns the filter name with the application prefix
// -> remove prefix
ScDocumentLoader::RemoveAppPrefix( aFilter );
if (!bInCreate)
Refresh( aFile, aFilter, NULL, GetRefreshDelay() ); // don't load twice
}
return SUCCESS;
}
void ScTableLink::Closed()
{
// Verknuepfung loeschen: Undo
ScDocument& rDoc = pImpl->m_pDocSh->GetDocument();
bool bUndo (rDoc.IsUndoEnabled());
if (bAddUndo && bUndo)
{
pImpl->m_pDocSh->GetUndoManager()->AddUndoAction(
new ScUndoRemoveLink( pImpl->m_pDocSh, aFileName ) );
bAddUndo = false; // nur einmal
}
// Verbindung wird im dtor aufgehoben
SvBaseLink::Closed();
}
bool ScTableLink::IsUsed() const
{
return pImpl->m_pDocSh->GetDocument().HasLink( aFileName, aFilterName, aOptions );
}
bool ScTableLink::Refresh(const OUString& rNewFile, const OUString& rNewFilter,
const OUString* pNewOptions, sal_uLong nNewRefresh )
{
// Dokument laden
if (rNewFile.isEmpty() || rNewFilter.isEmpty())
return false;
OUString aNewUrl = ScGlobal::GetAbsDocName(rNewFile, pImpl->m_pDocSh);
bool bNewUrlName = !aFileName.equals(aNewUrl);
const SfxFilter* pFilter = pImpl->m_pDocSh->GetFactory().GetFilterContainer()->GetFilter4FilterName(rNewFilter);
if (!pFilter)
return false;
ScDocument& rDoc = pImpl->m_pDocSh->GetDocument();
rDoc.SetInLinkUpdate( true );
bool bUndo(rDoc.IsUndoEnabled());
// wenn neuer Filter ausgewaehlt wurde, Optionen vergessen
if (!aFilterName.equals(rNewFilter))
aOptions = OUString();
if ( pNewOptions ) // Optionen hart angegeben?
aOptions = *pNewOptions;
// ItemSet immer anlegen, damit die DocShell die Optionen setzen kann
SfxItemSet* pSet = new SfxAllItemSet( SfxGetpApp()->GetPool() );
if (!aOptions.isEmpty())
pSet->Put( SfxStringItem( SID_FILE_FILTEROPTIONS, aOptions ) );
SfxMedium* pMed = new SfxMedium(aNewUrl, STREAM_STD_READ, pFilter, pSet);
if ( bInEdit ) // only if using the edit dialog,
pMed->UseInteractionHandler(true); // enable the filter options dialog
// aRef->DoClose() will be called explicitly, but it is still more safe to use SfxObjectShellLock here
ScDocShell* pSrcShell = new ScDocShell(SFX_CREATE_MODE_INTERNAL);
SfxObjectShellLock aRef = pSrcShell;
pSrcShell->DoLoad(pMed);
// Optionen koennten gesetzt worden sein
OUString aNewOpt = ScDocumentLoader::GetOptions(*pMed);
if (aNewOpt.isEmpty())
aNewOpt = aOptions;
// Undo...
ScDocument* pUndoDoc = NULL;
bool bFirst = true;
if (bAddUndo && bUndo)
pUndoDoc = new ScDocument( SCDOCMODE_UNDO );
// Tabellen kopieren
ScDocShellModificator aModificator( *pImpl->m_pDocSh );
bool bNotFound = false;
ScDocument& rSrcDoc = pSrcShell->GetDocument();
// from text filters that don't set the table name,
// use the one table regardless of link table name
bool bAutoTab = (rSrcDoc.GetTableCount() == 1) &&
ScDocShell::HasAutomaticTableName( rNewFilter );
SCTAB nCount = rDoc.GetTableCount();
for (SCTAB nTab=0; nTab<nCount; nTab++)
{
sal_uInt8 nMode = rDoc.GetLinkMode(nTab);
if (nMode && aFileName.equals(rDoc.GetLinkDoc(nTab)))
{
OUString aTabName = rDoc.GetLinkTab(nTab);
// Undo
if (bAddUndo && bUndo)
{
if (bFirst)
pUndoDoc->InitUndo( &rDoc, nTab, nTab, true, true );
else
pUndoDoc->AddUndoTab( nTab, nTab, true, true );
bFirst = false;
ScRange aRange(0,0,nTab,MAXCOL,MAXROW,nTab);
rDoc.CopyToDocument(aRange, IDF_ALL, false, pUndoDoc);
pUndoDoc->TransferDrawPage( &rDoc, nTab, nTab );
pUndoDoc->SetLink( nTab, nMode, aFileName, aFilterName,
aOptions, aTabName, GetRefreshDelay() );
pUndoDoc->SetTabBgColor( nTab, rDoc.GetTabBgColor(nTab) );
}
// Tabellenname einer ExtDocRef anpassen
if ( bNewUrlName && nMode == SC_LINK_VALUE )
{
OUString aName;
rDoc.GetName( nTab, aName );
if ( ScGlobal::GetpTransliteration()->isEqual(
ScGlobal::GetDocTabName( aFileName, aTabName ), aName ) )
{
rDoc.RenameTab( nTab,
ScGlobal::GetDocTabName( aNewUrl, aTabName ),
false, true ); // kein RefUpdate, kein ValidTabName
}
}
// kopieren
SCTAB nSrcTab = 0;
bool bFound = false;
/* #i71497# check if external document is loaded successfully,
otherwise we may find the empty default sheet "Sheet1" in
rSrcDoc, even if the document does not exist. */
if( pMed->GetError() == 0 )
{
// no sheet name -> use first sheet
if ( !aTabName.isEmpty() && !bAutoTab )
bFound = rSrcDoc.GetTable( aTabName, nSrcTab );
else
bFound = true;
}
if (bFound)
rDoc.TransferTab( &rSrcDoc, nSrcTab, nTab, false, // nicht neu einfuegen
(nMode == SC_LINK_VALUE) ); // nur Werte?
else
{
rDoc.DeleteAreaTab( 0,0,MAXCOL,MAXROW, nTab, IDF_ALL );
bool bShowError = true;
if ( nMode == SC_LINK_VALUE )
{
// Value link (used with external references in formulas):
// Look for formulas that reference the sheet, and put errors in the referenced cells.
ScRangeList aErrorCells; // cells on the linked sheets that need error values
ScCellIterator aIter(&rDoc, ScRange(0,0,0,MAXCOL,MAXROW,MAXTAB)); // all sheets
for (bool bHas = aIter.first(); bHas; bHas = aIter.next())
{
if (aIter.getType() != CELLTYPE_FORMULA)
continue;
ScFormulaCell* pCell = aIter.getFormulaCell();
ScDetectiveRefIter aRefIter(pCell);
ScRange aRefRange;
while ( aRefIter.GetNextRef( aRefRange ) )
{
if ( aRefRange.aStart.Tab() <= nTab && aRefRange.aEnd.Tab() >= nTab )
{
// use first cell of range references (don't fill potentially large ranges)
aErrorCells.Join( ScRange( aRefRange.aStart ) );
}
}
}
size_t nRanges = aErrorCells.size();
if ( nRanges ) // found any?
{
ScTokenArray aTokenArr;
aTokenArr.AddOpCode( ocNotAvail );
aTokenArr.AddOpCode( ocOpen );
aTokenArr.AddOpCode( ocClose );
aTokenArr.AddOpCode( ocStop );
for (size_t nPos=0; nPos < nRanges; nPos++)
{
const ScRange* pRange = aErrorCells[ nPos ];
SCCOL nStartCol = pRange->aStart.Col();
SCROW nStartRow = pRange->aStart.Row();
SCCOL nEndCol = pRange->aEnd.Col();
SCROW nEndRow = pRange->aEnd.Row();
for (SCROW nRow=nStartRow; nRow<=nEndRow; nRow++)
for (SCCOL nCol=nStartCol; nCol<=nEndCol; nCol++)
{
ScAddress aDestPos( nCol, nRow, nTab );
rDoc.SetFormula(aDestPos, aTokenArr);
}
}
bShowError = false;
}
// if no references were found, insert error message (don't leave the sheet empty)
}
if ( bShowError )
{
// Normal link or no references: put error message on sheet.
rDoc.SetString( 0,0,nTab, ScGlobal::GetRscString(STR_LINKERROR) );
rDoc.SetString( 0,1,nTab, ScGlobal::GetRscString(STR_LINKERRORFILE) );
rDoc.SetString( 1,1,nTab, aNewUrl );
rDoc.SetString( 0,2,nTab, ScGlobal::GetRscString(STR_LINKERRORTAB) );
rDoc.SetString( 1,2,nTab, aTabName );
}
bNotFound = true;
}
if ( bNewUrlName || !aFilterName.equals(rNewFilter) ||
!aOptions.equals(aNewOpt) || pNewOptions ||
nNewRefresh != GetRefreshDelay() )
rDoc.SetLink( nTab, nMode, aNewUrl, rNewFilter, aNewOpt,
aTabName, nNewRefresh );
}
}
// neue Einstellungen merken
if ( bNewUrlName )
aFileName = aNewUrl;
if (!aFilterName.equals(rNewFilter))
aFilterName = rNewFilter;
if (!aOptions.equals(aNewOpt))
aOptions = aNewOpt;
// aufraeumen
aRef->DoClose();
// Undo
if (bAddUndo && bUndo)
pImpl->m_pDocSh->GetUndoManager()->AddUndoAction(
new ScUndoRefreshLink( pImpl->m_pDocSh, pUndoDoc ) );
// Paint (koennen mehrere Tabellen sein)
if (bDoPaint)
{
pImpl->m_pDocSh->PostPaint( ScRange(0,0,0,MAXCOL,MAXROW,MAXTAB),
PAINT_GRID | PAINT_TOP | PAINT_LEFT | PAINT_EXTRAS );
aModificator.SetDocumentModified();
}
if (bNotFound)
{
//! Fehler ausgeben ?
}
rDoc.SetInLinkUpdate( false );
// notify Uno objects (for XRefreshListener)
//! also notify Uno objects if file name was changed!
ScLinkRefreshedHint aHint;
aHint.SetSheetLink( aFileName );
rDoc.BroadcastUno( aHint );
return true;
}
IMPL_LINK_NOARG(ScTableLink, RefreshHdl)
{
return long(Refresh( aFileName, aFilterName, NULL, GetRefreshDelay() ));
}
IMPL_LINK( ScTableLink, TableEndEditHdl, ::sfx2::SvBaseLink*, pLink )
{
if ( pImpl->m_aEndEditLink.IsSet() )
pImpl->m_aEndEditLink.Call( pLink );
bInEdit = false;
Application::SetDefDialogParent( pImpl->m_pOldParent );
return 0;
}
// === ScDocumentLoader ==================================================
OUString ScDocumentLoader::GetOptions( SfxMedium& rMedium )
{
SfxItemSet* pSet = rMedium.GetItemSet();
const SfxPoolItem* pItem;
if ( pSet && SFX_ITEM_SET == pSet->GetItemState( SID_FILE_FILTEROPTIONS, true, &pItem ) )
return ((const SfxStringItem*)pItem)->GetValue();
return EMPTY_OUSTRING;
}
bool ScDocumentLoader::GetFilterName( const OUString& rFileName,
OUString& rFilter, OUString& rOptions,
bool bWithContent, bool bWithInteraction )
{
TypeId aScType = TYPE(ScDocShell);
SfxObjectShell* pDocSh = SfxObjectShell::GetFirst( &aScType );
while ( pDocSh )
{
if ( pDocSh->HasName() )
{
SfxMedium* pMed = pDocSh->GetMedium();
if ( pMed->GetName().equals(rFileName) )
{
rFilter = pMed->GetFilter()->GetFilterName();
rOptions = GetOptions(*pMed);
return true;
}
}
pDocSh = SfxObjectShell::GetNext( *pDocSh, &aScType );
}
INetURLObject aUrl( rFileName );
INetProtocol eProt = aUrl.GetProtocol();
if ( eProt == INET_PROT_NOT_VALID ) // invalid URL?
return false; // abort without creating a medium
// Filter-Detection
const SfxFilter* pSfxFilter = NULL;
SfxMedium* pMedium = new SfxMedium( rFileName, STREAM_STD_READ );
if ( pMedium->GetError() == ERRCODE_NONE )
{
if ( bWithInteraction )
pMedium->UseInteractionHandler(true); // #i73992# no longer called from GuessFilter
SfxFilterMatcher aMatcher("scalc");
if( bWithContent )
aMatcher.GuessFilter( *pMedium, &pSfxFilter );
else
aMatcher.GuessFilterIgnoringContent( *pMedium, &pSfxFilter );
}
bool bOK = false;
if ( pMedium->GetError() == ERRCODE_NONE )
{
if ( pSfxFilter )
rFilter = pSfxFilter->GetFilterName();
else
rFilter = ScDocShell::GetOwnFilterName(); // sonst Calc-Datei
bOK = !rFilter.isEmpty();
}
delete pMedium;
return bOK;
}
void ScDocumentLoader::RemoveAppPrefix( OUString& rFilterName )
{
OUString aAppPrefix( STRING_SCAPP ": ");
if (rFilterName.startsWith( aAppPrefix))
rFilterName = rFilterName.copy( aAppPrefix.getLength());
}
SfxMedium* ScDocumentLoader::CreateMedium( const OUString& rFileName, const SfxFilter* pFilter,
const OUString& rOptions )
{
// Always create SfxItemSet so ScDocShell can set options.
SfxItemSet* pSet = new SfxAllItemSet( SfxGetpApp()->GetPool() );
if ( !rOptions.isEmpty() )
pSet->Put( SfxStringItem( SID_FILE_FILTEROPTIONS, rOptions ) );
return new SfxMedium( rFileName, STREAM_STD_READ, pFilter, pSet );
}
ScDocumentLoader::ScDocumentLoader( const OUString& rFileName,
OUString& rFilterName, OUString& rOptions,
sal_uInt32 nRekCnt, bool bWithInteraction ) :
pDocShell(0),
pMedium(0)
{
if ( rFilterName.isEmpty() )
GetFilterName( rFileName, rFilterName, rOptions, true, bWithInteraction );
const SfxFilter* pFilter = ScDocShell::Factory().GetFilterContainer()->GetFilter4FilterName( rFilterName );
pMedium = CreateMedium( rFileName, pFilter, rOptions);
if ( pMedium->GetError() != ERRCODE_NONE )
return ;
if ( bWithInteraction )
pMedium->UseInteractionHandler( true ); // to enable the filter options dialog
pDocShell = new ScDocShell( SFX_CREATE_MODE_INTERNAL );
aRef = pDocShell;
ScDocument& rDoc = pDocShell->GetDocument();
ScExtDocOptions* pExtDocOpt = rDoc.GetExtDocOptions();
if( !pExtDocOpt )
{
pExtDocOpt = new ScExtDocOptions;
rDoc.SetExtDocOptions( pExtDocOpt );
}
pExtDocOpt->GetDocSettings().mnLinkCnt = nRekCnt;
pDocShell->DoLoad( pMedium );
OUString aNew = GetOptions(*pMedium); // Optionen werden beim Laden per Dialog gesetzt
if (!aNew.isEmpty() && aNew != rOptions)
rOptions = aNew;
}
ScDocumentLoader::~ScDocumentLoader()
{
if ( aRef.Is() )
aRef->DoClose();
else if ( pMedium )
delete pMedium;
}
void ScDocumentLoader::ReleaseDocRef()
{
if ( aRef.Is() )
{
// release reference without calling DoClose - caller must
// have another reference to the doc and call DoClose later
pDocShell = NULL;
pMedium = NULL;
aRef.Clear();
}
}
ScDocument* ScDocumentLoader::GetDocument()
{
return pDocShell ? &pDocShell->GetDocument() : 0;
}
bool ScDocumentLoader::IsError() const
{
if ( pDocShell && pMedium )
return pMedium->GetError() != ERRCODE_NONE;
else
return true;
}
OUString ScDocumentLoader::GetTitle() const
{
if ( pDocShell )
return pDocShell->GetTitle();
else
return EMPTY_OUSTRING;
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */