60 lines
2.8 KiB
Plaintext
60 lines
2.8 KiB
Plaintext
|
# Tcl syntax file for Diffuse
|
||
|
|
# Copyright (C) 2008-2009 Derrick Moser <derrick_moser@yahoo.com>
|
||
|
|
syntax Tcl normal text
|
||
|
|
syntax_files Tcl '\.tcl$'
|
||
|
|
syntax_magic Tcl '^#![ \t]*([^ \t/]*/)*(env[ \t]+)?(tclsh|wish)[0-9\.]*([ \t].*)?$'
|
||
|
|
|
||
|
|
# colours
|
||
|
|
colour tcl_comment 0.2 0.4 0.64
|
||
|
|
colour tcl_fixme 1.0 0.5 0.0
|
||
|
|
colour tcl_literal 1.0 0.2 0.8
|
||
|
|
colour tcl_string 0.8 0.0 0.0
|
||
|
|
colour tcl_escapedchar 0.46 0.31 0.48
|
||
|
|
colour tcl_variable 0.02 0.6 0.6
|
||
|
|
colour tcl_keyword 0.77 0.63 0.0
|
||
|
|
colour tcl_punctuation 0.5 0.5 0.5
|
||
|
|
colour tcl_function 0.02 0.6 0.6
|
||
|
|
|
||
|
|
# whitespace/comments
|
||
|
|
syntax_pattern normal normal text '[ \t\r]+'
|
||
|
|
syntax_pattern expr expr text '[ \t\r]+'
|
||
|
|
syntax_pattern normal comment tcl_comment '#'
|
||
|
|
syntax_pattern comment normal tcl_comment '(\r\n|\r|\n)$'
|
||
|
|
syntax_pattern comment comment tcl_fixme '\b(TODO|FIXME|XXX)\b'
|
||
|
|
syntax_pattern comment comment tcl_comment '.[^TFX\r\n]*'
|
||
|
|
|
||
|
|
# strings
|
||
|
|
syntax_pattern expr string tcl_string '"'
|
||
|
|
syntax_pattern string expr tcl_string '"'
|
||
|
|
syntax_pattern string string tcl_variable '\$(([a-z_0-9]|::)+|\{([a-z_0-9]|::)+\})' ignorecase
|
||
|
|
syntax_pattern string string tcl_escapedchar '\\([0-7]{1,3}|x[0-9a-fA-F]{1,2}|u[0-9a-fA-F]{1,4}|.)'
|
||
|
|
syntax_pattern string string tcl_string '.[^\\"\$]*'
|
||
|
|
|
||
|
|
# escaped characters outside of strings
|
||
|
|
syntax_pattern expr expr tcl_escapedchar '\\([0-7]{1,3}|x[0-9a-fA-F]{1,2}|u[0-9a-fA-F]{1,4}|\r?\n|.)'
|
||
|
|
|
||
|
|
# literals
|
||
|
|
syntax_pattern expr expr python_literal '(0b[01]+|0o[0-7]+|0x[0-9a-f]+|([0-9]+(\.[0-9]*)?|\.[0-9]+)(e[\+\-]?[0-9]+)?)' ignorecase
|
||
|
|
syntax_pattern expr expr python_literal '\b(Inf|NaN)\b'
|
||
|
|
|
||
|
|
# keywords
|
||
|
|
syntax_pattern normal expr tcl_keyword '\b(after|append|array|bgerror|binary|break|case|catch|cd|chan|clock|close|concat|continue|dict|encoding|eof|error|eval|exec|exit|fblocked|fconfigure|fcopy|file|fileevent|flush|for|foreach|format|gets|glob|global|history|if|incr|info|interp|join|lappend|lassign|lindex|linsert|list|llength|load|lrange|lrepeat|lreplace|lreverse|lsearch|lset|lsort|memory|namespace|open|package|pid|pkg_mkIndex|puts|pwd|read|regexp|regsub|rename|return|scan|seek|set|socket|source|split|string|subst|switch|tell|time|trace|unknown|unload|unset|update|uplevel|upvar|variable|vwait|while)\b'
|
||
|
|
|
||
|
|
# function/class definitions
|
||
|
|
syntax_pattern normal declaration tcl_keyword '\b(proc)\b'
|
||
|
|
syntax_pattern declaration declaration text '[ \t]+'
|
||
|
|
syntax_pattern declaration expr tcl_function '([a-z_0-9]|::)+' ignorecase
|
||
|
|
syntax_pattern declaration expr text ''
|
||
|
|
|
||
|
|
# punctuation
|
||
|
|
syntax_pattern expr normal tcl_punctuation '[;\{\[]+'
|
||
|
|
syntax_pattern expr normal text '(\r\n|\r|\n)$'
|
||
|
|
syntax_pattern expr expr tcl_punctuation '[\^\}\]\-\+~!\*/%<>=&\|\?\:\(\)]+'
|
||
|
|
|
||
|
|
# environment variables
|
||
|
|
syntax_pattern expr expr tcl_variable '\$(([a-z_0-9]|::)+|\{([a-z_0-9]|::)+\})' ignorecase
|
||
|
|
|
||
|
|
# parsing optimisation
|
||
|
|
syntax_pattern expr expr text '[a-z_0-9]+' ignorecase
|
||
|
|
syntax_pattern normal expr text ''
|