Warning, /frameworks/syntax-highlighting/autotests/folding/highlight.tcl.fold is written in an unsupported language. File is not indexed.
0001 # tcl syntax highlighting sample script for Kate 0002 # 0003 # author: JM. Philippe 15/03/04 0004 0005 # escaped characters 0006 set String \{ 0007 set String \{ 0008 set String \" 0009 set String " \" " 0010 set String " \{ " 0011 0012 #comments and not comments 0013 # is comments 0014 ;#is comments 0015 # is comments 0016 # <h1> is html comment </h1> 0017 puts ok; # is comments 0018 set String [string map <beginfold id='1'>{</beginfold id='1'></a> <beginfold id='1'>{</beginfold id='1'><span>»is not comments</span></a><endfold id='1'>}</endfold id='1'><endfold id='1'>}</endfold id='1'> $String] 0019 set String \#not_a_comment 0020 0021 # blocks 0022 proc test <beginfold id='1'>{</beginfold id='1'>arg1 <beginfold id='1'>{</beginfold id='1'>arg2 <beginfold id='1'>{</beginfold id='1'><endfold id='1'>}</endfold id='1'><endfold id='1'>}</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>arg3 <beginfold id='1'>{</beginfold id='1'>fr fq r<endfold id='1'>}</endfold id='1'><endfold id='1'>}</endfold id='1'><endfold id='1'>}</endfold id='1'> <beginfold id='1'>{</beginfold id='1'> 0023 if <beginfold id='1'>{</beginfold id='1'>1<endfold id='1'>}</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>; #comments 0024 set String \{; # not a block start 0025 <endfold id='1'>}</endfold id='1'> 0026 <endfold id='1'>}</endfold id='1'> 0027 0028 proc test args <beginfold id='1'>{</beginfold id='1'> 0029 set String \}; # not a block end 0030 <endfold id='1'>}</endfold id='1'> 0031 0032 <beginfold id='2'># BEGIN - collapsable comments</beginfold id='2'> 0033 # blablabla 0034 <endfold id='2'># END</endfold id='2'> 0035 0036 # strings 0037 set String "feqr feqr $gqer gqe" 0038 set String "feqr 0039 feqr \" $gqer \ 0040 gqe 0041 " 0042 set String <beginfold id='1'>{</beginfold id='1'>feqr 0043 feqr \{ $gqer \ 0044 gqe 0045 <endfold id='1'>}</endfold id='1'> 0046 0047 # variables 0048 set b+1 [incr b] 0049 set <beginfold id='1'>{</beginfold id='1'>incr-b<endfold id='1'>}</endfold id='1'> ${b+1} 0050 puts ${incr-b}