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>