de | 9bec93c | 2005-11-25 05:36:48 +0000 | [diff] [blame] | 1 | <?xml version="1.0" encoding="ISO-8859-1"?> <!-- -*- sgml -*- --> |
| 2 | <xsl:stylesheet version="1.0" |
| 3 | xmlns:xsl="http://www.w3.org/1999/XSL/Transform" |
| 4 | xmlns:ext="http://exslt.org/common" |
| 5 | xmlns:str-split2lines-func="f:str-split2lines-func" |
| 6 | exclude-result-prefixes="xsl ext str-split2lines-func"> |
| 7 | |
| 8 | |
| 9 | <!-- how much do I love haskell ... --> |
| 10 | <xsl:template name="str-foldl"> |
| 11 | <xsl:param name="pFunc" select="/.."/> |
| 12 | <xsl:param name="pA0"/> |
| 13 | <xsl:param name="pStr"/> |
| 14 | |
| 15 | <xsl:choose> |
| 16 | <xsl:when test="not(string($pStr))"> |
| 17 | <xsl:copy-of select="$pA0"/> |
| 18 | </xsl:when> |
| 19 | <xsl:otherwise> |
| 20 | <xsl:variable name="vFunResult"> |
| 21 | <xsl:apply-templates select="$pFunc[1]"> |
| 22 | <xsl:with-param name="arg0" select="$pFunc[position() > 1]"/> |
| 23 | <xsl:with-param name="arg1" select="$pA0"/> |
| 24 | <xsl:with-param name="arg2" select="substring($pStr,1,1)"/> |
| 25 | </xsl:apply-templates> |
| 26 | </xsl:variable> |
| 27 | |
| 28 | <xsl:call-template name="str-foldl"> |
| 29 | <xsl:with-param name="pFunc" select="$pFunc"/> |
| 30 | <xsl:with-param name="pStr" select="substring($pStr,2)"/> |
| 31 | <xsl:with-param name="pA0" select="ext:node-set($vFunResult)"/> |
| 32 | </xsl:call-template> |
| 33 | </xsl:otherwise> |
| 34 | </xsl:choose> |
| 35 | |
| 36 | </xsl:template> |
| 37 | |
| 38 | |
| 39 | <str-split2lines-func:str-split2lines-func/> |
| 40 | |
| 41 | <xsl:template name="str-split-to-lines"> |
| 42 | <xsl:param name="pStr"/> |
| 43 | <xsl:param name="pLineLength" select="60"/> |
| 44 | <xsl:param name="pDelimiters" select="' 
'"/> |
| 45 | <xsl:variable name="vsplit2linesFun" |
| 46 | select="document('')/*/str-split2lines-func:*[1]"/> |
| 47 | |
| 48 | <xsl:variable name="vrtfParams"> |
| 49 | <delimiters><xsl:value-of select="$pDelimiters"/></delimiters> |
| 50 | <lineLength><xsl:copy-of select="$pLineLength"/></lineLength> |
| 51 | </xsl:variable> |
| 52 | |
| 53 | <xsl:variable name="vResult"> |
| 54 | <xsl:call-template name="str-foldl"> |
| 55 | <xsl:with-param name="pFunc" select="$vsplit2linesFun"/> |
| 56 | <xsl:with-param name="pStr" select="$pStr"/> |
| 57 | |
| 58 | <xsl:with-param name="pA0" select="ext:node-set($vrtfParams)"/> |
| 59 | </xsl:call-template> |
| 60 | </xsl:variable> |
| 61 | |
| 62 | <xsl:for-each select="ext:node-set($vResult)/line"> |
| 63 | <xsl:for-each select="word"> |
| 64 | <xsl:value-of select="concat(., ' ')"/> |
| 65 | </xsl:for-each> |
| 66 | <xsl:value-of select="'
'"/> |
| 67 | </xsl:for-each> |
| 68 | </xsl:template> |
| 69 | |
| 70 | |
| 71 | <xsl:template match="str-split2lines-func:*"> |
| 72 | <xsl:param name="arg1" select="/.."/> |
| 73 | <xsl:param name="arg2"/> |
| 74 | |
| 75 | <xsl:copy-of select="$arg1/*[position() < 3]"/> |
| 76 | <xsl:copy-of select="$arg1/line[position() != last()]"/> |
| 77 | |
| 78 | <xsl:choose> |
| 79 | <xsl:when test="contains($arg1/*[1], $arg2)"> |
| 80 | <xsl:if test="string($arg1/word)"> |
| 81 | <xsl:call-template name="fillLine"> |
| 82 | <xsl:with-param name="pLine" select="$arg1/line[last()]"/> |
| 83 | <xsl:with-param name="pWord" select="$arg1/word"/> |
| 84 | <xsl:with-param name="pLineLength" select="$arg1/*[2]"/> |
| 85 | </xsl:call-template> |
| 86 | </xsl:if> |
| 87 | </xsl:when> |
| 88 | <xsl:otherwise> |
| 89 | <xsl:copy-of select="$arg1/line[last()]"/> |
| 90 | <word><xsl:value-of select="concat($arg1/word, $arg2)"/></word> |
| 91 | </xsl:otherwise> |
| 92 | </xsl:choose> |
| 93 | </xsl:template> |
| 94 | |
| 95 | |
| 96 | <!-- This template recognises every new word and accumulates the result, --> |
| 97 | <!-- which is a list of 'line' elements, each having a list of 'word' --> |
| 98 | <!-- children. After the last 'line' element there's a single 'word', in --> |
| 99 | <!-- which the 'current word; is being accumulated. Whenever the current --> |
de | 97ab7e7 | 2005-11-27 18:19:40 +0000 | [diff] [blame] | 100 | <!-- character is one of the specified delimiters, this signals the --> |
de | 9bec93c | 2005-11-25 05:36:48 +0000 | [diff] [blame] | 101 | <!-- formation of a new word. This word is either added to the last line --> |
| 102 | <!-- (if the total line length will not exceed the specified line-length), --> |
| 103 | <!-- or a new line is started and this word becomes the 1st in the new line --> |
| 104 | <xsl:template name="fillLine"> |
| 105 | <xsl:param name="pLine" select="/.."/> |
| 106 | <xsl:param name="pWord" select="/.."/> |
| 107 | <xsl:param name="pLineLength" /> |
de | 97ab7e7 | 2005-11-27 18:19:40 +0000 | [diff] [blame] | 108 | |
de | 9bec93c | 2005-11-25 05:36:48 +0000 | [diff] [blame] | 109 | <xsl:variable name="vnWordsInLine" select="count($pLine/word)"/> |
| 110 | <xsl:variable name="vLineLength" |
| 111 | select="string-length($pLine) + $vnWordsInLine"/> |
| 112 | |
| 113 | <xsl:choose> |
| 114 | <xsl:when test="not($vLineLength + string-length($pWord) > $pLineLength)"> |
| 115 | <line> |
| 116 | <xsl:copy-of select="$pLine/*"/> |
| 117 | <xsl:copy-of select="$pWord"/> |
| 118 | </line> |
| 119 | </xsl:when> |
| 120 | <xsl:otherwise> |
| 121 | <xsl:copy-of select="$pLine"/> |
| 122 | <line> |
| 123 | <xsl:copy-of select="$pWord"/> |
| 124 | </line> |
| 125 | <word/> |
| 126 | </xsl:otherwise> |
| 127 | </xsl:choose> |
| 128 | </xsl:template> |
| 129 | |
| 130 | |
| 131 | </xsl:stylesheet> |