]> git.stg.codes - stg.git/blob - doc/xslt/profiling/profile-mode.xsl
Version bump
[stg.git] / doc / xslt / profiling / profile-mode.xsl
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:apply-templates mode="profile" 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