<?xml version="1.0"?>

<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="*"/>

<xsl:variable name="G_xsltFilename" select="'websrv-wsdl2gsoapH.xsl'" />

<xsl:include href="websrv-shared.inc.xsl" />

<xsl:variable name="G_setSuppressedInterfaces"

select="//interface[@wsmap='suppress']" />

<xsl:template match="/wsdl:definitions">

<xsl:text><![CDATA[

]]></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&lt;', $ctypefield, '&gt;')" />

</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&lt;', $enumname, '&gt;')" />

</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&lt;vbox__', $withoutvboxtypefield, '*&gt;')" />

</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>

<xsl:template match="wsdl:types/xsd:schema">

<!-- 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, ' &quot;&quot;')" />

<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 &quot;name&quot;=&quot;', $requestmsg, '&quot;.')" />

</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 &quot;name&quot;=&quot;', $responsemsg, '&quot;.')" />

</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>