basctl/source/basicide/iderdll.cxx

   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 <memory>
  21 #include <comphelper/unique_disposing_ptr.hxx>
  22 #include <comphelper/processfactory.hxx>
  23
  24 #include <iderdll.hxx>
  25 #include "iderdll2.hxx"
  26 #include <iderid.hxx>
  27 #include <basidesh.hxx>
  28 #include <strings.hrc>
  29 #include "basdoc.hxx"
  30 #include "basicmod.hxx"
  31
  32 #include <svl/srchitem.hxx>
  33 #include <svx/svxids.hrc>
  34 #include <com/sun/star/frame/Desktop.hpp>
  35 #include <com/sun/star/script/XLibraryContainerPassword.hpp>
  36 #include <unotools/resmgr.hxx>
  37 #include <vcl/settings.hxx>
  38 #include <o3tl/make_unique.hxx>
  39
  40 namespace basctl
  41 {
  42
  43 using namespace ::com::sun::star;
  44 using namespace ::com::sun::star::uno;
  45
  46 namespace
  47 {
  48
  49 class Dll
  50 {
  51     Shell* m_pShell;
  52     std::unique_ptr<ExtraData> m_xExtraData;
  53
  54 public:
  55     Dll ();
  56
  57     Shell* GetShell() const { return m_pShell; }
  58     void SetShell (Shell* pShell) { m_pShell = pShell; }
  59     ExtraData* GetExtraData ();
  60 };
  61
  62 // Holds a basctl::Dll and release it on exit, or dispose of the
  63 //default XComponent, whichever comes first
  64 class DllInstance : public comphelper::unique_disposing_solar_mutex_reset_ptr<Dll>
  65 {
  66 public:
  67     DllInstance() : comphelper::unique_disposing_solar_mutex_reset_ptr<Dll>(Reference<lang::XComponent>( frame::Desktop::create(comphelper::getProcessComponentContext()), UNO_QUERY_THROW), new Dll, true)
  68     { }
  69 };
  70
  71 struct theDllInstance : public rtl::Static<DllInstance, theDllInstance> { };
  72
  73 } // namespace
  74
  75 void EnsureIde ()
  76 {
  77     theDllInstance::get();
  78 }
  79
  80 Shell* GetShell ()
  81 {
  82     if (Dll* pDll = theDllInstance::get().get())
  83         return pDll->GetShell();
  84     return nullptr;
  85 }
  86
  87 void ShellCreated (Shell* pShell)
  88 {
  89     Dll* pDll = theDllInstance::get().get();
  90     if (pDll && !pDll->GetShell())
  91         pDll->SetShell(pShell);
  92 }
  93
  94 void ShellDestroyed (Shell const * pShell)
  95 {
  96     Dll* pDll = theDllInstance::get().get();
  97     if (pDll && pDll->GetShell() == pShell)
  98         pDll->SetShell(nullptr);
  99 }
 100
 101 ExtraData* GetExtraData()
 102 {
 103     if (Dll* pDll = theDllInstance::get().get())
 104         return pDll->GetExtraData();
 105     return nullptr;
 106 }
 107
 108 OUString IDEResId(const char *pId)
 109 {
 110     return Translate::get(pId, SfxApplication::GetModule(SfxToolsModule::Basic)->GetResLocale());
 111 }
 112
 113 namespace
 114 {
 115
 116 Dll::Dll () :
 117     m_pShell(nullptr)
 118 {
 119     SfxObjectFactory& rFactory = DocShell::Factory();
 120
 121     auto pModule = o3tl::make_unique<Module>("basctl", &rFactory);
 122     SfxModule* pMod = pModule.get();
 123     SfxApplication::SetModule(SfxToolsModule::Basic, std::move(pModule));
 124
 125     GetExtraData(); // to cause GlobalErrorHdl to be set
 126
 127     rFactory.SetDocumentServiceName( "com.sun.star.script.BasicIDE" );
 128
 129     DocShell::RegisterInterface( pMod );
 130     Shell::RegisterFactory( SVX_INTERFACE_BASIDE_VIEWSH );
 131     Shell::RegisterInterface( pMod );
 132 }
 133
 134 ExtraData* Dll::GetExtraData ()
 135 {
 136     if (!m_xExtraData)
 137         m_xExtraData.reset(new ExtraData);
 138     return m_xExtraData.get();
 139 }
 140
 141 } // namespace
 142
 143
 144 // basctl::ExtraData
 145
 146
 147 ExtraData::ExtraData () :
 148     pSearchItem(new SvxSearchItem(SID_SEARCH_ITEM)),
 149     bChoosingMacro(false),
 150     bShellInCriticalSection(false)
 151 {
 152     StarBASIC::SetGlobalBreakHdl(LINK(this, ExtraData, GlobalBasicBreakHdl));
 153 }
 154
 155 ExtraData::~ExtraData ()
 156 {
 157     // Resetting ErrorHdl is cleaner indeed but this instance is destroyed
 158     // pretty late, after the last Basic, anyway.
 159     // Due to the call there is AppData created then though and not
 160     // destroyed anymore => MLK's at Purify
 161 //  StarBASIC::SetGlobalErrorHdl( Link() );
 162 //  StarBASIC::SetGlobalBreakHdl( Link() );
 163 //  StarBASIC::setGlobalStarScriptListener( XEngineListenerRef() );
 164 }
 165
 166 void ExtraData::SetSearchItem (const SvxSearchItem& rItem)
 167 {
 168     pSearchItem.reset(static_cast<SvxSearchItem*>(rItem.Clone()));
 169 }
 170
 171 IMPL_STATIC_LINK(ExtraData, GlobalBasicBreakHdl, StarBASIC *, pBasic, BasicDebugFlags)
 172 {
 173     BasicDebugFlags nRet = BasicDebugFlags::NONE;
 174     if (Shell* pShell = GetShell())
 175     {
 176         if (BasicManager* pBasMgr = FindBasicManager(pBasic))
 177         {
 178             // I do get here twice if Step into protected Basic
 179             // => bad, if password query twice, also you don't see
 180             // the lib in the PasswordDlg...
 181             // => start no password query at this point
 182             ScriptDocument aDocument( ScriptDocument::getDocumentForBasicManager( pBasMgr ) );
 183             OSL_ENSURE( aDocument.isValid(), "basctl::ExtraData::GlobalBasicBreakHdl: no document for the basic manager!" );
 184             if ( aDocument.isValid() )
 185             {
 186                 OUString aOULibName( pBasic->GetName() );
 187                 Reference< script::XLibraryContainer > xModLibContainer( aDocument.getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
 188                 if ( xModLibContainer.is() && xModLibContainer->hasByName( aOULibName ) )
 189                 {
 190                     Reference< script::XLibraryContainerPassword > xPasswd( xModLibContainer, UNO_QUERY );
 191                     if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( aOULibName ) && !xPasswd->isLibraryPasswordVerified( aOULibName ) )
 192                     {
 193                            // a step-out should get me out of the protected area...
 194                         nRet = BasicDebugFlags::StepOut;
 195                     }
 196                     else
 197                     {
 198                         nRet = pShell->CallBasicBreakHdl( pBasic );
 199                     }
 200                 }
 201             }
 202         }
 203     }
 204
 205     return nRet;
 206 }
 207
 208
 209 } // namespace basctl
 210
 211 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */