1 " Vim syntax file for Tcl/tk language
3 " Maintained: SM Smithfield <m_smithfield@yahoo.com>
4 " Last Change: 05/01/2007 (20:03:29)
7 " ------------------------------------------------------------------
8 " GetLatestVimScripts: 1603 1 :AutoInstall: syntax/tcl.vim
9 " ------------------------------------------------------------------
11 " -------------------------
15 elseif exists("b:current_syntax")
19 " Highlight Options: restart vim, after changing these options.
20 " let s:tcl_highlight_namespace_bold = 1
21 " let s:tcl_highlight_bookends = 1
22 " let s:tcl_highlight_primary = 1
23 " let s:tcl_highlight_expressions = 1
24 " let s:tcl_highlight_variables = 1
25 " let s:tcl_highlight_secondary = 1
26 " let s:tcl_highlight_options = 1
27 " let s:tcl_highlight_lcs_are_warnings = 1
28 " let s:tcl_comments_ignore_nested_braces = 1
29 let s:tcl_highlight_all = 1
32 " let s:tcl_snit_active = 1
33 " let s:tcl_sqlite_active = 1
34 " let s:tcl_critcl_active = 1
35 " let s:tcl_togl_active = 1
36 " let s:tcl_itcl_active = 1
37 let s:tcl_ttk_active = 1
39 " one more highlight than the law allows
40 if exists("s:tcl_highlight_bookends")
42 hi Bold guifg=fg guibg=bg gui=bold
44 " on colorscheme, create Bold
47 au ColorScheme * hi Bold guifg=fg guibg=bg gui=bold
53 " -------------------------
55 " -------------------------
57 syn match tclKeywordGroup contained "\([^\[{ ]\)\@<!\w\+" contains=@tclKeywords,@tkKeywords
58 syn region tclWord1 contained start=+[^\[#{}"\]]\&\S+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclStuff
59 syn region tclWord0 contained start=+[^#]\&\S+ end=+\s\|$+ contains=@tclWord0Cluster skipwhite nextgroup=@tclWord1Cluster
60 syn region tclQuotes contained extend keepend matchgroup=tclQuotes start=+\(\\\)\@<!"+ end=+"+ skip=+\(\\\)\@<!\\"\|\(\\\\\\\)\@<!\\"\|\\\\+ contains=@tclQuotesCluster
61 syn region tclBrackets contained extend keepend matchgroup=Bold start=+\(\\\)\@<!\[+ end=+]\|$+ skip=+\\\s*$\|\(\\\)\@<!\\]+ contains=@tclCommandCluster
62 syn region tclBraces contained extend keepend matchgroup=Bold start=+\(\\\)\@<!{+ end=+}+ skip=+$\|\(\\\)\@<!\\}+ contains=@tclCommandCluster,tclComment
63 syn region tclFoldBraces contained extend keepend fold matchgroup=Bold start=+\(\\\)\@<!{+ end=+}+ skip=+$\|\(\\\)\@<!\\}+ contains=@tclCommandCluster
64 syn match tclSemiColon contained ";\s*" skipwhite nextgroup=@tclCommandCluster
65 if exists("s:tcl_comments_ignore_nested_braces")
66 syn region tclComment contained extend keepend start=+^\s*\#+ms=e-1 start=+\([;{]\s*\)\@<=\#+ end="\\\s\+$\|$" skip=+\\$+ contains=tclTodo,@tclLContinue,@Spell
68 syn region tclComment contained extend keepend start=+^\s*\#+ms=e-1 start=+\([;{]\s*\)\@<=\#+ end="\\\s\+$\|$" skip=+\\$\|\(\\\)\@<!\\}+ end="}"me=e-1 contains=tclTodo,@tclLContinue,@Spell,tclCommentBraces
69 syn region tclCommentBraces contained extend keepend matchgroup=Comment start=+\(\\\)\@<!{+ end=+}+ skip=+$\|\(\\\)\@<!\\}+
72 syn region tclCommand start=+[^;]\&.+ skip=+\\$+ end=+;\|$+ contains=@tclCommandCluster
74 syn match tclStart "\%^\s*#!.*$"
75 syn region tclStart start="\%^\s*#!/bin/sh" end="^\s*exec.*$"
78 " -------------------------
80 " -------------------------
81 syn cluster tcltkKeywords contains=@tclKeywords,@tkKeywords
82 syn cluster tclKeywords contains=tclPrimary,tclKeyword,tclException,tclConditional,tclRepeat,tclLabel,tclMagicName,tclNamespace
83 syn cluster tkKeywords contains=tkKeyword,tkReserved,tkWidget,tkDialog
85 syn cluster tclBits contains=tclBraces,tclBrackets,tclComment,tclExpand,@tclLContinue,tclNumber,tclQuotes,tclSpecial,tkColor,tkEvent,tclSemiColon
86 syn cluster tclStuff contains=@tclBits,tclVariable,tkBindSubstGroup,tkWidgetName,tclREClassGroup
87 syn cluster tclWord0Cluster contains=@tclStuff
88 syn cluster tclWord1Cluster contains=tclWord1,tclSecondary,tkWidgetCreate,tclConditional,@tclStuff
89 syn cluster tclQuotesCluster contains=tclSpecial,@tclLContinue,@Spell
90 syn cluster tclLContinue contains=tclLContinueOk,tclLContinueError
91 syn cluster tclCommandCluster contains=@tcltkKeywords,tclWord0,tclComment
95 " -------------------------
97 " -------------------------
98 syn keyword tclKeyword contained append apply auto_execok auto_import auto_load auto_mkindex auto_qualify auto_reset cd close concat eof exit fblocked flush format gets global http incr join lappend lassign lindex linsert llength load lrange lrepeat lreplace lreverse lset namespace parray pid pkg_mkIndex proc pwd registry rename return scan set split tclLog tcl_endOfWord tcl_findLibrary tcl_startOfNextWord tcl_startOfPreviousWord tcl_wordBreakAfter tcl_wordBreakBefore tell time unknown upvar variable vwait skipwhite nextgroup=tclPred
99 syn keyword tclMagicName contained argc argv argv0 auto_index auto_oldpath auto_path env errorCode errorInfo tcl_interactive tcl_libpath tcl_library tlc_patchlevel tcl_pkgPath tcl_platform tcl_precision tcl_rcFileName tcl_rcRsrcName tcl_traceCompile tcl_traceExec tcl_version
101 syn keyword tkKeyword contained bell bind clipboard console consoleinterp event focus grid pack place tkwait winfo wm
102 syn keyword tkKeyword contained bindtags destroy lower option raise send tkerror tkwait tk_bisque tk_focusNext tk_focusPrev tk_focusFollowsMouse tk_popup tk_setPalette tk_textCut tk_TextCopy tk_textPaste skipwhite nextgroup=tclPred
103 syn keyword tkDialog contained chooseColor tk_chooseColor tk_chooseDirectory tk_dialog tk_getOpenFile tkDialog tk_getSaveFile tk_messageBox
104 syn keyword tkReserved contained tk_library tk_strictMotif tk_version
105 syn keyword tkWidget contained button canvas checkbutton entry frame image label labelframe listbox menu menubutton message panedwindow radiobutton scale scrollbar spinbox toplevel skipwhite nextgroup=tkWidgetPredicate
106 " TODO widgets that are NOT part of tk
107 syn keyword tkWidget contained table mclistbox skipwhite nextgroup=tkWidgetPredicate
109 syn region tclPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclStuff
112 syn keyword tclPrimary contained if skipwhite nextgroup=tclIfCommentStart,tclExpression,@tclStuff
113 syn keyword tclConditional contained elseif skipwhite nextgroup=tclExpression,@tclStuff
114 syn keyword tclConditional contained else then
117 " syn keyword tclRepeat contained for skipwhite nextgroup=tclForStart,@tclStuff
118 syn keyword tclRepeat contained for skipwhite nextgroup=tclForStart
119 syn match tclForStart contained extend "\s*{[^}]\{-}}" contains=@tclCommandCluster skipwhite nextgroup=tclExpression,@tclStuff
120 syn keyword tclRepeat contained while skipwhite nextgroup=tclExpression,@tclStuff
121 syn keyword tclRepeat contained foreach skipwhite nextgroup=tclPred
122 syn keyword tclRepeat contained break continue
123 syn keyword tclLabel contained default
124 syn keyword tclException contained catch error
126 " EXPRESSION - that presumes to be an expression, occurs in expr, conditional, loops, etc...
127 syn keyword tclPrimary contained expr skipwhite nextgroup=tclExpression
128 syn match tclExpression contained "\\" skipwhite skipnl nextgroup=tclExpression contains=tclLContinueOk
129 syn match tclExpression contained extend "\\\s\+$" contains=tclLContinueError
130 syn region tclExpression contained extend start=+[^ {\\]+ skip=+\\$+ end=+}\|]\|;\|$+me=e-1 contains=tclMaths,@tclStuff
131 " NOTE: must include '\s*' in start, for while etc don't work w/o it, I think
132 " this is because matching the whitespace allows the expression to supercede
134 syn region tclExpression contained keepend extend matchgroup=Bold start=+\s*{+ end=+}+ skip=+$\|\\}+ contains=tclMaths,@tclStuff
135 syn keyword tclMaths contained abs acos asin atan atan2 bool ceil cos cosh double entier exp floor fmod hypot int isqrt log log10 max min pow rand round sin sinh sqrt srand tan tanh wide
136 syn keyword tclMaths contained ne eq in ni
137 syn match tclMaths contained "[()^%~<>!=+*\-|&?:/]"
139 " IF - permits use of if{0} {} commenting idiom
140 syn region tclIfComment contained extend keepend matchgroup=Comment start=+\(\\\)\@<!{+ skip=+$\|\\}+ end=+}+ contains=tclIfComment,tclTodo,@Spell
141 syn match tclIfCommentStart contained extend "\s*\(0\|{0}\)" skipwhite nextgroup=tclIfComment
143 " PROC - proc name hilite AND folding
144 syn keyword tclPrimary contained proc skipwhite nextgroup=tclProcName
146 syn match tclProcDef contained "\S\+" skipwhite nextgroup=tclFoldBraces
147 " type-name-args-script pattern
148 syn match tclProcType contained "\S\+" skipwhite nextgroup=tclProcName
149 syn match tclProcName contained "\S\+" skipwhite nextgroup=tclProcArgs
150 syn region tclProcArgs contained extend keepend excludenl matchgroup=Bold start=+\(\\\)\@<!{+ skip=+$\|\\}+ end=+}+ contains=tclProcArgs skipwhite nextgroup=tclFoldBraces
153 " -------------------------
155 " -------------------------
156 syn keyword tclTodo contained TODO
157 syn match tkEvent contained "<\S\+>"
158 syn match tkEvent contained "<<.\+>>"
159 syn match tkColor contained "#[0-9A-Fa-f]\{6}\|#[0-9A-Fa-f]\{3}"
160 syn match tclNumber contained "\<\d\+\(u\=l\=\|lu\|f\|L\)\>"
161 syn match tclNumber contained "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
162 syn match tclNumber contained "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
163 syn match tclNumber contained "\<\d\+e[-+]\=\d\+[fl]\=\>"
164 syn match tclNumber contained "0x[0-9a-f]\+\(u\=l\=\|lu\)\>"
165 syn match tclVariable contained "\$\(\(:\{2,}\)\?\([[:alnum:]_]*::\)*\)[[:alnum:]_]*"
166 syn region tclVariable contained start=+\$\(\(:\{2,}\)\?\([[:alnum:]_]*::\)*\)[[:alnum:]_]\+(+ skip=+\\)+ end=+)+ contains=@tclStuff
167 syn match tclVariable contained extend "${[^}]*}"
168 syn match tclSpecial contained "\\\d\d\d\=\|\\."
169 syn match tkWidgetName contained "\([[:alnum:]]\)\@<!\.[[:alpha:]][[:alnum:]]*\(\.[[:alpha:]][[:alnum:]]*\)*\>"
170 if exists("s:tcl_highlight_lcs_are_warnings")
171 syn match tclLContinueOk contained "\\$"
173 syn match tclLContinueOk contained "\\$" transparent
175 syn match tclLContinueError contained "\\\s\+$" excludenl
176 syn match tclExpand contained extend "{expand}"
177 syn match tclExpand contained extend "{\*}"
178 syn match tclREClassGroup contained extend +\(\\\)\@<!\[^\?\[:\(\w\+\|[<>]\):]_\?]+ contains=tclREClass
179 syn keyword tclREClass contained alpha upper lower digit xdigit alnum print blank space punct graph cntrl
183 " -------------------------
184 " Tcl: Syntax - Keyword Predicates
185 " -------------------------
187 " SPECIAL CASE: predicate can contain a command
188 syn region tclListPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclCommandCluster
189 syn keyword tclPrimary contained eval list skipwhite nextgroup=tclListPred
192 " SPECIAL CASE: contains a command and a leve
193 syn region tclUplevelPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclCommandCluster
194 syn match tclUplevelLevel contained "\S\+" contains=@tclCommandCluster skipwhite nextgroup=tclUplevelPred
195 syn keyword tclPrimary contained uplevel skipwhite nextgroup=tclUplevelLevel
198 " SPECIAL CASE: FOLDING
199 syn keyword tclPrimary contained namespace skipwhite nextgroup=tclNamespacePred
200 syn keyword tclNamespaceCmds contained children code current delete eval exists forget inscope origin parent path qualifiers tail unknown upvar
201 syn region tclNamespacePred contained keepend fold start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclNamespaceCmds,tclNamespaceEnsemble,@tclStuff
202 syn match tclNamespaceExportOptsGroup contained "-\a\+" contains=tclNamespaceExportOpts
203 syn keyword tclNamespaceExportOpts contained clear force command variable
204 syn region tclNamespaceExportPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclNamespaceExportOptsGroup,@tclStuff
205 syn keyword tclNamespaceCmds contained export import which skipwhite nextgroup=tclNamespaceExportPred
206 syn match tclNamespaceEnsembleExistsOptsGroup contained "-\a\+" contains=tclNamespaceEnsembleExistsOpts
207 syn keyword tclNamespaceEnsembleExistsOpts contained map prefixes subcommands unknown command namespace
208 syn region tclNamespaceEnsembleExistsPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclNamespaceEnsembleExistsOptsGroup,@tclStuff
209 syn keyword tclNamespaceEnsembleCmds contained exists create configure skipwhite nextgroup=tclNamespaceEnsembleExistsPred
210 syn region tclNamespaceEnsemblePred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclNamespaceEnsembleCmds,@tclStuff
211 syn keyword tclNamespaceEnsemble contained ensemble skipwhite nextgroup=tclNamespaceEnsemblePred
214 syn keyword tclPrimary contained puts read skipwhite nextgroup=tclPutsPred
215 syn region tclPutsPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclPutsOptsGroup,@tclStuff
216 syn match tclPutsOptsGroup contained "-\a\+" contains=tclPutsOpts
217 syn keyword tclPutsOpts contained nonewline
219 syn keyword tclPrimary contained return skipwhite nextgroup=tclReturnPred
220 syn region tclReturnPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclReturnOptsGroup,@tclStuff
221 syn match tclReturnOptsGroup contained "-\a\+" contains=tclReturnOpts
222 syn keyword tclReturnOpts contained code errorcode errorinfo level options
224 syn keyword tclPrimary contained source skipwhite nextgroup=tclSourcePred
225 syn region tclSourcePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclSourceOptsGroup,@tclStuff
226 syn match tclSourceOptsGroup contained "-\a\+" contains=tclSourceOpts
227 syn keyword tclSourceOpts contained encoding
229 syn keyword tclPrimary contained after skipwhite nextgroup=tclAfterPred
230 syn region tclAfterPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclAfterCmds,@tclStuff
231 syn keyword tclAfterCmds contained cancel idle info skipwhite nextgroup=tclAfterCmdsCancelPred
232 syn region tclAfterCmdsCancelPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
234 syn keyword tclPrimary contained array skipwhite nextgroup=tclArrayPred
235 syn region tclArrayPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclArrayCmds,@tclStuff
236 syn keyword tclArrayCmds contained anymore donesearch exists get nextelement set size startsearch statistics unset skipwhite nextgroup=tclArrayCmdsAnymorePred
237 syn region tclArrayCmdsAnymorePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
238 syn match tclArrayCmdsNamesOptsGroup contained "-\a\+" contains=tclArrayCmdsNamesOpts
239 syn keyword tclArrayCmdsNamesOpts contained exact glob regexp
240 syn keyword tclArrayCmds contained names skipwhite nextgroup=tclArrayCmdsNamesPred
241 syn region tclArrayCmdsNamesPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclArrayCmdsNamesOptsGroup,@tclStuff skipwhite nextgroup=tclArrayCmds
243 syn keyword tclPrimary contained binary skipwhite nextgroup=tclBinaryPred
244 syn region tclBinaryPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclBinaryCmds,@tclStuff
245 syn keyword tclBinaryCmds contained format scan skipwhite nextgroup=tclBinaryCmdsFormatPred
246 syn region tclBinaryCmdsFormatPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
248 syn keyword tclPrimary contained encoding skipwhite nextgroup=tclEncodingPred
249 syn region tclEncodingPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclEncodingCmds,@tclStuff
250 syn keyword tclEncodingCmds contained convertfrom convertto names system skipwhite nextgroup=tclEncodingCmdsConvertfromPred
251 syn region tclEncodingCmdsConvertfromPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
253 syn keyword tclPrimary contained info skipwhite nextgroup=tclInfoPred
254 syn region tclInfoPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclInfoCmds,@tclStuff
255 syn keyword tclInfoCmds contained args body cmdcount commands complete default exists frame functions globals hostname level library loaded locals nameofexecutable patchlevel procs script sharedlibextension tclversion vars skipwhite nextgroup=tclInfoCmdsArgsPred
256 syn region tclInfoCmdsArgsPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
258 syn keyword tclPrimary contained memory skipwhite nextgroup=tclMemoryPred
259 syn region tclMemoryPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclMemoryCmds,@tclStuff
260 syn keyword tclMemoryCmds contained active break info init onexit tag trace validate skipwhite nextgroup=tclMemoryCmdsActivePred
261 syn region tclMemoryCmdsActivePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
263 syn keyword tclPrimary contained update skipwhite nextgroup=tclUpdatePred
264 syn region tclUpdatePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclUpdateCmds,@tclStuff
265 syn keyword tclUpdateCmds contained idletasks skipwhite nextgroup=tclUpdateCmdsIdletasksPred
266 syn region tclUpdateCmdsIdletasksPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
268 syn keyword tclPrimary contained exec skipwhite nextgroup=tclExecPred
269 syn region tclExecPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclExecOptsGroup,@tclStuff
270 syn match tclExecOptsGroup contained "-\a\+" contains=tclExecOpts
271 syn keyword tclExecOpts contained keepnewline ignorestderr
273 syn keyword tclPrimary contained glob skipwhite nextgroup=tclGlobPred
274 syn region tclGlobPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclGlobOptsGroup,@tclStuff
275 syn match tclGlobOptsGroup contained "-\a\+" contains=tclGlobOpts
276 syn keyword tclGlobOpts contained directory join nocomplain path tails types
278 syn keyword tclPrimary contained regexp skipwhite nextgroup=tclRegexpPred
279 syn region tclRegexpPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclRegexpOptsGroup,@tclStuff
280 syn match tclRegexpOptsGroup contained "-\a\+" contains=tclRegexpOpts
281 syn keyword tclRegexpOpts contained about expanded indicies line linestop lineanchor nocase all inline start
283 syn keyword tclPrimary contained regsub skipwhite nextgroup=tclRegsubPred
284 syn region tclRegsubPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclRegsubOptsGroup,@tclStuff
285 syn match tclRegsubOptsGroup contained "-\a\+" contains=tclRegsubOpts
286 syn keyword tclRegsubOpts contained all expanded line linestop nocase start
288 syn keyword tclPrimary contained switch skipwhite nextgroup=tclSwitchPred
289 syn region tclSwitchPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclSwitchOptsGroup,@tclStuff
290 syn match tclSwitchOptsGroup contained "-\a\+" contains=tclSwitchOpts
291 syn keyword tclSwitchOpts contained exact glob regexp nocase matchvar indexvar
293 syn keyword tclPrimary contained unload skipwhite nextgroup=tclUnloadPred
294 syn region tclUnloadPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclUnloadOptsGroup,@tclStuff
295 syn match tclUnloadOptsGroup contained "-\a\+" contains=tclUnloadOpts
296 syn keyword tclUnloadOpts contained nocomplain keeplibrary
298 syn keyword tclPrimary contained unset skipwhite nextgroup=tclUnsetPred
299 syn region tclUnsetPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclUnsetOptsGroup,@tclStuff
300 syn match tclUnsetOptsGroup contained "-\a\+" contains=tclUnsetOpts
301 syn keyword tclUnsetOpts contained nocomplain
303 syn keyword tclPrimary contained subst skipwhite nextgroup=tclSubstPred
304 syn region tclSubstPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclSubstOptsGroup,@tclStuff
305 syn match tclSubstOptsGroup contained "-\a\+" contains=tclSubstOpts
306 syn keyword tclSubstOpts contained nocommands novariables nobackslashes
308 syn keyword tclPrimary contained lsearch skipwhite nextgroup=tclLsearchPred
309 syn region tclLsearchPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclLsearchOptsGroup,@tclStuff
310 syn match tclLsearchOptsGroup contained "-\a\+" contains=tclLsearchOpts
311 syn keyword tclLsearchOpts contained exact glob regexp sorted all inline not ascii dictionary integer nocase real decreasing increasing subindices
312 syn match tclLsearchOptsGroup contained "-\a\+" contains=tclLsearchOpts
313 syn keyword tclLsearchOpts contained start index
315 syn keyword tclPrimary contained lsort skipwhite nextgroup=tclLsortPred
316 syn region tclLsortPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclLsortOptsGroup,@tclStuff
317 syn match tclLsortOptsGroup contained "-\a\+" contains=tclLsortOpts
318 syn keyword tclLsortOpts contained ascii dictionary integer real increasing decreasing indicies nocase unique
319 syn match tclLsortOptsGroup contained "-\a\+" contains=tclLsortOpts
320 syn keyword tclLsortOpts contained command index
322 syn keyword tclPrimary contained fconfigure skipwhite nextgroup=tclFconfigurePred
323 syn region tclFconfigurePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclFconfigureOptsGroup,@tclStuff
324 syn match tclFconfigureOptsGroup contained "-\a\+" contains=tclFconfigureOpts
325 syn keyword tclFconfigureOpts contained blocking buffering buffersize encoding eofchar error
326 syn match tclFconfigureOptsGroup contained "-\a\+" contains=tclFconfigureOpts
327 syn keyword tclFconfigureOpts contained translation
329 syn keyword tclPrimary contained fcopy skipwhite nextgroup=tclFcopyPred
330 syn region tclFcopyPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclFcopyOptsGroup,@tclStuff
331 syn match tclFcopyOptsGroup contained "-\a\+" contains=tclFcopyOpts
332 syn keyword tclFcopyOpts contained size command
334 syn keyword tclPrimary contained socket skipwhite nextgroup=tclSocketPred
335 syn region tclSocketPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclSocketOptsGroup,@tclStuff
336 syn match tclSocketOptsGroup contained "-\a\+" contains=tclSocketOpts
337 syn keyword tclSocketOpts contained server myaddr myport async myaddr error sockname peername
339 syn keyword tclPrimary contained fileevent skipwhite nextgroup=tclFileeventPred
340 syn region tclFileeventPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclFileeventCmds,@tclStuff
341 syn keyword tclFileeventCmds contained readable writable skipwhite nextgroup=tclFileeventCmdsReadablePred
342 syn region tclFileeventCmdsReadablePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
344 syn keyword tclPrimary contained open skipwhite nextgroup=tclOpenPred
345 syn region tclOpenPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclOpenOptsGroup,@tclStuff
346 syn match tclOpenOptsGroup contained "-\a\+" contains=tclOpenOpts
347 syn keyword tclOpenOpts contained mode handshake queue timeout ttycontrol ttystatus xchar pollinterval sysbuffer lasterror
349 syn keyword tclPrimary contained seek skipwhite nextgroup=tclSeekPred
350 syn region tclSeekPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclSeekCmds,@tclStuff
351 syn keyword tclSeekCmds contained start current end skipwhite nextgroup=tclSeekCmdsStartPred
352 syn region tclSeekCmdsStartPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
354 syn keyword tclPrimary contained clock skipwhite nextgroup=tclClockPred
355 syn region tclClockPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclClockCmds,@tclStuff
356 syn keyword tclClockCmds contained microseconds milliseconds seconds skipwhite nextgroup=tclClockCmdsMicrosecondsPred
357 syn region tclClockCmdsMicrosecondsPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
358 syn match tclClockCmdsAddOptsGroup contained "-\a\+" contains=tclClockCmdsAddOpts
359 syn keyword tclClockCmdsAddOpts contained base format gmt locale timezone
360 syn keyword tclClockCmds contained add clicks format scan skipwhite nextgroup=tclClockCmdsAddPred
361 syn region tclClockCmdsAddPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclClockCmdsAddOptsGroup,@tclStuff skipwhite nextgroup=tclClockCmds
363 syn keyword tclPrimary contained dict skipwhite nextgroup=tclDictPred
364 syn region tclDictPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclDictCmds,@tclStuff
365 syn keyword tclDictCmds contained append create exists for get incr info keys lappend merge remove replace set size unset update values with skipwhite nextgroup=tclDictCmdsAppendPred
366 syn region tclDictCmdsAppendPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
367 syn match tclDictCmdsFilterOptsGroup contained "-\a\+" contains=tclDictCmdsFilterOpts
368 syn keyword tclDictCmdsFilterOpts contained key script value
369 syn keyword tclDictCmds contained filter skipwhite nextgroup=tclDictCmdsFilterPred
370 syn region tclDictCmdsFilterPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclDictCmdsFilterOptsGroup,@tclStuff skipwhite nextgroup=tclDictCmds
372 syn keyword tclPrimary contained chan skipwhite nextgroup=tclChanPred
373 syn region tclChanPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclChanCmds,@tclStuff
374 syn keyword tclChanCmds contained blocked close create eof event flush gets names pending postevent seek tell truncate skipwhite nextgroup=tclChanCmdsBlockedPred
375 syn region tclChanCmdsBlockedPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
376 syn match tclChanCmdsConfigureOptsGroup contained "-\a\+" contains=tclChanCmdsConfigureOpts
377 syn keyword tclChanCmdsConfigureOpts contained blocking buffering buffersize encoding eofchar translation
378 syn keyword tclChanCmds contained configure skipwhite nextgroup=tclChanCmdsConfigurePred
379 syn region tclChanCmdsConfigurePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclChanCmdsConfigureOptsGroup,@tclStuff skipwhite nextgroup=tclChanCmds
380 syn match tclChanCmdsCopyOptsGroup contained "-\a\+" contains=tclChanCmdsCopyOpts
381 syn keyword tclChanCmdsCopyOpts contained size command
382 syn keyword tclChanCmds contained copy skipwhite nextgroup=tclChanCmdsCopyPred
383 syn region tclChanCmdsCopyPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclChanCmdsCopyOptsGroup,@tclStuff skipwhite nextgroup=tclChanCmds
384 syn match tclChanCmdsPutsOptsGroup contained "-\a\+" contains=tclChanCmdsPutsOpts
385 syn keyword tclChanCmdsPutsOpts contained nonewline
386 syn keyword tclChanCmds contained puts read skipwhite nextgroup=tclChanCmdsPutsPred
387 syn region tclChanCmdsPutsPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclChanCmdsPutsOptsGroup,@tclStuff skipwhite nextgroup=tclChanCmds
388 syn keyword tclSecondary contained initialize finalize watch read write seek configure cget cgetall blocking skipwhite nextgroup=tclChanSUBInitializePred
389 syn region tclChanSUBInitializePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclStuff
391 syn keyword tclPrimary contained file skipwhite nextgroup=tclFilePred
392 syn region tclFilePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclFileCmds,@tclStuff
393 syn keyword tclFileCmds contained channels dirname executable exists extension isdirectory isfile join link lstat mkdir mtime nativename normalize owned pathtype readable readlink rootname separator size split stat system tail volumes writable skipwhite nextgroup=tclFileCmdsChannelsPred
394 syn region tclFileCmdsChannelsPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
395 syn match tclFileCmdsAtimeOptsGroup contained "-\a\+" contains=tclFileCmdsAtimeOpts
396 syn keyword tclFileCmdsAtimeOpts contained time
397 syn keyword tclFileCmds contained atime skipwhite nextgroup=tclFileCmdsAtimePred
398 syn region tclFileCmdsAtimePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclFileCmdsAtimeOptsGroup,@tclStuff skipwhite nextgroup=tclFileCmds
399 syn match tclFileCmdsCopyOptsGroup contained "-\a\+" contains=tclFileCmdsCopyOpts
400 syn keyword tclFileCmdsCopyOpts contained force
401 syn keyword tclFileCmds contained copy delete rename skipwhite nextgroup=tclFileCmdsCopyPred
402 syn region tclFileCmdsCopyPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$\|--+ contains=tclFileCmdsCopyOptsGroup,@tclStuff skipwhite nextgroup=tclFileCmds
403 syn match tclFileCmdsAttributesOptsGroup contained "-\a\+" contains=tclFileCmdsAttributesOpts
404 syn keyword tclFileCmdsAttributesOpts contained group owner permissions readonly archive hidden longname shortname system creator rsrclength
405 syn keyword tclFileCmds contained attributes skipwhite nextgroup=tclFileCmdsAttributesPred
406 syn region tclFileCmdsAttributesPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclFileCmdsAttributesOptsGroup,@tclStuff skipwhite nextgroup=tclFileCmds
408 syn keyword tclPrimary contained history skipwhite nextgroup=tclHistoryPred
409 syn region tclHistoryPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclHistoryCmds,@tclStuff
410 syn keyword tclHistoryCmds contained change clear event info keep nextid redo skipwhite nextgroup=tclHistoryCmdsChangePred
411 syn region tclHistoryCmdsChangePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
412 syn keyword tclHistoryCmdsAddCmds contained exec skipwhite nextgroup=tclHistoryCmdsAddCmdsExecPred
413 syn region tclHistoryCmdsAddCmdsExecPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
414 syn keyword tclHistoryCmds contained add skipwhite nextgroup=tclHistoryCmdsAddPred
415 syn region tclHistoryCmdsAddPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclHistoryCmdsAddCmds,@tclStuff skipwhite nextgroup=tclHistoryCmds
417 syn keyword tclPrimary contained package skipwhite nextgroup=tclPackagePred
418 syn region tclPackagePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclPackageCmds,@tclStuff
419 syn keyword tclPackageCmds contained forget ifneeded names provide unknown vcompare versions vsatisfies skipwhite nextgroup=tclPackageCmdsForgetPred
420 syn region tclPackageCmdsForgetPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
421 syn match tclPackageCmdsPresentOptsGroup contained "-\a\+" contains=tclPackageCmdsPresentOpts
422 syn keyword tclPackageCmdsPresentOpts contained exact
423 syn keyword tclPackageCmds contained present require skipwhite nextgroup=tclPackageCmdsPresentPred
424 syn region tclPackageCmdsPresentPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclPackageCmdsPresentOptsGroup,@tclStuff skipwhite nextgroup=tclPackageCmds
427 syn keyword tclPrimary contained string skipwhite nextgroup=tclStringPred
428 syn region tclStringPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclStringCmds,@tclStuff
429 syn keyword tclStringCmds contained bytelength first index last length range repeat replace reverse tolower totitle toupper trim trimleft trimright wordend wordstart skipwhite nextgroup=tclStringCmdsBytelengthPred
430 syn region tclStringCmdsBytelengthPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
431 syn match tclStringCmdsCompareOptsGroup contained "-\a\+" contains=tclStringCmdsCompareOpts
432 syn keyword tclStringCmdsCompareOpts contained nocase length
433 syn keyword tclStringCmds contained compare equal skipwhite nextgroup=tclStringCmdsComparePred
434 syn region tclStringCmdsComparePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclStringCmdsCompareOptsGroup,@tclStuff skipwhite nextgroup=tclStringCmds
435 syn match tclStringCmdsMapOptsGroup contained "-\a\+" contains=tclStringCmdsMapOpts
436 syn keyword tclStringCmdsMapOpts contained nocase
437 syn keyword tclStringCmds contained map match skipwhite nextgroup=tclStringCmdsMapPred
438 syn region tclStringCmdsMapPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclStringCmdsMapOptsGroup,@tclStuff skipwhite nextgroup=tclStringCmds
439 syn match tclStringCmdsIsClassAlnumOptsGroup contained "-\a\+" contains=tclStringCmdsIsClassAlnumOpts
440 syn keyword tclStringCmdsIsClassAlnumOpts contained strict failindex
441 syn keyword tclStringCmdsIsClass contained alnum alpha ascii boolean control digit double false graph integer list lower print punct space true upper wideinteger wordchar xdigit skipwhite nextgroup=tclStringCmdsIsClassAlnumPred
442 syn region tclStringCmdsIsClassAlnumPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclStringCmdsIsClassAlnumOptsGroup,@tclStuff skipwhite nextgroup=tclStringCmdsIsClass
443 syn keyword tclStringCmds contained is skipwhite nextgroup=tclStringCmdsIsPred
444 syn region tclStringCmdsIsPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclStringCmdsIsClass,@tclStuff skipwhite nextgroup=tclStringCmds
446 syn keyword tclPrimary contained trace skipwhite nextgroup=tclTracePred
447 syn region tclTracePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclTraceCmds,@tclStuff
448 syn keyword tclTraceCmds contained variable vdelete vinfo skipwhite nextgroup=tclTraceCmdsVariablePred
449 syn region tclTraceCmdsVariablePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
450 syn keyword tclTraceCmdsAddCmdsCommandCmds contained rename trace skipwhite nextgroup=tclTraceCmdsAddCmdsCommandCmdsRenamePred
451 syn region tclTraceCmdsAddCmdsCommandCmdsRenamePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
452 syn keyword tclTraceCmdsAddCmds contained command skipwhite nextgroup=tclTraceCmdsAddCmdsCommandPred
453 syn region tclTraceCmdsAddCmdsCommandPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclTraceCmdsAddCmdsCommandCmds,@tclStuff skipwhite nextgroup=tclTraceCmdsAddCmds
454 syn keyword tclTraceCmds contained add remove info skipwhite nextgroup=tclTraceCmdsAddPred
455 syn region tclTraceCmdsAddPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclTraceCmdsAddCmds,@tclStuff skipwhite nextgroup=tclTraceCmds
456 syn keyword tclTraceCmdsAddCmdsExecutionCmds contained enter leave enterstep leavestep skipwhite nextgroup=tclTraceCmdsAddCmdsExecutionCmdsEnterPred
457 syn region tclTraceCmdsAddCmdsExecutionCmdsEnterPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
458 syn keyword tclTraceCmdsAddCmds contained execution skipwhite nextgroup=tclTraceCmdsAddCmdsExecutionPred
459 syn region tclTraceCmdsAddCmdsExecutionPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclTraceCmdsAddCmdsExecutionCmds,@tclStuff skipwhite nextgroup=tclTraceCmdsAddCmds
460 syn keyword tclTraceCmds contained add remove info skipwhite nextgroup=tclTraceCmdsAddPred
461 syn region tclTraceCmdsAddPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclTraceCmdsAddCmds,@tclStuff skipwhite nextgroup=tclTraceCmds
462 syn keyword tclTraceCmdsAddCmdsVariableCmds contained array read write unset skipwhite nextgroup=tclTraceCmdsAddCmdsVariableCmdsArrayPred
463 syn region tclTraceCmdsAddCmdsVariableCmdsArrayPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
464 syn keyword tclTraceCmdsAddCmds contained variable skipwhite nextgroup=tclTraceCmdsAddCmdsVariablePred
465 syn region tclTraceCmdsAddCmdsVariablePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclTraceCmdsAddCmdsVariableCmds,@tclStuff skipwhite nextgroup=tclTraceCmdsAddCmds
466 syn keyword tclTraceCmds contained add remove info skipwhite nextgroup=tclTraceCmdsAddPred
467 syn region tclTraceCmdsAddPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclTraceCmdsAddCmds,@tclStuff skipwhite nextgroup=tclTraceCmds
469 syn keyword tclPrimary contained interp skipwhite nextgroup=tclInterpPred
470 syn region tclInterpPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclInterpCmds,@tclStuff
471 syn match tclInterpCmdsCreateOptsGroup contained "-\a\+" contains=tclInterpCmdsCreateOpts
472 syn keyword tclInterpCmdsCreateOpts contained safe
473 syn keyword tclInterpCmds contained create skipwhite nextgroup=tclInterpCmdsCreatePred
474 syn region tclInterpCmdsCreatePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclInterpCmdsCreateOptsGroup,@tclStuff skipwhite nextgroup=tclInterpCmds
475 syn match tclInterpCmdsInvokehiddenOptsGroup contained "-\a\+" contains=tclInterpCmdsInvokehiddenOpts
476 syn keyword tclInterpCmdsInvokehiddenOpts contained namespace global
477 syn keyword tclInterpCmds contained invokehidden skipwhite nextgroup=tclInterpCmdsInvokehiddenPred
478 syn region tclInterpCmdsInvokehiddenPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclInterpCmdsInvokehiddenOptsGroup,@tclStuff skipwhite nextgroup=tclInterpCmds
479 syn match tclInterpCmdsLimitOptsGroup contained "-\a\+" contains=tclInterpCmdsLimitOpts
480 syn keyword tclInterpCmdsLimitOpts contained command granularity milliseconds seconds value
481 syn keyword tclInterpCmds contained limit skipwhite nextgroup=tclInterpCmdsLimitPred
482 syn region tclInterpCmdsLimitPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclInterpCmdsLimitOptsGroup,@tclStuff skipwhite nextgroup=tclInterpCmds
483 syn keyword tclInterpCmds contained alias aliases bgerror delete eval exists expose hide hidden issafe marktrusted recursionlimit share slaves target transfer skipwhite nextgroup=tclInterpCmdsAliasPred
484 syn region tclInterpCmdsAliasPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
485 syn keyword tclSecondary contained aliases alias bgerror eval expose hide hidden issafe marktrusted recursionlimit skipwhite nextgroup=tclInterpSUBAliasesPred
486 syn region tclInterpSUBAliasesPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclStuff
487 syn keyword tclSecondary contained invokehidden skipwhite nextgroup=tclInterpSUBInvokehiddenPred
488 syn region tclInterpSUBInvokehiddenPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclInterpSUBInvokehiddenOptsGroup,@tclStuff
489 syn match tclInterpSUBInvokehiddenOptsGroup contained "-\a\+" contains=tclInterpSUBInvokehiddenOpts
490 syn keyword tclInterpSUBInvokehiddenOpts contained namespace global
491 syn keyword tclSecondary contained limit skipwhite nextgroup=tclInterpSUBLimitPred
492 syn region tclInterpSUBLimitPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tclInterpSUBLimitOptsGroup,@tclStuff
493 syn match tclInterpSUBLimitOptsGroup contained "-\a\+" contains=tclInterpSUBLimitOpts
494 syn keyword tclInterpSUBLimitOpts contained command granularity milliseconds seconds value
496 syn keyword tkKeyword contained bell skipwhite nextgroup=tkBellPred
497 syn region tkBellPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkBellOptsGroup,@tclStuff
498 syn match tkBellOptsGroup contained "-\a\+" contains=tkBellOpts
499 syn keyword tkBellOpts contained nice displayof
501 syn keyword tkKeyword contained clipboard skipwhite nextgroup=tkClipboardPred
502 syn region tkClipboardPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkClipboardCmds,@tclStuff
503 syn match tkClipboardCmdsClearOptsGroup contained "-\a\+" contains=tkClipboardCmdsClearOpts
504 syn keyword tkClipboardCmdsClearOpts contained displayof format type
505 syn keyword tkClipboardCmds contained clear append get skipwhite nextgroup=tkClipboardCmdsClearPred
506 syn region tkClipboardCmdsClearPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkClipboardCmdsClearOptsGroup,@tclStuff skipwhite nextgroup=tkClipboardCmds
508 syn keyword tkKeyword contained console consoleinterp skipwhite nextgroup=tkConsolePred
509 syn region tkConsolePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkConsoleCmds,@tclStuff
510 syn keyword tkConsoleCmds contained eval hide show title record skipwhite nextgroup=tkConsoleCmdsEvalPred
511 syn region tkConsoleCmdsEvalPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
513 syn keyword tkKeyword contained focus skipwhite nextgroup=tkFocusPred
514 syn region tkFocusPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkFocusOptsGroup,@tclStuff
515 syn match tkFocusOptsGroup contained "-\a\+" contains=tkFocusOpts
516 syn keyword tkFocusOpts contained displayof force lastfor
518 syn keyword tkKeyword contained tkwait skipwhite nextgroup=tkTkwaitPred
519 syn region tkTkwaitPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkTkwaitCmds,@tclStuff
520 syn keyword tkTkwaitCmds contained variable visibility window skipwhite nextgroup=tkTkwaitCmdsVariablePred
521 syn region tkTkwaitCmdsVariablePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
523 syn keyword tkKeyword contained winfo skipwhite nextgroup=tkWinfoPred
524 syn region tkWinfoPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWinfoCmds,@tclStuff
525 syn keyword tkWinfoCmds contained containing interps pathname visualscells children class colormapfull depth exists fpixels geom[etry] height id ismapped manager name parent pixels pointerx pointerxy pointery reqheight reqwidth rgb rootx rooty screen screencells screendepth screenheight screenmmheight screenmmwidth screenvisual screenwidth server toplevel viewable visual visualid vrootheight vrootwidth vrootx vrooty width x y skipwhite nextgroup=tkWinfoCmdsContainingPred
526 syn region tkWinfoCmdsContainingPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
527 syn match tkWinfoCmdsAtomOptsGroup contained "-\a\+" contains=tkWinfoCmdsAtomOpts
528 syn keyword tkWinfoCmdsAtomOpts contained displayof includeids
529 syn keyword tkWinfoCmds contained atom atomname containing interps pathname visualsavailable skipwhite nextgroup=tkWinfoCmdsAtomPred
530 syn region tkWinfoCmdsAtomPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWinfoCmdsAtomOptsGroup,@tclStuff skipwhite nextgroup=tkWinfoCmds
532 syn keyword tkKeyword contained wm skipwhite nextgroup=tkWmPred
533 syn region tkWmPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWmCmds,@tclStuff
534 syn keyword tkWmCmds contained aspect attributes attributes attributes client colormapwindows command deiconify focusmodel frame geom[etry] grid group iconbitmap iconify iconmask iconname iconphoto iconposition iconwindow maxsize minsize overrideredirect positionfrom protocol resizable sizefrom stackorder state title transient withdraw skipwhite nextgroup=tkWmCmdsAspectPred
535 syn region tkWmCmdsAspectPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
537 syn keyword tkKeyword contained grab skipwhite nextgroup=tkGrabPred
538 syn region tkGrabPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkGrabOptsGroup,tkGrabCmds,@tclStuff
539 syn keyword tkGrabCmds contained current release set status skipwhite nextgroup=tkGrabOptsGroup skipwhite nextgroup=tkGrabCmdsCurrentPred
540 syn region tkGrabCmdsCurrentPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
541 syn match tkGrabOptsGroup contained "-\a\+" contains=tkGrabOpts
542 syn keyword tkGrabOpts contained global
544 syn keyword tkKeyword contained font skipwhite nextgroup=tkFontPred
545 syn region tkFontPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkFontCmds,@tclStuff
546 syn keyword tkFontCmds contained delete names skipwhite nextgroup=tkFontCmdsDeletePred
547 syn region tkFontCmdsDeletePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
548 syn match tkFontCmdsFamiliesOptsGroup contained "-\a\+" contains=tkFontCmdsFamiliesOpts
549 syn keyword tkFontCmdsFamiliesOpts contained displayof
550 syn keyword tkFontCmds contained families measure skipwhite nextgroup=tkFontCmdsFamiliesPred
551 syn region tkFontCmdsFamiliesPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkFontCmdsFamiliesOptsGroup,@tclStuff skipwhite nextgroup=tkFontCmds
552 syn match tkFontCmdsActualOptsGroup contained "-\a\+" contains=tkFontCmdsActualOpts
553 syn keyword tkFontCmdsActualOpts contained displayof ascent descent linespace fixed family size weight slant underline overstrike
554 syn keyword tkFontCmds contained actual configure create metrics skipwhite nextgroup=tkFontCmdsActualPred
555 syn region tkFontCmdsActualPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkFontCmdsActualOptsGroup,@tclStuff skipwhite nextgroup=tkFontCmds
557 syn keyword tkKeyword contained option skipwhite nextgroup=tkOptionPred
558 syn region tkOptionPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkOptionCmds,@tclStuff
559 syn keyword tkOptionCmds contained add clear get readfile skipwhite nextgroup=tkOptionCmdsAddPred
560 syn region tkOptionCmdsAddPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
562 syn keyword tkKeyword contained grid skipwhite nextgroup=tkGridPred
563 syn region tkGridPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkGridOptsGroup,tkGridCmds,@tclStuff
564 syn keyword tkGridCmds contained anchor bbox forget info location propogate remove size slaves skipwhite nextgroup=tkGridCmdsAnchorPred
565 syn region tkGridCmdsAnchorPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
566 syn match tkGridCmdsColumnconfigureOptsGroup contained "-\a\+" contains=tkGridCmdsColumnconfigureOpts
567 syn keyword tkGridCmdsColumnconfigureOpts contained column columnspan in ipadx ipady padx pady row rowspan sticky minsize weight uniform pad
568 syn keyword tkGridCmds contained columnconfigure rowconfigure configure skipwhite nextgroup=tkGridCmdsColumnconfigurePred
569 syn region tkGridCmdsColumnconfigurePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkGridCmdsColumnconfigureOptsGroup,@tclStuff skipwhite nextgroup=tkGridCmds
570 syn match tkGridOptsGroup contained "-\a\+" contains=tkGridOpts
571 syn keyword tkGridOpts contained column columnspan in ipadx ipady padx pady row rowspan sticky minsize weight uniform pad
573 syn keyword tkKeyword contained pack skipwhite nextgroup=tkPackPred
574 syn region tkPackPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkPackOptsGroup,tkPackCmds,@tclStuff
575 syn keyword tkPackCmds contained forget info propogate slaves skipwhite nextgroup=tkPackCmdsForgetPred
576 syn region tkPackCmdsForgetPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
577 syn match tkPackCmdsConfigureOptsGroup contained "-\a\+" contains=tkPackCmdsConfigureOpts
578 syn keyword tkPackCmdsConfigureOpts contained after anchor before expand fill in ipadx ipady padx pady side
579 syn keyword tkPackCmds contained configure skipwhite nextgroup=tkPackCmdsConfigurePred
580 syn region tkPackCmdsConfigurePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkPackCmdsConfigureOptsGroup,@tclStuff skipwhite nextgroup=tkPackCmds
581 syn match tkPackOptsGroup contained "-\a\+" contains=tkPackOpts
582 syn keyword tkPackOpts contained after anchor before expand fill in ipadx ipady padx pady side
584 syn keyword tkKeyword contained place skipwhite nextgroup=tkPlacePred
585 syn region tkPlacePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkPlaceOptsGroup,tkPlaceCmds,@tclStuff
586 syn keyword tkPlaceCmds contained forget info slaves skipwhite nextgroup=tkPlaceCmdsForgetPred
587 syn region tkPlaceCmdsForgetPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
588 syn match tkPlaceCmdsConfigureOptsGroup contained "-\a\+" contains=tkPlaceCmdsConfigureOpts
589 syn keyword tkPlaceCmdsConfigureOpts contained anchor bordermode height in relheight relwidth relx rely width x y
590 syn keyword tkPlaceCmds contained configure skipwhite nextgroup=tkPlaceCmdsConfigurePred
591 syn region tkPlaceCmdsConfigurePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkPlaceCmdsConfigureOptsGroup,@tclStuff skipwhite nextgroup=tkPlaceCmds
592 syn match tkPlaceOptsGroup contained "-\a\+" contains=tkPlaceOpts
593 syn keyword tkPlaceOpts contained anchor bordermode height in relheight relwidth relx rely width x y
595 syn keyword tkKeyword contained tk_messageBox skipwhite nextgroup=tkTk_messageboxPred
596 syn region tkTk_messageboxPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkTk_messageboxOptsGroup,@tclStuff
597 syn match tkTk_messageboxOptsGroup contained "-\a\+" contains=tkTk_messageboxOpts
598 syn keyword tkTk_messageboxOpts contained default detail icon message parent title type
600 syn keyword tkKeyword contained tk skipwhite nextgroup=tkTkPred
601 syn region tkTkPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkTkCmds,@tclStuff
602 syn keyword tkTkCmds contained appname windowingsystem skipwhite nextgroup=tkTkCmdsAppnamePred
603 syn region tkTkCmdsAppnamePred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=,@tclStuff
604 syn match tkTkCmdsScalingOptsGroup contained "-\a\+" contains=tkTkCmdsScalingOpts
605 syn keyword tkTkCmdsScalingOpts contained displayof
606 syn keyword tkTkCmds contained scaling inactive useinputmethods skipwhite nextgroup=tkTkCmdsScalingPred
607 syn region tkTkCmdsScalingPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkTkCmdsScalingOptsGroup,@tclStuff skipwhite nextgroup=tkTkCmds
608 syn match tkTkCmdsCaretCmdsWindowOptsGroup contained "-\a\+" contains=tkTkCmdsCaretCmdsWindowOpts
609 syn keyword tkTkCmdsCaretCmdsWindowOpts contained x y height
610 syn keyword tkTkCmdsCaretCmds contained window skipwhite nextgroup=tkTkCmdsCaretCmdsWindowPred
611 syn region tkTkCmdsCaretCmdsWindowPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkTkCmdsCaretCmdsWindowOptsGroup,@tclStuff skipwhite nextgroup=tkTkCmdsCaretCmds
612 syn keyword tkTkCmds contained caret skipwhite nextgroup=tkTkCmdsCaretPred
613 syn region tkTkCmdsCaretPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkTkCmdsCaretCmds,@tclStuff skipwhite nextgroup=tkTkCmds
615 syn keyword tkKeyword contained send skipwhite nextgroup=tkSendPred
616 syn region tkSendPred contained excludenl keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkSendOptsGroup,@tclStuff
617 syn match tkSendOptsGroup contained "-\a\+" contains=tkSendOpts
618 syn keyword tkSendOpts contained async displayof
621 " -------------------------
622 " tk: Syntax - special case words
623 " -------------------------
624 syn keyword tkWidgetMenu contained cascade separator command checkbutton radiobutton
625 syn keyword tclSecondary contained activate addtag bbox canvasx canvasy clone coords curselection dchars delete delta deselect dtag entrycget entryconfigure find flash focus fraction get gettags icursor identify index insert invoke lower move moveto nearest panecget paneconfigure panes post postcascade proxy raise replace sash scale see set toggle type unpost validate xposition yposition
626 syn keyword tclSecondary contained conf[igure] cget skipwhite nextgroup=tkWidgetPredicate
627 syn keyword tclSecondary contained add skipwhite nextgroup=tkWidgetAddPredicate
628 syn region tkWidgetPredicate contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetOptsGroup,@tclStuff
629 syn region tkWidgetAddPredicate contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetMenu,tkWidgetOptsGroup,@tclStuff
631 " these come from various widgets, their predicate spaces are a superset of everything required
632 syn keyword tclSecondary contained scan skipwhite nextgroup=tkWidgetScanPredicate
633 syn region tkWidgetScanPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkBindSubstGroup,tkScanCmds,tkWidgetOptsGroup,@tclStuff
634 syn keyword tclSecondary contained select skipwhite nextgroup=tkWidgetSelectPredicate
635 syn region tkWidgetSelectPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkSelectCmds,tkWidgetOptsGroup,@tclStuff
636 syn keyword tclSecondary contained scroll skipwhite nextgroup=tkWidgetScrollPredicate
637 syn region tkWidgetScrollPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkScrollCmds,tkScrollbarElems,tkWidgetOptsGroup,@tclStuff
638 syn keyword tclSecondary contained xview yview skipwhite nextgroup=tkWidgetViewPredicate
639 syn region tkWidgetViewPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkViewCmds,tkWidgetOptsGroup,@tclStuff
640 syn keyword tclSecondary contained edit skipwhite nextgroup=tkWidgetEditPredicate
641 syn region tkWidgetEditPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkEditCmds,tkWidgetOptsGroup,@tclStuff
642 syn keyword tclSecondary contained mark skipwhite nextgroup=tkWidgetMarkPredicate
643 syn region tkWidgetMarkPredicate contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkMarkCmds,tkWidgetOptsGroup,@tclStuff
644 syn keyword tclSecondary contained peer skipwhite nextgroup=tkWidgetPeerPredicate
645 syn region tkWidgetPeerPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkPeerCmds,tkWidgetOptsGroup,@tclStuff
646 " terminated switches, needs keeepend
647 syn keyword tclSecondary contained search skipwhite nextgroup=tkWidgetSearchPredicate
648 syn region tkWidgetSearchPredicate contained excludenl keepend start=+.+ end=+}\|]\|;\|.$\|--+ contains=tkWidgetSearchOptsGroup,@tclStuff
649 syn match tkWidgetSearchOptsGroup contained "-\a\+" contains=tkWidgetSearchOpts skipwhite nextgroup=tkWidgetSearchOptsGroup,tkWidgetOptsGroup,@tclStuff
650 syn keyword tkWidgetSearchOpts contained forwards back[wards] exact regexp nolinestop nocase count all overlap elide
651 syn keyword tclSecondary contained selection skipwhite nextgroup=tkWidgetSelectionPredicate
652 syn region tkWidgetSelectionPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkSelectionCmds,tkWidgetOptsGroup,@tclStuff
653 syn keyword tclSecondary contained tag skipwhite nextgroup=tkWidgetTagPredicate
654 syn region tkWidgetTagPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkTagCmds,tkTagOptsGroup,@tclStuff
655 syn keyword tclSecondary contained window skipwhite nextgroup=tkWidgetWindowPredicate
656 syn region tkWidgetWindowPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWindowCmds,tkWidgetOptsGroup,@tclStuff
658 syn keyword tclSecondary contained compare skipwhite nextgroup=tkWidgetComparePredicate
659 " syn region tkWidgetComparePredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclStuff
660 " TODO compare predicate is:
662 " operator -> an expression
665 syn keyword tclSecondary contained count skipwhite nextgroup=tkWidgetCountPredicate
666 syn region tkWidgetCountPredicate contained excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkCountOptsGroup,@tclStuff
667 syn match tkCountOptsGroup contained "-\a\+" contains=tkCountOpts skipwhite nextgroup=tkCountOpts,@tclStuff
668 syn keyword tkCountOpts contained chars displaychars displayindicies displaylines indices lines xpixels ypixels update
669 hi link tkCountOpts tclOption
672 syn keyword tkEditCmds contained modified redo reset separator undo
673 syn keyword tkMarkCmds contained gravity names next previous set unset
674 syn keyword tkPeerCmds contained create names
675 syn keyword tkScanCmds contained mark dragto
676 syn keyword tkSelectCmds contained adjust anchor clear element from includes item present range set to
677 syn keyword tkSelectionCmds contained anchor clear includes set
678 syn keyword tkScrollCmds contained units pages
679 syn keyword tkScrollbarElems contained arrow1 arrow2 slider trough1 trough2
680 syn keyword tkTagCmds contained add bind cget config[ure] delete lower names nextrange prevrange raise ranges remove
681 syn match tkTagOptsGroup contained "-\a\+" contains=tkTagOpts
682 syn keyword tkTagOpts contained background bgstipple borderwidth elide fgstipple font foreground justify lmargin1 lmargin2 offset overstrike relief spacing1 spacing2 spacing3 tabs tabstyle under[line] wrap
683 syn keyword tkViewCmds contained moveto scroll
684 syn keyword tkWidgetOpts contained accel[erator] activebackground activeborderwidth activeforeground anchor background bd bg bitmap borderwidth columnbreak command compound cursor disabledfore[ground] exportselection fg font foreground hidemargin highlightbackground highlightcolor highlightthick[ness] image indicatoron insertbackground insertborderwidth insertofftime insertontime insertwidth jump justify label menu offvalue onvalue ori[ent] padx pady relief repeatdelay repeatinterval selectbackground selectborderwidth selectcolor selectforeground selectimage setgrid state takefocus text textvar[iable] troughcolor underline value variable wraplength xscrollcommand yscrollcommand
685 syn keyword tkWidgetOpts contained activerelief activestyle aspect background bigincrement buttonbackground buttoncursor buttondownrelief buttonuprelief class closeenough colormap command confine container default digits direction disabledback[ground] disabledfore[ground] elementborderwidth format from handlepad handlesize height increment indicatoron invalidcommand invcmd justify label labelanchor labelwidget length listvariable menu offrelief offvalue onvalue opaqueresize overrelief postcommand readonlybackground resolution sashcursor sashpad sashrelief sashwidth screen scrollregion selectcolor selectimage selectmode show showhandle showvalue sliderlength sliderrelief state tearoff tearoffcommand tickinterval title to tristateimage tristatevalue type use validate validatecommand value values variable vcmd visual width wrap xscrollincrement yscrollincrement
686 syn keyword tkWidgetOpts contained autoseparators blockcursor endline inactiveselectionbackground maxundo spacing1 spacing2 spacing3 startline state tabs tabstyle undo wrap
687 syn keyword tkWindowCmds contained cget configure create names
688 syn match tkWidgetOptsGroup contained "-\a\+" contains=tkWidgetOpts
691 syn keyword tkKeyword contained bind skipwhite nextgroup=tkBindPredicate
692 syn keyword tclSecondary contained bind skipwhite nextgroup=tkBindPredicate
693 syn region tkBindPredicate contained keepend extend excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkBindTag
694 syn region tkBindTag contained start="." end="\s\|]" skipwhite nextgroup=tkBindSeq contains=@tclStuff
695 syn region tkBindSeq contained start="." end="\s\|]" skipwhite nextgroup=tkBindScript contains=tkEvent
696 syn region tkBindScript contained keepend extend excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclCommandCluster
697 syn region tkBindScript contained keepend extend excludenl matchgroup=Bold start=+\s*\(\\\)\@<!{+ end=+}+ skip=+$\|\\$\|\\}+ contains=@tclCommandCluster
698 syn match tkBindSubstGroup contained "%%"
699 syn match tkBindSubstGroup contained "%#"
700 syn match tkBindSubstGroup contained "%\a\>" contains=tkBindSubst
701 syn keyword tkBindSubst contained a b c d f h i k m o p s t w x y A B D E K N P R S T W X Y
704 syn keyword tkKeyword contained event skipwhite nextgroup=tkEventPredicate,@tclStuff
705 syn region tkEventPredicate contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkEventCmds
706 syn region tkEventCmdsPredicate contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tkEventCluster
707 syn keyword tkEventCmds contained add delete generate info skipwhite nextgroup=tkEventCmdsPredicate
708 syn match tkEventFieldsGroup contained "-\a\+" contains=tkEventFields
709 syn keyword tkEventFields contained above borderwidth button count data delta detail focus height keycode keysym mode override place root rootx rooty sendevent serial state subwindow time warp width when x y
710 syn keyword tkEventWhen contained now tail head mark
711 syn cluster tkEventCluster contains=tkEventCmds,tkEventFieldsGroup,tkEventWhen,@tclStuff
714 syn keyword tkWidget contained canvas skipwhite nextgroup=tkCanvasPredicate
715 syn region tkCanvasPredicate contained keepend excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tkCanvasCluster,@tclStuff
716 syn keyword tkCanvasTagOpts contained above all below closest enclosed overlapping withtag
717 syn keyword tkCanvasPsOpts contained colormap colormode file fontmap height pageanchor pageheight pagewidth pagex pagey rotate width x y
718 syn keyword tkCanvasItemOpts contained activebackground activebitmap activedash activefill activeforeground activeimage activeoutline activeoutlinestipple activestipple activewidth anchor arrow arrowshape background bitmap capstyle dash dashoffset disabledbackground disabledbitmap disableddash disabledfill disabledforeground disabledimage disabledoutline disabledoutlinestipple disabledstipple disabledwidth extent fill font foreground height image joinstyle justify offset outline outlinestipple smooth splinesteps start state stipple style tag[s] text width window
719 syn cluster tkCanvasCluster contains=tkCanvasItemOpts,tkCanvasTagOpts,tkWidgetOptsGroup
721 syn keyword tkWidgetCreate contained create skipwhite nextgroup=tkWidgetCreatePredicate
722 syn region tkWidgetCreatePredicate contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateCmds,@tclStuff
723 syn match tkWidgetCreateCommonOptsGroup contained "-\a\+" contains=tkWidgetCreateCommonOpts
724 syn keyword tkWidgetCreateCommonOpts contained activedash activefill activeoutline activeoutlinestipple activestipple activewidth dash dashoffset disableddash disabledfill disabledoutline disabledoutlinestipple disabledstipple disabledwidth fill offset outline outlinestipple state stipple tag[s] width
725 syn keyword tkWidgetCreateCmds contained arc skipwhite nextgroup=tkWidgetCreateArcPred
726 syn region tkWidgetCreateArcPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateArcOptsGroup,@tclStuff
727 syn match tkWidgetCreateArcOptsGroup contained "-\a\+" contains=tkWidgetCreateArcOpts,tkWidgetCreateCommonOpts
728 syn keyword tkWidgetCreateArcOpts contained extent start style
729 syn keyword tkWidgetCreateCmds contained bitmap skipwhite nextgroup=tkWidgetCreateBitmapPred
730 syn region tkWidgetCreateBitmapPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateBitmapOptsGroup,@tclStuff
731 syn match tkWidgetCreateBitmapOptsGroup contained "-\a\+" contains=tkWidgetCreateBitmapOpts,tkWidgetCreateCommonOpts
732 syn keyword tkWidgetCreateBitmapOpts contained activebackground activebitmap activeforeground anchor background bitmap disabledbackground disabledbitmap disabledforeground foreground
733 syn keyword tkWidgetCreateCmds contained image skipwhite nextgroup=tkWidgetCreateImagePred
734 syn region tkWidgetCreateImagePred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateImageOptsGroup,@tclStuff
735 syn match tkWidgetCreateImageOptsGroup contained "-\a\+" contains=tkWidgetCreateImageOpts,tkWidgetCreateCommonOpts
736 syn keyword tkWidgetCreateImageOpts contained anchor image activeimage disabledimage
737 syn keyword tkWidgetCreateCmds contained line skipwhite nextgroup=tkWidgetCreateLinePred
738 syn region tkWidgetCreateLinePred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateLineOptsGroup,@tclStuff
739 syn match tkWidgetCreateLineOptsGroup contained "-\a\+" contains=tkWidgetCreateLineOpts,tkWidgetCreateCommonOpts
740 syn keyword tkWidgetCreateLineOpts contained arrow arrowshape capstyle joinstyle smooth splinesteps
741 syn keyword tkWidgetCreateCmds contained oval skipwhite nextgroup=tkWidgetCreateOvalPred
742 syn region tkWidgetCreateOvalPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateCommonOptsGroup,@tclStuff
743 syn keyword tkWidgetCreateCmds contained poly[gon] skipwhite nextgroup=tkWidgetCreatePolyPred
744 syn region tkWidgetCreatePolyPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreatePolyOptsGroup,@tclStuff
745 syn match tkWidgetCreatePolyOptsGroup contained "-\a\+" contains=tkWidgetCreatePolyOpts,tkWidgetCreateCommonOpts
746 syn keyword tkWidgetCreatePolyOpts contained joinstyle smooth splinesteps
747 syn keyword tkWidgetCreateCmds contained rect[angle] skipwhite nextgroup=tkWidgetCreateRectPred
748 syn region tkWidgetCreateRectPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateCommonOptsGroup,@tclStuff
749 syn keyword tkWidgetCreateCmds contained text skipwhite nextgroup=tkWidgetCreateTextPred
750 syn region tkWidgetCreateTextPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateTextOptsGroup,@tclStuff
751 syn match tkWidgetCreateTextOptsGroup contained "-\a\+" contains=tkWidgetCreateTextOpts,tkWidgetCreateCommonOpts
752 syn keyword tkWidgetCreateTextOpts contained anchor font justify text width
753 syn keyword tkWidgetCreateCmds contained window skipwhite nextgroup=tkWidgetCreateWinPred
754 syn region tkWidgetCreateWinPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateWinOptsGroup,@tclStuff
755 syn match tkWidgetCreateWinOptsGroup contained "-\a\+" contains=tkWidgetCreateWinOpts,tkWidgetCreateCommonOpts
756 syn keyword tkWidgetCreateWinOpts contained anchor height width window
757 syn keyword tclSecondary contained itemconfig[ure] itemcget skipwhite nextgroup=tkCanvasItemConfigurePred
758 syn region tkCanvasItemConfigurePred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreateArcOpts,tkWidgetCreateBitmapOpts,tkWidgetCreateCommonOpts,tkWidgetCreateImageOpts,tkWidgetCreateLineOpts,tkWidgetCreateOvalOpts,tkWidgetCreatePolyOpts,tkWidgetCreateRectOpts,tkWidgetCreateTextOpts,tkWidgetCreateWinOpts,@tclStuff
761 syn keyword tclSecondary contained postscript skipwhite nextgroup=tkCanvasPsPred
762 syn region tkCanvasPsPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkCanvasPsOptsGroup,@tclStuff
763 syn match tkCanvasPsOptsGroup contained "-\a\+" contains=tkCanvasPsOpts
766 " , includes - bitmap photo
767 syn keyword tkWidget contained image skipwhite nextgroup=tkWidgetImagePred
768 syn region tkWidgetImagePred contained keepend excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkImageCmds,tkWidgetCreate,@tclStuff
769 syn keyword tkImageCmds contained delete inuse names type types
770 syn keyword tkImageCmds contained anchor height width window
772 " create bitmap starts in canvas, this appends
773 syn keyword tkWidgetCreateBitmapOpts contained background data file foreground maskdata maskfile
774 syn keyword tkWidgetCreateCmds contained photo skipwhite nextgroup=tkWidgetCreatePhotoPred
775 syn region tkWidgetCreatePhotoPred contained keepend excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetCreatePhotoOptsGroup,@tclStuff
776 syn match tkWidgetCreatePhotoOptsGroup contained "-\a\+" contains=tkWidgetCreatePhotoOpts
777 syn keyword tkWidgetCreatePhotoOpts contained data format file gamma height palette width
780 syn keyword tclSecondary contained blank
781 syn keyword tclSecondary contained copy skipwhite nextgroup=tkWidgetImageCopyPred
782 syn region tkWidgetImageCopyPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetImageCopyOptsGroup,@tclStuff
783 syn match tkWidgetImageCopyOptsGroup contained "-\a\+" contains=tkWidgetImageCopyOpts
784 syn keyword tkWidgetImageCopyOpts contained from to shrink zoom subsample compositingrule
785 syn keyword tclSecondary contained data skipwhite nextgroup=tkWidgetImageDataPred
786 syn region tkWidgetImageDataPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetImageDataOptsGroup,@tclStuff
787 syn match tkWidgetImageDataOptsGroup contained "-\a\+" contains=tkWidgetImageDataOpts
788 syn keyword tkWidgetImageDataOpts contained background format from grayscale
789 syn keyword tclSecondary contained put skipwhite nextgroup=tkWidgetImagePutPred
790 syn region tkWidgetImagePutPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetImagePutOptsGroup,@tclStuff
791 syn match tkWidgetImagePutOptsGroup contained "-\a\+" contains=tkWidgetImagePutOpts
792 syn keyword tkWidgetImagePutOpts contained format to
793 syn keyword tclSecondary contained read skipwhite nextgroup=tkWidgetImageReadPred
794 syn region tkWidgetImageReadPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetImageReadOptsGroup,@tclStuff
795 syn match tkWidgetImageReadOptsGroup contained "-\a\+" contains=tkWidgetImageReadOpts
796 syn keyword tkWidgetImageReadOpts contained format from shrink to
797 syn keyword tclSecondary contained redither
798 syn keyword tclSecondary contained transparency skipwhite nextgroup=tkWidgetImageTransPred
799 syn region tkWidgetImageTransPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetImageTransOptsGroup,@tclStuff
800 syn match tkWidgetImageTransOptsGroup contained "-\a\+" contains=tkWidgetImageTransOpts
801 syn keyword tkWidgetImageTransOpts contained get set
802 syn keyword tclSecondary contained write skipwhite nextgroup=tkWidgetImageWritePred
803 syn region tkWidgetImageWritePred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=tkWidgetImageWriteOptsGroup,@tclStuff
804 syn match tkWidgetImageWriteOptsGroup contained "-\a\+" contains=tkWidgetImageWriteOpts
805 syn keyword tkWidgetImageWriteOpts contained background format from grayscale
808 syn keyword tkWidget contained text skipwhite nextgroup=tkTextPredicate
809 syn keyword tkKeyword contained tk_textCopy tk_textCut tk_textPaste
810 syn region tkTextPredicate contained keepend excludenl start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tkTextCluster,@tclStuff
811 " this is how you 'subclass' an OptsGroup
812 syn match tkTextWidgetOptsGroup contained "-\a\+" contains=tkTextWidgetOpts,tkWidgetOpts
813 syn keyword tkTextWidgetOpts contained autoseparators blockcursor endline inactiveselectionbackground maxundo spacing1 spacing2 spacing3 startline state tabs tabstyle undo wrap
814 syn cluster tkTextCluster contains=tkTextWidgetOptsGroup
818 syn keyword tkWidget contained listbox skipwhite nextgroup=tkWidgetPredicate
822 " -------------------------
824 " -------------------------
826 if exists("s:tcl_snit_active")
827 runtime! syntax/tcl_snit.vim
830 if exists("s:tcl_sqlite_active")
831 runtime! syntax/tcl_sqlite.vim
834 if exists("s:tcl_critcl_active")
835 runtime! syntax/tcl_critcl.vim
838 if exists("s:tcl_togl_active")
839 runtime! syntax/tcl_togl.vim
842 if exists("s:tcl_itcl_active")
843 runtime! syntax/tcl_itcl.vim
846 if exists("s:tcl_ttk_active")
847 runtime! syntax/tcl_ttk.vim
850 " -------------------------
852 if exists("s:tcl_highlight_all")
853 let s:tcl_highlight_bookends = 1
854 let s:tcl_highlight_primary = 1
855 let s:tcl_highlight_secondary = 1
856 let s:tcl_highlight_variables = 1
857 let s:tcl_highlight_options = 1
858 let s:tcl_highlight_expressions = 1
861 if version >= 508 || !exists("s:did_tcl_syn_inits")
863 let s:did_tcl_syn_inits = 1
864 command -nargs=+ HiLink hi link <args>
866 command -nargs=+ HiLink hi def link <args>
870 " -------------------------
871 " Highlights: - Basic
872 " -------------------------
873 HiLink tclStart Special
874 HiLink tclLContinueOK Special
875 HiLink tclLContinueError Error
876 HiLink tclQuotes String
877 HiLink tclNumber Number
878 HiLink tclComment Comment
879 HiLink tclComment2 Comment
880 HiLink tclCommentBraces Comment
881 HiLink tclIfComment Comment
882 HiLink tclIfCommentStart Comment
883 HiLink tclSpecial Special
885 HiLink tclExpand Underlined
886 HiLink tclREClassGroup Special
887 HiLink tclREClass Special
889 if exists("s:tcl_highlight_primary")
890 HiLink tclKeyword Statement
891 HiLink tclNamespace Statement
892 HiLink tclPrimary Statement
893 HiLink tclConditional Conditional
894 HiLink tclRepeat Repeat
895 HiLink tclException Exception
896 HiLink tclLabel Label
897 HiLink tkWidget Underlined
900 if exists("s:tcl_highlight_lcs_are_warnings")
901 hi! def link tclLContinueOk WarningMsg
904 if exists("s:tcl_highlight_namespace_bold")
905 hi! def link tclNamespace Bold
908 if exists("s:tcl_highlight_options")
909 hi! def link tclOption PreProc
912 if exists("s:tcl_highlight_secondary")
913 hi! def link tclSecondary Type
914 hi! def link tclSubcommand Type
917 if exists("s:tcl_highlight_variables")
918 hi! def link tclVariable Identifier
921 if exists("s:tcl_highlight_expressions")
922 hi! def link tclEnsemble Special
923 hi! def link tclMaths Special
926 HiLink tclProcName Bold
927 HiLink tclProcDef Bold
928 HiLink tclProcType Bold
931 HiLink tkWidgetCmds tclSubcommand
932 HiLink tkWidgetOpts tclOption
933 HiLink tclMagicName tclKeyword
934 HiLink tkKeyword tclKeyword
935 HiLink tkReserved tclKeyword
936 HiLink tkDialog tclKeyword
937 HiLink tkEvent tclQuotes
938 HiLink tkWidgetName tclQuotes
941 " -------------------------
942 " Highlights: - Extended
943 " -------------------------
944 HiLink tclAfterCmds tclSubcommand
945 HiLink tclArrayCmds tclSubcommand
946 HiLink tclArrayCmdsNamesOpts tclOption
947 HiLink tclBinaryCmds tclSubcommand
948 HiLink tclChanCmds tclSubcommand
949 HiLink tclChanCmdsConfigureOpts tclOption
950 HiLink tclChanCmdsCopyOpts tclOption
951 HiLink tclChanCmdsPutsOpts tclOption
952 HiLink tclClockCmds tclSubcommand
953 HiLink tclClockCmdsAddOpts tclOption
954 HiLink tclDictCmds tclSubcommand
955 HiLink tclDictCmdsFilterOpts tclOption
956 HiLink tclEncodingCmds tclSubcommand
957 HiLink tclExecOpts tclOption
958 HiLink tclFconfigureOpts tclOption
959 HiLink tclFcopyOpts tclOption
960 HiLink tclFileCmds tclSubcommand
961 HiLink tclFileCmdsAtimeOpts tclOption
962 HiLink tclFileCmdsAttributesOpts tclOption
963 HiLink tclFileCmdsCopyOpts tclOption
964 HiLink tclFileeventCmds tclSubcommand
965 HiLink tclGlobOpts tclOption
966 HiLink tclHistoryCmds tclSubcommand
967 HiLink tclHistoryCmdsAddCmds tclSubcommand
968 HiLink tclInfoCmds tclSubcommand
969 HiLink tclInterpCmds tclSubcommand
970 HiLink tclInterpCmdsCreateOpts tclOption
971 HiLink tclInterpCmdsInvokehiddenOpts tclOption
972 HiLink tclInterpCmdsLimitOpts tclOption
973 HiLink tclInterpSUBInvokehiddenOpts tclOption
974 HiLink tclInterpSUBLimitOpts tclOption
975 HiLink tclLsearchOpts tclOption
976 HiLink tclLsortOpts tclOption
977 HiLink tclMemoryCmds tclSubcommand
978 HiLink tclOpenOpts tclOption
979 HiLink tclPackageCmds tclSubcommand
980 HiLink tclPackageCmdsPresentOpts tclOption
981 HiLink tclPutsOpts tclOption
982 HiLink tclRegexpOpts tclOption
983 HiLink tclRegsubOpts tclOption
984 HiLink tclReturnOpts tclOption
985 HiLink tclSeekCmds tclSubcommand
986 HiLink tclSocketOpts tclOption
987 HiLink tclSourceOpts tclOption
988 HiLink tclStringCmds tclSubcommand
989 HiLink tclStringCmdsCompareOpts tclOption
990 HiLink tclStringCmdsIsClass tclEnsemble
991 HiLink tclStringCmdsIsClassAlnumOpts tclOption
992 HiLink tclStringCmdsMapOpts tclOption
993 HiLink tclSubstOpts tclOption
994 HiLink tclSwitchOpts tclOption
995 HiLink tclTraceCmds tclSubcommand
996 HiLink tclTraceCmdsAddCmds tclSubcommand
997 HiLink tclTraceCmdsAddCmdsCommandCmds tclSubcommand
998 HiLink tclTraceCmdsAddCmdsExecutionCmds tclSubcommand
999 HiLink tclTraceCmdsAddCmdsVariableCmds tclSubcommand
1000 HiLink tclUnloadOpts tclOption
1001 HiLink tclUnsetOpts tclOption
1002 HiLink tclUpdateCmds tclSubcommand
1003 HiLink tkBellOpts tclOption
1004 HiLink tkClipboardCmds tclSubcommand
1005 HiLink tkClipboardCmdsClearOpts tclOption
1006 HiLink tkConsoleCmds tclSubcommand
1007 HiLink tkFocusOpts tclOption
1008 HiLink tkFontCmds tclSubcommand
1009 HiLink tkFontCmdsActualOpts tclOption
1010 HiLink tkFontCmdsFamiliesOpts tclOption
1011 HiLink tkGrabCmds tclSubcommand
1012 HiLink tkGrabOpts tclOption
1013 HiLink tkGridCmds tclSubcommand
1014 HiLink tkGridCmdsColumnconfigureOpts tclOption
1015 HiLink tkGridOpts tclOption
1016 HiLink tkOptionCmds tclSubcommand
1017 HiLink tkPackCmds tclSubcommand
1018 HiLink tkPackCmdsConfigureOpts tclOption
1019 HiLink tkPackOpts tclOption
1020 HiLink tkPlaceCmds tclSubcommand
1021 HiLink tkPlaceCmdsConfigureOpts tclOption
1022 HiLink tkPlaceOpts tclOption
1023 HiLink tkSendOpts tclOption
1024 HiLink tkTkCmds tclSubcommand
1025 HiLink tkTkCmdsCaretCmds tclSubcommand
1026 HiLink tkTkCmdsCaretCmdsWindowOpts tclOption
1027 HiLink tkTkCmdsScalingOpts tclOption
1028 HiLink tkTk_messageboxOpts tclOption
1029 HiLink tkTkwaitCmds tclSubcommand
1030 HiLink tkWinfoCmds tclSubcommand
1031 HiLink tkWinfoCmdsAtomOpts tclOption
1032 HiLink tkWmCmds tclSubcommand
1034 " -------------------------
1035 " Highlights: - Special Case
1036 " -------------------------
1037 HiLink tclNamespaceCmds tclSubcommand
1038 HiLink tclNamespaceEnsemble tclEnsemble
1039 HiLink tclNamespaceEnsembleCmds tclSubcommand
1040 HiLink tclNamespaceEnsembleExistsOpts tclOption
1041 HiLink tclNamespaceExportOpts tclOption
1042 HiLink tkBindSubst tclQuotes
1043 HiLink tkBindSubstGroup tclQuotes
1044 HiLink tkEventCmds tclSubcommand
1045 HiLink tkEventFields tclOption
1046 HiLink tkEventWhen tclString
1047 HiLink tkCanvasItemOpts tclOption
1048 HiLink tkCanvasPsOpts tclOption
1049 HiLink tkCanvasTagOpts tclOption
1050 HiLink tkWidgetCreate tclSubcommand
1051 HiLink tkWidgetCreateArcOpts tclOption
1052 HiLink tkWidgetCreateBitmapOpts tclOption
1053 HiLink tkWidgetCreateCmds tclEnsemble
1054 HiLink tkWidgetCreateCommonOpts tclOption
1055 HiLink tkWidgetCreateImageOpts tclOption
1056 HiLink tkWidgetCreateLineOpts tclOption
1057 HiLink tkWidgetCreateOvalOpts tclOption
1058 HiLink tkWidgetCreatePhotoOpts tclOption
1059 HiLink tkWidgetCreatePolyOpts tclOption
1060 HiLink tkWidgetCreateRectOpts tclOption
1061 HiLink tkWidgetCreateTextOpts tclOption
1062 HiLink tkWidgetCreateWinOpts tclOption
1063 HiLink tkImageCmds tclSubcommand
1064 HiLink tkWidgetImageCopyOpts tclOption
1065 HiLink tkWidgetImageDataOpts tclOption
1066 HiLink tkWidgetImagePutOpts tclOption
1067 HiLink tkWidgetImageReadOpts tclOption
1068 HiLink tkWidgetImageTransOpts tclOption
1069 HiLink tkWidgetImageWriteOpts tclOption
1071 HiLink tkTextWidgetOpts tclOption
1072 HiLink tkMarkCmds tclEnsemble
1073 HiLink tkTagCmds tclEnsemble
1074 HiLink tkTagOpts tclOption
1075 HiLink tkWidgetSearchOpts tclOption
1077 HiLink tkScanCmds tclEnsemble
1078 HiLink tkScrollCmds tclEnsemble
1079 HiLink tkSelectCmds tclEnsemble
1080 HiLink tkScrollbarElems tclOption
1081 HiLink tkScrollbarElems tclString
1082 HiLink tkWidgetMenu tclEnsemble
1083 HiLink tkViewCmds tclEnsemble
1088 " -------------------------
1090 " -------------------------
1092 let b:current_syntax = "tcl"
1093 " override the sync commands from the other syntax files
1095 " syn sync minlines=300
1098 " -------------------------