tool command language.xml

SynEditStudio delphi 代码编辑器

<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="Tool Command Language" Extensions="tcl" Version="1" Revision="0" Sample="# All rights reserved.
#!/usr/local/tclsh8.0
if {$argc &lt; 2} {
	puts stderr &quot;Usage: $argv0 parameter&quot;
        exit 1}
package require Tcl 8.3		;# uses [glob -directory]
proc AcceptAll {value} {
return $value    }
proc AcceptDirectory { directory } {
set directory [AcceptAbsolutePath $directory]
if {![file exists $directory]} {
    return -code error &quot;\&quot;$directory\&quot; does not exist&quot;
}
if {![file isdir $directory]} {
    return -code error &quot;\&quot;$directory\&quot; is not a directory&quot;
}
return [AcceptReadable $directory]}
set Option($option) $msg
" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="[e-mail]" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="Root" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
			<SubRules>
				<Range Name="Remarks" CaseSensitive="True" Style="Remarks">
					<Attributes Foreground="$00A00000" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnEol="True"/>
					<MultiTokens>
						<Tokens Open="#"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Param" CaseSensitive="True" Style="Param">
					<Attributes Foreground="clBlue" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnTerm="True"/>
					<MultiTokens>
						<Tokens Open="$"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Strings" CaseSensitive="True" Style="Strings">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnEol="True"/>
					<MultiTokens>
						<Tokens Open="&quot;" Close="&quot;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Key words" Enabled="True" Style="" Words="after
append
array
auto_execok
auto_load
auto_mkindex
auto_reset
bgerror
break
case
catch
cd
clock
close
concat
continue
eof
error
eval
exec
exit
expr
else
elseif
fblocked
fconfigure
file
fileevent
flush
for
foreach
format
gets
glob
global
history
if
incr
info
interp
join
lappend
lindex
linsert
list
llength
load
lrange
lreplace
lsearch
lsort
open
package
parray
pid
proc
puts
pwd
read
regexp
regsub
rename
return
scan
seek
set
socket
source
split
string
subst
switch
tell
time
trace
tcl_endOfWord
tcl_startOfNextWord
tcl_startOfPreviousWord
tcl_wordBreakAfter
tcl_wordBreakBefore
unknown
unset
update
uplevel
upvar
vwait
while
exit
BINDIDPROC
BINDPROC
BINARY
FILENAME
HTTP
FCOPY
FONT
LIBRARY
LOADTK
NAMESPACE
RESOURCE
THEN
OPTIONS
REGISTRY
SAFEBASE
TCLVARS
TCL
SENDOUT
RGB
PKG_MKINDEX
NAMESPUPD
VARIABLE
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Ident" Enabled="True" Style="" Words="auto_execs
auto_index
auto_noexec
auto_noload
auto_path
env
ErrorCode
ErrorInfo
tcl_library
tcl_patchLevel
tcl_pkgPath
tcl_platform
tcl_precision
tcl_rcFileName
tcl_rcRsrcName
tcl_version
tcl_nonwordchars
tcl_wordchars
unknown_active
">
					<Attributes Foreground="$000080FF" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Functions" Enabled="True" Style="" Words="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
">
					<Attributes Foreground="$00FF0080" Background="clWhite"/>
				</KeyList>
			</SubRules>
		</MainRules>
	</SyntaxColoring>
	<CodeFolding/>
	<CustomData/>
</SynUniHighlighter>