| [9882b55] | 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 |  | 
|---|