73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync<?xml version="1.0"?>

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync<xsl:stylesheet

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync version="1.0"

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync xmlns:xsl="http://www.w3.org/1999/XSL/Transform"

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync xmlns:xsd="http://www.w3.org/2001/XMLSchema"

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync xmlns:exsl="http://exslt.org/common"

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync extension-element-prefixes="exsl">

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync <xsl:output method="text"/>

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync <xsl:strip-space elements="*"/>

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync

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

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync

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

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync<xsl:variable name="G_setSuppressedInterfaces"

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

f7d0672fb68919a6a824f47d7ef72b9b7bd0c266vboxsync

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync<xsl:template match="/idl">

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync <xsl:text><![CDATA[

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync]]></xsl:text>

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

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

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

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync </xsl:for-each>

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync <xsl:apply-templates />

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync</xsl:template>

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync<xsl:template match="if">

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync <xsl:apply-templates/>

71a0530ccd741736d49c6798fd01cbc2956eea12vboxsync </xsl:if>

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync</xsl:template>

f7d0672fb68919a6a824f47d7ef72b9b7bd0c266vboxsync

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync<xsl:template match="cpp">

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync</xsl:template>

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

62f5aca659040a32b49dbcd84f555687d84ba9cfvboxsync<xsl:template match="library">

62f5aca659040a32b49dbcd84f555687d84ba9cfvboxsync <xsl:text>

62f5aca659040a32b49dbcd84f555687d84ba9cfvboxsync/****************************************************************************

62f5aca659040a32b49dbcd84f555687d84ba9cfvboxsync *

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync * types: enum converter helper functions

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync *

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync ****************************************************************************/

94e055188526aeeb119b5d60fe22bf7a302522dcvboxsync </xsl:text>

8479df0918362ee801608d4f48c6d8ee8fdf505evboxsync <!--

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

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

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

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

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

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

8dcec71b7a288828cf280aa9c60d5dd260388254vboxsync <xsl:text>{</xsl:text>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

710d24589d0cbe0ea6e9ad143eda5bbd41000693vboxsync </xsl:call-template>

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

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

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

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

9ca017ceee656f9d33f2cb6652e401b5f17fcfb7vboxsync </xsl:for-each>

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

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

8dcec71b7a288828cf280aa9c60d5dd260388254vboxsync <xsl:text>default:</xsl:text>

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

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

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

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

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

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync <xsl:text> }</xsl:text>

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

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

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync <xsl:text>}</xsl:text>

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

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

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

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync <xsl:text>{</xsl:text>

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

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

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

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

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync <xsl:text> {</xsl:text>

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

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

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

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

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

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync </xsl:call-template>

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

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

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

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

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync </xsl:for-each>

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

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

8479df0918362ee801608d4f48c6d8ee8fdf505evboxsync <xsl:text>default:</xsl:text>

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

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

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

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

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

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

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

8dcec71b7a288828cf280aa9c60d5dd260388254vboxsync <xsl:text> }</xsl:text>

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

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

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

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

9ca017ceee656f9d33f2cb6652e401b5f17fcfb7vboxsync <xsl:text>}</xsl:text>

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

9ca017ceee656f9d33f2cb6652e401b5f17fcfb7vboxsync </xsl:for-each>

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync <xsl:text>

8d82d07fc2f7234b1e5a3ba544e1086a5a7a7c5fvboxsync/****************************************************************************

8d82d07fc2f7234b1e5a3ba544e1086a5a7a7c5fvboxsync *

8d82d07fc2f7234b1e5a3ba544e1086a5a7a7c5fvboxsync * types: struct converter helper functions

8d82d07fc2f7234b1e5a3ba544e1086a5a7a7c5fvboxsync *

8d82d07fc2f7234b1e5a3ba544e1086a5a7a7c5fvboxsync ****************************************************************************/

8d82d07fc2f7234b1e5a3ba544e1086a5a7a7c5fvboxsync </xsl:text>

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync

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

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

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

73045e3d71f04f3d399e70e89fbd6395c4402821vboxsync <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_funcPrefixOutputStructConverter, $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:text> if (!in)&#10;</xsl:text>

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

<xsl:text> // @todo ambiguous. Problem is the MOR for the object converted to struct&#10;</xsl:text>

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

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

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

<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, '(safearray: ', $safearray, ')')" />

<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]">

<!-- 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="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="emitInParam">

<xsl:param name="name" />

<xsl:param name="type" />

<xsl:param name="safearray" />

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

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

<xsl:choose>

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

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

</xsl:when>

<xsl:otherwise>

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

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

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

</xsl:if>

</xsl:otherwise>

</xsl:choose>

</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:call-template name="emitInParam">

<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: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:call-template name="emitInParam">

<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='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_funcPrefixOutputStructConverter, $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: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" />

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

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

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

<xsl:with-param name="attrdir" select="'return'" />

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

</xsl:call-template>

<!-- convert back the output data -->

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

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