| 1 | <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
|
|---|
| 2 | xmlns:saxon="http://icl.com/saxon"
|
|---|
| 3 | exclude-result-prefixes="saxon"
|
|---|
| 4 | version="1.0">
|
|---|
| 5 |
|
|---|
| 6 | <!-- Should be base URI for imagedata and so on fixed? -->
|
|---|
| 7 | <xsl:param name="profile.baseuri.fixup" select="true()"/>
|
|---|
| 8 |
|
|---|
| 9 | <!-- Copy all non-element nodes -->
|
|---|
| 10 | <xsl:template match="@*|text()|comment()|processing-instruction()" mode="profile">
|
|---|
| 11 | <xsl:copy/>
|
|---|
| 12 | </xsl:template>
|
|---|
| 13 |
|
|---|
| 14 | <!-- Profile elements based on input parameters -->
|
|---|
| 15 | <xsl:template match="*" mode="profile">
|
|---|
| 16 |
|
|---|
| 17 | <xsl:variable name="arch.content">
|
|---|
| 18 | <xsl:if test="@arch">
|
|---|
| 19 | <xsl:call-template name="cross.compare">
|
|---|
| 20 | <xsl:with-param name="a" select="$profile.arch"/>
|
|---|
| 21 | <xsl:with-param name="b" select="@arch"/>
|
|---|
| 22 | </xsl:call-template>
|
|---|
| 23 | </xsl:if>
|
|---|
| 24 | </xsl:variable>
|
|---|
| 25 | <xsl:variable name="arch.ok" select="not(@arch) or not($profile.arch) or
|
|---|
| 26 | $arch.content != '' or @arch = ''"/>
|
|---|
| 27 |
|
|---|
| 28 | <xsl:variable name="audience.content">
|
|---|
| 29 | <xsl:if test="@audience">
|
|---|
| 30 | <xsl:call-template name="cross.compare">
|
|---|
| 31 | <xsl:with-param name="a" select="$profile.audience"/>
|
|---|
| 32 | <xsl:with-param name="b" select="@audience"/>
|
|---|
| 33 | </xsl:call-template>
|
|---|
| 34 | </xsl:if>
|
|---|
| 35 | </xsl:variable>
|
|---|
| 36 | <xsl:variable name="audience.ok"
|
|---|
| 37 | select="not(@audience) or not($profile.audience) or
|
|---|
| 38 | $audience.content != '' or @audience = ''"/>
|
|---|
| 39 |
|
|---|
| 40 | <xsl:variable name="condition.content">
|
|---|
| 41 | <xsl:if test="@condition">
|
|---|
| 42 | <xsl:call-template name="cross.compare">
|
|---|
| 43 | <xsl:with-param name="a" select="$profile.condition"/>
|
|---|
| 44 | <xsl:with-param name="b" select="@condition"/>
|
|---|
| 45 | </xsl:call-template>
|
|---|
| 46 | </xsl:if>
|
|---|
| 47 | </xsl:variable>
|
|---|
| 48 | <xsl:variable name="condition.ok" select="not(@condition) or not($profile.condition) or
|
|---|
| 49 | $condition.content != '' or @condition = ''"/>
|
|---|
| 50 |
|
|---|
| 51 | <xsl:variable name="conformance.content">
|
|---|
| 52 | <xsl:if test="@conformance">
|
|---|
| 53 | <xsl:call-template name="cross.compare">
|
|---|
| 54 | <xsl:with-param name="a" select="$profile.conformance"/>
|
|---|
| 55 | <xsl:with-param name="b" select="@conformance"/>
|
|---|
| 56 | </xsl:call-template>
|
|---|
| 57 | </xsl:if>
|
|---|
| 58 | </xsl:variable>
|
|---|
| 59 | <xsl:variable name="conformance.ok" select="not(@conformance) or not($profile.conformance) or
|
|---|
| 60 | $conformance.content != '' or @conformance = ''"/>
|
|---|
| 61 |
|
|---|
| 62 | <xsl:variable name="lang.content">
|
|---|
| 63 | <xsl:if test="@lang | @xml:lang">
|
|---|
| 64 | <xsl:call-template name="cross.compare">
|
|---|
| 65 | <xsl:with-param name="a" select="$profile.lang"/>
|
|---|
| 66 | <xsl:with-param name="b" select="(@lang | @xml:lang)[1]"/>
|
|---|
| 67 | </xsl:call-template>
|
|---|
| 68 | </xsl:if>
|
|---|
| 69 | </xsl:variable>
|
|---|
| 70 | <xsl:variable name="lang.ok" select="not(@lang | @xml:lang) or not($profile.lang) or
|
|---|
| 71 | $lang.content != '' or @lang = '' or @xml:lang = ''"/>
|
|---|
| 72 |
|
|---|
| 73 | <xsl:variable name="os.content">
|
|---|
| 74 | <xsl:if test="@os">
|
|---|
| 75 | <xsl:call-template name="cross.compare">
|
|---|
| 76 | <xsl:with-param name="a" select="$profile.os"/>
|
|---|
| 77 | <xsl:with-param name="b" select="@os"/>
|
|---|
| 78 | </xsl:call-template>
|
|---|
| 79 | </xsl:if>
|
|---|
| 80 | </xsl:variable>
|
|---|
| 81 | <xsl:variable name="os.ok" select="not(@os) or not($profile.os) or
|
|---|
| 82 | $os.content != '' or @os = ''"/>
|
|---|
| 83 |
|
|---|
| 84 | <xsl:variable name="revision.content">
|
|---|
| 85 | <xsl:if test="@revision">
|
|---|
| 86 | <xsl:call-template name="cross.compare">
|
|---|
| 87 | <xsl:with-param name="a" select="$profile.revision"/>
|
|---|
| 88 | <xsl:with-param name="b" select="@revision"/>
|
|---|
| 89 | </xsl:call-template>
|
|---|
| 90 | </xsl:if>
|
|---|
| 91 | </xsl:variable>
|
|---|
| 92 | <xsl:variable name="revision.ok" select="not(@revision) or not($profile.revision) or
|
|---|
| 93 | $revision.content != '' or @revision = ''"/>
|
|---|
| 94 |
|
|---|
| 95 | <xsl:variable name="revisionflag.content">
|
|---|
| 96 | <xsl:if test="@revisionflag">
|
|---|
| 97 | <xsl:call-template name="cross.compare">
|
|---|
| 98 | <xsl:with-param name="a" select="$profile.revisionflag"/>
|
|---|
| 99 | <xsl:with-param name="b" select="@revisionflag"/>
|
|---|
| 100 | </xsl:call-template>
|
|---|
| 101 | </xsl:if>
|
|---|
| 102 | </xsl:variable>
|
|---|
| 103 | <xsl:variable name="revisionflag.ok" select="not(@revisionflag) or not($profile.revisionflag) or
|
|---|
| 104 | $revisionflag.content != '' or @revisionflag = ''"/>
|
|---|
| 105 |
|
|---|
| 106 | <xsl:variable name="role.content">
|
|---|
| 107 | <xsl:if test="@role">
|
|---|
| 108 | <xsl:call-template name="cross.compare">
|
|---|
| 109 | <xsl:with-param name="a" select="$profile.role"/>
|
|---|
| 110 | <xsl:with-param name="b" select="@role"/>
|
|---|
| 111 | </xsl:call-template>
|
|---|
| 112 | </xsl:if>
|
|---|
| 113 | </xsl:variable>
|
|---|
| 114 | <xsl:variable name="role.ok" select="not(@role) or not($profile.role) or
|
|---|
| 115 | $role.content != '' or @role = ''"/>
|
|---|
| 116 |
|
|---|
| 117 | <xsl:variable name="security.content">
|
|---|
| 118 | <xsl:if test="@security">
|
|---|
| 119 | <xsl:call-template name="cross.compare">
|
|---|
| 120 | <xsl:with-param name="a" select="$profile.security"/>
|
|---|
| 121 | <xsl:with-param name="b" select="@security"/>
|
|---|
| 122 | </xsl:call-template>
|
|---|
| 123 | </xsl:if>
|
|---|
| 124 | </xsl:variable>
|
|---|
| 125 | <xsl:variable name="security.ok" select="not(@security) or not($profile.security) or
|
|---|
| 126 | $security.content != '' or @security = ''"/>
|
|---|
| 127 |
|
|---|
| 128 | <xsl:variable name="status.content">
|
|---|
| 129 | <xsl:if test="@status">
|
|---|
| 130 | <xsl:call-template name="cross.compare">
|
|---|
| 131 | <xsl:with-param name="a" select="$profile.status"/>
|
|---|
| 132 | <xsl:with-param name="b" select="@status"/>
|
|---|
| 133 | </xsl:call-template>
|
|---|
| 134 | </xsl:if>
|
|---|
| 135 | </xsl:variable>
|
|---|
| 136 | <xsl:variable name="status.ok" select="not(@status) or not($profile.status) or
|
|---|
| 137 | $status.content != '' or @status = ''"/>
|
|---|
| 138 |
|
|---|
| 139 | <xsl:variable name="userlevel.content">
|
|---|
| 140 | <xsl:if test="@userlevel">
|
|---|
| 141 | <xsl:call-template name="cross.compare">
|
|---|
| 142 | <xsl:with-param name="a" select="$profile.userlevel"/>
|
|---|
| 143 | <xsl:with-param name="b" select="@userlevel"/>
|
|---|
| 144 | </xsl:call-template>
|
|---|
| 145 | </xsl:if>
|
|---|
| 146 | </xsl:variable>
|
|---|
| 147 | <xsl:variable name="userlevel.ok" select="not(@userlevel) or not($profile.userlevel) or
|
|---|
| 148 | $userlevel.content != '' or @userlevel = ''"/>
|
|---|
| 149 |
|
|---|
| 150 | <xsl:variable name="vendor.content">
|
|---|
| 151 | <xsl:if test="@vendor">
|
|---|
| 152 | <xsl:call-template name="cross.compare">
|
|---|
| 153 | <xsl:with-param name="a" select="$profile.vendor"/>
|
|---|
| 154 | <xsl:with-param name="b" select="@vendor"/>
|
|---|
| 155 | </xsl:call-template>
|
|---|
| 156 | </xsl:if>
|
|---|
| 157 | </xsl:variable>
|
|---|
| 158 | <xsl:variable name="vendor.ok" select="not(@vendor) or not($profile.vendor) or
|
|---|
| 159 | $vendor.content != '' or @vendor = ''"/>
|
|---|
| 160 |
|
|---|
| 161 | <xsl:variable name="wordsize.content">
|
|---|
| 162 | <xsl:if test="@wordsize">
|
|---|
| 163 | <xsl:call-template name="cross.compare">
|
|---|
| 164 | <xsl:with-param name="a" select="$profile.wordsize"/>
|
|---|
| 165 | <xsl:with-param name="b" select="@wordsize"/>
|
|---|
| 166 | </xsl:call-template>
|
|---|
| 167 | </xsl:if>
|
|---|
| 168 | </xsl:variable>
|
|---|
| 169 | <xsl:variable name="wordsize.ok"
|
|---|
| 170 | select="not(@wordsize) or not($profile.wordsize) or
|
|---|
| 171 | $wordsize.content != '' or @wordsize = ''"/>
|
|---|
| 172 |
|
|---|
| 173 | <xsl:variable name="attribute.content">
|
|---|
| 174 | <xsl:if test="@*[local-name()=$profile.attribute]">
|
|---|
| 175 | <xsl:call-template name="cross.compare">
|
|---|
| 176 | <xsl:with-param name="a" select="$profile.value"/>
|
|---|
| 177 | <xsl:with-param name="b" select="@*[local-name()=$profile.attribute]"/>
|
|---|
| 178 | </xsl:call-template>
|
|---|
| 179 | </xsl:if>
|
|---|
| 180 | </xsl:variable>
|
|---|
| 181 | <xsl:variable name="attribute.ok"
|
|---|
| 182 | select="not(@*[local-name()=$profile.attribute]) or
|
|---|
| 183 | not($profile.value) or $attribute.content != '' or
|
|---|
| 184 | @*[local-name()=$profile.attribute] = '' or
|
|---|
| 185 | not($profile.attribute)"/>
|
|---|
| 186 |
|
|---|
| 187 | <xsl:if test="$arch.ok and
|
|---|
| 188 | $audience.ok and
|
|---|
| 189 | $condition.ok and
|
|---|
| 190 | $conformance.ok and
|
|---|
| 191 | $lang.ok and
|
|---|
| 192 | $os.ok and
|
|---|
| 193 | $revision.ok and
|
|---|
| 194 | $revisionflag.ok and
|
|---|
| 195 | $role.ok and
|
|---|
| 196 | $security.ok and
|
|---|
| 197 | $status.ok and
|
|---|
| 198 | $userlevel.ok and
|
|---|
| 199 | $vendor.ok and
|
|---|
| 200 | $wordsize.ok and
|
|---|
| 201 | $attribute.ok">
|
|---|
| 202 | <xsl:copy>
|
|---|
| 203 | <xsl:copy-of select="@*"/>
|
|---|
| 204 |
|
|---|
| 205 | <!-- Entity references must be replaced with filereferences for temporary tree -->
|
|---|
| 206 | <xsl:if test="@entityref and $profile.baseuri.fixup">
|
|---|
| 207 | <xsl:attribute name="fileref">
|
|---|
| 208 | <xsl:value-of select="unparsed-entity-uri(@entityref)"/>
|
|---|
| 209 | </xsl:attribute>
|
|---|
| 210 | </xsl:if>
|
|---|
| 211 |
|
|---|
| 212 | <!-- xml:base is eventually added to the root element -->
|
|---|
| 213 | <xsl:if test="not(../..) and $profile.baseuri.fixup">
|
|---|
| 214 | <xsl:call-template name="add-xml-base"/>
|
|---|
| 215 | </xsl:if>
|
|---|
| 216 |
|
|---|
| 217 | <xsl:apply-templates select="node()" mode="profile"/>
|
|---|
| 218 | </xsl:copy>
|
|---|
| 219 | </xsl:if>
|
|---|
| 220 | </xsl:template>
|
|---|
| 221 |
|
|---|
| 222 | <!-- Returns non-empty string if list in $b contains one ore more values from list $a -->
|
|---|
| 223 | <xsl:template name="cross.compare">
|
|---|
| 224 | <xsl:param name="a"/>
|
|---|
| 225 | <xsl:param name="b"/>
|
|---|
| 226 | <xsl:param name="sep" select="$profile.separator"/>
|
|---|
| 227 | <xsl:variable name="head" select="substring-before(concat($a, $sep), $sep)"/>
|
|---|
| 228 | <xsl:variable name="tail" select="substring-after($a, $sep)"/>
|
|---|
| 229 | <xsl:if test="contains(concat($sep, $b, $sep), concat($sep, $head, $sep))">1</xsl:if>
|
|---|
| 230 | <xsl:if test="$tail">
|
|---|
| 231 | <xsl:call-template name="cross.compare">
|
|---|
| 232 | <xsl:with-param name="a" select="$tail"/>
|
|---|
| 233 | <xsl:with-param name="b" select="$b"/>
|
|---|
| 234 | </xsl:call-template>
|
|---|
| 235 | </xsl:if>
|
|---|
| 236 | </xsl:template>
|
|---|
| 237 |
|
|---|
| 238 | </xsl:stylesheet>
|
|---|
| 239 |
|
|---|
