[ndoc-commits] CVS: ndoc/src/Documenter/Msdn/xslt vb-syntax.xslt,1.24,1.25

[Jean-Claude M. <jc...@us...>]

Update of /cvsroot/ndoc/ndoc/src/Documenter/Msdn/xslt
In directory sc8-pr-cvs1:/tmp/cvs-serv21310/src/Documenter/Msdn/xslt

Modified Files:
	vb-syntax.xslt 
Log Message:
Added attribute syntax for VB.

Index: vb-syntax.xslt
===================================================================
RCS file: /cvsroot/ndoc/ndoc/src/Documenter/Msdn/xslt/vb-syntax.xslt,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** vb-syntax.xslt	6 Mar 2003 04:43:52 -0000	1.24
--- vb-syntax.xslt	27 Jun 2003 00:32:37 -0000	1.25
***************
*** 1,4 ****
  <?xml version="1.0" encoding="UTF-8" ?>
! <xsl:transform version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  	<!-- -->
  	<xsl:param name="ndoc-vb-syntax" />
--- 1,8 ----
  <?xml version="1.0" encoding="UTF-8" ?>
! <xsl:transform version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
! 	xmlns:msxsl="urn:schemas-microsoft-com:xslt"
!     xmlns:user="urn:my-scripts"
!     exclude-result-prefixes="msxsl user"
! >
  	<!-- -->
  	<xsl:param name="ndoc-vb-syntax" />
***************
*** 54,110 ****
  			<div class="syntax">
  				<span class="lang">[Visual&#160;Basic]</span>
! 				<div>
! 				  <xsl:if test="@abstract = 'true'">
! 					  <xsl:text>MustInherit&#160;</xsl:text>
! 				  </xsl:if>
! 				  <xsl:if test="@sealed = 'true'">
! 					  <xsl:text>NotInheritable&#160;</xsl:text>
! 				  </xsl:if>
! 				  <xsl:call-template name="vb-type-access">
! 					  <xsl:with-param name="access" select="@access" />
! 					  <xsl:with-param name="type" select="local-name()" />
! 				  </xsl:call-template>
! 				  <xsl:text>&#160;</xsl:text>
! 				  <xsl:choose>
! 					  <xsl:when test="local-name() = 'class'">Class</xsl:when>
! 					  <xsl:when test="local-name() = 'interface'">Interface</xsl:when>
! 					  <xsl:when test="local-name() = 'structure'">Structure</xsl:when>
! 					  <xsl:when test="local-name() = 'enumeration'">Enum</xsl:when>
! 					  <xsl:when test="local-name() = 'delegate'">
! 						  <xsl:text>Delegate&#160;</xsl:text>
! 						  <xsl:choose>
! 							  <xsl:when test="@returnType = 'System.Void'">Sub</xsl:when>
! 							  <xsl:otherwise>Function</xsl:otherwise>
! 						  </xsl:choose>
! 					  </xsl:when>
! 					  <xsl:otherwise>ERROR</xsl:otherwise>
! 				  </xsl:choose>
! 				  <xsl:text>&#160;</xsl:text>
! 				  <xsl:value-of select="@name" />
! 				  <xsl:choose>
! 					  <xsl:when test="local-name() != 'delegate'">
! 						  <xsl:if test="@baseType">
! 							  <div>
! 							    <xsl:text>Inherits&#160;</xsl:text>
! 							    <xsl:value-of select="@baseType" />
! 							  </div>
! 						  </xsl:if>
! 						  <xsl:if test="implements[not(@inherited)]">
! 							  <div>
! 							    <xsl:text>Implements&#160;</xsl:text>
! 							    <xsl:for-each select="implements[not(@inherited)]">
! 								    <xsl:value-of select="." />
! 								    <xsl:if test="position()!=last()">
! 									    <xsl:text>, </xsl:text>
! 								    </xsl:if>
! 							    </xsl:for-each>
! 							   </div>
! 						  </xsl:if>
! 					  </xsl:when>
! 					  <xsl:otherwise>
! 						  <xsl:call-template name="vb-parameters" />
! 					  </xsl:otherwise>
! 				  </xsl:choose>
! 				 </div>
  			</div>
  		</xsl:if>
--- 58,114 ----
  			<div class="syntax">
  				<span class="lang">[Visual&#160;Basic]</span>
! 				<br/>
! 				<xsl:call-template name="vb-attributes"/>
! 				<xsl:if test="@abstract = 'true'">
! 					<xsl:text>MustInherit&#160;</xsl:text>
! 				</xsl:if>
! 				<xsl:if test="@sealed = 'true'">
! 					<xsl:text>NotInheritable&#160;</xsl:text>
! 				</xsl:if>
! 				<xsl:call-template name="vb-type-access">
! 					<xsl:with-param name="access" select="@access" />
! 					<xsl:with-param name="type" select="local-name()" />
! 				</xsl:call-template>
! 				<xsl:text>&#160;</xsl:text>
! 				<xsl:choose>
! 					<xsl:when test="local-name() = 'class'">Class</xsl:when>
! 					<xsl:when test="local-name() = 'interface'">Interface</xsl:when>
! 					<xsl:when test="local-name() = 'structure'">Structure</xsl:when>
! 					<xsl:when test="local-name() = 'enumeration'">Enum</xsl:when>
! 					<xsl:when test="local-name() = 'delegate'">
! 						<xsl:text>Delegate&#160;</xsl:text>
! 						<xsl:choose>
! 							<xsl:when test="@returnType = 'System.Void'">Sub</xsl:when>
! 							<xsl:otherwise>Function</xsl:otherwise>
! 						</xsl:choose>
! 					</xsl:when>
! 					<xsl:otherwise>ERROR</xsl:otherwise>
! 				</xsl:choose>
! 				<xsl:text>&#160;</xsl:text>
! 				<xsl:value-of select="@name" />
! 				<xsl:choose>
! 					<xsl:when test="local-name() != 'delegate'">
! 						<xsl:if test="@baseType">
! 							<div>
! 							<xsl:text>Inherits&#160;</xsl:text>
! 							<xsl:value-of select="@baseType" />
! 							</div>
! 						</xsl:if>
! 						<xsl:if test="implements[not(@inherited)]">
! 							<div>
! 							<xsl:text>Implements&#160;</xsl:text>
! 							<xsl:for-each select="implements[not(@inherited)]">
! 								<xsl:value-of select="." />
! 								<xsl:if test="position()!=last()">
! 									<xsl:text>, </xsl:text>
! 								</xsl:if>
! 							</xsl:for-each>
! 							</div>
! 						</xsl:if>
! 					</xsl:when>
! 					<xsl:otherwise>
! 						<xsl:call-template name="vb-parameters" />
! 					</xsl:otherwise>
! 				</xsl:choose>
  			</div>
  		</xsl:if>
***************
*** 214,217 ****
--- 218,222 ----
  				<span class="lang">[Visual&#160;Basic]</span>
  				<br />
+ 				<xsl:call-template name="vb-attributes"/>
  				<xsl:choose>
  					<xsl:when test="local-name() != 'operator'">
***************
*** 287,290 ****
--- 292,296 ----
  				<span class="lang">[Visual&#160;Basic]</span>
  				<br />
+ 				<xsl:call-template name="vb-attributes"/>
  				<xsl:if test="not(parent::interface)">
  					<xsl:call-template name="vb-method-access">
***************
*** 320,323 ****
--- 326,330 ----
  	<xsl:template name="vb-property-syntax">
  		<xsl:if test="$ndoc-vb-syntax">
+ 			<xsl:call-template name="vb-attributes"/>
  			<xsl:if test="not(parent::interface)">
  				<xsl:choose>
***************
*** 373,376 ****
--- 380,420 ----
  				<xsl:value-of select="implements/@interface" /><xsl:text>.</xsl:text><xsl:value-of select="implements/@name" />
  			</xsl:if>
+ 		</xsl:if>
+ 	</xsl:template>
+ 	<!-- -->
+ 	<!-- ATTRIBUTES -->
+ 	<xsl:template name="vb-attributes">
+ 		<xsl:if test="$ndoc-document-attributes">
+ 			<xsl:if test="attribute">
+ 				<xsl:for-each select="attribute">
+ 					<div class="attribute"><xsl:call-template name="vb-attribute">
+ 						<xsl:with-param name="attname" select="@name" />
+ 					</xsl:call-template></div>
+ 				</xsl:for-each>
+ 			</xsl:if>
+ 		</xsl:if>
+ 	</xsl:template>
+ 	<!-- -->	
+ 	<xsl:template name="vb-attribute">
+ 		<xsl:param name="attname" />
+ 		<xsl:if test="user:isAttributeWanted($ndoc-documented-attributes, @name)">			
+ 			<xsl:text>&lt;</xsl:text>
+ 			<xsl:call-template name="strip-namespace-and-attribute">
+ 				<xsl:with-param name="name" select="@name" />
+ 			</xsl:call-template>
+ 			<xsl:if test="count(property) > 0">
+ 				<xsl:text>(</xsl:text>
+ 				<xsl:for-each select="property">
+ 					<xsl:if test="user:isPropertyWanted($ndoc-documented-attributes, @name) and @value!=''">
+ 						<xsl:value-of select="@name" />
+ 						<xsl:text>="</xsl:text>
+ 						<xsl:value-of select="@value" />
+ 						<xsl:text>"</xsl:text>
+ 						<xsl:if test="position()!=last()"><xsl:text>, </xsl:text></xsl:if>
+ 					</xsl:if>
+ 				</xsl:for-each>
+ 				<xsl:text>)</xsl:text>
+ 			</xsl:if>
+ 			<xsl:text>&gt;</xsl:text>
  		</xsl:if>
  	</xsl:template>