]> matita.cs.unibo.it Git - helm.git/blob - helm/gTopLevel/rootcontent.xsl
ocaml 3.09 transition
[helm.git] / helm / gTopLevel / rootcontent.xsl
1 <?xml version="1.0"?>
2
3 <!-- Copyright (C) 2000, HELM Team                                     -->
4 <!--                                                                   -->
5 <!-- This file is part of HELM, an Hypertextual, Electronic            -->
6 <!-- Library of Mathematics, developed at the Computer Science         -->
7 <!-- Department, University of Bologna, Italy.                         -->
8 <!--                                                                   -->
9 <!-- HELM is free software; you can redistribute it and/or             -->
10 <!-- modify it under the terms of the GNU General Public License       -->
11 <!-- as published by the Free Software Foundation; either version 2    -->
12 <!-- of the License, or (at your option) any later version.            -->
13 <!--                                                                   -->
14 <!-- HELM is distributed in the hope that it will be useful,           -->
15 <!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
16 <!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
17 <!-- GNU General Public License for more details.                      -->
18 <!--                                                                   -->
19 <!-- You should have received a copy of the GNU General Public License -->
20 <!-- along with HELM; if not, write to the Free Software               -->
21 <!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
22 <!-- MA  02111-1307, USA.                                              -->
23 <!--                                                                   -->
24 <!-- For details, see the HELM World-Wide-Web page,                    -->
25 <!-- http://cs.unibo.it/helm/.                                         -->
26
27 <!--***********************************************************************--> 
28 <!-- XSLT version 0.1 of the stylesheet to accomplish the right inclusion  -->
29 <!-- of the content stylesheets:                                           -->
30 <!-- First draft: May 26 2000, C.Sacerdoti Coen, I.Schena, F.Guidi         -->
31 <!--***********************************************************************-->
32
33 <!-- Schema of stylesheet precedences (from highest to lowest):          -->
34 <!-- proofs.xsl-> reals.xsl-> set -> basic -> annotatedcont              -->
35 <!-- because annotatedcont is imported and has lower precendence than    -->
36 <!-- the templates of rootcontent (i.e. the templates of set and basic). -->
37 <!-- annotatedcont -> objcontent -> content                              -->
38 <!-- because annotatedcont generates an import precedence tree.          --> 
39
40 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
41
42 <!--******************************************************************-->
43 <!-- Variablie containing the absolute path of the CIC file            -->
44 <!--******************************************************************-->
45
46 <xsl:import href="annotatedcont.xsl"/>
47 <xsl:import href="links_library.xsl"/>
48 <xsl:import href="getter.xsl"/>
49
50 <xsl:param name="getterURL" select="'http://localhost:8081/'"/>
51 <xsl:param name="processorURL" select="'http://localhost:8080/helm/servlet/uwobo/'"/>
52 <xsl:param name="naturalLanguage" select="'yes'"/>
53 <xsl:param name="annotations" select="'no'"/>
54 <xsl:param name="CICURI" select="''"/>
55
56 <!-- CSC: Wrong: we assume that no '.body' can appear in the middle of the URI -->
57 <xsl:variable name="BaseCICURI">
58  <xsl:variable name="res" select="substring-before($CICURI,'.body')"/>
59  <xsl:choose>
60   <xsl:when test="$res = ''">
61    <xsl:value-of select="$CICURI"/>
62   </xsl:when>
63   <xsl:otherwise>
64    <xsl:value-of select="$res"/>
65   </xsl:otherwise>
66  </xsl:choose>
67 </xsl:variable>
68
69 <xsl:variable name="InnerTypesUri"><xsl:value-of select="concat($BaseCICURI,'.types')"/></xsl:variable>
70 <!-- CSC: ?????????????????? -->
71 <xsl:variable name="AnnotationsUri"><xsl:value-of select="concat($BaseCICURI,'.ann')"/></xsl:variable>
72
73 <xsl:variable name="InnerTypesUrl" select="'file:///tmp/asperti_innertypes'"/>
74 <xsl:variable name="ConstantTypeUrl" select="'file:///tmp/asperti_constanttype'"/>
75 <xsl:variable name="AnnotationsUrl"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="$AnnotationsUri"/></xsl:call-template></xsl:variable>
76
77
78 <!-- WARNING: Using lazy evaluation: $CICURI.* may not exist, but -->
79 <!-- document() is called only by need!!!                         -->
80 <xsl:variable name="InnerTypes" select="document($InnerTypesUrl)"/>
81 <xsl:variable name="CICAnnotations" select="document($AnnotationsUrl)"/> 
82
83 <xsl:include href="headercontent.xsl"/>
84 <xsl:include href="proofs.xsl"/>
85 <xsl:variable name="showproof" select="0"/>
86 </xsl:stylesheet>
87
88
89
90
91
92
93
94