home *** CD-ROM | disk | FTP | other *** search
- <?xml version='1.0' encoding="utf-8"?>
- <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
- xmlns:fo="http://www.w3.org/1999/XSL/Format"
- version='1.0'>
-
- <!-- ********************************************************************
- $Id: passivetex.xsl,v 1.1.2.1 2002/09/04 14:25:33 jdj Exp $
- ********************************************************************
- This extension stops PassiveTeX from merging subsequent '-' to
- dashes. You must set passivetex.extensions to '1' if you want get
- this functionality.
- ******************************************************************** -->
-
- <xsl:template match="text()">
- <xsl:choose>
- <xsl:when test="$passivetex.extensions != 0">
- <xsl:call-template name="passivetex.dash.subst">
- <xsl:with-param name="string" select="."/>
- </xsl:call-template>
- </xsl:when>
- <xsl:otherwise>
- <xsl:value-of select="."/>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
- <xsl:template name="passivetex.dash.subst">
- <xsl:param name="string"/>
-
- <xsl:choose>
- <xsl:when test="contains($string, '--')">
- <xsl:variable name="rest">
- <xsl:call-template name="passivetex.dash.subst">
- <xsl:with-param name="string"
- select="concat('-', substring-after($string, '--'))"/>
- </xsl:call-template>
- </xsl:variable>
- <xsl:value-of select="concat(substring-before($string, '--'),
- '-',
- $rest)"/>
- </xsl:when>
- <xsl:otherwise>
- <xsl:value-of select="$string"/>
- </xsl:otherwise>
- </xsl:choose>
- </xsl:template>
-
- </xsl:stylesheet>
-
-