websrv-wsdl2gsoapH.xsl revision 92a27575521748a392dcd1b996fce55b87411a00
<?xml version="1.0"?>
<!--
XSLT stylesheet that generates vboxweb_gsoapH.h from
VirtualBox.xidl.Such "header" files can be fed into
gSOAP's soapcpp2 to create web service client headers
and server stubs. (The reason for this appears to be
that gSOAP predates WSDL and thus needed some format
to describe the syntax of a web service. gSOAP these
days comes with wsdl2h, which converts a WSDL file
to gSOAP's "header" format, but that has license
problems and so we generate the gSOAP "header" via
XSLT.)
Copyright (C) 2006-2007 Sun Microsystems, Inc.
This file is part of VirtualBox Open Source Edition (OSE), as
available from http://www.virtualbox.org. This file is free software;
General Public License (GPL) as published by the Free Software
Foundation, in version 2 as it comes in the "COPYING" file of the
VirtualBox OSE distribution. VirtualBox OSE is distributed in the
hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa
Clara, CA 95054 USA or visit http://www.sun.com if you need
additional information or have any questions.
-->
<xsl:stylesheet
version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
xmlns:vbox="http://www.virtualbox.org/"
xmlns:exsl="http://exslt.org/common"
extension-element-prefixes="exsl"
>
<xsl:param name="G_argDebug" />
<xsl:output method="text"/>
<xsl:strip-space elements="*"/>
<!-- - - - - - - - - - - - - - - - - - - - - - -
global XSLT variables
- - - - - - - - - - - - - - - - - - - - - - -->
<!-- collect all interfaces with "wsmap='suppress'" in a global variable for
quick lookup -->
<xsl:variable name="G_setSuppressedInterfaces"
select="//interface[@wsmap='suppress']" />
<!-- - - - - - - - - - - - - - - - - - - - - - -
root match
- - - - - - - - - - - - - - - - - - - - - - -->
<xsl:template match="/wsdl:definitions">
<xsl:text><![CDATA[
/* DO NOT EDIT! This is a generated file.
* Generated from: vboxweb.wsdl (generated WSDL file)
* Generator: src/VBox/Main/webservice/websrv-gsoapH.xsl
*
* Note: This is not a real C/C++ header file. Instead, gSOAP uses files like this
* one -- with a pseudo-C-header syntax -- to describe a web service API.
*/
// STL vector containers
#import "stlvector.h"
]]></xsl:text>
<xsl:value-of select="concat('//gsoap vbox schema namespace: ', $G_targetNamespace)" />
<xsl:value-of select="concat('//gsoap vbox schema form: unqualified', '')" />
<xsl:text>
/****************************************************************************
*
* declarations
*
****************************************************************************/
// forward declarations
class _vbox__InvalidObjectFault;
class _vbox__RuntimeFault;
struct SOAP_ENV__Detail
{
_vbox__InvalidObjectFault *vbox__InvalidObjectFault;
_vbox__RuntimeFault *vbox__RuntimeFault;
int __type;
void *fault;
_XML __any;
};</xsl:text>
<xsl:call-template name="emitNewline" />
<xsl:apply-templates />
</xsl:template>
<xsl:template name="convertSequence">
<xsl:param name="xmltype" />
<xsl:param name="ctype" />
<xsl:value-of select="concat('class ', $ctype)" />
<xsl:call-template name="emitNewline" />
<xsl:text>{</xsl:text>
<xsl:call-template name="emitNewline" />
<xsl:text> public:</xsl:text>
<xsl:call-template name="emitNewline" />
<xsl:for-each select="xsd:element">
<xsl:variable name="typefield" select="@type" />
<xsl:variable name="xmltypefield" select="substring($typefield, 5)" /><!-- remove "xsd:" prefix-->
<xsl:variable name="withoutvboxtypefield" select="substring($typefield, 6)" /><!-- remove "vbox:" prefix-->
<xsl:variable name="ctypefield" select="exsl:node-set($G_aSharedTypes)/type[@xmlname=$xmltypefield]/@cname" />
<xsl:text> </xsl:text>
<xsl:choose>
<xsl:when test="$ctypefield">
<!-- array or simple type: depends on whether maxOccurs="unbounded" is in WSDL -->
<xsl:choose>
<xsl:when test="@maxOccurs='unbounded'">
<xsl:value-of select="concat('std::vector<', $ctypefield, '>')" />
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="$ctypefield" />
</xsl:otherwise>
</xsl:choose>
</xsl:when>
<!-- is there an enum of this type? (look up in simple types) -->
<xsl:when test="//xsd:simpleType[@name=$withoutvboxtypefield]">
<xsl:variable name="enumname">
<xsl:value-of select="concat('enum vbox__', $withoutvboxtypefield)" />
</xsl:variable>
<xsl:choose>
<xsl:when test="@maxOccurs='unbounded'">
<xsl:value-of select="concat('std::vector<', $enumname, '>')" />
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="$enumname" />
</xsl:otherwise>
</xsl:choose>
</xsl:when>
<!-- is this one of the vbox types? (look up in complex types) -->
<xsl:when test="//xsd:complexType[@name=$withoutvboxtypefield]">
<!-- array or simple type: depends on whether maxOccurs="unbounded" is in WSDL -->
<xsl:choose>
<xsl:when test="@maxOccurs='unbounded'">
<xsl:value-of select="concat('std::vector<vbox__', $withoutvboxtypefield, '*>')" />
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="concat('vbox__', $withoutvboxtypefield, '*')" />
</xsl:otherwise>
</xsl:choose>
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="concat('std::string', '')" />
</xsl:otherwise>
</xsl:choose>
<xsl:variable name="underscoredname">
<xsl:call-template name="escapeUnderscores">
<xsl:with-param name="string" select="@name" />
</xsl:call-template>
</xsl:variable>
<xsl:value-of select="concat(' ', $underscoredname, ' 1;')" />
<xsl:call-template name="emitNewline" />
</xsl:for-each>
<xsl:text> struct soap *soap;</xsl:text>
<xsl:call-template name="emitNewline" />
<xsl:text>};</xsl:text>
<xsl:call-template name="emitNewline" />
<xsl:call-template name="emitNewline" />
</xsl:template>
<!-- enums are represented as simple types -->
<xsl:for-each select="xsd:simpleType">
<xsl:variable name="ctype" select="concat('vbox__', @name)" />
<xsl:for-each select="xsd:restriction">
<xsl:value-of select="concat('enum ', $ctype)" />
<xsl:call-template name="emitNewline" />
<xsl:text>{</xsl:text>
<xsl:call-template name="emitNewline" />
<xsl:for-each select="xsd:enumeration">
<xsl:variable name="underscoredname">
<xsl:call-template name="escapeUnderscores">
<xsl:with-param name="string" select="@value" />
</xsl:call-template>
</xsl:variable>
<xsl:value-of select="concat(' ', $ctype, '__', $underscoredname)" />
<xsl:if test = "not(position()=last())" >
<xsl:text >,</xsl:text>
</xsl:if>
<xsl:call-template name="emitNewline" />
</xsl:for-each>
<xsl:text>};</xsl:text>
<xsl:call-template name="emitNewline" />
<xsl:call-template name="emitNewline" />
</xsl:for-each>
</xsl:for-each>
<!-- structs and arrays are represented as complex types -->
<xsl:for-each select="xsd:complexType">
<xsl:variable name="xmltype" select="@name" />
<xsl:variable name="ctype" select="concat('vbox__', $xmltype)" />
<xsl:for-each select="xsd:sequence">
<xsl:call-template name="convertSequence">
<xsl:with-param name="xmltype" select="$xmltype" />
<xsl:with-param name="ctype" select="$ctype" />
</xsl:call-template>
</xsl:for-each>
</xsl:for-each>
<!-- individual message elements are represented with xsd:element -> xsd:complexType -> xsdSequence -->
<xsl:for-each select="xsd:element">
<xsl:variable name="xmltype" select="@name" />
<xsl:variable name="underscoredname">
<xsl:call-template name="escapeUnderscores">
<xsl:with-param name="string" select="$xmltype" />
</xsl:call-template>
</xsl:variable>
<xsl:variable name="ctype" select="concat('_vbox__', $underscoredname)" />
<xsl:for-each select="xsd:complexType">
<xsl:for-each select="xsd:sequence">
<xsl:call-template name="convertSequence">
<xsl:with-param name="xmltype" select="$xmltype" />
<xsl:with-param name="ctype" select="$ctype" />
</xsl:call-template>
</xsl:for-each>
</xsl:for-each>
</xsl:for-each>
</xsl:template>
<xsl:template match="wsdl:portType">
<xsl:value-of select="concat('//gsoap vbox service name: vbox', $G_bindingSuffix)" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('//gsoap vbox service type: vbox', $G_portTypeSuffix)" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('//gsoap vbox service namespace: ', $G_targetNamespace, $G_targetNamespaceSeparator)" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('//gsoap vbox service transport: ', 'http://schemas.xmlsoap.org/soap/http')" />
<xsl:call-template name="emitNewline" />
<xsl:for-each select="wsdl:operation">
<xsl:variable name="methodname" select="@name" />
<xsl:variable name="cmethodname">
<xsl:call-template name="escapeUnderscores">
<xsl:with-param name="string" select="$methodname" />
</xsl:call-template>
</xsl:variable>
<xsl:variable name="requestmsg" select="concat($methodname, $G_methodRequest)" />
<xsl:variable name="responsemsg" select="concat($methodname, $G_methodResponse)" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('//gsoap vbox service method-style: ', $cmethodname, ' ', $G_basefmt)" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('//gsoap vbox service method-encoding: ', $cmethodname, ' ', $G_parmfmt)" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('//gsoap vbox service method-action: ', $cmethodname, ' ""')" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('//gsoap vbox service method-fault: ', $cmethodname, ' vbox__InvalidObjectFault')" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('//gsoap vbox service method-fault: ', $cmethodname, ' vbox__RuntimeFault')" />
<xsl:call-template name="emitNewline" />
<xsl:value-of select="concat('int __vbox__', $cmethodname, '(')" />
<xsl:call-template name="emitNewline" />
<!-- request element -->
<xsl:variable name="reqtype" select="//wsdl:message[@name=$requestmsg]/wsdl:part/@element" />
<xsl:if test="not($reqtype)">
<xsl:call-template name="fatalError">
<xsl:with-param name="msg" select="concat('wsdl:portType match: Cannot find message with "name"="', $requestmsg, '".')" />
</xsl:call-template>
</xsl:if>
<xsl:variable name="creqtype">
<xsl:call-template name="escapeUnderscores">
<xsl:with-param name="string" select="substring($reqtype, 6)" />
</xsl:call-template>
</xsl:variable>
<xsl:value-of select="concat(' _vbox__', $creqtype, '* vbox__', $creqtype, ',')"/>
<xsl:call-template name="emitNewline" />
<!-- response element -->
<xsl:variable name="resptype" select="//wsdl:message[@name=$responsemsg]/wsdl:part/@element" />
<xsl:if test="not($resptype)">
<xsl:call-template name="fatalError">
<xsl:with-param name="msg" select="concat('wsdl:portType match: Cannot find message with "name"="', $responsemsg, '".')" />
</xsl:call-template>
</xsl:if>
<xsl:variable name="cresptype">
<xsl:call-template name="escapeUnderscores">
<xsl:with-param name="string" select="substring($resptype, 6)" />
</xsl:call-template>
</xsl:variable>
<xsl:value-of select="concat(' _vbox__', $cresptype, '* vbox__', $cresptype)"/>
<xsl:call-template name="emitNewline" />
<xsl:text>);</xsl:text>
<xsl:call-template name="emitNewline" />
</xsl:for-each>
</xsl:template>
</xsl:stylesheet>