blob: db742a87e8c3cc3d2b5983e0ad5f2b1cee3daab4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
<?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>
|
