26#include <com/sun/star/beans/XPropertySet.hpp>
27#include <com/sun/star/script/XLibraryContainer2.hpp>
28#include <com/sun/star/script/XLibraryContainerPassword.hpp>
29#include <com/sun/star/document/XEmbeddedScripts.hpp>
30#include <com/sun/star/uno/XComponentContext.hpp>
31#include <com/sun/star/xml/sax/SAXException.hpp>
67 throw RuntimeException(
"XMLBasicExporterBase::initialize: invalid number of arguments!" );
74 throw RuntimeException(
"XMLBasicExporterBase::initialize: invalid argument format!" );
88 throw IllegalArgumentException(
"XMLBasicExporter::setSourceDocument: no document model!", Reference< XInterface >(), 1 );
121 OUString aLibContElementName = aPrefix +
":libraries";
125 pLibContElement->addAttribute(
"xmlns:" + aPrefix, aURI );
131 m_xHandler->ignorableWhitespace( OUString() );
132 m_xHandler->startElement( aLibContElementName, pLibContElement );
134 Reference< script::XLibraryContainer2 > xLibContainer;
137 Reference< document::XEmbeddedScripts > xDocumentScripts(
m_xModel, UNO_QUERY );
138 if ( xDocumentScripts.is() )
139 xLibContainer = xDocumentScripts->getBasicLibraries();
141 if ( !xLibContainer.is() )
144 Reference< beans::XPropertySet > xPSet(
m_xModel, UNO_QUERY );
146 xPSet->getPropertyValue(
"BasicLibraries" ) >>= xLibContainer;
149 SAL_WARN_IF( !xLibContainer.is(),
"xmlscript.xmlflat",
"XMLBasicExporterBase::filter: nowhere to export to!" );
151 if ( xLibContainer.is() )
153 const Sequence< OUString > aLibNames = xLibContainer->getElementNames();
154 for (
const OUString& rLibName : aLibNames )
156 if ( xLibContainer->hasByName( rLibName ) )
160 if ( xLibContainer->isLibraryLink( rLibName ) )
163 OUString aLibElementName = aPrefix +
":library-linked";
167 pLibElement->addAttribute( aPrefix +
":name", rLibName );
169 OUString aLinkURL( xLibContainer->getLibraryLinkURL( rLibName ) );
170 if ( !aLinkURL.isEmpty() )
179 if ( xLibContainer->isLibraryReadOnly( rLibName ) )
182 pLibElement->addAttribute( aPrefix +
":readonly",
aTrueStr );
186 m_xHandler->ignorableWhitespace( OUString() );
187 m_xHandler->startElement( aLibElementName, pLibElement );
190 m_xHandler->ignorableWhitespace( OUString() );
196 OUString aLibElementName = aPrefix +
":library-embedded";
200 pLibElement->addAttribute( aPrefix +
":name", rLibName );
202 if ( xLibContainer->isLibraryReadOnly( rLibName ) )
205 pLibElement->addAttribute( aPrefix +
":readonly",
aTrueStr );
209 Reference< script::XLibraryContainerPassword > xPasswd( xLibContainer, UNO_QUERY );
210 if ( xPasswd.is() && xPasswd->isLibraryPasswordProtected( rLibName ) )
214 m_xHandler->ignorableWhitespace( OUString() );
215 m_xHandler->startElement( aLibElementName, pLibElement );
217 if ( !xLibContainer->isLibraryLoaded( rLibName ) )
218 xLibContainer->loadLibrary( rLibName );
220 Reference< container::XNameContainer > xLib;
221 xLibContainer->getByName( rLibName ) >>= xLib;
225 const Sequence< OUString > aModNames = xLib->getElementNames();
226 for (
const OUString& rModName : aModNames )
228 if ( xLib->hasByName( rModName ) )
231 OUString aModElementName = aPrefix +
":module";
235 pModElement->addAttribute( aPrefix +
":name", rModName );
238 m_xHandler->ignorableWhitespace( OUString() );
239 m_xHandler->startElement( aModElementName, pModElement );
242 OUString aSourceElementName = aPrefix +
":source-code";
246 m_xHandler->ignorableWhitespace( OUString() );
247 m_xHandler->startElement( aSourceElementName, pSourceElement );
252 xLib->getByName( rModName ) >>= aSource;
258 m_xHandler->ignorableWhitespace( OUString() );
262 m_xHandler->ignorableWhitespace( OUString() );
269 m_xHandler->ignorableWhitespace( OUString() );
277 m_xHandler->ignorableWhitespace( OUString() );
278 m_xHandler->endElement( aLibContElementName );
283 catch (
const container::NoSuchElementException& )
288 catch (
const lang::IllegalArgumentException& )
293 catch (
const lang::WrappedTargetException& )
298 catch (
const xml::sax::SAXException& )
327 return "com.sun.star.comp.xmlscript.XMLBasicExporter";
332 return {
"com.sun.star.document.XMLBasicExporter" };
350 return "com.sun.star.comp.xmlscript.XMLOasisBasicExporter";
355 return {
"com.sun.star.document.XMLOasisBasicExporter" };
360extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface *
362 css::uno::XComponentContext *,
363 css::uno::Sequence<css::uno::Any>
const &)
368extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface *
370 css::uno::XComponentContext *,
371 css::uno::Sequence<css::uno::Any>
const &)
virtual ~XMLBasicExporterBase() override
virtual void SAL_CALL initialize(const css::uno::Sequence< css::uno::Any > &aArguments) override
virtual sal_Bool SAL_CALL filter(const css::uno::Sequence< css::beans::PropertyValue > &aDescriptor) override
XMLBasicExporterBase(bool bOasis)
virtual void SAL_CALL cancel() override
css::uno::Reference< css::frame::XModel > m_xModel
virtual sal_Bool SAL_CALL supportsService(const OUString &ServiceName) override
css::uno::Reference< css::xml::sax::XDocumentHandler > m_xHandler
virtual void SAL_CALL setSourceDocument(const css::uno::Reference< css::lang::XComponent > &rxDoc) override
virtual css::uno::Sequence< OUString > SAL_CALL getSupportedServiceNames() override
virtual OUString SAL_CALL getImplementationName() override
virtual ~XMLBasicExporter() override
virtual ~XMLOasisBasicExporter() override
virtual OUString SAL_CALL getImplementationName() override
virtual css::uno::Sequence< OUString > SAL_CALL getSupportedServiceNames() override
#define TOOLS_INFO_EXCEPTION(area, stream)
Sequence< PropertyValue > aArguments
#define SAL_WARN_IF(condition, area, stream)
bool CPPUHELPER_DLLPUBLIC supportsService(css::lang::XServiceInfo *implementation, rtl::OUString const &name)
constexpr OUStringLiteral aTrueStr
SAL_DLLPUBLIC_EXPORT css::uno::XInterface * com_sun_star_comp_xmlscript_XMLOasisBasicExporter(css::uno::XComponentContext *, css::uno::Sequence< css::uno::Any > const &)
SAL_DLLPUBLIC_EXPORT css::uno::XInterface * com_sun_star_comp_xmlscript_XMLBasicExporter(css::uno::XComponentContext *, css::uno::Sequence< css::uno::Any > const &)
#define XMLNS_SCRIPT_PREFIX
constexpr OUStringLiteral XMLNS_XLINK_URI
#define XMLNS_XLINK_PREFIX
constexpr OUStringLiteral XMLNS_SCRIPT_URI
constexpr OUStringLiteral XMLNS_OOO_PREFIX
constexpr OUStringLiteral XMLNS_OOO_URI