Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 466 insertions, 0 deletions

diff --git a/basctl/source/basicide/basobj3.cxx b/basctl/source/basicide/basobj3.cxx
new file mode 100644
index 000000000..26de81e35
--- /dev/null
+++ b/basctl/source/basicide/basobj3.cxx
@@ -0,0 +1,466 @@
+/* -*- 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 <vcl/errinf.hxx>
+#include <vcl/svapp.hxx>
+#include <vcl/weld.hxx>
+#include <basic/basmgr.hxx>
+#include <basic/sbmeth.hxx>
+#include <unotools/moduleoptions.hxx>
+
+#include <iderdll.hxx>
+#include "iderdll2.hxx"
+#include "basdoc.hxx"
+#include <iderid.hxx>
+#include <strings.hrc>
+
+#include <baside3.hxx>
+#include <basidesh.hxx>
+#include <basobj.hxx>
+#include <localizationmgr.hxx>
+#include <dlged.hxx>
+#include <com/sun/star/script/XLibraryContainerPassword.hpp>
+#include <sfx2/app.hxx>
+#include <sfx2/dispatch.hxx>
+#include <sfx2/sfxsids.hrc>
+#include <sfx2/request.hxx>
+#include <sfx2/viewfrm.hxx>
+#include <sal/log.hxx>
+#include <osl/diagnose.h>
+#include <tools/debug.hxx>
+
+namespace basctl
+{
+
+using namespace comphelper;
+using namespace ::com::sun::star;
+using namespace ::com::sun::star::uno;
+using namespace ::com::sun::star::container;
+
+extern "C" {
+    SAL_DLLPUBLIC_EXPORT tools::Long basicide_handle_basic_error( void const * pPtr )
+    {
+        return HandleBasicError( static_cast<StarBASIC const *>(pPtr) );
+    }
+}
+
+SbMethod* CreateMacro( SbModule* pModule, const OUString& rMacroName )
+{
+    SfxDispatcher* pDispatcher = GetDispatcher();
+    if( pDispatcher )
+    {
+        pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES );
+    }
+
+    if ( pModule->FindMethod( rMacroName, SbxClassType::Method ) )
+        return nullptr;
+
+    OUString aMacroName( rMacroName );
+    if ( aMacroName.isEmpty() )
+    {
+        if (!pModule->GetMethods()->Count())
+            aMacroName = "Main" ;
+        else
+        {
+            bool bValid = false;
+            sal_Int32 nMacro = 1;
+            while ( !bValid )
+            {
+                aMacroName = "Macro" + OUString::number( nMacro );
+                // test whether existing...
+                bValid = pModule->FindMethod( aMacroName, SbxClassType::Method ) == nullptr;
+                nMacro++;
+            }
+        }
+    }
+
+    OUString aOUSource( pModule->GetSource32() );
+
+    // don't produce too many empty lines...
+    sal_Int32 nSourceLen = aOUSource.getLength();
+    if ( nSourceLen > 2 )
+    {
+        const sal_Unicode* pStr = aOUSource.getStr();
+        if ( pStr[ nSourceLen - 1 ]  != LINE_SEP )
+            aOUSource += "\n\n" ;
+        else if ( pStr[ nSourceLen - 2 ] != LINE_SEP )
+            aOUSource += "\n" ;
+        else if ( pStr[ nSourceLen - 3 ] == LINE_SEP )
+            aOUSource = aOUSource.copy( 0, nSourceLen-1 );
+    }
+
+    OUString aSubStr = "Sub " + aMacroName + "\n\nEnd Sub";
+
+    aOUSource += aSubStr;
+
+    // update module in library
+    StarBASIC* pBasic = dynamic_cast<StarBASIC*>(pModule->GetParent());
+    BasicManager* pBasMgr = pBasic ? FindBasicManager(pBasic) : nullptr;
+    SAL_WARN_IF(!pBasMgr, "basctl.basicide", "No BasicManager found!");
+    ScriptDocument aDocument = pBasMgr
+        ? ScriptDocument::getDocumentForBasicManager(pBasMgr)
+        : ScriptDocument(ScriptDocument::NoDocument);
+
+    if (aDocument.isValid())
+    {
+        const OUString& aLibName = pBasic->GetName();
+        const OUString& aModName = pModule->GetName();
+        OSL_VERIFY( aDocument.updateModule( aLibName, aModName, aOUSource ) );
+    }
+
+    SbMethod* pMethod = pModule->FindMethod( aMacroName, SbxClassType::Method );
+
+    if( pDispatcher )
+    {
+        pDispatcher->Execute( SID_BASICIDE_UPDATEALLMODULESOURCES );
+    }
+
+    if (aDocument.isAlive())
+        MarkDocumentModified(aDocument);
+
+    return pMethod;
+}
+
+bool RenameDialog (
+    weld::Widget* pErrorParent,
+    ScriptDocument const& rDocument,
+    OUString const& rLibName,
+    OUString const& rOldName,
+    OUString const& rNewName
+)
+{
+    if ( !rDocument.hasDialog( rLibName, rOldName ) )
+    {
+        OSL_FAIL( "basctl::RenameDialog: old module name is invalid!" );
+        return false;
+    }
+
+    if ( rDocument.hasDialog( rLibName, rNewName ) )
+    {
+        std::unique_ptr<weld::MessageDialog> xError(Application::CreateMessageDialog(pErrorParent,
+                                                    VclMessageType::Warning, VclButtonsType::Ok, IDEResId(RID_STR_SBXNAMEALLREADYUSED2)));
+        xError->run();
+        return false;
+    }
+
+    // #i74440
+    if ( rNewName.isEmpty() )
+    {
+        std::unique_ptr<weld::MessageDialog> xError(Application::CreateMessageDialog(pErrorParent,
+                                                    VclMessageType::Warning, VclButtonsType::Ok, IDEResId(RID_STR_BADSBXNAME)));
+        xError->run();
+        return false;
+    }
+
+    Shell* pShell = GetShell();
+    VclPtr<DialogWindow> pWin = pShell ? pShell->FindDlgWin(rDocument, rLibName, rOldName) : nullptr;
+    Reference< XNameContainer > xExistingDialog;
+    if ( pWin )
+        xExistingDialog = pWin->GetEditor().GetDialog();
+
+    if ( xExistingDialog.is() )
+        LocalizationMgr::renameStringResourceIDs( rDocument, rLibName, rNewName, xExistingDialog );
+
+    if ( !rDocument.renameDialog( rLibName, rOldName, rNewName, xExistingDialog ) )
+        return false;
+
+    if (!pWin || !pShell)
+        return true;
+
+    // set new name in window
+    pWin->SetName( rNewName );
+
+    // update property browser
+    pWin->UpdateBrowser();
+
+    // update tabwriter
+    sal_uInt16 nId = pShell->GetWindowId( pWin );
+    DBG_ASSERT( nId, "No entry in Tabbar!" );
+    if ( nId )
+    {
+        TabBar& rTabBar = pShell->GetTabBar();
+        rTabBar.SetPageText( nId, rNewName );
+        rTabBar.Sort();
+        rTabBar.MakeVisible( rTabBar.GetCurPageId() );
+    }
+    return true;
+}
+
+bool RemoveDialog( const ScriptDocument& rDocument, const OUString& rLibName, const OUString& rDlgName )
+{
+    if (Shell* pShell = GetShell())
+    {
+        if (VclPtr<DialogWindow> pDlgWin = pShell->FindDlgWin(rDocument, rLibName, rDlgName))
+        {
+            Reference< container::XNameContainer > xDialogModel = pDlgWin->GetDialog();
+            LocalizationMgr::removeResourceForDialog( rDocument, rLibName, rDlgName, xDialogModel );
+        }
+    }
+
+    return rDocument.removeDialog( rLibName, rDlgName );
+}
+
+StarBASIC* FindBasic( const SbxVariable* pVar )
+{
+    SbxVariable const* pSbx = pVar;
+    while (pSbx && !dynamic_cast<StarBASIC const*>(pSbx))
+        pSbx = pSbx->GetParent();
+    return const_cast<StarBASIC*>(static_cast<const StarBASIC*>(pSbx));
+}
+
+BasicManager* FindBasicManager( StarBASIC const * pLib )
+{
+    ScriptDocuments aDocuments( ScriptDocument::getAllScriptDocuments( ScriptDocument::AllWithApplication ) );
+    for (auto const& doc : aDocuments)
+    {
+        BasicManager* pBasicMgr = doc.getBasicManager();
+        OSL_ENSURE( pBasicMgr, "basctl::FindBasicManager: no basic manager for the document!" );
+        if ( !pBasicMgr )
+            continue;
+
+        Sequence< OUString > aLibNames( doc.getLibraryNames() );
+        sal_Int32 nLibCount = aLibNames.getLength();
+        const OUString* pLibNames = aLibNames.getConstArray();
+
+        for ( sal_Int32 i = 0 ; i < nLibCount ; i++ )
+        {
+            StarBASIC* pL = pBasicMgr->GetLib( pLibNames[ i ] );
+            if ( pL == pLib )
+                return pBasicMgr;
+        }
+    }
+    return nullptr;
+}
+
+void MarkDocumentModified( const ScriptDocument& rDocument )
+{
+    Shell* pShell = GetShell();
+
+    // does not have to come from a document...
+    if ( rDocument.isApplication() )
+    {
+        if (pShell)
+            pShell->SetAppBasicModified(true);
+    }
+    else
+    {
+        rDocument.setDocumentModified();
+    }
+
+    // tdf#130161 in all cases call UpdateObjectCatalog
+    if (pShell)
+        pShell->UpdateObjectCatalog();
+
+    if (SfxBindings* pBindings = GetBindingsPtr())
+    {
+        pBindings->Invalidate( SID_SIGNATURE );
+        pBindings->Invalidate( SID_SAVEDOC );
+        pBindings->Update( SID_SAVEDOC );
+    }
+}
+
+void RunMethod( SbMethod const * pMethod )
+{
+    SbxValues aRes;
+    aRes.eType = SbxVOID;
+    pMethod->Get( aRes );
+}
+
+void StopBasic()
+{
+    StarBASIC::Stop();
+    if (Shell* pShell = GetShell())
+    {
+        Shell::WindowTable& rWindows = pShell->GetWindowTable();
+        for (auto const& window : rWindows)
+        {
+            BaseWindow* pWin = window.second;
+            // call BasicStopped manually because the Stop-Notify
+            // might not get through otherwise
+            pWin->BasicStopped();
+        }
+    }
+    BasicStopped();
+}
+
+void BasicStopped(
+    bool* pbAppWindowDisabled,
+    bool* pbDispatcherLocked,
+    sal_uInt16* pnWaitCount,
+    SfxUInt16Item** ppSWActionCount, SfxUInt16Item** ppSWLockViewCount
+)
+{
+    // maybe there are some locks to be removed after an error
+    // or an explicit cancelling of the basic...
+    if ( pbAppWindowDisabled )
+        *pbAppWindowDisabled = false;
+    if ( pbDispatcherLocked )
+        *pbDispatcherLocked = false;
+    if ( pnWaitCount )
+        *pnWaitCount = 0;
+    if ( ppSWActionCount )
+        *ppSWActionCount = nullptr;
+    if ( ppSWLockViewCount )
+        *ppSWLockViewCount = nullptr;
+
+    // AppWait?
+    if (Shell* pShell = GetShell())
+    {
+        sal_uInt16 nWait = 0;
+        while ( pShell->GetViewFrame()->GetWindow().IsWait() )
+        {
+            pShell->GetViewFrame()->GetWindow().LeaveWait();
+            nWait++;
+        }
+        if ( pnWaitCount )
+            *pnWaitCount = nWait;
+    }
+
+    weld::Window* pDefParent = Application::GetDefDialogParent();
+    if (pDefParent && !pDefParent->get_sensitive())
+    {
+        pDefParent->set_sensitive(true);
+        if ( pbAppWindowDisabled )
+            *pbAppWindowDisabled = true;
+    }
+
+}
+
+void InvalidateDebuggerSlots()
+{
+    SfxBindings* pBindings = GetBindingsPtr();
+    if (!pBindings)
+        return;
+
+    pBindings->Invalidate( SID_BASICSTOP );
+    pBindings->Update( SID_BASICSTOP );
+    pBindings->Invalidate( SID_BASICRUN );
+    pBindings->Update( SID_BASICRUN );
+    pBindings->Invalidate( SID_BASICCOMPILE );
+    pBindings->Update( SID_BASICCOMPILE );
+    pBindings->Invalidate( SID_BASICSTEPOVER );
+    pBindings->Update( SID_BASICSTEPOVER );
+    pBindings->Invalidate( SID_BASICSTEPINTO );
+    pBindings->Update( SID_BASICSTEPINTO );
+    pBindings->Invalidate( SID_BASICSTEPOUT );
+    pBindings->Update( SID_BASICSTEPOUT );
+    pBindings->Invalidate( SID_BASICIDE_TOGGLEBRKPNT );
+    pBindings->Update( SID_BASICIDE_TOGGLEBRKPNT );
+    pBindings->Invalidate( SID_BASICIDE_STAT_POS );
+    pBindings->Update( SID_BASICIDE_STAT_POS );
+    pBindings->Invalidate( SID_BASICIDE_STAT_TITLE );
+    pBindings->Update( SID_BASICIDE_STAT_TITLE );
+}
+
+tools::Long HandleBasicError( StarBASIC const * pBasic )
+{
+    EnsureIde();
+    BasicStopped();
+
+    // no error output during macro choosing
+    if (GetExtraData()->ChoosingMacro())
+        return 1;
+    if (GetExtraData()->ShellInCriticalSection())
+        return 2;
+
+    tools::Long nRet = 0;
+    Shell* pShell = nullptr;
+    if ( SvtModuleOptions::IsBasicIDE() )
+    {
+        BasicManager* pBasMgr = FindBasicManager( pBasic );
+        if ( pBasMgr )
+        {
+            bool bProtected = false;
+            ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) );
+            OSL_ENSURE( aDocument.isValid(), "basctl::HandleBasicError: no document for the given BasicManager!" );
+            if ( aDocument.isValid() )
+            {
+                const OUString& aOULibName( pBasic->GetName() );
+                Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ) );
+                if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) )
+                {
+                    Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
+                    if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) )
+                    {
+                        bProtected = true;
+                    }
+                }
+            }
+
+            if ( !bProtected )
+            {
+                pShell = GetShell();
+                if ( !pShell )
+                {
+                    SfxAllItemSet aArgs( SfxGetpApp()->GetPool() );
+                    SfxRequest aRequest( SID_BASICIDE_APPEAR, SfxCallMode::SYNCHRON, aArgs );
+                    SfxGetpApp()->ExecuteSlot( aRequest );
+                    pShell = GetShell();
+                }
+            }
+        }
+    }
+
+    if ( pShell )
+        nRet = tools::Long(pShell->CallBasicErrorHdl( pBasic ));
+    else
+        ErrorHandler::HandleError( StarBASIC::GetErrorCode() );
+
+    return nRet;
+}
+
+SfxBindings* GetBindingsPtr()
+{
+    SfxBindings* pBindings = nullptr;
+
+    SfxViewFrame* pFrame = nullptr;
+    if (Shell* pShell = GetShell())
+    {
+        pFrame = pShell->GetViewFrame();
+    }
+    else
+    {
+        SfxViewFrame* pView = SfxViewFrame::GetFirst();
+        while ( pView )
+        {
+            if (dynamic_cast<DocShell*>(pView->GetObjectShell()))
+            {
+                pFrame = pView;
+                break;
+            }
+            pView = SfxViewFrame::GetNext( *pView );
+        }
+    }
+    if ( pFrame != nullptr )
+        pBindings = &pFrame->GetBindings();
+
+    return pBindings;
+}
+
+SfxDispatcher* GetDispatcher ()
+{
+    if (Shell* pShell = GetShell())
+        if (SfxViewFrame* pViewFrame = pShell->GetViewFrame())
+            if (SfxDispatcher* pDispatcher = pViewFrame->GetDispatcher())
+                return pDispatcher;
+    return nullptr;
+}
+} // namespace basctl
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab: */