xmloff/source/script/XMLStarBasicExportHandler.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 <XMLStarBasicExportHandler.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
  35 constexpr OUStringLiteral gsStarBasic(u"StarBasic");
  36 constexpr OUStringLiteral gsLibrary(u"Library");
  37 constexpr OUStringLiteral gsMacroName(u"MacroName");
  38 constexpr OUStringLiteral gsStarOffice(u"StarOffice");
  39 constexpr OUStringLiteral gsApplication(u"application");
  40
  41 XMLStarBasicExportHandler::XMLStarBasicExportHandler()
  42 {
  43 }
  44
  45 XMLStarBasicExportHandler::~XMLStarBasicExportHandler()
  46 {
  47 }
  48
  49 void XMLStarBasicExportHandler::Export(
  50     SvXMLExport& rExport,
  51     const OUString& rEventQName,
  52     const Sequence<PropertyValue> & rValues,
  53     bool bUseWhitespace)
  54 {
  55     rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_LANGUAGE,
  56                          rExport.GetNamespaceMap().GetQNameByKey(
  57                              XML_NAMESPACE_OOO, gsStarBasic ) );
  58     rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_EVENT_NAME, rEventQName);
  59
  60     OUString sLocation, sName;
  61     for(const auto& rValue : rValues)
  62     {
  63         if (gsLibrary == rValue.Name)
  64         {
  65             OUString sTmp;
  66             rValue.Value >>= sTmp;
  67             sLocation = GetXMLToken(
  68                 (sTmp.equalsIgnoreAsciiCase(gsApplication) ||
  69                  sTmp.equalsIgnoreAsciiCase(gsStarOffice) ) ? XML_APPLICATION
  70                                                            : XML_DOCUMENT );
  71         }
  72         else if (gsMacroName == rValue.Name)
  73         {
  74             rValue.Value >>= sName;
  75         }
  76         // else: disregard
  77     }
  78
  79     if( !sLocation.isEmpty() )
  80     {
  81         OUString sTmp = sLocation + ":" + sName;
  82         rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_MACRO_NAME,
  83                             sTmp);
  84     }
  85     else
  86     {
  87         rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_MACRO_NAME, sName );
  88     }
  89
  90     SvXMLElementExport aEventElemt(rExport, XML_NAMESPACE_SCRIPT,
  91                                    XML_EVENT_LISTENER,
  92                                    bUseWhitespace, false);
  93 }
  94
  95 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */