xmloff/source/script/XMLScriptExportHandler.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <XMLScriptExportHandler.hxx>
  21
  22 #include <com/sun/star/beans/PropertyValue.hpp>
  23 #include <xmloff/xmlexp.hxx>
  24 #include <xmloff/xmltoken.hxx>
  25 #include <xmloff/namespacemap.hxx>
  26 #include <xmloff/xmlnamespace.hxx>
  27
  28
  29 using namespace ::com::sun::star::uno;
  30 using namespace ::xmloff::token;
  31
  32 using ::com::sun::star::beans::PropertyValue;
  33
  34 constexpr OUStringLiteral gsURL(u"Script");
  35
  36 XMLScriptExportHandler::XMLScriptExportHandler()
  37 {
  38 }
  39
  40 XMLScriptExportHandler::~XMLScriptExportHandler()
  41 {
  42 }
  43
  44 void XMLScriptExportHandler::Export(
  45     SvXMLExport& rExport,
  46     const OUString& rEventQName,
  47     const Sequence<PropertyValue> & rValues,
  48     bool bUseWhitespace)
  49 {
  50
  51     rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_LANGUAGE,
  52                          rExport.GetNamespaceMap().GetQNameByKey(
  53                              XML_NAMESPACE_OOO, GetXMLToken(XML_SCRIPT) ) );
  54     rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_EVENT_NAME, rEventQName);
  55
  56     for(const auto& rValue : rValues)
  57     {
  58         if (gsURL == rValue.Name)
  59         {
  60             OUString sTmp;
  61             rValue.Value >>= sTmp;
  62             rExport.AddAttribute(XML_NAMESPACE_XLINK, XML_HREF, sTmp);
  63
  64             // #i110911# xlink:type="simple" is required
  65             rExport.AddAttribute(XML_NAMESPACE_XLINK, XML_TYPE, XML_SIMPLE);
  66         }
  67         // else: disregard
  68     }
  69
  70     SvXMLElementExport aEventElemt(rExport, XML_NAMESPACE_SCRIPT,
  71                                    XML_EVENT_LISTENER,
  72                                    bUseWhitespace, false);
  73 }
  74
  75 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */