<?xml version="1.0"?>

 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:exslt="http://exslt.org/common"  exclude-result-prefixes="exslt">

	<xsl:output method="xml" indent="yes"/>

<!-- filters can only return hide or show -->

<!-- filter-only =  item's @filter can only have items from the list

	anything with no filters passes

-->

<xsl:template match="filter-only" mode="filter"><xsl:param name="item"/>

	<xsl:if test="$item[@filter]">

		<xsl:variable name="this" select="."/>

		<xsl:variable name="my-filters">

			<xsl:call-template name="filter-list">

				<xsl:with-param name="f" select="$item/parent::component/@filter"/>

			</xsl:call-template>

			<xsl:call-template name="filter-list">

				<xsl:with-param name="f" select="$item/@filter"/>

			</xsl:call-template>

		</xsl:variable>

		<xsl:variable name="match">

			<xsl:for-each select="exslt:node-set($my-filters)/*">

				<xsl:if test="not($this/*[name()=name(current())  and @v=current()/@v])">x</xsl:if>

			</xsl:for-each>

		</xsl:variable>

		<xsl:if test="$match!=''">hide</xsl:if>

	</xsl:if>

</xsl:template>

<!-- filter-has =  item's @filter must have all filters in the list. ie it can have any other filters, but these must all be present	

-->

<xsl:template match="filter-has" mode="filter"><xsl:param name="item"/>

	<xsl:if test="$item[(self::component or self::unit)  and not(unit/@filter or self::unit[not(../unit[@filter])])]">

		<xsl:variable name="my-filters">

			<xsl:call-template name="filter-list">

				<xsl:with-param name="f" select="$item/parent::component/@filter"/>

			</xsl:call-template>

			<xsl:call-template name="filter-list">

				<xsl:with-param name="f" select="$item/@filter"/>

			</xsl:call-template>

		</xsl:variable>

		<xsl:variable name="match">

			<xsl:for-each select="*">

				<!-- 	if(f in this) {return true}  else if(!f in this) {return false} else {return !(f is positive)} -->

				<xsl:choose>

					<xsl:when test="exslt:node-set($my-filters)/*[name()=name(current()) and @v=current()/@v]"/> <!-- filter in item -->

					<xsl:when test="exslt:node-set($my-filters)/*[name()!=name(current()) and @v=current()/@v]">x</xsl:when> <!-- !filter in item -->

					<xsl:when test="self::filter">x</xsl:when> <!-- !(filter is positive) -->

				</xsl:choose>

			</xsl:for-each>

		</xsl:variable>

		<xsl:if test="$match!=''">hide</xsl:if>

	</xsl:if>

</xsl:template>

<xsl:template match="filter-with" mode="filter"><xsl:param name="item"/>

	<xsl:if test="$item[(self::component or self::unit)  and not(unit/@filter or self::unit[not(../unit[@filter])])]">

		<xsl:variable name="my-filters">

			<xsl:call-template name="filter-list">

				<xsl:with-param name="f" select="$item/parent::component/@filter"/>

			</xsl:call-template>

			<xsl:call-template name="filter-list">

				<xsl:with-param name="f" select="$item/@filter"/>

			</xsl:call-template>

		</xsl:variable>

		<xsl:variable name="match">

			<xsl:for-each select="*">

				<xsl:if test="exslt:node-set($my-filters)/*[name()!=name(current()) and @v=current()/@v]">x</xsl:if> <!-- !filter in item -->

			</xsl:for-each>

		</xsl:variable>

		<xsl:if test="$match!=''">hide</xsl:if>

	</xsl:if>

</xsl:template>

<xsl:template name="filter-item"> <xsl:param name="f"/>

	<!-- create an element for a given filter. If the filter's empty make nothing -->

	<xsl:choose>

		<xsl:when test="$f=''"/>

		<xsl:when test="starts-with($f,'!')">

				<not v="{substring($f,2)}"/>

		</xsl:when>

		<xsl:otherwise>

				<filter v="{$f}"/>

		</xsl:otherwise>

	</xsl:choose>

</xsl:template>

<xsl:template name="filter-list"><xsl:param name="f"/>

	<!-- turn a filter list into a set of elements (<filter> or <not>) with the attribute "v" containing the "absolute value" of the filter

		filter="A,B,!C" becomes  <filter v="A"/><filter v="B"/><not v="C"/> 

	  -->

	<xsl:choose>

		<xsl:when test="contains($f,',')">

			<xsl:call-template name="filter-item"><xsl:with-param name="f" select="normalize-space(substring-before($f,','))"/></xsl:call-template>

			<xsl:call-template name="filter-list">

				<xsl:with-param name="f" select="substring-after($f,',')"/>

			</xsl:call-template>

		</xsl:when>

		<xsl:otherwise>

			<xsl:call-template name="filter-item"><xsl:with-param name="f" select="normalize-space($f)"/></xsl:call-template>

		</xsl:otherwise>

	</xsl:choose>

</xsl:template>

</xsl:stylesheet>