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