b8e24770416776f2ff3b0414d7bddc8ad6c140fa
[irspy-moved-to-github.git] / xsl / irspy2zeerex.xsl
1 <?xml version="1.0"?>
2 <!--
3
4     This stylesheet is used by IRSpy to map the internal mixed Zeerex/IRSpy
5     record format into the Zeerex record which we store.
6
7 -->
8 <xsl:stylesheet
9     xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
10     xmlns:irspy="http://indexdata.com/irspy/1.0"
11     xmlns="http://explain.z3950.org/dtd/2.0/"
12     xmlns:explain="http://explain.z3950.org/dtd/2.0/"
13     exclude-result-prefixes="irspy explain"
14     version="1.0">
15
16   <xsl:output indent="yes"
17       method="xml"
18       version="1.0"
19       encoding="UTF-8"/>
20
21   <xsl:strip-space elements="*"/>
22
23   <xsl:variable name="old_indexes" select="/*/explain:indexInfo/explain:index"/>
24   <xsl:variable name="use_attr_names" select="document('use-attr-names.xml')"/>
25   <xsl:variable name="ping_date" select="/*/irspy:status/irspy:probe[last()]"/>
26
27
28   <xsl:template match="/*">
29     <explain>
30       <xsl:call-template name="insert-zeerexBase"/>
31       <xsl:call-template name="insert-indexInfo"/>
32       <xsl:call-template name="insert-recordInfo"/>
33       <xsl:call-template name="insert-configInfo"/>
34       <xsl:call-template name="insert-irspySection"/>
35     </explain>
36   </xsl:template>
37
38
39   <xsl:template name="insert-zeerexBase">
40     <xsl:copy-of select="explain:serverInfo"/>
41     <xsl:copy-of select="explain:databaseInfo"/>
42     <metaInfo>
43       <dateModified><xsl:value-of select="$ping_date"/></dateModified>
44     </metaInfo>
45   </xsl:template>
46
47
48   <xsl:template name="insert-indexInfo">
49     <indexInfo>
50       <xsl:choose>
51
52         <!-- Check that search was actually probed -->
53         <xsl:when test="/*/irspy:status/irspy:search">
54           <xsl:for-each select="/*/irspy:status/irspy:search">
55             <xsl:variable name="set" select="@set"/>
56             <xsl:variable name="ap" select="@ap"/>
57             <xsl:variable name="old"
58                 select="$old_indexes[explain:map/explain:attr/@set = $set and
59                                      explain:map/explain:attr/text() = $ap]"/>
60             <xsl:choose>
61               <xsl:when test="$old">
62                 <xsl:call-template name="insert-index-section">
63                   <xsl:with-param name="title" select="$old/explain:title"/>
64                 </xsl:call-template>
65               </xsl:when>
66               <xsl:otherwise>
67                 <xsl:call-template name="insert-index-section"/>
68               </xsl:otherwise>
69             </xsl:choose>
70           </xsl:for-each>
71         </xsl:when>
72
73         <!-- If not, insert what we already had... -->
74         <xsl:otherwise>
75           <xsl:copy-of
76                 select="explain:indexInfo/explain:index[@search='true']"/>
77         </xsl:otherwise>
78       </xsl:choose>
79     </indexInfo>
80   </xsl:template>
81
82
83   <xsl:template name="insert-recordInfo">
84     <recordInfo>
85       <xsl:choose>
86
87         <!-- Did we actually probe record syntaxes? -->
88         <xsl:when test="/*/irspy:status/irspy:record_fetch">
89           <xsl:for-each select="/*/irspy:status/irspy:record_fetch[@ok = 1]">
90             <recordSyntax name="{@syntax}">
91               <elementSet name="F"/> <!-- FIXME: This should be probed too -->
92             </recordSyntax>
93           </xsl:for-each>
94         </xsl:when>
95
96         <!-- If not, use the existing test report... -->
97         <xsl:otherwise>
98           <xsl:copy-of select="explain:recordInfo/*"/>
99         </xsl:otherwise>
100       </xsl:choose>
101     </recordInfo>
102   </xsl:template>
103
104
105   <xsl:template name="insert-configInfo">
106     <configInfo>
107       <xsl:choose>
108         <xsl:when test="/*/irspy:status/irspy:init_opt">
109           <xsl:for-each select="/*/irspy:status/irspy:init_opt">
110             <supports type="z3950_{@option}">1</supports>
111           </xsl:for-each>
112         </xsl:when>
113         <xsl:otherwise>
114           <xsl:copy-of select="explain:configInfo/*"/>
115         </xsl:otherwise>
116       </xsl:choose>
117     </configInfo>
118   </xsl:template>
119
120
121   <!-- 
122        Here we list the bits and pieces of the irspy:status element which we
123        want to keep in the persistent version of the zeerex record.
124   -->
125   <xsl:template name="insert-irspySection">
126     <irspy:status>
127       <xsl:copy-of select="*/irspy:libraryType"/>
128       <xsl:copy-of select="*/irspy:country"/>
129       <xsl:copy-of select="*/irspy:probe"/>
130
131       <xsl:call-template name="insert-latest-nodes">
132         <xsl:with-param name="nodes" select="*/irspy:boolean"/>
133         <xsl:with-param name="what" select="'boolean'"/>
134       </xsl:call-template>
135       
136       <xsl:call-template name="insert-latest-nodes">
137         <xsl:with-param name="nodes" select="*/irspy:named_resultset"/>
138         <xsl:with-param name="what" select="'named_resultset'"/>
139       </xsl:call-template>
140       
141       <xsl:call-template name="insert-latest-nodes">
142         <xsl:with-param name="nodes" select="*/irspy:explain"/>
143         <xsl:with-param name="what" select="'explain'"/>
144       </xsl:call-template>
145
146       <xsl:call-template name="insert-latest-nodes">
147         <xsl:with-param name="nodes" select="*/irspy:serverImplementationId"/>
148         <xsl:with-param name="what" select="'serverImplementationId'"/>
149       </xsl:call-template>
150
151       <xsl:call-template name="insert-latest-nodes">
152         <xsl:with-param name="nodes" select="*/irspy:serverImplementationName"/>
153         <xsl:with-param name="what" select="'serverImplementationName'"/>
154       </xsl:call-template>
155
156       <xsl:call-template name="insert-latest-nodes">
157         <xsl:with-param name="nodes"
158                     select="*/irspy:serverImplementationVersion"/>
159         <xsl:with-param name="what" select="'serverImplementationVersion'"/>
160       </xsl:call-template>
161
162       <xsl:call-template name="insert-latest-nodes">
163         <xsl:with-param name="nodes" select="*/irspy:multiple_opac"/>
164         <xsl:with-param name="what" select="'multiple_opac'"/>
165       </xsl:call-template>
166     </irspy:status>
167   </xsl:template>
168
169
170   <!-- 
171        NB: This template assumes that the irspy:probe nodes come in ascending
172        order. If this is not the case, this template has to do some kind of
173        sorting which makes the whole thing more complicated.
174
175        Dec 12, 2006: Anders
176   -->
177   <xsl:template name="insert-latest-nodes">
178     <xsl:param name="nodes"/>
179     <xsl:param name="what" select="'unspecified'"/>
180     <xsl:param name="i" select="count(*/irspy:probe[@ok='1'])"/>
181     <xsl:variable name="date"
182         select="*/irspy:probe[@ok='1'][$i]"/>
183     <xsl:variable name="latest"
184         select="$nodes[irspy:strcmp(text(), $date) >= 0]"/>
185
186     <xsl:choose>
187       <xsl:when test="$latest">
188         <xsl:copy-of select="$latest"/>
189       </xsl:when>
190       <!-- <xsl:when test="$i > 0 and $i &lt; 200"> -->
191       <xsl:when test="$i > 0">
192         <xsl:call-template name="insert-latest-nodes">
193           <xsl:with-param name="what" select="$what"/>
194           <xsl:with-param name="nodes" select="$nodes"/>
195           <xsl:with-param name="i" select="$i - 1"/>
196         </xsl:call-template>
197       </xsl:when>
198       <xsl:otherwise>
199         <irspy:missing what="{$what}" when="{$ping_date}"/>
200       </xsl:otherwise>
201     </xsl:choose>
202   </xsl:template>
203
204   
205   <xsl:template match="node() | @*">
206     <xsl:copy>
207       <xsl:apply-templates select="@* | node()"/>
208     </xsl:copy>
209   </xsl:template>
210
211
212   <xsl:template name="insert-index-section">
213     <xsl:param name="update" select="."/>
214     <xsl:param name="title">
215       <xsl:call-template name="insert-index-title">
216         <xsl:with-param name="update" select="$update"/>
217       </xsl:call-template>
218     </xsl:param>
219
220     <xsl:if test="$update/@ok = 1">
221       <index search="true">
222         <title primary="true" lang="en"><xsl:value-of select="$title"/></title>
223         <map primary="true">
224           <attr type="1" set="{$update/@set}">
225             <xsl:value-of select="$update/@ap"/>
226           </attr>
227         </map>
228       </index>
229     </xsl:if>
230   </xsl:template>
231
232
233   <xsl:template name="insert-index-title">
234     <xsl:param name="update"/>
235     <xsl:variable name="name"
236                 select="$use_attr_names/*/map[@attr = $update/@ap and
237                                               @set = $update/@set]/@name"/>
238
239     <xsl:choose>
240       <xsl:when test="string-length($name) &gt; 0"><xsl:value-of
241                                             select="$name"/></xsl:when>
242       <xsl:otherwise><xsl:value-of select="$update/@ap"/></xsl:otherwise>
243     </xsl:choose>
244   </xsl:template>
245
246
247   <xsl:template match="*"/>
248
249 </xsl:stylesheet>