File: highlight.tcl

package info (click to toggle)
kde4libs 4%3A4.1.0-3%2Blenny1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 67,340 kB
  • ctags: 73,169
  • sloc: cpp: 570,431; xml: 138,644; ansic: 7,468; java: 4,060; perl: 3,127; yacc: 1,956; sh: 1,230; ruby: 668; python: 580; lex: 236; asm: 166; jsp: 128; haskell: 116; f90: 99; ml: 75; erlang: 54; awk: 38; tcl: 29; lisp: 24; php: 9; makefile: 9
file content (50 lines) | stat: -rw-r--r-- 823 bytes parent folder | download | duplicates (24) 
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
 
# tcl syntax highlighting sample script for Kate
#
# author: JM. Philippe 15/03/04

# escaped characters
set String \{
set String \{
set String \"
set String " \" "
set String " \{ "

#comments and not comments
# is comments
;#is comments
	# is comments
# <h1> is html comment </h1>
puts ok;	# is comments
set String [string map {</a> {<span>&#187;is not comments</span></a>}} $String]
set String \#not_a_comment

# blocks
proc test {arg1 {arg2 {}} {arg3 {fr fq r}}} {
	if {1} {;	#comments
		set String \{;	# not a block start
	}
}

proc test args {
	set String \};	# not a block end
}

# BEGIN - collapsable comments
# blablabla
# END

# strings
set String "feqr feqr $gqer gqe"
set String "feqr
feqr \" $gqer \
gqe
"
set String {feqr
feqr \{ $gqer \
gqe
}

# variables
set b+1 [incr b]
set {incr-b} ${b+1}
puts ${incr-b}