XSL中几个封装的函数---布尔操作函数

<!-- ======================================================== -->     
<!-- Function: BooleanOR(<value1>,<value2>) => number -->     
<!-- Parameters:- -->     <!-- <value1> - the first number to be ORed -->     
<!-- <value2> - the second number to be ORed -->     
<!-- NB. Only works with unsigned ints! -->     
<xsl:template name="BooleanOR">      
<xsl:param name="value1" select="number(0)"/>      
<xsl:param name="value2" select="number(0)"/>      
<!-- recurse parameters -->      
<xsl:param name="bitval" select="number(2147483648)"/>      
<xsl:param name="accum" select="number(0)"/>      
<!-- calc bits present on values -->      
<xsl:variable name="bit1" select="floor($value1 div $bitval)"/>      
<xsl:variable name="bit2" select="floor($value2 div $bitval)"/>      
<!-- do the OR on the bits -->      
<xsl:variable name="thisbit">      
<xsl:choose>      
<xsl:when test="($bit1 != 0) or ($bit2 != 0)">
<xsl:value-of select="$bitval"/>
</xsl:when>      
<xsl:otherwise>0</xsl:otherwise>      
</xsl:choose>      
</xsl:variable>      
<!-- if last recurse then output the value -->      
<xsl:choose>      
<xsl:when test="$bitval = 1">
<xsl:value-of select="$accum + $thisbit"/>
</xsl:when>      
<xsl:otherwise>      
<!-- recurse required -->      
<xsl:call-template name="BooleanOR">      
<xsl:with-param name="value1" select="$value1 mod $bitval"/>      
<xsl:with-param name="value2" select="$value2 mod $bitval"/>      
<xsl:with-param name="bitval" select="$bitval div 2"/>      
<xsl:with-param name="accum" select="$accum + $thisbit"/>      
</xsl:call-template>      
</xsl:otherwise>      
</xsl:choose>     
</xsl:template>          
<!-- ======================================================== -->     
<!-- Function: BooleanAND(<value1>,<value2>) => number -->     
<!-- Parameters:- -->     <!-- <value1> - the first number to be ANDed -->     
<!-- <value2> - the second number to be ANDed -->     
<!-- NB. Only works with unsigned ints! -->     
<xsl:template name="BooleanAND">      
<xsl:param name="value1" select="number(0)"/>      
<xsl:param name="value2" select="number(0)"/>      
<!-- recurse parameters -->      
<xsl:param name="bitval" select="number(2147483648)"/>      
<xsl:param name="accum" select="number(0)"/>      
<!-- calc bits present on values -->      
<xsl:variable name="bit1" select="floor($value1 div $bitval)"/>      
<xsl:variable name="bit2" select="floor($value2 div $bitval)"/>      
<!-- do the AND on the bits -->      
<xsl:variable name="thisbit">      
<xsl:choose>      
<xsl:when test="($bit1 != 0) and ($bit2 != 0)">
<xsl:value-of select="$bitval"/></xsl:when>      
<xsl:otherwise>0</xsl:otherwise>      
</xsl:choose>     
</xsl:variable>      
<!-- if last recurse then output the value -->      
<xsl:choose>      
<xsl:when test="$bitval = 1">
<xsl:value-of select="$accum + $thisbit"/>
</xsl:when>      
<xsl:otherwise>      
<!-- recurse required -->      
<xsl:call-template name="BooleanAND">      
<xsl:with-param name="value1" select="$value1 mod $bitval"/>      
<xsl:with-param name="value2" select="$value2 mod $bitval"/>      
<xsl:with-param name="bitval" select="$bitval div 2"/>      
<xsl:with-param name="accum" select="$accum + $thisbit"/>      
</xsl:call-template>      
</xsl:otherwise>      
</xsl:choose>     
</xsl:template>          
<!-- ======================================================== -->     
<!-- Function: BooleanXOR(<value1>,<value2>) => number -->     
<!-- Parameters:- -->     <!-- <value1> - the first number to be XORed -->     
<!-- <value2> - the second number to be XORed -->     
<!-- NB. Only works with unsigned ints! -->     
<xsl:template name="BooleanXOR">      
<xsl:param name="value1" select="number(0)"/>      
<xsl:param name="value2" select="number(0)"/>      
<!-- recurse parameters -->      
<xsl:param name="bitval" select="number(2147483648)"/>      
<xsl:param name="accum" select="number(0)"/>      
<!-- calc bits present on values -->      
<xsl:variable name="bit1" select="floor($value1 div $bitval)"/>      
<xsl:variable name="bit2" select="floor($value2 div $bitval)"/>      
<!-- do the XOR on the bits -->      
<xsl:variable name="thisbit">      
<xsl:choose>      
<xsl:when test="(($bit1 != 0) and ($bit2 = 0)) or (($bit1 = 0) and ($bit2     != 0))">
<xsl:value-of select="$bitval"/>
</xsl:when>      
<xsl:otherwise>0</xsl:otherwise>      
</xsl:choose>      
</xsl:variable>      
<!-- if last recurse then output the value -->      
<xsl:choose>      
<xsl:when test="$bitval = 1">
<xsl:value-of select="$accum + $thisbit"/>
</xsl:when>      
<xsl:otherwise>      
<!-- recurse required -->      
<xsl:call-template name="BooleanXOR">      
<xsl:with-param name="value1" select="$value1 mod $bitval"/>      
<xsl:with-param name="value2" select="$value2 mod $bitval"/>      
<xsl:with-param name="bitval" select="$bitval div 2"/>      
<xsl:with-param name="accum" select="$accum + $thisbit"/>      
</xsl:call-template>      
</xsl:otherwise>      
</xsl:choose>     
</xsl:template>