]> matita.cs.unibo.it Git - helm.git/blob - helm/nuprl_stylesheets/nuprl_annotatedpres.xsl
ocaml 3.09 transition
[helm.git] / helm / nuprl_stylesheets / nuprl_annotatedpres.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 annotated MathML content to MathML presentation:  -->
29 <!-- First draft: March 29 2000, Claudio Sacerdoti Coen, Irene Schena      -->
30 <!--***********************************************************************--> 
31
32 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
33                               xmlns:m="http://www.w3.org/1998/Math/MathML"
34                               xmlns:helm="http://www.cs.unibo.it/helm">
35
36 <xsl:import href="nuprl_mmlextension.xsl"/>
37
38 <!-- ANNOTATION -->
39
40 <xsl:template match="annotation">
41     <xsl:choose>
42     <xsl:when test=". = /">
43       <m:math><m:mrow helm:xref="{@helm:xref}">
44       <xsl:apply-templates/>
45       </m:mrow>
46       </m:math>
47     </xsl:when>
48     <xsl:otherwise>
49      <m:mrow helm:xref="{@helm:xref}"><xsl:apply-templates/></m:mrow>
50     </xsl:otherwise>
51     </xsl:choose>
52 </xsl:template>
53
54 <xsl:template match="text()">
55  <xsl:variable name="text" select="normalize-space(.)"/>
56  <xsl:if test="$text != ''">
57   <m:mtext><xsl:value-of select="$text"/></m:mtext>
58  </xsl:if>
59 </xsl:template>
60
61 </xsl:stylesheet>