ocaml 3.09 transition

[helm.git] / helm / DEVEL / mathml_editor / xsl / tml-tex.xsl

diff --git a/helm/DEVEL/mathml_editor/xsl/tml-tex.xsl b/helm/DEVEL/mathml_editor/xsl/tml-tex.xsl
index bc01b2e7a04c7651212e5b4d2d1be595d51ac8a4..ea0a6b94e5e4ae73aa24b6ea1fb5d1cf0ef42427 100644 (file)
--- a/helm/DEVEL/mathml_editor/xsl/tml-tex.xsl
+++ b/helm/DEVEL/mathml_editor/xsl/tml-tex.xsl
@@ -1,30 +1,35 @@
 <?xml version="1.0"?>
-<!--
- Copyright (C) 2002-2003, Luca Padovani <luca.padovani@cs.unibo.it>,
-                    2003, Paolo Marinelli <pmarinel@cs.unibo.it>.
 
+<!--
  This file is part of EdiTeX, an editor of mathematical
- expressions based on TeX syntax
+ expressions based on TeX syntax.
  
- EdiTeX is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License
- as published by the Free Software Foundation; either version 2
- of the License, or (at your option) any later version.
+ Copyright (C) 2002-2003 Luca Padovani <lpadovan@cs.unibo.it>,
+                    2003 Paolo Marinelli <pmarinel@cs.unibo.it>.
 
- EdiTeX is distributed in the hope that it will be useful,
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- GNU General Public License for more details.
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ Lesser General Public License for more details.
 
- You should have received a copy of the GNU General Public License
- along with EdiTeX; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- 
- For details, see the EdiTeX World-Wide-Web page,
- http://helm.cs.unibo.it/editex, or send a mail to
- <luca.padovani@cs.unibo.it>
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+
+ For more information, please visit the project's home page
+ http://helm.cs.unibo.it/editex/
+ or send an email to <lpadovan@cs.unibo.it>
 -->
 
+<!-- TML ===> TeX                                    -->
+<!-- Example: <tml:i val="hello"/> is transformed to -->
+<!-- it TeX "rendering" "{\rm hello}"                -->
+
 <xsl:stylesheet
      xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
      xmlns:tml="http://helm.cs.unibo.it/2002/TML"
@@ -63,7 +68,7 @@
         <xsl:if test="parent::tml:g and following-sibling::tml:i"><xsl:value-of select="' '"/></xsl:if>
       </xsl:when>
       <xsl:when test="string-length(@val)=1"><xsl:value-of select="@val"/></xsl:when>
-      <xsl:otherwise>{\it <xsl:value-of select="@val"/>}</xsl:otherwise>
+      <xsl:otherwise>{\rm <xsl:value-of select="@val"/>}</xsl:otherwise>
     </xsl:choose>
   </xsl:template>
 
@@ -87,6 +92,10 @@
     </xsl:choose>
   </xsl:template>
 
+  <xsl:template match="tml:s">
+    <xsl:text> </xsl:text>
+  </xsl:template>
+
   <xsl:template match="tml:sb">
     <xsl:choose>
       <xsl:when test="@under='1'">
@@ -138,5 +147,15 @@
     <xsl:apply-templates select="*"/>
   </xsl:template>
 
+<!--/// CURSOR ///-->
+
+  <xsl:template match="tml:cursor[@val]">
+    <xsl:choose>
+      <xsl:when test="string-length(@val)=0"/>
+      <xsl:when test="string-length(@val)=1"><xsl:value-of select="@val"/></xsl:when>
+      <xsl:otherwise>{\rm <xsl:value-of select="@val"/>}</xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+
 </xsl:stylesheet>