| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245 | <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"                xmlns:saxon="http://icl.com/saxon"                exclude-result-prefixes="saxon"                version="1.0"><!-- Should be base URI for imagedata and so on fixed? --><xsl:param name="profile.baseuri.fixup" select="true()"/><!-- Copy all non-element nodes --><xsl:template match="@*|text()|comment()|processing-instruction()" mode="profile">  <xsl:copy/></xsl:template><!-- Profile elements based on input parameters --><xsl:template match="*" mode="profile">  <xsl:variable name="arch.content">    <xsl:if test="@arch">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.arch"/>        <xsl:with-param name="b" select="@arch"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="arch.ok" select="not(@arch) or not($profile.arch) or                                       $arch.content != '' or @arch = ''"/>  <xsl:variable name="audience.content">    <xsl:if test="@audience">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.audience"/>        <xsl:with-param name="b" select="@audience"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="audience.ok"                         select="not(@audience) or not($profile.audience) or                                $audience.content != '' or @audience = ''"/>  <xsl:variable name="condition.content">    <xsl:if test="@condition">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.condition"/>        <xsl:with-param name="b" select="@condition"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="condition.ok" select="not(@condition) or not($profile.condition) or                                            $condition.content != '' or @condition = ''"/>  <xsl:variable name="conformance.content">    <xsl:if test="@conformance">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.conformance"/>        <xsl:with-param name="b" select="@conformance"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="conformance.ok" select="not(@conformance) or not($profile.conformance) or                                              $conformance.content != '' or @conformance = ''"/>  <xsl:variable name="lang.content">    <xsl:if test="@lang | @xml:lang">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.lang"/>        <xsl:with-param name="b" select="(@lang | @xml:lang)[1]"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="lang.ok" select="not(@lang | @xml:lang) or not($profile.lang) or                                       $lang.content != '' or @lang = '' or @xml:lang = ''"/>  <xsl:variable name="os.content">    <xsl:if test="@os">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.os"/>        <xsl:with-param name="b" select="@os"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="os.ok" select="not(@os) or not($profile.os) or                                     $os.content != '' or @os = ''"/>  <xsl:variable name="revision.content">    <xsl:if test="@revision">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.revision"/>        <xsl:with-param name="b" select="@revision"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="revision.ok" select="not(@revision) or not($profile.revision) or                                           $revision.content != '' or @revision = ''"/>  <xsl:variable name="revisionflag.content">    <xsl:if test="@revisionflag">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.revisionflag"/>        <xsl:with-param name="b" select="@revisionflag"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="revisionflag.ok" select="not(@revisionflag) or not($profile.revisionflag) or                                               $revisionflag.content != '' or @revisionflag = ''"/>  <xsl:variable name="role.content">    <xsl:if test="@role">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.role"/>        <xsl:with-param name="b" select="@role"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="role.ok" select="not(@role) or not($profile.role) or                                       $role.content != '' or @role = ''"/>  <xsl:variable name="security.content">    <xsl:if test="@security">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.security"/>        <xsl:with-param name="b" select="@security"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="security.ok" select="not(@security) or not($profile.security) or                                           $security.content != '' or @security = ''"/>  <xsl:variable name="status.content">    <xsl:if test="@status">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.status"/>        <xsl:with-param name="b" select="@status"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="status.ok" select="not(@status) or not($profile.status) or                                           $status.content != '' or @status = ''"/>  <xsl:variable name="userlevel.content">    <xsl:if test="@userlevel">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.userlevel"/>        <xsl:with-param name="b" select="@userlevel"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="userlevel.ok" select="not(@userlevel) or not($profile.userlevel) or                                            $userlevel.content != '' or @userlevel = ''"/>  <xsl:variable name="vendor.content">    <xsl:if test="@vendor">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.vendor"/>        <xsl:with-param name="b" select="@vendor"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="vendor.ok" select="not(@vendor) or not($profile.vendor) or                                         $vendor.content != '' or @vendor = ''"/>  <xsl:variable name="wordsize.content">    <xsl:if test="@wordsize">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.wordsize"/>        <xsl:with-param name="b" select="@wordsize"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="wordsize.ok"                         select="not(@wordsize) or not($profile.wordsize) or                                $wordsize.content != '' or @wordsize = ''"/>  <xsl:variable name="attribute.content">    <xsl:if test="@*[local-name()=$profile.attribute]">      <xsl:call-template name="cross.compare">        <xsl:with-param name="a" select="$profile.value"/>        <xsl:with-param name="b" select="@*[local-name()=$profile.attribute]"/>      </xsl:call-template>    </xsl:if>  </xsl:variable>  <xsl:variable name="attribute.ok"                 select="not(@*[local-name()=$profile.attribute]) or                         not($profile.value) or $attribute.content != '' or                         @*[local-name()=$profile.attribute] = '' or                         not($profile.attribute)"/>  <xsl:if test="$arch.ok and                 $audience.ok and                 $condition.ok and                 $conformance.ok and                 $lang.ok and                 $os.ok and                 $revision.ok and                 $revisionflag.ok and                 $role.ok and                 $security.ok and                 $status.ok and                 $userlevel.ok and                 $vendor.ok and                 $wordsize.ok and                 $attribute.ok">    <xsl:copy>      <xsl:apply-templates mode="profile" select="@*"/>      <!-- Entity references must be replaced with filereferences for temporary tree -->      <xsl:if test="@entityref and $profile.baseuri.fixup">        <xsl:attribute name="fileref">          <xsl:value-of select="unparsed-entity-uri(@entityref)"/>        </xsl:attribute>      </xsl:if>      <!-- xml:base is eventually added to the root element -->      <xsl:if test="not(../..) and $profile.baseuri.fixup">        <xsl:call-template name="add-xml-base"/>      </xsl:if>      <xsl:apply-templates select="node()" mode="profile"/>    </xsl:copy>  </xsl:if></xsl:template><!-- Returns non-empty string if list in $b contains one ore more values from list $a --><xsl:template name="cross.compare">  <xsl:param name="a"/>  <xsl:param name="b"/>  <xsl:param name="sep" select="$profile.separator"/>  <xsl:variable name="head" select="substring-before(concat($a, $sep), $sep)"/>  <xsl:variable name="tail" select="substring-after($a, $sep)"/><!-- <xsl:message> --><!-- a="<xsl:value-of select="$a"/>" --><!-- a="<xsl:value-of select="normalize-space($a)"/>" --><!-- head="<xsl:value-of select="$head"/>" --><!-- tail="<xsl:value-of select="$tail"/>" --><!-- </xsl:message> -->  <xsl:if test="contains(concat($sep, $b, $sep), concat($sep, $head, $sep)) or normalize-space($a) = '' ">1</xsl:if>  <xsl:if test="$tail">    <xsl:call-template name="cross.compare">      <xsl:with-param name="a" select="$tail"/>      <xsl:with-param name="b" select="$b"/>    </xsl:call-template>  </xsl:if></xsl:template></xsl:stylesheet>
 |