239 lines
9.4 KiB
XML
239 lines
9.4 KiB
XML
<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:if test="contains(concat($sep, $b, $sep), concat($sep, $head, $sep))">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>
|
|
|