VirtualBox

Changeset 85294 in vbox


Ignore:
Timestamp:
Jul 13, 2020 8:57:56 AM (4 years ago)
Author:
vboxsync
Message:

Main/comimpl.xsl: Some event cleanups. bugref:9790

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/VBox/Main/idl/comimpl.xsl

    r85293 r85294  
    257257    </xsl:otherwise>
    258258  </xsl:choose>
     259</xsl:template>
     260
     261<xsl:template name="genFormalParams">
     262  <xsl:param name="name" />
     263  <xsl:variable name="extends">
     264    <xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
     265  </xsl:variable>
     266
     267  <xsl:choose>
     268    <xsl:when test="$extends='IEvent'">
     269    </xsl:when>
     270    <xsl:when test="$extends='IReusableEvent'">
     271    </xsl:when>
     272    <xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
     273      <xsl:call-template name="genFormalParams">
     274        <xsl:with-param name="name" select="$extends" />
     275      </xsl:call-template>
     276    </xsl:when>
     277    <xsl:otherwise>
     278      <xsl:call-template name="fatalError">
     279        <xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
     280      </xsl:call-template>
     281    </xsl:otherwise>
     282  </xsl:choose>
     283
     284  <xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
     285    <xsl:variable name="aName" select="concat('a_',@name)"/>
     286    <xsl:variable name="aTypeName">
     287      <xsl:call-template name="typeIdl2Back">
     288        <xsl:with-param name="type" select="@type" />
     289        <xsl:with-param name="safearray" select="@safearray" />
     290        <xsl:with-param name="param" select="$aName" />
     291        <xsl:with-param name="dir" select="'in'" />
     292        <xsl:with-param name="mod" select="@mod" />
     293      </xsl:call-template>
     294    </xsl:variable>
     295    <xsl:value-of select="concat(', ',$aTypeName)"/>
     296  </xsl:for-each>
     297</xsl:template>
     298
     299<xsl:template name="genCallParams">
     300  <xsl:param name="name" />
     301  <xsl:variable name="extends">
     302    <xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
     303  </xsl:variable>
     304
     305  <xsl:choose>
     306    <xsl:when test="$extends='IEvent'">
     307    </xsl:when>
     308    <xsl:when test="$extends='IReusableEvent'">
     309    </xsl:when>
     310    <xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
     311      <xsl:call-template name="genCallParams">
     312        <xsl:with-param name="name" select="$extends" />
     313      </xsl:call-template>
     314    </xsl:when>
     315    <xsl:otherwise>
     316      <xsl:call-template name="fatalError">
     317        <xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
     318      </xsl:call-template>
     319    </xsl:otherwise>
     320  </xsl:choose>
     321
     322  <xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
     323    <xsl:variable name="aName" select="concat('a_',@name)"/>
     324    <xsl:choose>
     325      <xsl:when test="@safearray='yes'">
     326        <xsl:value-of select="concat(', ComSafeArrayInArg(',$aName,')')"/>
     327      </xsl:when>
     328      <xsl:otherwise>
     329        <xsl:value-of select="concat(', ',$aName)"/>
     330      </xsl:otherwise>
     331    </xsl:choose>
     332  </xsl:for-each>
    259333</xsl:template>
    260334
     
    709783  <xsl:text>    HRESULT hrc = </xsl:text>
    710784  <xsl:value-of select="concat('Create', $evname, '(ptrEvent.asOutParam(), aSource')"/>
    711   <xsl:call-template name="genFactParams">
     785  <xsl:call-template name="genCallParams">
    712786    <xsl:with-param name="name" select="$ifname" />
    713787  </xsl:call-template>
     
    771845</xsl:template>
    772846
    773 <xsl:template name="genFormalParams">
    774   <xsl:param name="name" />
    775   <xsl:variable name="extends">
    776     <xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
    777   </xsl:variable>
    778 
    779   <xsl:choose>
    780     <xsl:when test="$extends='IEvent'">
    781     </xsl:when>
    782     <xsl:when test="$extends='IReusableEvent'">
    783     </xsl:when>
    784     <xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
    785       <xsl:call-template name="genFormalParams">
    786         <xsl:with-param name="name" select="$extends" />
    787       </xsl:call-template>
    788     </xsl:when>
    789     <xsl:otherwise>
    790       <xsl:call-template name="fatalError">
    791         <xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
    792       </xsl:call-template>
    793     </xsl:otherwise>
    794   </xsl:choose>
    795 
    796   <xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
    797     <xsl:variable name="aName" select="concat('a_',@name)"/>
    798     <xsl:variable name="aTypeName">
    799       <xsl:call-template name="typeIdl2Back">
    800         <xsl:with-param name="type" select="@type" />
    801         <xsl:with-param name="safearray" select="@safearray" />
    802         <xsl:with-param name="param" select="$aName" />
    803         <xsl:with-param name="dir" select="'in'" />
    804         <xsl:with-param name="mod" select="@mod" />
    805       </xsl:call-template>
    806     </xsl:variable>
    807     <xsl:value-of select="concat(', ',$aTypeName)"/>
    808   </xsl:for-each>
    809 </xsl:template>
    810 
    811 <xsl:template name="genFactParams">
    812   <xsl:param name="name" />
    813   <xsl:variable name="extends">
    814     <xsl:value-of select="key('G_keyInterfacesByName', $name)/@extends" />
    815   </xsl:variable>
    816 
    817   <xsl:choose>
    818     <xsl:when test="$extends='IEvent'">
    819     </xsl:when>
    820     <xsl:when test="$extends='IReusableEvent'">
    821     </xsl:when>
    822     <xsl:when test="count(key('G_keyInterfacesByName', $extends)) > 0">
    823       <xsl:call-template name="genFactParams">
    824         <xsl:with-param name="name" select="$extends" />
    825       </xsl:call-template>
    826     </xsl:when>
    827     <xsl:otherwise>
    828       <xsl:call-template name="fatalError">
    829         <xsl:with-param name="msg" select="concat('No idea how to process it: ', $name)" />
    830       </xsl:call-template>
    831     </xsl:otherwise>
    832   </xsl:choose>
    833 
    834   <xsl:for-each select="key('G_keyInterfacesByName', $name)/attribute[@name != 'midlDoesNotLikeEmptyInterfaces']">
    835     <xsl:variable name="aName" select="concat('a_',@name)"/>
    836     <xsl:choose>
    837       <xsl:when test="@safearray='yes'">
    838         <xsl:value-of select="concat(', ComSafeArrayInArg(',$aName,')')"/>
    839       </xsl:when>
    840       <xsl:otherwise>
    841         <xsl:value-of select="concat(', ',$aName)"/>
    842       </xsl:otherwise>
    843     </xsl:choose>
    844   </xsl:for-each>
    845 </xsl:template>
    846 
    847847
    848848<!--
Note: See TracChangeset for help on using the changeset viewer.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette