autotests/reference/highlight.tcl.ref

0001 <Comment># tcl syntax highlighting sample script for Kate</Comment><br/>
0002 <Comment>#</Comment><br/>
0003 <Comment># author: JM. Philippe 15/03/04</Comment><br/>
0004 <Normal Text></Normal Text><br/>
0005 <Comment># escaped characters</Comment><br/>
0006 <Keyword>set</Keyword><Normal Text> String </Normal Text><Char>\{</Char><br/>
0007 <Keyword>set</Keyword><Normal Text> String </Normal Text><Char>\{</Char><br/>
0008 <Keyword>set</Keyword><Normal Text> String </Normal Text><Char>\"</Char><br/>
0009 <Keyword>set</Keyword><Normal Text> String </Normal Text><String>" </String><Char>\"</Char><String> "</String><br/>
0010 <Keyword>set</Keyword><Normal Text> String </Normal Text><String>" </String><Char>\{</Char><String> "</String><br/>
0011 <Normal Text></Normal Text><br/>
0012 <Comment>#comments and not comments</Comment><br/>
0013 <Comment># is comments</Comment><br/>
0014 <Normal Text>;</Normal Text><Comment>#is comments</Comment><br/>
0015 <Normal Text>   </Normal Text><Comment># is comments</Comment><br/>
0016 <Comment># <h1> is html comment </h1></Comment><br/>
0017 <Keyword>puts</Keyword><Normal Text> ok;        </Normal Text><Comment># is comments</Comment><br/>
0018 <Keyword>set</Keyword><Normal Text> String </Normal Text><Keyword>[string</Keyword><Normal Text> </Normal Text><Parameter>map</Parameter><Normal Text> </Normal Text><Keyword>{</Keyword><Normal Text></a> </Normal Text><Keyword>{</Keyword><Normal Text><span>&#187;</Normal Text><Parameter>is</Parameter><Normal Text> not comments</span></a></Normal Text><Keyword>}}</Keyword><Normal Text> </Normal Text><Variable>$String</Variable><Keyword>]</Keyword><br/>
0019 <Keyword>set</Keyword><Normal Text> String </Normal Text><Char>\#</Char><Normal Text>not_a_comment</Normal Text><br/>
0020 <Normal Text></Normal Text><br/>
0021 <Comment># blocks</Comment><br/>
0022 <Keyword>proc</Keyword><Normal Text> test </Normal Text><Keyword>{</Keyword><Normal Text>arg1 </Normal Text><Keyword>{</Keyword><Normal Text>arg2 </Normal Text><Keyword>{}}</Keyword><Normal Text> </Normal Text><Keyword>{</Keyword><Normal Text>arg3 </Normal Text><Keyword>{</Keyword><Normal Text>fr fq r</Normal Text><Keyword>}}}</Keyword><Normal Text> </Normal Text><Keyword>{</Keyword><br/>
0023 <Normal Text>   </Normal Text><Keyword>if</Keyword><Normal Text> </Normal Text><Keyword>{</Keyword><Decimal>1</Decimal><Keyword>}</Keyword><Normal Text> </Normal Text><Keyword>{</Keyword><Normal Text>;       </Normal Text><Comment>#comments</Comment><br/>
0024 <Normal Text>           </Normal Text><Keyword>set</Keyword><Normal Text> String </Normal Text><Char>\{</Char><Normal Text>;    </Normal Text><Comment># not a block start</Comment><br/>
0025 <Normal Text>   </Normal Text><Keyword>}</Keyword><br/>
0026 <Keyword>}</Keyword><br/>
0027 <Normal Text></Normal Text><br/>
0028 <Keyword>proc</Keyword><Normal Text> test </Normal Text><Parameter>args</Parameter><Normal Text> </Normal Text><Keyword>{</Keyword><br/>
0029 <Normal Text>   </Normal Text><Keyword>set</Keyword><Normal Text> String </Normal Text><Char>\}</Char><Normal Text>;    </Normal Text><Comment># not a block end</Comment><br/>
0030 <Keyword>}</Keyword><br/>
0031 <Normal Text></Normal Text><br/>
0032 <Region Marker># BEGIN - collapsable comments</Region Marker><br/>
0033 <Comment># blablabla</Comment><br/>
0034 <Region Marker># END</Region Marker><br/>
0035 <Normal Text></Normal Text><br/>
0036 <Comment># strings</Comment><br/>
0037 <Keyword>set</Keyword><Normal Text> String </Normal Text><String>"feqr feqr </String><Variable>$</Variable><String>gqer gqe"</String><br/>
0038 <Keyword>set</Keyword><Normal Text> String </Normal Text><String>"feqr</String><br/>
0039 <String>feqr </String><Char>\"</Char><String> </String><Variable>$</Variable><String>gqer \</String><br/>
0040 <String>gqe</String><br/>
0041 <String>"</String><br/>
0042 <Keyword>set</Keyword><Normal Text> String </Normal Text><Keyword>{</Keyword><Normal Text>feqr</Normal Text><br/>
0043 <Normal Text>feqr </Normal Text><Char>\{</Char><Normal Text> </Normal Text><Variable>$gqer</Variable><Normal Text> \</Normal Text><br/>
0044 <Normal Text>gqe</Normal Text><br/>
0045 <Keyword>}</Keyword><br/>
0046 <Normal Text></Normal Text><br/>
0047 <Comment># variables</Comment><br/>
0048 <Keyword>set</Keyword><Normal Text> b+</Normal Text><Decimal>1</Decimal><Normal Text> </Normal Text><Keyword>[incr</Keyword><Normal Text> b</Normal Text><Keyword>]</Keyword><br/>
0049 <Keyword>set</Keyword><Normal Text> </Normal Text><Keyword>{incr</Keyword><Normal Text>-b</Normal Text><Keyword>}</Keyword><Normal Text> </Normal Text><Variable>${b+1}</Variable><br/>
0050 <Keyword>puts</Keyword><Normal Text> </Normal Text><Variable>${incr-b}</Variable><br/>