xmloff/source/script/XMLStarBasicExportHandler.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: XMLStarBasicExportHandler.cxx,v $
  10  * $Revision: 1.11 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_xmloff.hxx"
  33 #include "XMLStarBasicExportHandler.hxx"
  34
  35 #ifndef _COM_SUN_STAR_BEANS_PROPERTYVALUE_HPP
  36 #include <com/sun/star/beans/PropertyValue.hpp>
  37 #endif
  38 #include <tools/debug.hxx>
  39 #include <xmloff/xmlexp.hxx>
  40 #include <xmloff/xmltoken.hxx>
  41 #include <xmloff/nmspmap.hxx>
  42 #include "xmlnmspe.hxx"
  43
  44
  45 using namespace ::com::sun::star::uno;
  46 using namespace ::xmloff::token;
  47
  48 using ::rtl::OUString;
  49 using ::rtl::OUStringBuffer;
  50 using ::com::sun::star::beans::PropertyValue;
  51
  52
  53 XMLStarBasicExportHandler::XMLStarBasicExportHandler() :
  54     sStarBasic(RTL_CONSTASCII_USTRINGPARAM("StarBasic")),
  55     sLibrary(RTL_CONSTASCII_USTRINGPARAM("Library")),
  56     sMacroName(RTL_CONSTASCII_USTRINGPARAM("MacroName")),
  57     sStarOffice(RTL_CONSTASCII_USTRINGPARAM("StarOffice")),
  58     sApplication(RTL_CONSTASCII_USTRINGPARAM("application"))
  59 {
  60 }
  61
  62 XMLStarBasicExportHandler::~XMLStarBasicExportHandler()
  63 {
  64 }
  65
  66 void XMLStarBasicExportHandler::Export(
  67     SvXMLExport& rExport,
  68     const OUString& rEventQName,
  69     Sequence<PropertyValue> & rValues,
  70     sal_Bool bUseWhitespace)
  71 {
  72     rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_LANGUAGE,
  73                          rExport.GetNamespaceMap().GetQNameByKey(
  74                              XML_NAMESPACE_OOO, sStarBasic ) );
  75     rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_EVENT_NAME, rEventQName);
  76
  77     OUString sLocation, sName;
  78     sal_Int32 nCount = rValues.getLength();
  79     for(sal_Int32 i = 0; i < nCount; i++)
  80     {
  81         if (sLibrary.equals(rValues[i].Name))
  82         {
  83             OUString sTmp;
  84             rValues[i].Value >>= sTmp;
  85             sLocation = GetXMLToken(
  86                 (sTmp.equalsIgnoreAsciiCase(sApplication) ||
  87                  sTmp.equalsIgnoreAsciiCase(sStarOffice) ) ? XML_APPLICATION
  88                                                            : XML_DOCUMENT );
  89         }
  90         else if (sMacroName.equals(rValues[i].Name))
  91         {
  92             rValues[i].Value >>= sName;
  93         }
  94         // else: disregard
  95     }
  96
  97     if( sLocation.getLength() )
  98     {
  99         OUStringBuffer sTmp( sLocation.getLength() + sName.getLength() + 1 );
 100         sTmp = sLocation;
 101         sTmp.append( sal_Unicode( ':' ) );
 102         sTmp.append( sName );
 103         rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_MACRO_NAME,
 104                             sTmp.makeStringAndClear());
 105     }
 106     else
 107     {
 108         rExport.AddAttribute(XML_NAMESPACE_SCRIPT, XML_MACRO_NAME, sName );
 109     }
 110
 111     SvXMLElementExport aEventElemt(rExport, XML_NAMESPACE_SCRIPT,
 112                                    XML_EVENT_LISTENER,
 113                                    bUseWhitespace, sal_False);
 114 }