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 "scriptdocument.hxx"
21 : #include "basobj.hxx"
22 : #include "basidesh.hrc"
23 : #include "iderid.hxx"
24 : #include "dlgeddef.hxx"
25 : #include "doceventnotifier.hxx"
26 : #include "documentenumeration.hxx"
27 :
28 : #include <boost/scoped_ptr.hpp>
29 : #include <com/sun/star/uri/UriReferenceFactory.hpp>
30 : #include <com/sun/star/util/theMacroExpander.hpp>
31 : #include <com/sun/star/document/MacroExecMode.hpp>
32 : #include <com/sun/star/frame/XStorable.hpp>
33 : #include <com/sun/star/frame/FrameSearchFlag.hpp>
34 : #include <com/sun/star/frame/XDesktop.hpp>
35 : #include <com/sun/star/frame/XModel2.hpp>
36 : #include <com/sun/star/awt/XWindow2.hpp>
37 : #include <com/sun/star/document/XEmbeddedScripts.hpp>
38 : #include <com/sun/star/script/vba/XVBACompatibility.hpp>
39 : #include <com/sun/star/script/vba/XVBAModuleInfo.hpp>
40 :
41 : #include <sfx2/objsh.hxx>
42 : #include <sfx2/app.hxx>
43 : #include <sfx2/viewfrm.hxx>
44 : #include <sfx2/bindings.hxx>
45 : #include <sfx2/docfile.hxx>
46 :
47 : #include <vcl/svapp.hxx>
48 :
49 : #include <basic/basicmanagerrepository.hxx>
50 :
51 : #include <xmlscript/xmldlg_imexp.hxx>
52 :
53 : #include <unotools/syslocale.hxx>
54 :
55 : #include <unotools/collatorwrapper.hxx>
56 :
57 : #include <tools/diagnose_ex.h>
58 :
59 : #include <comphelper/processfactory.hxx>
60 : #include <comphelper/documentinfo.hxx>
61 :
62 : #include <osl/mutex.hxx>
63 :
64 : #include <cppuhelper/implbase1.hxx>
65 :
66 : #include <rtl/uri.hxx>
67 : #include <rtl/bootstrap.hxx>
68 :
69 : #include <osl/process.h>
70 : #include <osl/file.hxx>
71 :
72 : #include <set>
73 :
74 : namespace basctl
75 : {
76 : using ::com::sun::star::uno::Sequence;
77 : using ::com::sun::star::uno::Reference;
78 : using ::com::sun::star::frame::XModel;
79 : using ::com::sun::star::beans::XPropertySet;
80 : using ::com::sun::star::script::XLibraryContainer;
81 : using ::com::sun::star::uno::UNO_QUERY_THROW;
82 : using ::com::sun::star::uno::UNO_SET_THROW;
83 : using ::com::sun::star::beans::XPropertySetInfo;
84 : using ::com::sun::star::uno::Exception;
85 : using ::com::sun::star::container::XNameContainer;
86 : using ::com::sun::star::container::NoSuchElementException;
87 : using ::com::sun::star::uno::UNO_QUERY;
88 : using ::com::sun::star::task::XStatusIndicator;
89 : using ::com::sun::star::uno::makeAny;
90 : using ::com::sun::star::script::XLibraryContainer2;
91 : using ::com::sun::star::lang::XMultiServiceFactory;
92 : using ::com::sun::star::uri::UriReferenceFactory;
93 : using ::com::sun::star::uri::XUriReferenceFactory;
94 : using ::com::sun::star::uri::XUriReference;
95 : using ::com::sun::star::uno::XComponentContext;
96 : using ::com::sun::star::util::XMacroExpander;
97 : using ::com::sun::star::util::theMacroExpander;
98 : using ::com::sun::star::io::XInputStreamProvider;
99 : using ::com::sun::star::uno::Any;
100 : using ::com::sun::star::io::XInputStream;
101 : using ::com::sun::star::frame::XStorable;
102 : using ::com::sun::star::util::XModifiable;
103 : using ::com::sun::star::frame::XController;
104 : using ::com::sun::star::frame::XFrame;
105 : using ::com::sun::star::util::URL;
106 : using ::com::sun::star::frame::XDispatchProvider;
107 : using ::com::sun::star::frame::XDispatch;
108 : using ::com::sun::star::beans::PropertyValue;
109 : using ::com::sun::star::frame::XDesktop;
110 : using ::com::sun::star::container::XEnumerationAccess;
111 : using ::com::sun::star::container::XEnumeration;
112 : using ::com::sun::star::frame::XModel2;
113 : using ::com::sun::star::awt::XWindow2;
114 : using ::com::sun::star::document::XEventListener;
115 : using ::com::sun::star::lang::EventObject;
116 : using ::com::sun::star::uno::RuntimeException;
117 : using ::com::sun::star::document::XEventBroadcaster;
118 : using ::com::sun::star::document::XEmbeddedScripts;
119 : using ::com::sun::star::script::ModuleInfo;
120 : using ::com::sun::star::script::vba::XVBACompatibility;
121 : using ::com::sun::star::script::vba::XVBAModuleInfo;
122 :
123 : namespace MacroExecMode = ::com::sun::star::document::MacroExecMode;
124 : namespace FrameSearchFlag = ::com::sun::star::frame::FrameSearchFlag;
125 :
126 :
127 : //= helper
128 :
129 : namespace
130 : {
131 0 : static bool StringCompareLessThan( const OUString& lhs, const OUString& rhs )
132 : {
133 0 : return lhs.compareToIgnoreAsciiCase( rhs ) < 0;
134 : }
135 :
136 : class FilterDocuments : public docs::IDocumentDescriptorFilter
137 : {
138 : public:
139 0 : FilterDocuments( bool _bFilterInvisible ) : m_bFilterInvisible( _bFilterInvisible ) { }
140 :
141 0 : virtual ~FilterDocuments() {}
142 :
143 : virtual bool includeDocument( const docs::DocumentDescriptor& _rDocument ) const SAL_OVERRIDE;
144 :
145 : private:
146 : bool impl_isDocumentVisible_nothrow( const docs::DocumentDescriptor& _rDocument ) const;
147 :
148 : private:
149 : bool m_bFilterInvisible;
150 : };
151 :
152 0 : bool FilterDocuments::impl_isDocumentVisible_nothrow( const docs::DocumentDescriptor& _rDocument ) const
153 : {
154 : try
155 : {
156 0 : for ( docs::Controllers::const_iterator controller = _rDocument.aControllers.begin();
157 0 : controller != _rDocument.aControllers.end();
158 : ++controller
159 : )
160 : {
161 0 : Reference< XFrame > xFrame( (*controller)->getFrame(), UNO_SET_THROW );
162 0 : Reference< XWindow2 > xContainer( xFrame->getContainerWindow(), UNO_QUERY_THROW );
163 0 : if ( xContainer->isVisible() )
164 0 : return true;
165 0 : }
166 : }
167 0 : catch( const Exception& )
168 : {
169 : DBG_UNHANDLED_EXCEPTION();
170 : }
171 0 : return false;
172 : }
173 :
174 0 : bool FilterDocuments::includeDocument( const docs::DocumentDescriptor& _rDocument ) const
175 : {
176 0 : Reference< XEmbeddedScripts > xScripts( _rDocument.xModel, UNO_QUERY );
177 0 : if ( !xScripts.is() )
178 0 : return false;
179 0 : if ( !m_bFilterInvisible || impl_isDocumentVisible_nothrow( _rDocument ) )
180 0 : return true;
181 0 : return false;
182 : }
183 :
184 0 : void lcl_getAllModels_throw( docs::Documents& _out_rModels, bool _bVisibleOnly )
185 : {
186 0 : _out_rModels.clear();
187 :
188 0 : FilterDocuments aFilter( _bVisibleOnly );
189 : docs::DocumentEnumeration aEnum(
190 0 : comphelper::getProcessComponentContext(), &aFilter );
191 :
192 0 : aEnum.getDocuments( _out_rModels );
193 0 : }
194 : }
195 :
196 : class ScriptDocument::Impl : public DocumentEventListener
197 : {
198 : private:
199 : bool m_bIsApplication;
200 : bool m_bValid;
201 : bool m_bDocumentClosed;
202 : Reference< XModel > m_xDocument;
203 : Reference< XModifiable > m_xDocModify;
204 : Reference< XEmbeddedScripts > m_xScriptAccess;
205 : boost::scoped_ptr< DocumentEventNotifier > m_pDocListener;
206 :
207 : public:
208 : Impl ();
209 : Impl (Reference<XModel> const& rxDocument);
210 : virtual ~Impl ();
211 :
212 : /** determines whether the instance refers to a valid "document" with script and
213 : dialog libraries
214 : */
215 0 : inline bool isValid() const { return m_bValid; }
216 : /** determines whether the instance refers to a non-closed document
217 : */
218 0 : inline bool isAlive() const { return m_bValid && ( m_bIsApplication || !m_bDocumentClosed ); }
219 : /// determines whether the "document" refers to the application in real
220 0 : inline bool isApplication() const { return m_bValid && m_bIsApplication; }
221 : /// determines whether the document refers to a real document (instead of the application)
222 0 : inline bool isDocument() const { return m_bValid && !m_bIsApplication; }
223 :
224 : /** invalidates the instance
225 : */
226 : void invalidate();
227 :
228 : const Reference< XModel >&
229 0 : getDocumentRef() const { return m_xDocument; }
230 :
231 : /// returns a library container belonging to the document
232 : Reference< XLibraryContainer >
233 : getLibraryContainer( LibraryContainerType _eType ) const;
234 :
235 : /// determines whether a given library is part of the shared installation
236 : bool isLibraryShared( const OUString& _rLibName, LibraryContainerType _eType );
237 :
238 : /** returns the current frame of the document
239 :
240 : To be called for documents only, not for the application.
241 :
242 : If <FALSE/> is returned, an assertion will be raised in non-product builds.
243 : */
244 : bool getCurrentFrame( Reference< XFrame >& _out_rxFrame ) const;
245 :
246 : // versions with the same signature/semantics as in ScriptDocument itself
247 : bool isReadOnly() const;
248 : bool isInVBAMode() const;
249 : BasicManager*
250 : getBasicManager() const;
251 : Reference< XModel >
252 : getDocument() const;
253 : void setDocumentModified() const;
254 : bool isDocumentModified() const;
255 : bool saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const;
256 :
257 : OUString getTitle() const;
258 : OUString getURL() const;
259 :
260 : bool allowMacros() const;
261 :
262 : Reference< XNameContainer >
263 : getLibrary( LibraryContainerType _eType, const OUString& _rLibName, bool _bLoadLibrary ) const;
264 : bool hasLibrary( LibraryContainerType _eType, const OUString& _rLibName ) const;
265 : Reference< XNameContainer >
266 : getOrCreateLibrary( LibraryContainerType _eType, const OUString& _rLibName ) const;
267 :
268 : void loadLibraryIfExists( LibraryContainerType _eType, const OUString& _rLibrary );
269 :
270 : bool removeModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName, const OUString& _rModuleName );
271 : bool hasModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName, const OUString& _rModName ) const;
272 : bool getModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName, const OUString& _rObjectName, Any& _out_rModuleOrDialog );
273 : bool renameModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName, const OUString& _rOldName, const OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel );
274 : bool createModule( const OUString& _rLibName, const OUString& _rModName, bool _bCreateMain, OUString& _out_rNewModuleCode ) const;
275 : bool insertModuleOrDialog( LibraryContainerType _eType, const OUString& _rObjectName, const OUString& _rModName, const Any& _rElement ) const;
276 : bool updateModule( const OUString& _rLibName, const OUString& _rModName, const OUString& _rModuleCode ) const;
277 : bool createDialog( const OUString& _rLibName, const OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const;
278 :
279 : protected:
280 : // DocumentEventListener
281 : virtual void onDocumentCreated( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
282 : virtual void onDocumentOpened( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
283 : virtual void onDocumentSave( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
284 : virtual void onDocumentSaveDone( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
285 : virtual void onDocumentSaveAs( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
286 : virtual void onDocumentSaveAsDone( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
287 : virtual void onDocumentClosed( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
288 : virtual void onDocumentTitleChanged( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
289 : virtual void onDocumentModeChanged( const ScriptDocument& _rDocument ) SAL_OVERRIDE;
290 :
291 : private:
292 : bool impl_initDocument_nothrow( const Reference< XModel >& _rxModel );
293 : };
294 :
295 :
296 : //= ScriptDocument::Impl - implementation
297 :
298 0 : ScriptDocument::Impl::Impl()
299 : :m_bIsApplication( true )
300 : ,m_bValid( true )
301 0 : ,m_bDocumentClosed( false )
302 : {
303 0 : }
304 :
305 0 : ScriptDocument::Impl::Impl( const Reference< XModel >& _rxDocument )
306 : :m_bIsApplication( false )
307 : ,m_bValid( false )
308 0 : ,m_bDocumentClosed( false )
309 : {
310 0 : if ( _rxDocument.is() )
311 : {
312 0 : if ( impl_initDocument_nothrow( _rxDocument ) )
313 : {
314 : }
315 : }
316 0 : }
317 :
318 0 : ScriptDocument::Impl::~Impl()
319 : {
320 0 : invalidate();
321 0 : }
322 :
323 0 : void ScriptDocument::Impl::invalidate()
324 : {
325 0 : m_bIsApplication = false;
326 0 : m_bValid = false;
327 0 : m_bDocumentClosed = false;
328 :
329 0 : m_xDocument.clear();
330 0 : m_xDocModify.clear();
331 0 : m_xScriptAccess.clear();
332 :
333 0 : if ( m_pDocListener.get() )
334 0 : m_pDocListener->dispose();
335 0 : }
336 :
337 0 : bool ScriptDocument::Impl::impl_initDocument_nothrow( const Reference< XModel >& _rxModel )
338 : {
339 : try
340 : {
341 0 : m_xDocument.set ( _rxModel, UNO_SET_THROW );
342 0 : m_xDocModify.set ( _rxModel, UNO_QUERY_THROW );
343 0 : m_xScriptAccess.set ( _rxModel, UNO_QUERY );
344 :
345 0 : m_bValid = m_xScriptAccess.is();
346 :
347 0 : if ( m_bValid )
348 0 : m_pDocListener.reset( new DocumentEventNotifier( *this, _rxModel ) );
349 : }
350 0 : catch( const Exception& )
351 : {
352 : DBG_UNHANDLED_EXCEPTION();
353 0 : m_bValid = false;
354 : }
355 :
356 0 : if ( !m_bValid )
357 : {
358 0 : invalidate();
359 : }
360 :
361 0 : return m_bValid;
362 : }
363 :
364 0 : Reference< XLibraryContainer > ScriptDocument::Impl::getLibraryContainer( LibraryContainerType _eType ) const
365 : {
366 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::getLibraryContainer: invalid!" );
367 :
368 0 : Reference< XLibraryContainer > xContainer;
369 0 : if ( !isValid() )
370 0 : return xContainer;
371 :
372 : try
373 : {
374 0 : if ( isApplication() )
375 0 : xContainer.set( _eType == E_SCRIPTS ? SfxGetpApp()->GetBasicContainer() : SfxGetpApp()->GetDialogContainer(), UNO_QUERY_THROW );
376 : else
377 : {
378 : xContainer.set(
379 0 : _eType == E_SCRIPTS ? m_xScriptAccess->getBasicLibraries() : m_xScriptAccess->getDialogLibraries(),
380 0 : UNO_QUERY_THROW );
381 : }
382 : }
383 0 : catch( const Exception& )
384 : {
385 : DBG_UNHANDLED_EXCEPTION();
386 : }
387 0 : return xContainer;
388 : }
389 :
390 0 : bool ScriptDocument::Impl::isReadOnly() const
391 : {
392 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::isReadOnly: invalid state!" );
393 : OSL_ENSURE( !isApplication(), "ScriptDocument::Impl::isReadOnly: not allowed to be called for the application!" );
394 :
395 0 : bool bIsReadOnly = true;
396 0 : if ( isValid() && !isApplication() )
397 : {
398 : try
399 : {
400 : // note that XStorable is required by the OfficeDocument service
401 0 : Reference< XStorable > xDocStorable( m_xDocument, UNO_QUERY_THROW );
402 0 : bIsReadOnly = xDocStorable->isReadonly();
403 : }
404 0 : catch( const Exception& )
405 : {
406 : DBG_UNHANDLED_EXCEPTION();
407 : }
408 : }
409 0 : return bIsReadOnly;
410 : }
411 :
412 0 : bool ScriptDocument::Impl::isInVBAMode() const
413 : {
414 0 : bool bResult = false;
415 0 : if ( !isApplication() )
416 : {
417 0 : Reference< XVBACompatibility > xVBACompat( getLibraryContainer( E_SCRIPTS ), UNO_QUERY );
418 0 : if ( xVBACompat.is() )
419 0 : bResult = xVBACompat->getVBACompatibilityMode();
420 : }
421 0 : return bResult;
422 : }
423 :
424 0 : BasicManager* ScriptDocument::Impl::getBasicManager() const
425 : {
426 : try
427 : {
428 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::getBasicManager: invalid state!" );
429 0 : if ( !isValid() )
430 0 : return NULL;
431 :
432 0 : if ( isApplication() )
433 0 : return SfxGetpApp()->GetBasicManager();
434 :
435 0 : return ::basic::BasicManagerRepository::getDocumentBasicManager( m_xDocument );
436 : }
437 0 : catch (const css::ucb::ContentCreationException& e)
438 : {
439 : SAL_WARN( "basctl.basicide", "ScriptDocument::getBasicManager: Caught exception: " << e.Message );
440 : }
441 0 : return NULL;
442 : }
443 :
444 0 : Reference< XModel > ScriptDocument::Impl::getDocument() const
445 : {
446 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::getDocument: invalid state!" );
447 : OSL_ENSURE( isDocument(), "ScriptDocument::Impl::getDocument: for documents only!" );
448 0 : if ( !isValid() || !isDocument() )
449 0 : return NULL;
450 :
451 0 : return m_xDocument;
452 : }
453 :
454 :
455 0 : Reference< XNameContainer > ScriptDocument::Impl::getLibrary( LibraryContainerType _eType, const OUString& _rLibName, bool _bLoadLibrary ) const
456 : {
457 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::getLibrary: invalid state!" );
458 :
459 0 : Reference< XNameContainer > xContainer;
460 : try
461 : {
462 0 : Reference< XLibraryContainer > xLibContainer = getLibraryContainer( _eType );
463 0 : if ( isValid() )
464 : {
465 0 : if ( xLibContainer.is() )
466 0 : xContainer.set( xLibContainer->getByName( _rLibName ), UNO_QUERY_THROW );
467 : }
468 :
469 0 : if ( !xContainer.is() )
470 0 : throw NoSuchElementException();
471 :
472 : // load library
473 0 : if ( _bLoadLibrary && !xLibContainer->isLibraryLoaded( _rLibName ) )
474 0 : xLibContainer->loadLibrary( _rLibName );
475 : }
476 0 : catch( const NoSuchElementException& )
477 : {
478 0 : throw; // allowed to leave
479 : }
480 0 : catch( const Exception& )
481 : {
482 : DBG_UNHANDLED_EXCEPTION();
483 : }
484 :
485 0 : return xContainer;
486 : }
487 :
488 :
489 0 : bool ScriptDocument::Impl::hasLibrary( LibraryContainerType _eType, const OUString& _rLibName ) const
490 : {
491 0 : bool bHas = false;
492 : try
493 : {
494 0 : Reference< XLibraryContainer > xLibContainer = getLibraryContainer( _eType );
495 0 : bHas = xLibContainer.is() && xLibContainer->hasByName( _rLibName );
496 : }
497 0 : catch( const Exception& )
498 : {
499 : DBG_UNHANDLED_EXCEPTION();
500 : }
501 0 : return bHas;
502 : }
503 :
504 :
505 0 : Reference< XNameContainer > ScriptDocument::Impl::getOrCreateLibrary( LibraryContainerType _eType, const OUString& _rLibName ) const
506 : {
507 0 : Reference< XNameContainer > xLibrary;
508 : try
509 : {
510 0 : Reference< XLibraryContainer > xLibContainer( getLibraryContainer( _eType ), UNO_QUERY_THROW );
511 0 : if ( xLibContainer->hasByName( _rLibName ) )
512 0 : xLibrary.set( xLibContainer->getByName( _rLibName ), UNO_QUERY_THROW );
513 : else
514 0 : xLibrary.set( xLibContainer->createLibrary( _rLibName ), UNO_QUERY_THROW );
515 :
516 0 : if ( !xLibContainer->isLibraryLoaded( _rLibName ) )
517 0 : xLibContainer->loadLibrary( _rLibName );
518 : }
519 0 : catch( const Exception& )
520 : {
521 : DBG_UNHANDLED_EXCEPTION();
522 : }
523 0 : return xLibrary;
524 : }
525 :
526 :
527 0 : void ScriptDocument::Impl::loadLibraryIfExists( LibraryContainerType _eType, const OUString& _rLibrary )
528 : {
529 : try
530 : {
531 0 : Reference< XLibraryContainer > xLibContainer( getLibraryContainer( _eType ) );
532 0 : if ( xLibContainer.is() && xLibContainer->hasByName( _rLibrary ) && !xLibContainer->isLibraryLoaded( _rLibrary ) )
533 0 : xLibContainer->loadLibrary( _rLibrary );
534 : }
535 0 : catch( const Exception& )
536 : {
537 : DBG_UNHANDLED_EXCEPTION();
538 : }
539 0 : }
540 :
541 :
542 0 : bool ScriptDocument::Impl::removeModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName, const OUString& _rModuleName )
543 : {
544 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::removeModuleOrDialog: invalid!" );
545 0 : if ( isValid() )
546 : {
547 : try
548 : {
549 0 : Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, true ) );
550 0 : if ( xLib.is() )
551 : {
552 0 : xLib->removeByName( _rModuleName );
553 0 : return true;
554 0 : }
555 : }
556 0 : catch( const Exception& )
557 : {
558 : DBG_UNHANDLED_EXCEPTION();
559 : }
560 : }
561 0 : return false;
562 : }
563 :
564 :
565 0 : bool ScriptDocument::Impl::hasModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName, const OUString& _rModName ) const
566 : {
567 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::hasModuleOrDialog: invalid!" );
568 0 : if ( !isValid() )
569 0 : return false;
570 :
571 : try
572 : {
573 0 : Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, true ) );
574 0 : if ( xLib.is() )
575 0 : return xLib->hasByName( _rModName );
576 : }
577 0 : catch( const Exception& )
578 : {
579 : DBG_UNHANDLED_EXCEPTION();
580 : }
581 0 : return false;
582 : }
583 :
584 :
585 0 : bool ScriptDocument::Impl::getModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName, const OUString& _rObjectName, Any& _out_rModuleOrDialog )
586 : {
587 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::getModuleOrDialog: invalid!" );
588 0 : if ( !isValid() )
589 0 : return false;
590 :
591 0 : _out_rModuleOrDialog.clear();
592 : try
593 : {
594 0 : Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, true ), UNO_QUERY_THROW );
595 0 : if ( xLib->hasByName( _rObjectName ) )
596 : {
597 0 : _out_rModuleOrDialog = xLib->getByName( _rObjectName );
598 0 : return true;
599 0 : }
600 : }
601 0 : catch( const Exception& )
602 : {
603 : DBG_UNHANDLED_EXCEPTION();
604 : }
605 0 : return false;
606 : }
607 :
608 :
609 0 : bool ScriptDocument::Impl::renameModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName,
610 : const OUString& _rOldName, const OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel )
611 : {
612 : OSL_ENSURE( isValid(), "ScriptDocument::Impl::renameModuleOrDialog: invalid!" );
613 0 : if ( !isValid() )
614 0 : return false;
615 :
616 : try
617 : {
618 0 : Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, true ), UNO_QUERY_THROW );
619 :
620 : // get element
621 0 : Any aElement( xLib->getByName( _rOldName ) );
622 :
623 : // remove element from container
624 0 : xLib->removeByName( _rOldName );
625 :
626 : // if it's a dialog, import and export, to reflect the new name
627 0 : if ( _eType == E_DIALOGS )
628 : {
629 : // create dialog model
630 : Reference< XComponentContext > aContext(
631 0 : comphelper::getProcessComponentContext() );
632 0 : Reference< XNameContainer > xDialogModel;
633 0 : if ( _rxExistingDialogModel.is() )
634 0 : xDialogModel = _rxExistingDialogModel;
635 : else
636 : xDialogModel.set(
637 0 : ( aContext->getServiceManager()->
638 : createInstanceWithContext(
639 : "com.sun.star.awt.UnoControlDialogModel",
640 0 : aContext ) ),
641 0 : UNO_QUERY_THROW );
642 :
643 : // import dialog model
644 0 : Reference< XInputStreamProvider > xISP( aElement, UNO_QUERY_THROW );
645 0 : if ( !_rxExistingDialogModel.is() )
646 : {
647 0 : Reference< XInputStream > xInput( xISP->createInputStream(), UNO_QUERY_THROW );
648 0 : ::xmlscript::importDialogModel( xInput, xDialogModel, aContext, isDocument() ? getDocument() : Reference< XModel >() );
649 : }
650 :
651 : // set new name as property
652 0 : Reference< XPropertySet > xDlgPSet( xDialogModel, UNO_QUERY_THROW );
653 0 : xDlgPSet->setPropertyValue( DLGED_PROP_NAME, makeAny( _rNewName ) );
654 :
655 : // export dialog model
656 0 : xISP = ::xmlscript::exportDialogModel( xDialogModel, aContext, isDocument() ? getDocument() : Reference< XModel >() );
657 0 : aElement <<= xISP;
658 : }
659 :
660 : // insert element by new name in container
661 0 : if ( _eType == E_SCRIPTS )
662 : {
663 0 : Reference< XVBAModuleInfo > xVBAModuleInfo( xLib, UNO_QUERY );
664 0 : if ( xVBAModuleInfo->hasModuleInfo( _rOldName ) )
665 : {
666 0 : ModuleInfo sModuleInfo = xVBAModuleInfo->getModuleInfo( _rOldName );
667 0 : xVBAModuleInfo->removeModuleInfo( _rOldName );
668 0 : xVBAModuleInfo->insertModuleInfo( _rNewName, sModuleInfo );
669 0 : }
670 : }
671 0 : xLib->insertByName( _rNewName, aElement );
672 0 : return true;
673 : }
674 0 : catch( const Exception& )
675 : {
676 : DBG_UNHANDLED_EXCEPTION();
677 : }
678 0 : return false;
679 : }
680 :
681 :
682 0 : bool ScriptDocument::Impl::createModule( const OUString& _rLibName, const OUString& _rModName, bool _bCreateMain, OUString& _out_rNewModuleCode ) const
683 : {
684 0 : _out_rNewModuleCode = OUString();
685 : try
686 : {
687 0 : Reference< XNameContainer > xLib( getLibrary( E_SCRIPTS, _rLibName, true ) );
688 0 : if ( !xLib.is() || xLib->hasByName( _rModName ) )
689 0 : return false;
690 :
691 : // create new module
692 0 : _out_rNewModuleCode = "REM ***** BASIC *****\n\n" ;
693 0 : if ( _bCreateMain )
694 0 : _out_rNewModuleCode += "Sub Main\n\nEnd Sub\n" ;
695 :
696 : // insert module into library
697 0 : xLib->insertByName( _rModName, makeAny( _out_rNewModuleCode ) );
698 : }
699 0 : catch( const Exception& )
700 : {
701 : DBG_UNHANDLED_EXCEPTION();
702 0 : return false;
703 : }
704 :
705 0 : return true;
706 : }
707 :
708 :
709 0 : bool ScriptDocument::Impl::insertModuleOrDialog( LibraryContainerType _eType, const OUString& _rLibName, const OUString& _rObjectName, const Any& _rElement ) const
710 : {
711 : try
712 : {
713 0 : Reference< XNameContainer > xLib( getOrCreateLibrary( _eType, _rLibName ), UNO_QUERY_THROW );
714 0 : if ( xLib->hasByName( _rObjectName ) )
715 0 : return false;
716 :
717 0 : xLib->insertByName( _rObjectName, _rElement );
718 0 : return true;
719 : }
720 0 : catch( const Exception& )
721 : {
722 : DBG_UNHANDLED_EXCEPTION();
723 : }
724 0 : return false;
725 : }
726 :
727 :
728 0 : bool ScriptDocument::Impl::updateModule( const OUString& _rLibName, const OUString& _rModName, const OUString& _rModuleCode ) const
729 : {
730 : try
731 : {
732 0 : Reference< XNameContainer > xLib( getOrCreateLibrary( E_SCRIPTS, _rLibName ), UNO_QUERY_THROW );
733 0 : if ( !xLib->hasByName( _rModName ) )
734 0 : return false;
735 0 : xLib->replaceByName( _rModName, makeAny( _rModuleCode ) );
736 0 : return true;
737 : }
738 0 : catch( const Exception& )
739 : {
740 : DBG_UNHANDLED_EXCEPTION();
741 : }
742 0 : return false;
743 : }
744 :
745 :
746 0 : bool ScriptDocument::Impl::createDialog( const OUString& _rLibName, const OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const
747 : {
748 : try
749 : {
750 0 : Reference< XNameContainer > xLib( getLibrary( E_DIALOGS, _rLibName, true ), UNO_QUERY_THROW );
751 :
752 : // create dialog
753 0 : _out_rDialogProvider.clear();
754 0 : if ( xLib->hasByName( _rDialogName ) )
755 0 : return false;
756 :
757 : // create new dialog model
758 : Reference< XComponentContext > aContext(
759 0 : comphelper::getProcessComponentContext() );
760 : Reference< XNameContainer > xDialogModel(
761 0 : aContext->getServiceManager()->createInstanceWithContext(
762 0 : "com.sun.star.awt.UnoControlDialogModel", aContext ),
763 0 : UNO_QUERY_THROW );
764 :
765 : // set name property
766 0 : Reference< XPropertySet > xDlgPSet( xDialogModel, UNO_QUERY_THROW );
767 0 : xDlgPSet->setPropertyValue( DLGED_PROP_NAME, makeAny( _rDialogName ) );
768 :
769 : // export dialog model
770 0 : _out_rDialogProvider = ::xmlscript::exportDialogModel( xDialogModel, aContext, isDocument() ? getDocument() : Reference< XModel >() );
771 :
772 : // insert dialog into library
773 0 : xLib->insertByName( _rDialogName, makeAny( _out_rDialogProvider ) );
774 : }
775 0 : catch( const Exception& )
776 : {
777 : DBG_UNHANDLED_EXCEPTION();
778 : }
779 :
780 0 : return _out_rDialogProvider.is();
781 : }
782 :
783 :
784 0 : void ScriptDocument::Impl::setDocumentModified() const
785 : {
786 : OSL_ENSURE( isValid() && isDocument(), "ScriptDocument::Impl::setDocumentModified: only to be called for real documents!" );
787 0 : if ( isValid() && isDocument() )
788 : {
789 : try
790 : {
791 0 : m_xDocModify->setModified( true );
792 : }
793 0 : catch( const Exception& )
794 : {
795 : DBG_UNHANDLED_EXCEPTION();
796 : }
797 : }
798 0 : }
799 :
800 :
801 0 : bool ScriptDocument::Impl::isDocumentModified() const
802 : {
803 : OSL_ENSURE( isValid() && isDocument(), "ScriptDocument::Impl::isDocumentModified: only to be called for real documents!" );
804 0 : bool bIsModified = false;
805 0 : if ( isValid() && isDocument() )
806 : {
807 : try
808 : {
809 0 : bIsModified = m_xDocModify->isModified();
810 : }
811 0 : catch( const Exception& )
812 : {
813 : DBG_UNHANDLED_EXCEPTION();
814 : }
815 : }
816 0 : return bIsModified;
817 : }
818 :
819 :
820 0 : bool ScriptDocument::Impl::saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const
821 : {
822 0 : Reference< XFrame > xFrame;
823 0 : if ( !getCurrentFrame( xFrame ) )
824 0 : return false;
825 :
826 0 : Sequence< PropertyValue > aArgs;
827 0 : if ( _rxStatusIndicator.is() )
828 : {
829 0 : aArgs.realloc(1);
830 0 : aArgs[0].Name = "StatusIndicator" ;
831 0 : aArgs[0].Value <<= _rxStatusIndicator;
832 : }
833 :
834 : try
835 : {
836 0 : URL aURL;
837 0 : aURL.Complete = ".uno:Save" ;
838 0 : aURL.Main = aURL.Complete;
839 0 : aURL.Protocol = ".uno:" ;
840 0 : aURL.Path = "Save" ;
841 :
842 0 : Reference< XDispatchProvider > xDispProv( xFrame, UNO_QUERY_THROW );
843 : Reference< XDispatch > xDispatch(
844 0 : xDispProv->queryDispatch( aURL, "_self", FrameSearchFlag::AUTO ),
845 0 : UNO_SET_THROW );
846 :
847 0 : xDispatch->dispatch( aURL, aArgs );
848 : }
849 0 : catch( const Exception& )
850 : {
851 : DBG_UNHANDLED_EXCEPTION();
852 0 : return false;
853 : }
854 :
855 0 : return true;
856 : }
857 :
858 :
859 0 : OUString ScriptDocument::Impl::getTitle() const
860 : {
861 : OSL_PRECOND( isValid() && isDocument(), "ScriptDocument::Impl::getTitle: for documents only!" );
862 :
863 0 : OUString sTitle;
864 0 : if ( isValid() && isDocument() )
865 : {
866 0 : sTitle = ::comphelper::DocumentInfo::getDocumentTitle( m_xDocument );
867 : }
868 0 : return sTitle;
869 : }
870 :
871 :
872 0 : OUString ScriptDocument::Impl::getURL() const
873 : {
874 : OSL_PRECOND( isValid() && isDocument(), "ScriptDocument::Impl::getURL: for documents only!" );
875 :
876 0 : OUString sURL;
877 0 : if ( isValid() && isDocument() )
878 : {
879 : try
880 : {
881 0 : sURL = m_xDocument->getURL();
882 : }
883 0 : catch( const Exception& )
884 : {
885 : DBG_UNHANDLED_EXCEPTION();
886 : }
887 : }
888 0 : return sURL;
889 : }
890 :
891 :
892 0 : bool ScriptDocument::Impl::allowMacros() const
893 : {
894 : OSL_ENSURE( isValid() && isDocument(), "ScriptDocument::Impl::allowMacros: for documents only!" );
895 0 : bool bAllow = false;
896 0 : if ( isValid() && isDocument() )
897 : {
898 : try
899 : {
900 0 : bAllow = m_xScriptAccess->getAllowMacroExecution();
901 : }
902 0 : catch( const Exception& )
903 : {
904 : DBG_UNHANDLED_EXCEPTION();
905 : }
906 : }
907 0 : return bAllow;
908 : }
909 :
910 :
911 0 : bool ScriptDocument::Impl::getCurrentFrame( Reference< XFrame >& _out_rxFrame ) const
912 : {
913 0 : _out_rxFrame.clear();
914 : OSL_PRECOND( isValid() && isDocument(), "ScriptDocument::Impl::getCurrentFrame: documents only!" );
915 0 : if ( !isValid() || !isDocument() )
916 0 : return false;
917 :
918 : try
919 : {
920 0 : Reference< XModel > xDocument( m_xDocument, UNO_SET_THROW );
921 0 : Reference< XController > xController( xDocument->getCurrentController(), UNO_SET_THROW );
922 0 : _out_rxFrame.set( xController->getFrame(), UNO_SET_THROW );
923 : }
924 0 : catch( const Exception& )
925 : {
926 : DBG_UNHANDLED_EXCEPTION();
927 : }
928 :
929 0 : return _out_rxFrame.is();
930 : }
931 :
932 :
933 0 : bool ScriptDocument::Impl::isLibraryShared( const OUString& _rLibName, LibraryContainerType _eType )
934 : {
935 0 : bool bIsShared = false;
936 : try
937 : {
938 0 : Reference< XLibraryContainer2 > xLibContainer( getLibraryContainer( _eType ), UNO_QUERY_THROW );
939 :
940 0 : if ( !xLibContainer->hasByName( _rLibName ) || !xLibContainer->isLibraryLink( _rLibName ) )
941 0 : return false;
942 0 : OUString aFileURL;
943 0 : Reference< XComponentContext > xContext( ::comphelper::getProcessComponentContext() );
944 0 : Reference< XUriReferenceFactory > xUriFac = UriReferenceFactory::create(xContext);
945 :
946 0 : OUString aLinkURL( xLibContainer->getLibraryLinkURL( _rLibName ) );
947 0 : Reference< XUriReference > xUriRef( xUriFac->parse( aLinkURL ), UNO_QUERY_THROW );
948 :
949 0 : OUString aScheme = xUriRef->getScheme();
950 0 : if ( aScheme.equalsIgnoreAsciiCase("file") )
951 : {
952 0 : aFileURL = aLinkURL;
953 : }
954 0 : else if ( aScheme.equalsIgnoreAsciiCase("vnd.sun.star.pkg") )
955 : {
956 0 : OUString aAuthority = xUriRef->getAuthority();
957 0 : if ( aAuthority.matchIgnoreAsciiCase("vnd.sun.star.expand:") )
958 : {
959 0 : OUString aDecodedURL( aAuthority.copy( sizeof ( "vnd.sun.star.expand:" ) - 1 ) );
960 0 : aDecodedURL = ::rtl::Uri::decode( aDecodedURL, rtl_UriDecodeWithCharset, RTL_TEXTENCODING_UTF8 );
961 0 : Reference< XMacroExpander > xMacroExpander = theMacroExpander::get(xContext);
962 0 : aFileURL = xMacroExpander->expandMacros( aDecodedURL );
963 0 : }
964 : }
965 :
966 0 : if ( !aFileURL.isEmpty() )
967 : {
968 0 : ::osl::DirectoryItem aFileItem;
969 0 : ::osl::FileStatus aFileStatus( osl_FileStatus_Mask_FileURL );
970 0 : OSL_VERIFY( ::osl::DirectoryItem::get( aFileURL, aFileItem ) == ::osl::FileBase::E_None );
971 0 : OSL_VERIFY( aFileItem.getFileStatus( aFileStatus ) == ::osl::FileBase::E_None );
972 0 : OUString aCanonicalFileURL( aFileStatus.getFileURL() );
973 :
974 0 : OUString aSearchURL1( "share/basic" );
975 0 : OUString aSearchURL2( "share/uno_packages" );
976 0 : OUString aSearchURL3( "share/extensions" );
977 0 : if( aCanonicalFileURL.indexOf( aSearchURL1 ) >= 0 ||
978 0 : aCanonicalFileURL.indexOf( aSearchURL2 ) >= 0 ||
979 0 : aCanonicalFileURL.indexOf( aSearchURL3 ) >= 0 )
980 0 : bIsShared = true;
981 0 : }
982 : }
983 0 : catch( const Exception& )
984 : {
985 : DBG_UNHANDLED_EXCEPTION();
986 : }
987 :
988 0 : return bIsShared;
989 : }
990 :
991 :
992 0 : void ScriptDocument::Impl::onDocumentCreated( const ScriptDocument& /*_rDocument*/ )
993 : {
994 : // not interested in
995 0 : }
996 :
997 0 : void ScriptDocument::Impl::onDocumentOpened( const ScriptDocument& /*_rDocument*/ )
998 : {
999 : // not interested in
1000 0 : }
1001 :
1002 0 : void ScriptDocument::Impl::onDocumentSave( const ScriptDocument& /*_rDocument*/ )
1003 : {
1004 : // not interested in
1005 0 : }
1006 :
1007 0 : void ScriptDocument::Impl::onDocumentSaveDone( const ScriptDocument& /*_rDocument*/ )
1008 : {
1009 : // not interested in
1010 0 : }
1011 :
1012 0 : void ScriptDocument::Impl::onDocumentSaveAs( const ScriptDocument& /*_rDocument*/ )
1013 : {
1014 : // not interested in
1015 0 : }
1016 :
1017 0 : void ScriptDocument::Impl::onDocumentSaveAsDone( const ScriptDocument& /*_rDocument*/ )
1018 : {
1019 : // not interested in
1020 0 : }
1021 :
1022 0 : void ScriptDocument::Impl::onDocumentClosed( const ScriptDocument& _rDocument )
1023 : {
1024 : DBG_TESTSOLARMUTEX();
1025 : OSL_PRECOND( isValid(), "ScriptDocument::Impl::onDocumentClosed: should not be listening if I'm not valid!" );
1026 :
1027 0 : bool bMyDocument = m_xDocument == _rDocument.getDocument();
1028 : OSL_PRECOND( bMyDocument, "ScriptDocument::Impl::onDocumentClosed: didn't want to know *this*!" );
1029 0 : if ( bMyDocument )
1030 : {
1031 0 : m_bDocumentClosed = true;
1032 : }
1033 0 : }
1034 :
1035 :
1036 0 : void ScriptDocument::Impl::onDocumentTitleChanged( const ScriptDocument& /*_rDocument*/ )
1037 : {
1038 : // not interested in
1039 0 : }
1040 :
1041 0 : void ScriptDocument::Impl::onDocumentModeChanged( const ScriptDocument& /*_rDocument*/ )
1042 : {
1043 : // not interested in
1044 0 : }
1045 :
1046 :
1047 : //= ScriptDocument
1048 :
1049 0 : ScriptDocument::ScriptDocument()
1050 0 : :m_pImpl(new Impl)
1051 0 : { }
1052 :
1053 :
1054 0 : ScriptDocument::ScriptDocument( ScriptDocument::SpecialDocument _eType )
1055 0 : :m_pImpl( new Impl( Reference< XModel >() ) )
1056 : {
1057 : OSL_ENSURE( _eType == NoDocument, "ScriptDocument::ScriptDocument: unknown SpecialDocument type!" );
1058 : (void)_eType;
1059 0 : }
1060 :
1061 :
1062 0 : ScriptDocument::ScriptDocument( const Reference< XModel >& _rxDocument )
1063 0 : :m_pImpl( new Impl( _rxDocument ) )
1064 : {
1065 : OSL_ENSURE( _rxDocument.is(), "ScriptDocument::ScriptDocument: document must not be NULL!" );
1066 : // a NULL document results in an uninitialized instance, and for this
1067 : // purpose, there is a dedicated constructor
1068 0 : }
1069 :
1070 :
1071 0 : ScriptDocument::ScriptDocument( const ScriptDocument& _rSource )
1072 0 : :m_pImpl( _rSource.m_pImpl )
1073 : {
1074 0 : }
1075 :
1076 :
1077 0 : ScriptDocument::~ScriptDocument()
1078 : {
1079 0 : }
1080 :
1081 :
1082 0 : const ScriptDocument& ScriptDocument::getApplicationScriptDocument()
1083 : {
1084 0 : static ScriptDocument s_aApplicationScripts;
1085 0 : return s_aApplicationScripts;
1086 : }
1087 :
1088 :
1089 0 : ScriptDocument ScriptDocument::getDocumentForBasicManager( const BasicManager* _pManager )
1090 : {
1091 0 : if ( _pManager == SfxGetpApp()->GetBasicManager() )
1092 0 : return getApplicationScriptDocument();
1093 :
1094 0 : docs::Documents aDocuments;
1095 0 : lcl_getAllModels_throw( aDocuments, false );
1096 :
1097 0 : for ( docs::Documents::const_iterator doc = aDocuments.begin();
1098 0 : doc != aDocuments.end();
1099 : ++doc
1100 : )
1101 : {
1102 0 : const BasicManager* pDocBasicManager = ::basic::BasicManagerRepository::getDocumentBasicManager( doc->xModel );
1103 0 : if ( ( pDocBasicManager != SfxGetpApp()->GetBasicManager() )
1104 0 : && ( pDocBasicManager == _pManager )
1105 : )
1106 : {
1107 0 : return ScriptDocument( doc->xModel );
1108 : }
1109 : }
1110 :
1111 : OSL_FAIL( "ScriptDocument::getDocumentForBasicManager: did not find a document for this manager!" );
1112 0 : return ScriptDocument( NoDocument );
1113 : }
1114 :
1115 :
1116 0 : ScriptDocument ScriptDocument::getDocumentWithURLOrCaption( const OUString& _rUrlOrCaption )
1117 : {
1118 0 : ScriptDocument aDocument( getApplicationScriptDocument() );
1119 0 : if ( _rUrlOrCaption.isEmpty() )
1120 0 : return aDocument;
1121 :
1122 0 : docs::Documents aDocuments;
1123 0 : lcl_getAllModels_throw( aDocuments, false );
1124 :
1125 0 : for ( docs::Documents::const_iterator doc = aDocuments.begin();
1126 0 : doc != aDocuments.end();
1127 : ++doc
1128 : )
1129 : {
1130 0 : const ScriptDocument aCheck = ScriptDocument( doc->xModel );
1131 0 : if ( _rUrlOrCaption == aCheck.getTitle()
1132 0 : || _rUrlOrCaption == aCheck.getURL()
1133 : )
1134 : {
1135 0 : aDocument = aCheck;
1136 0 : break;
1137 : }
1138 0 : }
1139 :
1140 0 : return aDocument;
1141 : }
1142 :
1143 :
1144 : namespace
1145 : {
1146 0 : struct DocumentTitleLess : public ::std::binary_function< ScriptDocument, ScriptDocument, bool >
1147 : {
1148 0 : DocumentTitleLess( const CollatorWrapper& _rCollator )
1149 0 : :m_aCollator( _rCollator )
1150 : {
1151 0 : }
1152 :
1153 0 : bool operator()( const ScriptDocument& _lhs, const ScriptDocument& _rhs ) const
1154 : {
1155 0 : return m_aCollator.compareString( _lhs.getTitle(), _rhs.getTitle() ) < 0;
1156 : }
1157 : private:
1158 : const CollatorWrapper m_aCollator;
1159 : };
1160 : }
1161 :
1162 :
1163 0 : ScriptDocuments ScriptDocument::getAllScriptDocuments( ScriptDocument::ScriptDocumentList _eListType )
1164 : {
1165 0 : ScriptDocuments aScriptDocs;
1166 :
1167 : // include application?
1168 0 : if ( _eListType == AllWithApplication )
1169 0 : aScriptDocs.push_back( getApplicationScriptDocument() );
1170 :
1171 : // obtain documents
1172 : try
1173 : {
1174 0 : docs::Documents aDocuments;
1175 0 : lcl_getAllModels_throw( aDocuments, true /* exclude invisible */ );
1176 :
1177 0 : for ( docs::Documents::const_iterator doc = aDocuments.begin();
1178 0 : doc != aDocuments.end();
1179 : ++doc
1180 : )
1181 : {
1182 : // exclude documents without script/library containers
1183 0 : ScriptDocument aDoc( doc->xModel );
1184 0 : if ( !aDoc.isValid() )
1185 0 : continue;
1186 :
1187 0 : aScriptDocs.push_back( aDoc );
1188 0 : }
1189 : }
1190 0 : catch( const Exception& )
1191 : {
1192 : DBG_UNHANDLED_EXCEPTION();
1193 : }
1194 :
1195 : // sort document list by doc title?
1196 0 : if ( _eListType == DocumentsSorted )
1197 : {
1198 0 : CollatorWrapper aCollator( ::comphelper::getProcessComponentContext() );
1199 0 : aCollator.loadDefaultCollator( SvtSysLocale().GetLanguageTag().getLocale(), 0 );
1200 0 : ::std::sort( aScriptDocs.begin(), aScriptDocs.end(), DocumentTitleLess( aCollator ) );
1201 : }
1202 :
1203 0 : return aScriptDocs;
1204 : }
1205 :
1206 :
1207 0 : bool ScriptDocument::operator==( const ScriptDocument& _rhs ) const
1208 : {
1209 0 : return m_pImpl->getDocumentRef() == _rhs.m_pImpl->getDocumentRef();
1210 : }
1211 :
1212 :
1213 0 : sal_Int32 ScriptDocument::hashCode() const
1214 : {
1215 0 : return sal::static_int_cast<sal_Int32>(reinterpret_cast< sal_IntPtr >( m_pImpl->getDocumentRef().get() ));
1216 : }
1217 :
1218 :
1219 0 : bool ScriptDocument::isValid() const
1220 : {
1221 0 : return m_pImpl->isValid();
1222 : }
1223 :
1224 :
1225 0 : bool ScriptDocument::isAlive() const
1226 : {
1227 0 : return m_pImpl->isAlive();
1228 : }
1229 :
1230 :
1231 0 : Reference< XLibraryContainer > ScriptDocument::getLibraryContainer( LibraryContainerType _eType ) const
1232 : {
1233 0 : return m_pImpl->getLibraryContainer( _eType );
1234 : }
1235 :
1236 :
1237 0 : Reference< XNameContainer > ScriptDocument::getLibrary( LibraryContainerType _eType, const OUString& _rLibName, bool _bLoadLibrary ) const
1238 : {
1239 0 : return m_pImpl->getLibrary( _eType, _rLibName, _bLoadLibrary );
1240 : }
1241 :
1242 :
1243 0 : bool ScriptDocument::hasLibrary( LibraryContainerType _eType, const OUString& _rLibName ) const
1244 : {
1245 0 : return m_pImpl->hasLibrary( _eType, _rLibName );
1246 : }
1247 :
1248 :
1249 0 : Reference< XNameContainer > ScriptDocument::getOrCreateLibrary( LibraryContainerType _eType, const OUString& _rLibName ) const
1250 : {
1251 0 : return m_pImpl->getOrCreateLibrary( _eType, _rLibName );
1252 : }
1253 :
1254 :
1255 0 : void ScriptDocument::loadLibraryIfExists( LibraryContainerType _eType, const OUString& _rLibrary )
1256 : {
1257 0 : m_pImpl->loadLibraryIfExists( _eType, _rLibrary );
1258 0 : }
1259 :
1260 :
1261 0 : Sequence< OUString > ScriptDocument::getObjectNames( LibraryContainerType _eType, const OUString& _rLibName ) const
1262 : {
1263 0 : Sequence< OUString > aModuleNames;
1264 :
1265 : try
1266 : {
1267 0 : if ( hasLibrary( _eType, _rLibName ) )
1268 : {
1269 0 : Reference< XNameContainer > xLib( getLibrary( _eType, _rLibName, false ) );
1270 0 : if ( xLib.is() )
1271 0 : aModuleNames = xLib->getElementNames();
1272 : }
1273 : }
1274 0 : catch( const Exception& )
1275 : {
1276 : DBG_UNHANDLED_EXCEPTION();
1277 : }
1278 :
1279 : // sort
1280 0 : ::std::sort( aModuleNames.getArray() , aModuleNames.getArray() + aModuleNames.getLength() , StringCompareLessThan );
1281 :
1282 0 : return aModuleNames;
1283 : }
1284 :
1285 :
1286 0 : OUString ScriptDocument::createObjectName( LibraryContainerType _eType, const OUString& _rLibName ) const
1287 : {
1288 0 : OUString aObjectName;
1289 :
1290 0 : OUString aBaseName = _eType == E_SCRIPTS ? OUString("Module") : OUString("Dialog");
1291 :
1292 0 : Sequence< OUString > aUsedNames( getObjectNames( _eType, _rLibName ) );
1293 0 : ::std::set< OUString > aUsedNamesCheck;
1294 0 : ::std::copy( aUsedNames.getConstArray(), aUsedNames.getConstArray() + aUsedNames.getLength(),
1295 0 : ::std::insert_iterator< ::std::set< OUString > >( aUsedNamesCheck, aUsedNamesCheck.begin() ) );
1296 :
1297 0 : bool bValid = false;
1298 0 : sal_Int32 i = 1;
1299 0 : while ( !bValid )
1300 : {
1301 0 : aObjectName = aBaseName;
1302 0 : aObjectName += OUString::number( i );
1303 :
1304 0 : if ( aUsedNamesCheck.find( aObjectName ) == aUsedNamesCheck.end() )
1305 0 : bValid = true;
1306 :
1307 0 : ++i;
1308 : }
1309 :
1310 0 : return aObjectName;
1311 : }
1312 :
1313 :
1314 0 : Sequence< OUString > ScriptDocument::getLibraryNames() const
1315 : {
1316 0 : return GetMergedLibraryNames( getLibraryContainer( E_SCRIPTS ), getLibraryContainer( E_DIALOGS ) );
1317 : }
1318 :
1319 :
1320 0 : bool ScriptDocument::isReadOnly() const
1321 : {
1322 0 : return m_pImpl->isReadOnly();
1323 : }
1324 :
1325 :
1326 0 : bool ScriptDocument::isApplication() const
1327 : {
1328 0 : return m_pImpl->isApplication();
1329 : }
1330 :
1331 0 : bool ScriptDocument::isInVBAMode() const
1332 : {
1333 0 : return m_pImpl->isInVBAMode();
1334 : }
1335 :
1336 :
1337 0 : BasicManager* ScriptDocument::getBasicManager() const
1338 : {
1339 0 : return m_pImpl->getBasicManager();
1340 : }
1341 :
1342 :
1343 0 : Reference< XModel > ScriptDocument::getDocument() const
1344 : {
1345 0 : return m_pImpl->getDocument();
1346 : }
1347 :
1348 :
1349 0 : Reference< XModel > ScriptDocument::getDocumentOrNull() const
1350 : {
1351 0 : if ( isDocument() )
1352 0 : return m_pImpl->getDocument();
1353 0 : return NULL;
1354 : }
1355 :
1356 :
1357 0 : bool ScriptDocument::removeModule( const OUString& _rLibName, const OUString& _rModuleName ) const
1358 : {
1359 0 : return m_pImpl->removeModuleOrDialog( E_SCRIPTS, _rLibName, _rModuleName );
1360 : }
1361 :
1362 :
1363 0 : bool ScriptDocument::hasModule( const OUString& _rLibName, const OUString& _rModuleName ) const
1364 : {
1365 0 : return m_pImpl->hasModuleOrDialog( E_SCRIPTS, _rLibName, _rModuleName );
1366 : }
1367 :
1368 :
1369 0 : bool ScriptDocument::getModule( const OUString& _rLibName, const OUString& _rModName, OUString& _out_rModuleSource ) const
1370 : {
1371 0 : Any aCode;
1372 0 : if ( !m_pImpl->getModuleOrDialog( E_SCRIPTS, _rLibName, _rModName, aCode ) )
1373 0 : return false;
1374 0 : OSL_VERIFY( aCode >>= _out_rModuleSource );
1375 0 : return true;
1376 : }
1377 :
1378 :
1379 0 : bool ScriptDocument::renameModule( const OUString& _rLibName, const OUString& _rOldName, const OUString& _rNewName ) const
1380 : {
1381 0 : return m_pImpl->renameModuleOrDialog( E_SCRIPTS, _rLibName, _rOldName, _rNewName, NULL );
1382 : }
1383 :
1384 :
1385 0 : bool ScriptDocument::createModule( const OUString& _rLibName, const OUString& _rModName, bool _bCreateMain, OUString& _out_rNewModuleCode ) const
1386 : {
1387 0 : if ( !m_pImpl->createModule( _rLibName, _rModName, _bCreateMain, _out_rNewModuleCode ) )
1388 0 : return false;
1389 :
1390 : // doc shell modified
1391 0 : MarkDocumentModified( *const_cast< ScriptDocument* >( this ) ); // here?
1392 0 : return true;
1393 : }
1394 :
1395 :
1396 0 : bool ScriptDocument::insertModule( const OUString& _rLibName, const OUString& _rModName, const OUString& _rModuleCode ) const
1397 : {
1398 0 : return m_pImpl->insertModuleOrDialog( E_SCRIPTS, _rLibName, _rModName, makeAny( _rModuleCode ) );
1399 : }
1400 :
1401 :
1402 0 : bool ScriptDocument::updateModule( const OUString& _rLibName, const OUString& _rModName, const OUString& _rModuleCode ) const
1403 : {
1404 0 : return m_pImpl->updateModule( _rLibName, _rModName, _rModuleCode );
1405 : }
1406 :
1407 :
1408 0 : bool ScriptDocument::removeDialog( const OUString& _rLibName, const OUString& _rDialogName ) const
1409 : {
1410 0 : return m_pImpl->removeModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName );
1411 : }
1412 :
1413 :
1414 0 : bool ScriptDocument::hasDialog( const OUString& _rLibName, const OUString& _rDialogName ) const
1415 : {
1416 0 : return m_pImpl->hasModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName );
1417 : }
1418 :
1419 :
1420 0 : bool ScriptDocument::getDialog( const OUString& _rLibName, const OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const
1421 : {
1422 0 : Any aCode;
1423 0 : if ( !m_pImpl->getModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName, aCode ) )
1424 0 : return false;
1425 0 : OSL_VERIFY( aCode >>= _out_rDialogProvider );
1426 0 : return _out_rDialogProvider.is();
1427 : }
1428 :
1429 :
1430 0 : bool ScriptDocument::renameDialog( const OUString& _rLibName, const OUString& _rOldName, const OUString& _rNewName, const Reference< XNameContainer >& _rxExistingDialogModel ) const
1431 : {
1432 0 : return m_pImpl->renameModuleOrDialog( E_DIALOGS, _rLibName, _rOldName, _rNewName, _rxExistingDialogModel );
1433 : }
1434 :
1435 :
1436 0 : bool ScriptDocument::createDialog( const OUString& _rLibName, const OUString& _rDialogName, Reference< XInputStreamProvider >& _out_rDialogProvider ) const
1437 : {
1438 0 : if ( !m_pImpl->createDialog( _rLibName, _rDialogName, _out_rDialogProvider ) )
1439 0 : return false;
1440 :
1441 0 : MarkDocumentModified( *const_cast< ScriptDocument* >( this ) ); // here?
1442 0 : return true;
1443 : }
1444 :
1445 :
1446 0 : bool ScriptDocument::insertDialog( const OUString& _rLibName, const OUString& _rDialogName, const Reference< XInputStreamProvider >& _rxDialogProvider ) const
1447 : {
1448 0 : return m_pImpl->insertModuleOrDialog( E_DIALOGS, _rLibName, _rDialogName, makeAny( _rxDialogProvider ) );
1449 : }
1450 :
1451 :
1452 0 : void ScriptDocument::setDocumentModified() const
1453 : {
1454 0 : m_pImpl->setDocumentModified();
1455 0 : }
1456 :
1457 :
1458 0 : bool ScriptDocument::isDocumentModified() const
1459 : {
1460 0 : return m_pImpl->isDocumentModified();
1461 : }
1462 :
1463 :
1464 0 : bool ScriptDocument::saveDocument( const Reference< XStatusIndicator >& _rxStatusIndicator ) const
1465 : {
1466 0 : return m_pImpl->saveDocument( _rxStatusIndicator );
1467 : }
1468 :
1469 :
1470 0 : LibraryLocation ScriptDocument::getLibraryLocation( const OUString& _rLibName ) const
1471 : {
1472 0 : LibraryLocation eLocation = LIBRARY_LOCATION_UNKNOWN;
1473 0 : if ( !_rLibName.isEmpty() )
1474 : {
1475 0 : if ( isDocument() )
1476 : {
1477 0 : eLocation = LIBRARY_LOCATION_DOCUMENT;
1478 : }
1479 : else
1480 : {
1481 0 : if ( ( hasLibrary( E_SCRIPTS, _rLibName ) && !m_pImpl->isLibraryShared( _rLibName, E_SCRIPTS ) )
1482 0 : || ( hasLibrary( E_DIALOGS, _rLibName ) && !m_pImpl->isLibraryShared( _rLibName, E_DIALOGS ) )
1483 : )
1484 : {
1485 0 : eLocation = LIBRARY_LOCATION_USER;
1486 : }
1487 : else
1488 : {
1489 0 : eLocation = LIBRARY_LOCATION_SHARE;
1490 : }
1491 : }
1492 : }
1493 :
1494 0 : return eLocation;
1495 : }
1496 :
1497 :
1498 0 : OUString ScriptDocument::getTitle( LibraryLocation _eLocation, LibraryType _eType ) const
1499 : {
1500 0 : OUString aTitle;
1501 :
1502 0 : switch ( _eLocation )
1503 : {
1504 : case LIBRARY_LOCATION_USER:
1505 : {
1506 0 : switch ( _eType )
1507 : {
1508 0 : case LIBRARY_TYPE_MODULE: aTitle = IDE_RESSTR(RID_STR_USERMACROS); break;
1509 0 : case LIBRARY_TYPE_DIALOG: aTitle = IDE_RESSTR(RID_STR_USERDIALOGS); break;
1510 0 : case LIBRARY_TYPE_ALL: aTitle = IDE_RESSTR(RID_STR_USERMACROSDIALOGS); break;
1511 : default:
1512 0 : break;
1513 : }
1514 0 : break;
1515 : case LIBRARY_LOCATION_SHARE:
1516 : {
1517 0 : switch ( _eType )
1518 : {
1519 0 : case LIBRARY_TYPE_MODULE: aTitle = IDE_RESSTR(RID_STR_SHAREMACROS); break;
1520 0 : case LIBRARY_TYPE_DIALOG: aTitle = IDE_RESSTR(RID_STR_SHAREDIALOGS); break;
1521 0 : case LIBRARY_TYPE_ALL: aTitle = IDE_RESSTR(RID_STR_SHAREMACROSDIALOGS); break;
1522 : default:
1523 0 : break;
1524 : }
1525 : }
1526 0 : break;
1527 : case LIBRARY_LOCATION_DOCUMENT:
1528 0 : aTitle = getTitle();
1529 0 : break;
1530 : default:
1531 0 : break;
1532 : }
1533 : }
1534 :
1535 0 : return aTitle;
1536 : }
1537 :
1538 :
1539 0 : OUString ScriptDocument::getTitle() const
1540 : {
1541 0 : return m_pImpl->getTitle();
1542 : }
1543 :
1544 :
1545 0 : OUString ScriptDocument::getURL() const
1546 : {
1547 0 : return m_pImpl->getURL();
1548 : }
1549 :
1550 :
1551 0 : bool ScriptDocument::isActive() const
1552 : {
1553 0 : bool bIsActive( false );
1554 : try
1555 : {
1556 0 : Reference< XFrame > xFrame;
1557 0 : if ( m_pImpl->getCurrentFrame( xFrame ) )
1558 0 : bIsActive = xFrame->isActive();
1559 : }
1560 0 : catch( const Exception& )
1561 : {
1562 : DBG_UNHANDLED_EXCEPTION();
1563 : }
1564 0 : return bIsActive;
1565 : }
1566 :
1567 :
1568 0 : bool ScriptDocument::allowMacros() const
1569 : {
1570 0 : return m_pImpl->allowMacros();
1571 : }
1572 :
1573 0 : } // namespace basctl
1574 :
1575 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
