TCL/TK %term% tclsh %1/%2 tcl comment # \n string1 " \("\|\n\) string2 ' \('\|\n\) tclkeywords00 \b\(Http\|clock\|fblocked\|global\|llength\|proc\|seek\|unknown\|Safe Base\|close\)\b tclkeywords01 \b\(fconfigure\|history\|load\|puts\|set\|unset\|Tcl\|concat\|fcopy\|if\|lrange\|pwd\)\b tclkeywords02 \b\(socket\|update\|Tcltest\|continue\|file\|incr\|lreplace\|re_syntax\|source\|uplevel\)\b tclkeywords03 \b\(after\|ddefileevent\|info\|lsearch\|read\|split\|upvar\|append\|encoding\|filename\)\b tclkeywords04 \b\(interp\|lsort\|regexp\|string\|variable\|array\|eof\|flush\|join\|msgcat\|registry\)\b tclkeywords05 \b\(subst\|vwait\|bgerror\|error\|for\|lappend\|namespace\|regsub\|switch\|while\|binary\)\b tclkeywords06 \b\(eval\|foreach\|library\|open\|rename\|tclvars\|break\|exec\|format\|lindex\|package\)\b tclkeywords07 \b\(resource\|tell\|catch\|exit\|gets\|linsert\|pid\|return\|time\|cd\|expr\|glob\|list\)\b tclkeywords08 \b\(pkg_mkIndex\|scan\|trace\)\b tkkeywords00 \b\(bell\|event\|lower\|raise\|tk_focusFollowsMouse\|tkvars\|bind\|focus\|menu\|scale\)\b tkkeywords01 \b\(tk_focusNext\|tkwait\|bindtags\|font\|menubutton\|scrollbar\|tk_focusPrev\|toplevel\)\b tkkeywords02 \b\(bitmap\|frame\|message\|selection\|tk_getOpenFile\|winfo\|button\|grab\|option\)\b tkkeywords03 \b\(send\|tk_getSaveFile\|wm\|canvas\|grid\|options\|text\|tk_messageBox\|checkbutton\)\b tkkeywords04 \b\(image\|pack\|tk\|tk_optionMenu\|clipboard\|label\|photo\|tk_bisque\|tk_popup\)\b tkkeywords05 \b\(destroy\|listbox\|place\|tk_chooseColor\|tk_setPalette\|entry\|loadTk\|radiobutton\)\b tkkeywords06 \b\(tk_dialog\|tkerror\)\b vars \$[a-zA-Z_][a-zA-Z0-9_]* numbers \b[0-9]+\b