b9a21c3c91c47e090316e28d759194e46628ed49vboxsync<xsl:stylesheet version = '1.0'

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync xmlns:xsl='http://www.w3.org/1999/XSL/Transform'

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync xmlns:vbox="http://www.virtualbox.org/"

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync xmlns:exsl="http://exslt.org/common"

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync extension-element-prefixes="exsl">

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync<!--

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync comimpl.xsl:

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync XSLT stylesheet that generates COM C++ classes implementing

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync interfaces described in VirtualBox.xidl.

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync For now we generate implementation for events, as they are

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync rather trivial container classes for their read-only attributes.

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync Further extension to other interfaces is possible and anticipated.

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync Copyright (C) 2010 Oracle Corporation

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync This file is part of VirtualBox Open Source Edition (OSE), as

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync available from http://www.virtualbox.org. This file is free software;

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync you can redistribute it and/or modify it under the terms of the GNU

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync General Public License (GPL) as published by the Free Software

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync Foundation, in version 2 as it comes in the "COPYING" file of the

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync VirtualBox OSE distribution. VirtualBox OSE is distributed in the

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync-->

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync<xsl:output

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync method="text"

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync version="1.0"

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync encoding="utf-8"

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync indent="no"/>

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync

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

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync<!-- $G_kind contains what kind of COM class implementation we generate -->

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync<xsl:variable name="G_xsltFilename" select="'autogen.xsl'" />

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync<xsl:template name="fileheader">

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync <xsl:param name="name" />

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync <xsl:text>/**

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync * Copyright (C) 2010 Oracle Corporation

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync *

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync * This file is part of VirtualBox Open Source Edition (OSE), as

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync * available from http://www.virtualbox.org. This file is free software;

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync * you can redistribute it and/or modify it under the terms of the GNU

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync * General Public License (GPL) as published by the Free Software

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync * Foundation, in version 2 as it comes in the "COPYING" file of the

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync * VirtualBox OSE distribution. VirtualBox OSE is distributed in the

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync * hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync *

b9a21c3c91c47e090316e28d759194e46628ed49vboxsync</xsl:text>

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

<xsl:text>

*

* DO NOT EDIT! This is a generated file.

* Generated from: src/VBox/Main/idl/VirtualBox.xidl (VirtualBox's interface definitions in XML)

* Generator: src/VBox/Main/idl/autogen.xsl

*/

</xsl:text>

</xsl:template>

<xsl:template name="genComEntry">

<xsl:param name="name" />

<xsl:variable name="extends">

<xsl:value-of select="//interface[@name=$name]/@extends" />

</xsl:variable>

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

<xsl:choose>

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

<xsl:value-of select=" ' COM_INTERFACE_ENTRY(IDispatch)&#10;'" />

</xsl:when>

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

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

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

</xsl:call-template>

</xsl:when>

<xsl:otherwise>

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

<xsl:with-param name="msg" select="concat('No idea how to process it: ', $extends)" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="typeIdl2Back">

<xsl:param name="type" />

<xsl:param name="safearray" />

<xsl:param name="param" />

<xsl:param name="dir" />

<xsl:choose>

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

<xsl:variable name="elemtype">

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

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

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

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

</xsl:call-template>

</xsl:variable>

<xsl:choose>

<xsl:when test="$param and ($dir='in')">

<xsl:value-of select="concat('ComSafeArrayIn(',$elemtype,',', $param,')')"/>

</xsl:when>

<xsl:when test="$param and ($dir='out')">

<xsl:value-of select="concat('ComSafeArrayOut(',$elemtype,', ', $param, ')')"/>

</xsl:when>

<xsl:otherwise>

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

</xsl:otherwise>

</xsl:choose>

</xsl:when>

<xsl:otherwise>

<xsl:choose>

<xsl:when test="(($type='wstring') or ($type='uuid')) and $param">

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

</xsl:when>

<xsl:when test="(($type='wstring') or ($type='uuid')) and not($param)">

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

</xsl:when>

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

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

</xsl:when>

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

<xsl:choose>

<xsl:when test="$param">

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

</xsl:when>

<xsl:otherwise>

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

</xsl:otherwise>

</xsl:choose>

</xsl:when>

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

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

</xsl:when>

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

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

</xsl:when>

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

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

</xsl:when>

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

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

</xsl:when>

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

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

</xsl:when>

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

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

</xsl:when>

<xsl:otherwise>

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

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

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

<xsl:if test="$dir='out'">

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

</xsl:if>

<xsl:if test="$param and not($param='_')">

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

</xsl:if>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="genSetParam">

<xsl:param name="member"/>

<xsl:param name="param"/>

<xsl:param name="type"/>

<xsl:param name="safearray"/>

<xsl:choose>

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

<xsl:variable name="elemtype">

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

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

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

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

</xsl:call-template>

</xsl:variable>

<xsl:value-of select="concat(' SafeArray&lt;', $elemtype, '&gt; aArr(ComSafeArrayInArg(',$param,'));&#10;')"/>

<xsl:value-of select="concat(' ',$member, '.initFrom(aArr);&#10;')"/>

</xsl:when>

<xsl:otherwise>

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

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="genRetParam">

<xsl:param name="member"/>

<xsl:param name="param"/>

<xsl:param name="type"/>

<xsl:param name="safearray"/>

<xsl:choose>

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

<xsl:variable name="elemtype">

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

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

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

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

</xsl:call-template>

</xsl:variable>

<xsl:value-of select="concat(' SafeArray&lt;', $elemtype,'&gt; result;&#10;')"/>

<xsl:value-of select="concat(' ', $member, '.cloneTo(result);&#10;')"/>

<xsl:value-of select="concat(' result.detachTo(ComSafeArrayOutArg(', $param, '));&#10;')"/>

</xsl:when>

<xsl:otherwise>

<xsl:choose>

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

<xsl:value-of select="concat(' ', $member, '.cloneTo(', $param, ');&#10;')"/>

</xsl:when>

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

<xsl:value-of select="concat(' ', $member, '.queryInterfaceTo(', $param, ');&#10;')"/>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="concat(' *', $param, ' = ', $member, ';&#10;')"/>

</xsl:otherwise>

</xsl:choose>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="genAttrInitCode">

<xsl:param name="name" />

<xsl:param name="obj" />

<xsl:variable name="extends">

<xsl:value-of select="//interface[@name=$name]/@extends" />

</xsl:variable>

<xsl:choose>

<xsl:when test="$extends='IEvent'">

</xsl:when>

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

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

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

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

</xsl:call-template>

</xsl:when>

<xsl:otherwise>

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

<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

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

<xsl:variable name="aName" select="concat('a_',@name)"/>

<xsl:variable name="aTypeName">

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

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

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

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

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

</xsl:call-template>

</xsl:variable>

<xsl:variable name="aType">

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

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

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

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

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

</xsl:call-template>

</xsl:variable>

<xsl:choose>

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

<xsl:variable name="elemtype">

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

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

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

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

</xsl:call-template>

</xsl:variable>

<xsl:value-of select=" '#ifdef RT_OS_WINDOWS&#10;'"/>

<xsl:value-of select=" ' SAFEARRAY ** aPtr = va_arg(args, SAFEARRAY **);&#10;'"/>

<xsl:value-of select="concat(' com::SafeArray&lt;', $elemtype,'&gt; aArr(aPtr);&#10;')"/>

<xsl:value-of select=" '#else&#10;'"/>

<xsl:value-of select=" ' PRUint32 aArrSize = va_arg(args, PRUint32);&#10;'"/>

<xsl:value-of select=" ' void* aPtr = va_arg(args, void*);&#10;'"/>

<xsl:value-of select="concat(' com::SafeArray&lt;', $elemtype,'&gt; aArr(aArrSize, (', $elemtype,'*)aPtr);&#10;')"/>

<xsl:value-of select=" '#endif&#10;'"/>

<xsl:value-of select="concat(' ',$obj, '->set_', @name, '(ComSafeArrayAsInParam(aArr));&#10;')"/>

</xsl:when>

<xsl:otherwise>

<xsl:value-of select="concat(' ',$aTypeName, ' = va_arg(args, ',$aType,');&#10;')"/>

<xsl:value-of select="concat(' ',$obj, '->set_', @name, '(',$aName, ');&#10;')"/>

</xsl:otherwise>

</xsl:choose>

</xsl:for-each>

</xsl:template>

<xsl:template name="genImplList">

<xsl:param name="impl" />

<xsl:param name="name" />

<xsl:param name="depth" />

<xsl:param name="parents" />

<xsl:variable name="extends">

<xsl:value-of select="//interface[@name=$name]/@extends" />

</xsl:variable>

<xsl:choose>

<xsl:when test="$extends='IEvent'">

<xsl:value-of select=" '#ifdef VBOX_WITH_XPCOM&#10;'" />

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

<xsl:value-of select="concat('NS_IMPL_THREADSAFE_ISUPPORTS',$depth,'_CI(', $impl, ', ', $name, $parents, ', IEvent)&#10;')" />

<xsl:value-of select=" '#endif&#10;&#10;'"/>

</xsl:when>

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

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

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

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

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

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

</xsl:call-template>

</xsl:when>

<xsl:otherwise>

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

<xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="genAttrCode">

<xsl:param name="name" />

<xsl:param name="depth" />

<xsl:param name="parents" />

<xsl:variable name="extends">

<xsl:value-of select="//interface[@name=$name]/@extends" />

</xsl:variable>

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

<xsl:variable name="mName">

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

</xsl:variable>

<xsl:variable name="mType">

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

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

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

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

</xsl:call-template>

</xsl:variable>

<xsl:variable name="pName">

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

</xsl:variable>

<xsl:variable name="pTypeNameOut">

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

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

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

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

<xsl:with-param name="dir" select="'out'" />

</xsl:call-template>

</xsl:variable>

<xsl:variable name="pTypeNameIn">

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

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

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

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

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

</xsl:call-template>

</xsl:variable>

<xsl:variable name="capsName">

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

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

</xsl:call-template>

</xsl:variable>

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

<xsl:value-of select="concat(' // attribute ', @name,'&#10;')" />

<xsl:value-of select=" 'private:&#10;'" />

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

<xsl:value-of select=" 'public:&#10;'" />

<xsl:value-of select="concat(' STDMETHOD(COMGETTER(', $capsName,'))(',$pTypeNameOut,') {&#10;')" />

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

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

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

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

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

</xsl:call-template>

<xsl:value-of select=" ' return S_OK;&#10;'" />

<xsl:value-of select=" ' }&#10;'" />

<xsl:if test="not(@readonly='yes')">

<xsl:value-of select="concat(' STDMETHOD(COMSETTER(', $capsName,'))(',$pTypeNameIn,') {&#10;')" />

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

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

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

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

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

</xsl:call-template>

<xsl:value-of select=" ' return S_OK;&#10;'" />

<xsl:value-of select=" ' }&#10;'" />

</xsl:if>

<xsl:value-of select=" ' // purely internal setter&#10;'" />

<xsl:value-of select="concat(' int set_', @name,'(',$pTypeNameIn, ') {&#10;')" />

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

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

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

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

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

</xsl:call-template>

<xsl:value-of select=" ' return S_OK;&#10;'" />

<xsl:value-of select=" ' }&#10;'" />

</xsl:for-each>

<xsl:choose>

<xsl:when test="$extends='IEvent'">

<xsl:value-of select=" ' // skipping IEvent attributes &#10;'" />

</xsl:when>

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

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

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

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

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

</xsl:call-template>

</xsl:when>

<xsl:otherwise>

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

<xsl:with-param name="msg" select="concat('No idea how to process it: ', $extends)" />

</xsl:call-template>

</xsl:otherwise>

</xsl:choose>

</xsl:template>

<xsl:template name="genEventImpl">

<xsl:param name="implName" />

<xsl:param name="isVeto" />

<xsl:value-of select="concat('class ATL_NO_VTABLE ',$implName,

' : public VirtualBoxBase, VBOX_SCRIPTABLE_IMPL(',

@name, ')&#10;{&#10;')" />

<xsl:value-of select="'public:&#10;'" />

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

<xsl:value-of select=" ' DECLARE_PROTECT_FINAL_CONSTRUCT()&#10;'" />

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

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

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

</xsl:call-template>

<xsl:value-of select=" ' END_COM_MAP()&#10;'" />

<xsl:value-of select="concat(' ', $implName, '() {}&#10;')" />

<xsl:value-of select="concat(' virtual ~', $implName, '() {}&#10;')" />

<xsl:text><![CDATA[

HRESULT FinalConstruct()

{

return mEvent.createObject();

}

void FinalRelease() {

mEvent->FinalRelease();

}

STDMETHOD(COMGETTER(Type)) (VBoxEventType_T *aType)

{

return ((VBoxEvent*)mEvent)->COMGETTER(Type) (aType);

}

STDMETHOD(COMGETTER(Source)) (IEventSource * *aSource)

{

return ((VBoxEvent*)mEvent)->COMGETTER(Source) (aSource);

}

STDMETHOD(COMGETTER(Waitable)) (BOOL *aWaitable)

{

return ((VBoxEvent*)mEvent)->COMGETTER(Waitable) (aWaitable);

}

STDMETHOD(SetProcessed)()

{

return ((VBoxEvent*)mEvent)->SetProcessed();

}

STDMETHOD(WaitProcessed)(LONG aTimeout, BOOL *aResult)

{

return ((VBoxEvent*)mEvent)->WaitProcessed(aTimeout, aResult);

}

void uninit()

{

mEvent->uninit();

}

]]></xsl:text>

<xsl:choose>

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

<xsl:text><![CDATA[

HRESULT init (IEventSource* aSource, VBoxEventType_T aType, BOOL aWaitable = TRUE)

{

NOREF(aWaitable);

return mEvent->init(aSource, aType);

}

STDMETHOD(AddVeto)(IN_BSTR aVeto)

{

return mEvent->AddVeto(aVeto);

}

STDMETHOD(IsVetoed)(BOOL *aResult)

{

return mEvent->IsVetoed(aResult);

}

STDMETHOD(GetVetos)(ComSafeArrayOut(BSTR, aVetos))

{

return mEvent->GetVetos(ComSafeArrayOutArg(aVetos));

}

private:

ComObjPtr<VBoxVetoEvent> mEvent;

]]></xsl:text>

</xsl:when>

<xsl:otherwise>

<xsl:text><![CDATA[

HRESULT init (IEventSource* aSource, VBoxEventType_T aType, BOOL aWaitable)

{

return mEvent->init(aSource, aType, aWaitable);

}

private:

ComObjPtr<VBoxEvent> mEvent;

]]></xsl:text>

</xsl:otherwise>

</xsl:choose>

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

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

</xsl:call-template>

<xsl:value-of select="'};&#10;'" />

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

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

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

<xsl:with-param name="depth" select="'2'" />

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

</xsl:call-template>

</xsl:template>

<xsl:template name="genSwitchCase">

<xsl:param name="implName" />

<xsl:variable name="waitable">

<xsl:choose>

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

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

</xsl:when>

<xsl:otherwise>

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

</xsl:otherwise>

</xsl:choose>

</xsl:variable>

<xsl:value-of select="concat(' case VBoxEventType_', @id, ':&#10;')"/>

<xsl:value-of select=" ' {&#10;'"/>

<xsl:value-of select="concat(' ComObjPtr&lt;', $implName, '&gt; obj;&#10;')"/>

<xsl:value-of select=" ' obj.createObject();&#10;'"/>

<xsl:value-of select="concat(' obj->init(aSource, aType, ', $waitable, ');&#10;')"/>

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

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

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

</xsl:call-template>

<xsl:value-of select=" ' obj.queryInterfaceTo(mEvent.asOutParam());&#10;'"/>

<xsl:value-of select=" ' break;&#10;'"/>

<xsl:value-of select=" ' }&#10;'"/>

</xsl:template>

<xsl:template name="genCommonEventCode">

<xsl:text><![CDATA[

HRESULT VBoxEventDesc::init(IEventSource* aSource, VBoxEventType_T aType, ...)

{

va_list args;

mEventSource = aSource;

va_start(args, aType);

switch (aType)

{

]]></xsl:text>

<xsl:for-each select="//interface[@autogen=$G_kind]">

<xsl:variable name="implName">

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

</xsl:variable>

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

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

</xsl:call-template>

</xsl:for-each>

<xsl:text><![CDATA[

default:

if (1) AssertFailed();

}

va_end(args);

return S_OK;

}

]]></xsl:text>

</xsl:template>

<xsl:template match="/">

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

<xsl:with-param name="name" select="'VBoxEvents.cpp'" />

</xsl:call-template>

<xsl:text><![CDATA[

#include <VBox/com/array.h>

#include "EventImpl.h"

]]></xsl:text>

<!-- Interfaces -->

<xsl:for-each select="//interface[@autogen=$G_kind]">

<xsl:value-of select="concat('// ', @name, ' implementation code &#10;')" />

<xsl:variable name="implName">

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

</xsl:variable>

<xsl:choose>

<xsl:when test="$G_kind='VBoxEvent'">

<xsl:variable name="isVeto">

<xsl:if test="@extends='IVetoEvent'">

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

</xsl:if>

</xsl:variable>

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

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

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

</xsl:call-template>

</xsl:when>

</xsl:choose>

</xsl:for-each>

<!-- Global code -->

<xsl:choose>

<xsl:when test="$G_kind='VBoxEvent'">

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

</xsl:call-template>

</xsl:when>

</xsl:choose>

</xsl:template>

</xsl:stylesheet>