UltraEdit高亮显示Tcl语法

2008.05.12

 将下面的内容加到UltraEdit目录下的wordfile.txt中:
http://www.ultraedit.com/files/wf/tcl-tk.txt

 

/L20"Tcl/tk" Line Comment = # String Chars = "' Escape Char = \ DisableMLS File Extensions = TCL TK
/Delimiters = ~!@%^&*()+=|\/{}[]:;"' <> ,?#
/Function String = "proc ^([a-zA-Z_0-9]++ {[ a-zA-Z_0-9{}]++^)"
/Function String 1 = "method ^([a-zA-Z_0-9]++ {[ a-zA-Z_0-9{}]++^)"
/Function String 2 = "^(constructor^) {*}*{"
/Function String 3 = "^(destructor^) {}"
/Function String 4 = "public ^(variable[ ^t]+[a-zA-Z_0-9]+^)"
/Function String 5 = "public ^(common[ ^t]+[A-Z_0-9]+^)"
/Indent Strings = "{"
/Unindent Strings = "}"
/Open Brace Strings = "{" "(" "["
/Close Brace Strings = "}" ")" "]"
/Open Fold Strings = "{"
/Close Fold Strings = "}"
/C1"Commands"
after append array auto_execok auto_load auto_mkindex auto_reset
bgerror break
case catch cd class clock close common concat constructor continue
destructor
else elseif eof error eval exec exit expr
fblocked fconfigure file fileevent flush for foreach format
gets glob global
history
if incr info inherit interp
join
lappend lindex linsert list llength load lrange lreplace lsearch lsort
method
open
package parray pid private proc protected public puts pwd
read regexp regsub rename return
scan seek set socket source split string subst switch
tcl_endOfWord tcl_startOfNextWord tcl_startOfPreviousWord
tcl_wordBreakAfter tcl_wordBreakBefore tell time
trace
unknown unset update uplevel upvar
variable vwait
while
/C2"Library Variables"
ErrorCode ErrorInfo
auto_execs auto_index auto_noexec auto_noload auto_path
env
tcl_library tcl_nonwordchars tcl_patchLevel tcl_pkgPath tcl_platform
tcl_precision tcl_rcFileName tcl_rcRsrcName tcl_version tcl_wordchars
unknown_active
/C3"Keywords"
bell bind bindtags bitmap button
canvas checkbutton clipboard
destroy
entry event
focus frame
grab grid
image
label listbox lower
menu menubutton message
option
pack photo place
radiobutton raise
scale scrollbar selection send
text tk tk_bindForTraversal tk_bisque tk_chooseColor tk_dialog tk_focusFollowsMouse
tk_focusNext tk_focusPrev tk_getOpenFile tk_getSaveFile tk_menuBar tk_messageBox
tk_optionMenu tk_popup tk_setPalette tkerror tkvars tkwait toplevel
winfo wm
/C4"Variable Substitutions"
** $
/C5"Delimiters"
!
%
&
(
)
*
+
,
// /
:
;
<
=
>
?
@
[
]
^
{
|
}
~