1*cdf0e10cSrcweir /*************************************************************************
2*cdf0e10cSrcweir  *
3*cdf0e10cSrcweir  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4*cdf0e10cSrcweir  *
5*cdf0e10cSrcweir  * Copyright 2000, 2010 Oracle and/or its affiliates.
6*cdf0e10cSrcweir  *
7*cdf0e10cSrcweir  * OpenOffice.org - a multi-platform office productivity suite
8*cdf0e10cSrcweir  *
9*cdf0e10cSrcweir  * This file is part of OpenOffice.org.
10*cdf0e10cSrcweir  *
11*cdf0e10cSrcweir  * OpenOffice.org is free software: you can redistribute it and/or modify
12*cdf0e10cSrcweir  * it under the terms of the GNU Lesser General Public License version 3
13*cdf0e10cSrcweir  * only, as published by the Free Software Foundation.
14*cdf0e10cSrcweir  *
15*cdf0e10cSrcweir  * OpenOffice.org is distributed in the hope that it will be useful,
16*cdf0e10cSrcweir  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17*cdf0e10cSrcweir  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18*cdf0e10cSrcweir  * GNU Lesser General Public License version 3 for more details
19*cdf0e10cSrcweir  * (a copy is included in the LICENSE file that accompanied this code).
20*cdf0e10cSrcweir  *
21*cdf0e10cSrcweir  * You should have received a copy of the GNU Lesser General Public License
22*cdf0e10cSrcweir  * version 3 along with OpenOffice.org.  If not, see
23*cdf0e10cSrcweir  * <http://www.openoffice.org/license.html>
24*cdf0e10cSrcweir  * for a copy of the LGPLv3 License.
25*cdf0e10cSrcweir  *
26*cdf0e10cSrcweir  ************************************************************************/
27*cdf0e10cSrcweir 
28*cdf0e10cSrcweir // MARKER(update_precomp.py): autogen include statement, do not remove
29*cdf0e10cSrcweir #include "precompiled_xmlscript.hxx"
30*cdf0e10cSrcweir 
31*cdf0e10cSrcweir #include <xmlscript/xmlmod_imexp.hxx>
32*cdf0e10cSrcweir #include <xmlscript/xml_helper.hxx>
33*cdf0e10cSrcweir 
34*cdf0e10cSrcweir using namespace com::sun::star::uno;
35*cdf0e10cSrcweir using namespace com::sun::star;
36*cdf0e10cSrcweir using namespace rtl;
37*cdf0e10cSrcweir 
38*cdf0e10cSrcweir namespace xmlscript
39*cdf0e10cSrcweir {
40*cdf0e10cSrcweir 
41*cdf0e10cSrcweir //==================================================================================================
42*cdf0e10cSrcweir 
43*cdf0e10cSrcweir void
44*cdf0e10cSrcweir SAL_CALL exportScriptModule(
45*cdf0e10cSrcweir 	Reference< xml::sax::XExtendedDocumentHandler > const & xOut,
46*cdf0e10cSrcweir 	const ModuleDescriptor& rMod )
47*cdf0e10cSrcweir 		SAL_THROW( (Exception) )
48*cdf0e10cSrcweir {
49*cdf0e10cSrcweir 	xOut->startDocument();
50*cdf0e10cSrcweir 
51*cdf0e10cSrcweir     OUString aDocTypeStr( RTL_CONSTASCII_USTRINGPARAM(
52*cdf0e10cSrcweir         "<!DOCTYPE script:module PUBLIC \"-//OpenOffice.org//DTD OfficeDocument 1.0//EN\""
53*cdf0e10cSrcweir         " \"module.dtd\">" ) );
54*cdf0e10cSrcweir 	xOut->unknown( aDocTypeStr );
55*cdf0e10cSrcweir 	xOut->ignorableWhitespace( OUString() );
56*cdf0e10cSrcweir 
57*cdf0e10cSrcweir 	OUString aModuleName( RTL_CONSTASCII_USTRINGPARAM(XMLNS_SCRIPT_PREFIX ":module") );
58*cdf0e10cSrcweir 	XMLElement* pModElement = new XMLElement( aModuleName );
59*cdf0e10cSrcweir 	Reference< xml::sax::XAttributeList > xAttributes( pModElement );
60*cdf0e10cSrcweir 
61*cdf0e10cSrcweir 	pModElement->addAttribute( OUString( RTL_CONSTASCII_USTRINGPARAM("xmlns:" XMLNS_SCRIPT_PREFIX) ),
62*cdf0e10cSrcweir 							    OUString( RTL_CONSTASCII_USTRINGPARAM(XMLNS_SCRIPT_URI) ) );
63*cdf0e10cSrcweir 
64*cdf0e10cSrcweir 	pModElement->addAttribute( OUString( RTL_CONSTASCII_USTRINGPARAM(XMLNS_SCRIPT_PREFIX ":name") ),
65*cdf0e10cSrcweir 								rMod.aName );
66*cdf0e10cSrcweir 	pModElement->addAttribute( OUString( RTL_CONSTASCII_USTRINGPARAM(XMLNS_SCRIPT_PREFIX ":language") ),
67*cdf0e10cSrcweir 								rMod.aLanguage );
68*cdf0e10cSrcweir 	if( rMod.aModuleType.getLength()>0 )
69*cdf0e10cSrcweir 		pModElement->addAttribute( OUString( RTL_CONSTASCII_USTRINGPARAM(XMLNS_SCRIPT_PREFIX ":moduleType") ),
70*cdf0e10cSrcweir 									rMod.aModuleType );
71*cdf0e10cSrcweir 
72*cdf0e10cSrcweir 	xOut->ignorableWhitespace( OUString() );
73*cdf0e10cSrcweir 	xOut->startElement( aModuleName, xAttributes );
74*cdf0e10cSrcweir 	xOut->characters( rMod.aCode );
75*cdf0e10cSrcweir 	xOut->endElement( aModuleName );
76*cdf0e10cSrcweir 	xOut->endDocument();
77*cdf0e10cSrcweir }
78*cdf0e10cSrcweir 
79*cdf0e10cSrcweir }
80*cdf0e10cSrcweir 
81