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