diff options
| author | Felix Hanley <felix@userspace.com.au> | 2016-11-02 02:53:46 +0000 |
|---|---|---|
| committer | Felix Hanley <felix@userspace.com.au> | 2016-11-02 02:53:46 +0000 |
| commit | 2e2eade6c26ab1826c44d6bdb4b6418619ed5643 (patch) | |
| tree | dbbdbe339434358b17874e93e7160703b71d53a3 /xsl/inc/indent.xsl | |
| parent | a454036ac1511b219249176f82ad5a7c66578c20 (diff) | |
| download | lahu-dictionary-master.tar.gz lahu-dictionary-master.tar.bz2 | |
Diffstat (limited to 'xsl/inc/indent.xsl')
| -rw-r--r-- | xsl/inc/indent.xsl | 102 |
1 files changed, 0 insertions, 102 deletions
diff --git a/xsl/inc/indent.xsl b/xsl/inc/indent.xsl deleted file mode 100644 index db742a8..0000000 --- a/xsl/inc/indent.xsl +++ /dev/null @@ -1,102 +0,0 @@ -<?xml version='1.0' encoding='UTF-8'?> - -<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> - - <!-- This is the template intended to be called from outside --> - <xsl:template name="format"> - <!-- The text to be formatted nicely --> - <xsl:param name="txt"/> - <!-- A number giving the column width in which txt is to be formatted indented by $start spaces --> - <xsl:param name="width" select="78"/> - <!-- A number giving the columns the txt is to be indented --> - <xsl:param name="start" select="0"/> - - <xsl:choose> - <!-- Last Line --> - <xsl:when test="string-length($txt) < $width -$start"> - <xsl:value-of select="$txt"/> - <xsl:text> </xsl:text> - </xsl:when> - - <!-- substring() of a NULL string would be bad --> - <xsl:when test="$txt"> - <!-- Find the word boundary of the last word that completely fits on the current line --> - <xsl:variable name="real-width"> - <xsl:call-template name="space-backward"> - <xsl:with-param select="$txt" name="txt"/> - <xsl:with-param select="$width - $start" name="width"/> - <xsl:with-param select="$start" name="start"/> - <xsl:with-param name="def"> - <xsl:call-template name="space-forward"> - <xsl:with-param select="$txt" name="txt"/> - <xsl:with-param select="$width - $start" name="width"/> - <xsl:with-param select="$start" name="start"/> - </xsl:call-template> - </xsl:with-param> - </xsl:call-template> - </xsl:variable> - <!-- Output current line --> - <xsl:value-of select="substring($txt, 1, $real-width)"/> - <xsl:text> </xsl:text> - <!-- Indent the next line --> - <xsl:value-of select="substring(' ', 1, $start)"/> - <!-- Recursively call myself --> - <xsl:call-template name="format"> - <xsl:with-param select="substring($txt, $real-width + 1)" name="txt"/> - <xsl:with-param select="$width" name="width"/> - <xsl:with-param select="$start" name="start"/> - </xsl:call-template> - </xsl:when> - </xsl:choose> - </xsl:template> - - <xsl:template name="space-backward"> - <xsl:param name="txt"/> - <xsl:param name="width"/> - <xsl:param name="def"/> - <xsl:param name="start"/> - <xsl:choose> - <xsl:when test="$width = 0"> - <xsl:value-of select="$def"/> - </xsl:when> - <xsl:otherwise> - <xsl:choose> - <xsl:when test="substring($txt, $width, 1) = ' '"> - <xsl:value-of select="$width"/> - </xsl:when> - <xsl:otherwise> - <xsl:call-template name="space-backward"> - <xsl:with-param select="$txt" name="txt"/> - <xsl:with-param select="$width - 1" name="width"/> - <xsl:with-param select="$def" name="def"/> - </xsl:call-template> - </xsl:otherwise> - </xsl:choose> - </xsl:otherwise> - </xsl:choose> - </xsl:template> - - <xsl:template name="space-forward"> - <xsl:param name="txt"/> - <xsl:param name="width"/> - <xsl:choose> - <xsl:when test="$width >= string-length($txt)"> - <xsl:value-of select="string-length($txt)"/> - </xsl:when> - <xsl:otherwise> - <xsl:choose> - <xsl:when test="substring($txt, $width, 1) = ' '"> - <xsl:value-of select="$width"/> - </xsl:when> - <xsl:otherwise> - <xsl:call-template name="space-forward"> - <xsl:with-param select="$txt" name="txt"/> - <xsl:with-param select="$width + 1" name="width"/> - </xsl:call-template> - </xsl:otherwise> - </xsl:choose> - </xsl:otherwise> - </xsl:choose> - </xsl:template> - -</xsl:stylesheet> |