29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync<?xml version="1.0"?>

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync

a16eb14ad7a4b5ef91ddc22d3e8e92d930f736fcvboxsync

1c94c0a63ba68be1a7b2c640e70d7a06464e4fcavboxsync<xsl:stylesheet

1c94c0a63ba68be1a7b2c640e70d7a06464e4fcavboxsync version="1.0"

1c94c0a63ba68be1a7b2c640e70d7a06464e4fcavboxsync xmlns:xsl="http://www.w3.org/1999/XSL/Transform"

1c94c0a63ba68be1a7b2c640e70d7a06464e4fcavboxsync xmlns:xsd="http://www.w3.org/2001/XMLSchema"

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync xmlns:exsl="http://exslt.org/common"

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync extension-element-prefixes="exsl">

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync <xsl:output method="text"/>

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync <xsl:strip-space elements="*"/>

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync

9c11b89c71ca727d975c39f2719063501ddcd03dvboxsync

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync<xsl:variable name="G_xsltFilename" select="'websrv-cpp.xsl'" />

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync

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

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync

8e034cd2a6b0c86697554278e970163287003bb9vboxsync<xsl:variable name="G_setSuppressedInterfaces"

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

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync

089c21a647af46044cad04a78cfdcfae814d2105vboxsync

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync<xsl:template match="/idl">

29bdc01040c07a3dd482a94a2cb8f0a90f8587a7vboxsync <xsl:text><![CDATA[

]]></xsl:text>

<xsl:for-each select="//interface">

<xsl:variable name="ifname" select="@name" />

<xsl:value-of select="concat('const char *g_pcsz', $ifname, ' = &quot;', $ifname, '&quot;;')" />

<xsl:call-template name="emitNewline" />

</xsl:for-each>

<xsl:apply-templates />

</xsl:template>

<xsl:template match="if">

<xsl:if test="@target='wsdl'">

<xsl:apply-templates/>

</xsl:if>

</xsl:template>

<xsl:template match="cpp">

</xsl:template>

<xsl:template match="library">

<xsl:text>

/****************************************************************************

*

* types: enum converter helper functions

*

****************************************************************************/

</xsl:text>

<!--

<xsl:for-each select="//enum">

<xsl:variable name="enumname" select="@name" />

<!-- generate enum converter for COM-to-SOAP -->

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat('vbox__', $enumname, ' ', $G_funcPrefixOutputEnumConverter, $enumname, '(', $enumname, '_T e)')" />

<xsl:call-template name="emitNewline" />

<xsl:text>{</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat(' vbox__', $enumname, ' v;')" />

<xsl:call-template name="emitNewline" />

<xsl:call-template name="emitNewline" />

<xsl:text> switch(e)</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:text> {</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:for-each select="const[not(@wsmap='suppress')]">

<xsl:variable name="enumconst" select="@name" />

<xsl:value-of select="concat(' case ', $enumname, '_', $enumconst, ':')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' v = vbox__', $enumname, '__')" />

<!-- escape all "_" in $enumconst -->

<xsl:call-template name="escapeUnderscores">

<xsl:with-param name="string" select="$enumconst" />

</xsl:call-template>

<xsl:value-of select="';'" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>break;</xsl:text>

<xsl:call-template name="emitNewline" />

</xsl:for-each>

<!-- Add a default case so gcc gives us a rest, esp. on darwin. -->

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>default:</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text> AssertMsgFailed(("e=%d\n", (int)e));</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' v = (vbox__', $enumname, ')0x7fffdead;')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>break; </xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:text> }</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:call-template name="emitNewline" />

<xsl:text> return v;</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:text>}</xsl:text>

<xsl:call-template name="emitNewline" />

<!-- generate enum converter for SOAP-to-COM -->

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat($enumname, '_T ', $G_funcPrefixInputEnumConverter, $enumname, '(vbox__', $enumname, ' v)')" />

<xsl:call-template name="emitNewline" />

<xsl:text>{</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat(' ', $enumname, '_T e;')" />

<xsl:call-template name="emitNewline" />

<xsl:call-template name="emitNewline" />

<xsl:text> switch(v)</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:text> {</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:for-each select="const[not(@wsmap='suppress')]">

<xsl:variable name="enumconst" select="@name" />

<xsl:value-of select="concat(' case vbox__', $enumname, '__')" />

<!-- escape all "_" in $enumconst -->

<xsl:call-template name="escapeUnderscores">

<xsl:with-param name="string" select="$enumconst" />

</xsl:call-template>

<xsl:value-of select="':'" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' e = ', $enumname, '_', $enumconst, ';')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>break;</xsl:text>

<xsl:call-template name="emitNewline" />

</xsl:for-each>

<!-- Insert a default case so gcc gives us a rest, esp. on darwin. -->

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>default:</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text> AssertMsgFailed(("v=%d\n", (int)v));</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' e = (', $enumname, '_T)0x7fffbeef;')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>break; </xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:text> }</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:call-template name="emitNewline" />

<xsl:text> return e;</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:text>}</xsl:text>

<xsl:call-template name="emitNewline" />

</xsl:for-each>

<xsl:text>

/****************************************************************************

*

* types: struct converter helper functions

*

****************************************************************************/

</xsl:text>

<xsl:for-each select="//interface[@wsmap='struct']">

<xsl:variable name="structname" select="@name" />

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat('// ', $structname, ' converter: called from method mappers to convert data from')" />

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat('// COM interface ', $structname, ', which has wsmap=&quot;struct&quot;, to SOAP structures')" />

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat('vbox__', $structname, '* ', $G_funcPrefixOutputEnumConverter, $structname, '(')" />

<xsl:call-template name="emitNewline" />

<xsl:value-of select="' struct soap *soap,'" />

<xsl:call-template name="emitNewline" />

<xsl:value-of select="' const WSDLT_ID &amp;idThis,'" />

<xsl:call-template name="emitNewline" />

<xsl:value-of select="' HRESULT &amp;rc,'" />

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat(' ComPtr&lt;', $structname, '&gt; &amp;in)')" />

<xsl:call-template name="emitNewline" />

<xsl:text>{</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat(' vbox__', $structname, ' *resp = NULL;')" />

<xsl:call-template name="emitNewline" />

<xsl:call-template name="emitPrologue"><xsl:with-param name="fSkipHRESULT" select="'1'"/></xsl:call-template>

<xsl:value-of select="concat(' resp = soap_new_vbox__', $structname, '(soap, -1);')" />

<xsl:call-template name="emitNewline" />

<xsl:call-template name="emitNewline" />

<xsl:for-each select="//interface[@name=$structname]/attribute">

<xsl:value-of select="concat(' // -- ', $structname, '.', @name)" />

<xsl:call-template name="emitNewline" />

<!-- recurse! -->

<xsl:call-template name="emitGetAttributeComCall">

<xsl:with-param name="ifname" select="$structname" />

<xsl:with-param name="object" select="'in'" />

<xsl:with-param name="attrname" select="@name" />

<xsl:with-param name="attrtype" select="@type" />

<xsl:with-param name="callerprefix" select="concat('out', '.')" />

</xsl:call-template>

<xsl:call-template name="emitNewline" />

</xsl:for-each>

<xsl:call-template name="emitEpilogue"><xsl:with-param name="fSkipHRESULT" select="'1'"/></xsl:call-template>

</xsl:for-each>

<xsl:apply-templates />

</xsl:template>

<xsl:template match="module/class">

</xsl:template>

<xsl:template match="enum">

</xsl:template>

<xsl:template match="desc">

</xsl:template>

<xsl:template match="note">

<xsl:apply-templates />

</xsl:template>

<xsl:template name="emitBeginOfFunctionHeader">

<xsl:param name="ifname" />

<xsl:param name="method" />

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat('int __vbox__', $ifname, '_USCORE', $method, '(')" />

<xsl:call-template name="emitNewline" />

<xsl:text> struct soap *soap</xsl:text>

</xsl:template>

<xsl:template name="emitCppTypeForIDLType">

<xsl:param name="method" />

<xsl:param name="type" />

<xsl:param name="safearray" />

<xsl:param name="varprefix" /> <!-- only with nested get-attribute calls -->

<xsl:param name="inptr" /> <!-- whether to add INPTR to BSTR (Dmitry template magic) -->

<!-- look up C++ glue type from IDL type from table array in websrv-shared.inc.xsl -->

<xsl:variable name="gluetypefield" select="exsl:node-set($G_aSharedTypes)/type[@idlname=$type]/@gluename" />

<xsl:choose>

<xsl:when test="$type='wstring' or $type='uuid'">

<xsl:choose>

<xsl:when test="$safearray='yes'">

<xsl:choose>

<xsl:when test="$inptr='yes'">

<xsl:value-of select="'com::SafeArray&lt;IN_BSTR&gt;'" /> <!-- input string arrays must use IN_BSTR (see com/array.h) -->

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="'com::SafeArray&lt;BSTR&gt;'" /> <!-- output string arrays use raw BSTR -->

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="'com::Bstr'" />

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<!-- if above lookup in table succeeded, use that type -->

<xsl:when test="string-length($gluetypefield)">

<xsl:call-template name="emitTypeOrArray">

<xsl:with-param name="type" select="$gluetypefield"/>

<xsl:with-param name="safearray" select="$safearray"/>

</xsl:call-template>

</xsl:when>

<xsl:when test="//enum[@name=$type]">

<xsl:call-template name="emitTypeOrArray">

<xsl:with-param name="type" select="concat($type, '_T ')"/>

<xsl:with-param name="safearray" select="$safearray"/>

</xsl:call-template>

</xsl:when>

<xsl:when test="$type='$unknown'">

<xsl:choose>

<xsl:when test="$safearray='yes'">

<xsl:value-of select="'com::SafeIfaceArray&lt;IUnknown&gt;'" />

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="'ComPtr&lt;IUnknown&gt;'" />

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:when test="//interface[@name=$type]">

<xsl:variable name="thatif" select="//interface[@name=$type]" />

<xsl:variable name="thatifname" select="$thatif/@name" />

<xsl:choose>

<xsl:when test="$safearray='yes'">

<xsl:value-of select="concat('com::SafeIfaceArray&lt;', $thatifname, '&gt;')" />

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="concat('ComPtr&lt;', $thatifname, '&gt;')" />

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitCppTypeForIDLType: Type &quot;', $type, '&quot; in method &quot;', $method, '&quot; is not supported.')" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="emitDocumentStyleArgStructs">

<xsl:param name="ifname" />

<xsl:param name="methodname" />

<xsl:param name="fOutputs" /> <!-- if 1, emit output struct as well -->

<xsl:text>,</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat(' _vbox__', $ifname, '_USCORE', $methodname, $G_requestMessageElementSuffix, ' *', $G_requestElementVarName)" />

<xsl:if test="$fOutputs">

<xsl:text>,</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:value-of select="concat(' _vbox__', $ifname, '_USCORE', $methodname, $G_responseMessageElementSuffix, ' *', $G_responseElementVarName)" />

<!-- <xsl:value-of select="concat(' struct ', $ifname, '__', $methodname, 'Response &amp;', $G_result)" /> -->

</xsl:if>

</xsl:template>

<xsl:template name="emitPrologue">

<xsl:text> WEBDEBUG((g_pcszEntering, __FUNCTION__));

do {</xsl:text>

<xsl:call-template name="emitNewline" />

</xsl:template>

<xsl:template name="emitEpilogue">

<xsl:param name="fSkipHRESULT" />

<xsl:text> } while (0);</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:call-template name="emitNewline" />

<xsl:text> WEBDEBUG((g_pcszLeaving, __FUNCTION__, rc, rc));</xsl:text>

<xsl:call-template name="emitNewline" />

<xsl:if test="not($fSkipHRESULT)">

<xsl:text>

if (FAILED(rc))

return SOAP_FAULT;

return SOAP_OK;</xsl:text>

</xsl:if>

<xsl:if test="$fSkipHRESULT">

<xsl:text> return resp;</xsl:text>

</xsl:if>

<xsl:call-template name="emitNewline" />

<xsl:text>}</xsl:text>

<xsl:call-template name="emitNewline" />

</xsl:template>

<xsl:template name="emitObjForMethod">

<xsl:param name="ifname" />

<xsl:param name="wsmap" />

<xsl:param name="structprefix" /> <!-- with WSDL document style: req element prefix, like "vbox__IVirtualBox_USCOREcreateMachineRequestElement->" -->

<xsl:choose>

<xsl:when test="$wsmap='global'">

<xsl:choose>

<xsl:when test="$ifname='IVirtualBox'">

<xsl:text> // invoke method on global IVirtualBox instance</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>ComPtr&lt;IVirtualBox&gt; pObj = G_pVirtualBox;</xsl:text>

<xsl:call-template name="emitNewline" />

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitObjForMethod: Unknown interface &quot;', $ifname, '&quot; with wsmap=global in XIDL.')" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:when test="($wsmap='managed')">

<xsl:text> // look up managed object reference for method call&#10;</xsl:text>

<xsl:value-of select="concat(' ComPtr&lt;', $ifname, '&gt; pObj;&#10;')" />

<xsl:value-of select="concat(' if (!', $G_requestElementVarName, ')&#10;')" />

<xsl:text> {&#10;</xsl:text>

<xsl:text> RaiseSoapInvalidObjectFault(soap, "");&#10;</xsl:text>

<xsl:text> break;&#10;</xsl:text>

<xsl:text> }&#10;</xsl:text>

<xsl:value-of select="concat(' const WSDLT_ID &amp;idThis = ', $structprefix, $G_nameObjectRefEncoded, ';&#10;')" />

<xsl:value-of select="' if ((rc = findComPtrFromId(soap, idThis, pObj, false)))&#10;'" />

<xsl:text> break;&#10;</xsl:text>

</xsl:when>

</xsl:choose>

</xsl:template>

<xsl:template name="emitInputArgConverter">

<xsl:param name="method" />

<xsl:param name="structprefix" /> <!-- with WSDL document style: req element prefix, like "vbox__IVirtualBox_USCOREcreateMachineRequestElement->" -->

<xsl:param name="name" />

<xsl:param name="type" />

<xsl:param name="safearray" />

<xsl:value-of select="concat(' // convert input arg ', $name)" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:choose>

<xsl:when test="$safearray='yes' and $type='octet'">

<xsl:value-of select="concat('com::SafeArray&lt;BYTE&gt; comcall_',$name, ';')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('Base64DecodeByteArray(',$structprefix,$name,', ComSafeArrayAsOutParam(comcall_',$name, '));')" />

</xsl:when>

<xsl:when test="$safearray='yes'">

<xsl:value-of select="concat('size_t c', $name, ' = ', $structprefix, $name, '.size();')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:call-template name="emitCppTypeForIDLType">

<xsl:with-param name="method" select="$method"/>

<xsl:with-param name="type" select="$type"/>

<xsl:with-param name="safearray" select="$safearray"/>

<xsl:with-param name="inptr" select="'yes'"/>

</xsl:call-template>

<xsl:value-of select="concat(' comcall_', $name, '(c', $name, ');')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('for (size_t i = 0; i &lt; c', $name, '; ++i)')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="'{'" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:choose>

<xsl:when test="$type='$unknown'">

<xsl:value-of select="' ComPtr&lt;IUnknown&gt; tmpObject;'" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' if ((rc = findComPtrFromId(soap, ', $structprefix, $name, '[i], tmpObject, true)))')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text> break;</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' IUnknown *tmpObject2(tmpObject); tmpObject2->AddRef(); comcall_', $name, '[i] = tmpObject;')" />

</xsl:when>

<xsl:when test="//interface[@name=$type]">

<xsl:value-of select="concat(' ComPtr&lt;', $type, '&gt; tmpObject;')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' if ((rc = findComPtrFromId(soap, ', $structprefix, $name, '[i], tmpObject, true)))')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text> break;</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' ', $type, ' *tmpObject2(tmpObject); tmpObject2->AddRef(); comcall_', $name, '[i] = tmpObject;')" />

</xsl:when>

<xsl:when test="$type='wstring'">

<xsl:value-of select="concat(' com::Bstr tmpObject(', $structprefix, $name, '[i].c_str());')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="' BSTR tmpObjectB;'" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="' tmpObject.detachTo(&amp;tmpObjectB);'" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' comcall_', $name, '[i] = tmpObjectB;')" />

</xsl:when>

<xsl:when test="$type='long'">

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' comcall_', $name, '[i] = ', $structprefix, $name, '[i];')" />

</xsl:when>

<xsl:when test="$type='boolean'">

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' comcall_', $name, '[i] = ', $structprefix, $name, '[i];')" />

</xsl:when>

<xsl:when test="//enum[@name=$type]">

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' comcall_', $name, '[i] = ', $G_funcPrefixInputEnumConverter, $type, '(', $structprefix, $name, '[i]);')" />

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitInputArgConverter Type &quot;', $type, '&quot; in arg &quot;', $name, '&quot; of method &quot;', $method, '&quot; is not yet supported in safearrays.')" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="'}'" />

<xsl:call-template name="emitNewline" />

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="emitCppTypeForIDLType">

<xsl:with-param name="method" select="$method"/>

<xsl:with-param name="type" select="$type"/>

<xsl:with-param name="safearray" select="$safearray"/>

<xsl:with-param name="inptr" select="'yes'"/>

</xsl:call-template>

<xsl:choose>

<xsl:when test="$type='wstring' or $type='uuid'">

<xsl:value-of select="concat(' comcall_', $name, '(', $structprefix, $name, '.c_str())')" />

</xsl:when>

<xsl:when test="//enum[@name=$type]">

<xsl:value-of select="concat(' comcall_', $name, ' = ', $G_funcPrefixInputEnumConverter, $type, '(', $structprefix, $name, ')')" />

</xsl:when>

<xsl:when test="$type='$unknown'">

<xsl:value-of select="concat(' comcall_', $name, ';')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('if ((rc = findComPtrFromId(soap, ', $structprefix, $name, ', comcall_', $name,', true)))')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text> break</xsl:text>

</xsl:when>

<xsl:when test="(//interface[@name=$type]) or (//collection[@name=$type])">

<!-- the type is one of our own interfaces: then it must have a wsmap attr -->

<xsl:variable name="thatif" select="(//interface[@name=$type]) | (//collection[@name=$type])" />

<xsl:variable name="wsmap" select="$thatif/@wsmap" />

<xsl:variable name="thatifname" select="$thatif/@name" />

<xsl:choose>

<xsl:when test="not($wsmap)">

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitInputArgConverter: Type &quot;', $type, '&quot; in arg &quot;', $name, '&quot; of method &quot;', $method, '&quot; lacks wsmap attribute in XIDL.')" />

</xsl:call-template>

</xsl:when>

<xsl:when test="($wsmap='managed')">

<xsl:value-of select="concat(' comcall_', $name, ';')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('if ((rc = findComPtrFromId(soap, ', $structprefix, $name, ', comcall_', $name,', true)))')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text> break</xsl:text>

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitInputArgConverter: Type &quot;', $type, '&quot; in arg &quot;', $name, '&quot; of method &quot;', $method, '&quot; has unsupported wsmap attribute value &quot;', $wsmap, '&quot; in XIDL.')" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="concat(' comcall_', $name, ' = ', $structprefix, $name)" />

</xsl:otherwise>

</xsl:choose>

<xsl:text>;

</xsl:text>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="emitTypeOrArray">

<xsl:param name="type" />

<xsl:param name="safearray" />

<xsl:choose>

<xsl:when test="$safearray='yes'">

<xsl:value-of select="concat('com::SafeArray&lt;', $type, '&gt;')" />

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="$type" />

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="emitOutputArgBuffer">

<xsl:param name="method" />

<xsl:param name="name" />

<xsl:param name="type" />

<xsl:param name="safearray" />

<xsl:param name="varprefix" /> <!-- only with nested get-attribute calls -->

<xsl:text> // com output arg for </xsl:text><xsl:value-of select="concat($name, ' (safearray: ', $safearray, ')')" /><xsl:text>

</xsl:text>

<xsl:call-template name="emitCppTypeForIDLType">

<xsl:with-param name="method" select="$method" />

<xsl:with-param name="type" select="$type" />

<xsl:with-param name="safearray" select="$safearray" />

</xsl:call-template>

<xsl:value-of select="concat(' comcall_', $varprefix, $name, ';')" />

<xsl:call-template name="emitNewline" />

</xsl:template>

<xsl:template name="emitOutParam">

<xsl:param name="name" />

<xsl:param name="type" />

<xsl:param name="safearray" />

<xsl:param name="varprefix" /> <!-- only with nested get-attribute calls -->

<xsl:variable name="varname" select="concat('comcall_', $varprefix, $name)" />

<xsl:choose>

<xsl:when test="$safearray='yes'">

<xsl:value-of select="concat('ComSafeArrayAsOutParam(', $varname, ')')" />

</xsl:when>

<xsl:otherwise>

<xsl:choose>

<xsl:when test=" ($type='boolean')

or (//enum[@name=$type])">

<xsl:text>&amp;</xsl:text><xsl:value-of select="$varname" />

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="$varname" /><xsl:text>.asOutParam()</xsl:text>

</xsl:otherwise>

</xsl:choose>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="emitComCall">

<xsl:param name="object" /> <!-- normally "pObj->" -->

<xsl:param name="methodname" />

<xsl:param name="attrname" /> <!-- with attributes only -->

<xsl:param name="attrtype" /> <!-- with attributes only -->

<xsl:param name="attrsafearray" /> <!-- with attributes only -->

<xsl:param name="attrdir" /> <!-- with attributes only: "in" or "return" -->

<xsl:param name="varprefix" /> <!-- only with nested get-attribute calls -->

<xsl:variable name="comMethodName">

<xsl:call-template name="capitalize"><xsl:with-param name="str" select="$methodname" /></xsl:call-template>

</xsl:variable>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('WEBDEBUG((g_pcszCallingComMethod, &quot;', $comMethodName, '&quot;));')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('rc = ', $object, '-&gt;', $comMethodName, '(')" />

<xsl:if test="$attrtype">

<xsl:choose>

<xsl:when test="$attrdir='in'">

<xsl:value-of select="concat('comcall_', $varprefix, @name)" />

<xsl:if test="$attrtype='wstring' or $attrtype='uuid'">

<xsl:text>.raw()</xsl:text>

</xsl:if>

</xsl:when>

<xsl:when test="$attrdir='return'">

<xsl:call-template name="emitOutParam">

<xsl:with-param name="name" select="$attrname" />

<xsl:with-param name="type" select="$attrtype" />

<xsl:with-param name="safearray" select="$attrsafearray" />

<xsl:with-param name="varprefix" select="$varprefix" />

</xsl:call-template>

</xsl:when>

</xsl:choose>

</xsl:if>

<xsl:for-each select="param">

<xsl:if test="position()=1">

<xsl:call-template name="emitNewline" />

</xsl:if>

<xsl:if test="position() > 1">

<xsl:text>,</xsl:text>

<xsl:call-template name="emitNewline" />

</xsl:if>

<xsl:text> </xsl:text>

<xsl:choose>

<xsl:when test="@dir='in'">

<xsl:choose>

<xsl:when test="@safearray='yes'">

<xsl:value-of select="concat('ComSafeArrayAsInParam(comcall_', $varprefix, @name, ')')" />

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="concat('comcall_', $varprefix, @name)" />

<xsl:if test="@type='wstring' or @type='uuid'">

<xsl:text>.raw()</xsl:text>

</xsl:if>

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:when test="@dir='out'">

<xsl:call-template name="emitOutParam">

<xsl:with-param name="name" select="@name" />

<xsl:with-param name="type" select="@type" />

<xsl:with-param name="safearray" select="@safearray" />

<xsl:with-param name="varprefix" select="$varprefix" />

</xsl:call-template>

</xsl:when>

<xsl:when test="@dir='return'">

<xsl:call-template name="emitOutParam">

<xsl:with-param name="name" select="$G_result" />

<xsl:with-param name="type" select="@type" />

<xsl:with-param name="safearray" select="@safearray" />

<xsl:with-param name="varprefix" select="$varprefix" />

</xsl:call-template>

</xsl:when>

</xsl:choose>

</xsl:for-each>

<xsl:text>);</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>if (FAILED(rc))</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>{</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' RaiseSoapRuntimeFault(soap, rc, ', $object, ');')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text> break;</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>}</xsl:text>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:text>WEBDEBUG((g_pcszDoneCallingComMethod));</xsl:text>

<xsl:call-template name="emitNewline" />

</xsl:template>

<xsl:template name="emitOutputArgBackConverter2">

<xsl:param name="name" />

<xsl:param name="varname" />

<xsl:param name="type" />

<xsl:param name="callerprefix" />

<xsl:choose>

<xsl:when test="$type='wstring' or $type='uuid'">

<xsl:value-of select="concat('ConvertComString(', $varname, ')')" />

</xsl:when>

<xsl:when test="$type='boolean'">

<!-- the "!!" avoids a microsoft compiler warning -->

<xsl:value-of select="concat('!!', $varname)" />

</xsl:when>

<xsl:when test=" ($type='octet')

or ($type='result')">

<xsl:value-of select="$varname" />

</xsl:when>

<xsl:when test="//enum[@name=$type]">

<xsl:value-of select="concat($G_funcPrefixOutputEnumConverter, $type, '(', $varname, ')')" />

</xsl:when>

<xsl:when test="$type='$unknown'">

<xsl:value-of select="concat('createOrFindRefFromComPtr(idThis, g_pcszIUnknown, ', $varname, ')')" />

</xsl:when>

<xsl:when test="//interface[@name=$type]">

<!-- the type is one of our own interfaces: then it must have a wsmap attr -->

<xsl:variable name="thatif" select="//interface[@name=$type]" />

<xsl:variable name="wsmap" select="$thatif/@wsmap" />

<xsl:variable name="thatifname" select="$thatif/@name" />

<xsl:choose>

<xsl:when test=" ($wsmap='managed') or ($wsmap='global')">

<xsl:value-of select="concat('createOrFindRefFromComPtr(idThis, g_pcsz', $thatifname, ', ', $varname, ')')" />

</xsl:when>

<xsl:when test="$wsmap='struct'">

<!-- prevent infinite recursion -->

<!-- <xsl:call-template name="fatalError"><xsl:with-param name="msg" select="concat('emitOutputArgBackConverter2: attempted infinite recursion for type &quot;', $type, '&quot; in arg &quot;', $name, '&quot; of method &quot;', $ifname, '::', $method)" /></xsl:call-template> -->

<xsl:if test="not($callerprefix)">

<xsl:value-of select="concat('/* convert COM interface to struct */ ', $G_funcPrefixOutputEnumConverter, $type, '(soap, idThis, rc, ', $varname, ')')" />

</xsl:if>

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitOutputArgBackConverter2: Type &quot;', $type, '&quot; in arg &quot;', $name, '&quot; of method &quot;', $ifname, '::', $method, '&quot; has invalid wsmap attribute value &quot;', $wsmap, '&quot; in XIDL.')" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:when test="//collection[@name=$type]">

<!-- the type is a collection of our own types: then build an array from it -->

<xsl:variable name="collectiontype" select="//collection[@name=$type]/@type" />

<xsl:variable name="targetwsmap" select="//interface[@name=$collectiontype]/@wsmap" />

<xsl:value-of select="concat('soap_new_vbox__ArrayOf', $collectiontype, '(soap, -1);')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:variable name="enumerator" select="concat('comcall_', $callerprefix, $name, '_enum')" />

<xsl:value-of select="concat('ComPtr&lt;', $collectiontype, 'Enumerator&gt; ', $enumerator, ';')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('CHECK_ERROR_BREAK( comcall_', $callerprefix, $name, ', Enumerate(', $enumerator, '.asOutParam()) );')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('BOOL comcall_', $callerprefix, $name, '_hasmore = FALSE;')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="'do {'" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' CHECK_ERROR_BREAK( ', $enumerator, ', HasMore(&amp;comcall_', $callerprefix, $name, '_hasmore) );')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' if (!comcall_', $callerprefix, $name, '_hasmore) break;')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' ComPtr&lt;', $collectiontype, '&gt; arrayitem;')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' CHECK_ERROR_BREAK( ', $enumerator, ', GetNext(arrayitem.asOutParam()) );')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' // collection of &quot;', $collectiontype, '&quot;, target interface wsmap: &quot;', $targetwsmap, '&quot;')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' ', $G_responseElementVarName, '-&gt;', $G_result)" />

<xsl:value-of select="'->array.push_back('" />

<xsl:choose>

<xsl:when test="($targetwsmap='managed')">

<xsl:value-of select="concat('createOrFindRefFromComPtr(idThis, g_pcsz', $collectiontype, ', arrayitem));')" />

</xsl:when>

<xsl:when test="$targetwsmap='struct'">

<xsl:value-of select="concat($G_funcPrefixOutputEnumConverter, $collectiontype, '(soap, idThis, rc, arrayitem));')" />

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitOutputArgBackConverter2: Type &quot;', $collectiontype, '&quot; of collection &quot;', $type, '&quot;, used in method &quot;', $method, '&quot;, has unsupported wsmap &quot;', $targetwsmap, '&quot;.')" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="'} while (1)'" />

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitOutputArgBackConverter2: Type &quot;', $type, '&quot; in arg &quot;', $name, '&quot; of method &quot;', $method, '&quot; is not supported.')" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="emitOutputArgBackConverter">

<xsl:param name="ifname" />

<xsl:param name="method" />

<xsl:param name="name" />

<xsl:param name="type" />

<xsl:param name="safearray" />

<xsl:param name="varprefix" /> <!-- only when called recursively from emitGetAttributeComCall -->

<xsl:param name="callerprefix" /> <!-- only for out params or when called recursively from emitGetAttributeComCall -->

<xsl:variable name="topname" select="$name" />

<xsl:variable name="varname" select="concat('comcall_', $varprefix, $name)" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat('WEBDEBUG((g_pcszConvertComOutputBack, &quot;', $name, '&quot;));')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:variable name="receiverVariable">

<xsl:choose>

<xsl:when test="(not($varprefix))">

<xsl:choose>

<xsl:when test="$callerprefix"> <!-- callerprefix set but varprefix not: then this is an out parameter :-) -->

<xsl:value-of select="concat($G_responseElementVarName, '-&gt;', $name)" />

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="concat($G_responseElementVarName, '-&gt;', $G_result)" />

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="concat($callerprefix, $G_result, '-&gt;', $name)" />

</xsl:otherwise>

</xsl:choose>

</xsl:variable>

<xsl:choose>

<xsl:when test="$safearray='yes' and $type='octet'">

<xsl:value-of select="concat($receiverVariable, ' = Base64EncodeByteArray(ComSafeArrayAsInParam(', $varname,'));')" />

<xsl:call-template name="emitNewlineIndent8" />

</xsl:when>

<xsl:when test="$safearray='yes'">

<xsl:value-of select="concat('for (size_t i = 0; i &lt; ', $varname, '.size(); ++i)')" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="'{'" />

<xsl:call-template name="emitNewlineIndent8" />

<!-- look up C++ glue type from IDL type from table array in websrv-shared.inc.xsl -->

<xsl:variable name="gluetypefield" select="exsl:node-set($G_aSharedTypes)/type[@idlname=$type]/@gluename" />

<xsl:choose>

<xsl:when test="//interface[@name=$type]">

<xsl:value-of select="concat(' ComPtr&lt;', $type, '&gt; tmpObject(', $varname, '[i]);')" />

</xsl:when>

<xsl:when test="//enum[@name=$type]">

<xsl:value-of select="concat(' ', $type, '_T tmpObject(', $varname, '[i]);')" />

</xsl:when>

<xsl:when test="$type='$unknown'">

<xsl:value-of select="concat(' ComPtr&lt;IUnknown&gt; tmpObject(', $varname, '[i]);')" />

</xsl:when>

<xsl:when test="$type='wstring' or $type='uuid'">

<xsl:value-of select="concat(' com::Bstr tmpObject(', $varname, '[i]);')" />

</xsl:when>

<xsl:when test="$gluetypefield">

<xsl:value-of select="concat(' ', $gluetypefield, ' tmpObject(', $varname, '[i]);')" />

</xsl:when>

<xsl:otherwise>

<xsl:call-template name="fatalError">

<xsl:with-param name="msg" select="concat('emitOutputArgBackConverter (1): Type &quot;', $type, '&quot; in arg &quot;', $name, '&quot; of method &quot;', $method, '&quot; is not yet supported in safearrays.')" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="concat(' ', $receiverVariable, '.push_back(')" />

<xsl:call-template name="emitOutputArgBackConverter2">

<xsl:with-param name="name" select="$name"/>

<xsl:with-param name="varname" select="'tmpObject'"/>

<xsl:with-param name="type" select="$type"/>

<xsl:with-param name="callerprefix" select="$callerprefix"/>

</xsl:call-template>

<xsl:value-of select="');'" />

<xsl:call-template name="emitNewlineIndent8" />

<xsl:value-of select="'}'" />

<xsl:call-template name="emitNewline" />

</xsl:when>

<xsl:otherwise>

<!-- emit variable name: "resp->retval = " -->

<xsl:value-of select="$receiverVariable" />

<xsl:value-of select="' = '" />

<xsl:call-template name="emitOutputArgBackConverter2">

<xsl:with-param name="name" select="$name"/>

<xsl:with-param name="varname" select="$varname"/>

<xsl:with-param name="type" select="$type"/>

<xsl:with-param name="callerprefix" select="$callerprefix"/>

</xsl:call-template>

<xsl:value-of select="';'" />

<xsl:call-template name="emitNewline" />

</xsl:otherwise>

</xsl:choose>

<xsl:value-of select="concat(' WEBDEBUG((g_pcszDoneConvertingComOutputBack, &quot;', $name, '&quot;));')" />

<xsl:call-template name="emitNewline" />

</xsl:template>

<xsl:template name="emitGetAttributeComCall">

<xsl:param name="ifname" />

<xsl:param name="object" /> <!-- normally "pObj->" -->

<xsl:param name="attrname" />

<xsl:param name="attrtype" />

<xsl:param name="attrsafearray" />

<xsl:param name="varprefix" /> <!-- only when called recursively from emitOutputArgBackConverter-->

<xsl:param name="callerprefix" /> <!-- only when called recursively from emitOutputArgBackConverter-->

<xsl:variable name="gettername"><xsl:call-template name="makeGetterName"><xsl:with-param name="attrname" select="$attrname" /></xsl:call-template></xsl:variable>

<xsl:call-template name="emitOutputArgBuffer">

<xsl:with-param name="ifname"><xsl:value-of select="$ifname" /></xsl:with-param>

<xsl:with-param name="method"><xsl:value-of select="$gettername" /></xsl:with-param>

<xsl:with-param name="name" select="$attrname" />

<xsl:with-param name="type" select="$attrtype" />

<xsl:with-param name="safearray" select="$attrsafearray" />

<xsl:with-param name="varprefix" select="$varprefix" />

</xsl:call-template>

<xsl:variable name="upperattrname"><xsl:call-template name="capitalize"><xsl:with-param name="str" select="$attrname" /></xsl:call-template></xsl:variable>

<!-- actual COM method call -->

<xsl:call-template name="emitComCall">

<xsl:with-param name="methodname" select="concat('COMGETTER(', $upperattrname, ')')" />

<xsl:with-param name="object" select="$object" />