36 lines
1003 B
Plaintext
36 lines
1003 B
Plaintext
# language definition for TCL
|
|
|
|
include "script_comment.lang"
|
|
|
|
include "number.lang"
|
|
|
|
include "c_string.lang"
|
|
|
|
include "symbols.lang"
|
|
|
|
cbracket = "{|}"
|
|
|
|
keyword = "proc|global|upvar|if|then|else|elseif|for|foreach",
|
|
"break|continue|while|set|eval|case|in|switch",
|
|
"default|exit|error|proc|return|uplevel|loop",
|
|
"for_array_keys|for_recursive_glob|for_file|unwind_protect",
|
|
"expr|catch|namespace|rename|variable",
|
|
"method|itcl_class|public|protected",
|
|
"append|binary|format|re_syntax|regexp|regsub",
|
|
"scan|string|subst",
|
|
"concat|join|lappend|lindex|list|llength|lrange",
|
|
"lreplace|lsearch|lset|lsort|split",
|
|
"expr",
|
|
"incr|close|eof|fblocked|fconfigure|fcopy|file",
|
|
"fileevent|flush|gets|open|puts|read|seek",
|
|
"socket|tell",
|
|
"load|loadTk|package|pgk::create|pkg_mkIndex|source",
|
|
"bgerror|history|info|interp|memory|unknown",
|
|
"enconding|http|msgcat",
|
|
"cd|clock|exec|exit|glob|pid|pwd|time",
|
|
"dde|registry|resource"
|
|
|
|
vardef ID = '[[:word:]:-]+'
|
|
|
|
variable = "$" + $ID + "|${" + $ID + "}"
|