highlight.tcl

    # 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}

    puts [expr 1+2];
    puts bla\x61bla;
    puts bla\1234bla;
    puts text\nbla;
    puts $array(1);
    puts "bla\x61bla\1234bla\nbla$abc $array(1) $a(1,$2)blabla${incr-b}"
    puts $1$a::e$d:e$é$$