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
103
104
105
106
107
108
109
110
111
|
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:str="http://exslt.org/strings"
xmlns:exslt="http://exslt.org/common"
extension-element-prefixes="str exslt xsl"
exclude-result-prefixes="str exslt xsl">
<xsl:template name="lang.highlight.make.subtokenate">
<xsl:param name="data"/>
<xsl:param name="nokeywords"/>
<xsl:choose>
<xsl:when test="starts-with($data, '@') and substring($data, string-length($data)) = '@'">
<span class="PreProc"><xsl:value-of select="$data"/></span>
</xsl:when>
<xsl:when test="starts-with($data, '%')">
<span class="Identifier"><xsl:value-of select="$data"/></span>
</xsl:when>
<xsl:when test="contains($data, '$(')">
<xsl:call-template name="lang.highlight.m4.subtokenate">
<xsl:with-param name="data" select="substring-before($data, '$(')"/>
<xsl:with-param name="nokeywords" select="$nokeywords"/>
</xsl:call-template>
<span class="Identifier">$(<xsl:call-template name="lang.highlight.m4.subtokenate">
<xsl:with-param name="data" select="substring-before(substring-after($data, '$('), ')')"/>
<xsl:with-param name="nokeywords" select="$nokeywords"/>
</xsl:call-template>)</span>
<xsl:call-template name="lang.highlight.m4.subtokenate">
<xsl:with-param name="data" select="substring-after(substring-after($data, '$('), ')')"/>
<xsl:with-param name="nokeywords" select="$nokeywords"/>
</xsl:call-template>
</xsl:when>
<xsl:when test="$nokeywords = 'True'">
<xsl:value-of select="$data"/>
</xsl:when>
<!-- sh grammar -->
<xsl:when test="$data = '$?' or $data = '>' or $data = '$@' or $data = ':'">
<span class="Identifier"><xsl:value-of select="$data"/></span>
</xsl:when>
<!-- No match return -->
<xsl:otherwise>
<xsl:value-of select="$data"/>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template name="lang.highlight.make.tokenate">
<xsl:param name="data"/>
<!-- Only tokenize spaces, this way we preserve tabs. -->
<xsl:variable name="tokenizedData" select="str:tokenize_plasmaroo($data, '" 	')"/>
<!-- Scan for quotes... -->
<xsl:for-each select="exslt:node-set($tokenizedData)">
<xsl:variable name="myPos" select="position()"/>
<xsl:variable name="quotePos" select="count(../*[@delimiter='"' and position() < $myPos])"/>
<xsl:choose>
<xsl:when test="../*[position()=3] = '=' and $myPos = 1">
<span class="Type"><xsl:value-of select="."/></span>
</xsl:when>
<!-- Highlight a quote -->
<xsl:when test=". = '"'">
<span class="Statement">"</span>
</xsl:when>
<!-- If we're inside quotes stop here -->
<xsl:when test="$quotePos mod 2 != 0">
<span class="Constant">
<xsl:call-template name="lang.highlight.make.subtokenate">
<xsl:with-param name="data"><xsl:value-of select="."/></xsl:with-param>
<xsl:with-param name="nokeywords">True</xsl:with-param>
</xsl:call-template>
</span>
</xsl:when>
<!-- Highlight variable assignments;
@regexp = [\w]=["']{...}['"] -->
<xsl:when test="contains(., '=')">
<xsl:call-template name="lang.highlight.make.subtokenate">
<xsl:with-param name="data" select="substring-before(., '=')"/>
</xsl:call-template>
<span class="Constant">=</span>
<xsl:call-template name="lang.highlight.make.subtokenate">
<xsl:with-param name="data" select="substring-after(., '=')"/>
</xsl:call-template>
</xsl:when>
<!-- No match return -->
<xsl:otherwise>
<xsl:call-template name="lang.highlight.make.subtokenate">
<xsl:with-param name="data" select="."/>
</xsl:call-template>
</xsl:otherwise>
</xsl:choose>
</xsl:for-each>
</xsl:template>
</xsl:stylesheet>
<!-- Local Variables: -->
<!-- indent-tabs-mode: nil -->
<!-- fill-column: 120 -->
<!-- End: -->
|
GitWeb