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/nmspmap.hxx>
  26 #include "xmloff/xmlnmspe.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 XMLStarBasicExportHandler::XMLStarBasicExportHandler() :
  36     sStarBasic("StarBasic"),
  37     sLibrary("Library"),
  38     sMacroName("MacroName"),
  39     sStarOffice("StarOffice"),
  40     sApplication("application")
  41 {
  42 }
  43
  44 XMLStarBasicExportHandler::~XMLStarBasicExportHandler()
  45 {
  46 }
  47
  48 void XMLStarBasicExportHandler::Export(
  49     SvXMLExport& rExport,
  50     const OUString& rEventQName,
  51     Sequence<PropertyValue> & rValues,
  52     sal_Bool bUseWhitespace)
  53 {
  54     rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_LANGUAGE,
  55                          rExport.GetNamespaceMap().GetQNameByKey(
  56                              XML_NAMESPACE_OOO, sStarBasic ) );
  57     rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_EVENT_NAME, rEventQName);
  58
  59     OUString sLocation, sName;
  60     sal_Int32 nCount = rValues.getLength();
  61     for(sal_Int32 i = 0; i < nCount; i++)
  62     {
  63         if (sLibrary.equals(rValues[i].Name))
  64         {
  65             OUString sTmp;
  66             rValues[i].Value >>= sTmp;
  67             sLocation = GetXMLToken(
  68                 (sTmp.equalsIgnoreAsciiCase(sApplication) ||
  69                  sTmp.equalsIgnoreAsciiCase(sStarOffice) ) ? XML_APPLICATION
  70                                                            : XML_DOCUMENT );
  71         }
  72         else if (sMacroName.equals(rValues[i].Name))
  73         {
  74             rValues[i].Value >>= sName;
  75         }
  76         // else: disregard
  77     }
  78
  79     if( !sLocation.isEmpty() )
  80     {
  81         OUStringBuffer sTmp( sLocation.getLength() + sName.getLength() + 1 );
  82         sTmp = sLocation;
  83         sTmp.append( sal_Unicode( ':' ) );
  84         sTmp.append( sName );
  85         rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_MACRO_NAME,
  86                             sTmp.makeStringAndClear());
  87     }
  88     else
  89     {
  90         rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_MACRO_NAME, sName );
  91     }
  92
  93     SvXMLElementExport aEventElemt(rExport, XML_NAMESPACE_SCRIPT,
  94                                    XML_EVENT_LISTENER,
  95                                    bUseWhitespace, sal_False);
  96 }
  97
  98 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */