vim/syntax/tcl.vim

   1 " Vim syntax file for Tcl/tk language
   2 " Language:     Tcl
   3 " Maintained:   SM Smithfield <m_smithfield@yahoo.com>
   4 " Last Change:  05/01/2007 (20:03:29)
   5 " Filenames:    *.tcl
   6 " Version:      0.5
   7 " ------------------------------------------------------------------
   8 " GetLatestVimScripts: 1603 1 :AutoInstall: syntax/tcl.vim
   9 " ------------------------------------------------------------------
  10
  11 " -------------------------
  12
  13 if version < 600
  14   syntax clear
  15 elseif exists("b:current_syntax")
  16   finish
  17 endif
  18
  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
  30
  31 " Extended Syntax:
  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
  38
  39 " one more highlight than the law allows
  40 if exists("s:tcl_highlight_bookends")
  41     if !hlexists("Bold")
  42         hi Bold guifg=fg guibg=bg gui=bold
  43         if version > 700
  44             " on colorscheme, create Bold
  45             augroup tclsyntax
  46                 au!
  47                 au ColorScheme * hi Bold guifg=fg guibg=bg gui=bold
  48             augroup end
  49         endif
  50     endif
  51 endif
  52
  53 " -------------------------
  54 " Basics:
  55 " -------------------------
  56 " see Note in :h /\@=
  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
  67 else
  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=+$\|\(\\\)\@<!\\}+
  70 endif
  71
  72 syn region tclCommand start=+[^;]\&.+ skip=+\\$+ end=+;\|$+ contains=@tclCommandCluster
  73
  74 syn match tclStart "\%^\s*#!.*$"
  75 syn region tclStart start="\%^\s*#!/bin/sh"  end="^\s*exec.*$"
  76
  77
  78 " -------------------------
  79 " Clusters:
  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
  84 " ------------------
  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
  92
  93
  94
  95 " -------------------------
  96 " Tcl: Syntax
  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
 100 " ------------------
 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
 108
 109 syn region tclPred contained keepend start=+.+ skip=+\\$+ end=+}\|]\|;\|$+ contains=@tclStuff
 110
 111 " CONDITIONALS
 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
 115
 116 " REPEAT
 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
 125
 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
 133 " the other regions
 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 "[()^%~<>!=+*\-|&?:/]"
 138
 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
 142
 143 " PROC - proc name hilite AND folding
 144 syn keyword tclPrimary      contained proc skipwhite nextgroup=tclProcName
 145 " def-script pattern
 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
 151
 152
 153 " -------------------------
 154 " Tcl: Syntax - Bits
 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 "\\$"
 172 else
 173     syn match tclLContinueOk    contained "\\$" transparent
 174 endif
 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
 180
 181
 182
 183 " -------------------------
 184 " Tcl: Syntax - Keyword Predicates
 185 " -------------------------
 186
 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
 190
 191
 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
 196
 197
 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
 212
 213
 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
 218
 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
 223
 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
 228
 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
 233
 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
 242
 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
 247
 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
 252
 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
 257
 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
 262
 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
 267
 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
 272
 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
 277
 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
 282
 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
 287
 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
 292
 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
 297
 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
 302
 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
 307
 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
 314
 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
 321
 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
 328
 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
 333
 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
 338
 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
 343
 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
 348
 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
 353
 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
 362
 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
 371
 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
 390
 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
 407
 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
 416
 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
 425
 426
 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
 445
 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
 468
 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
 495
 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
 500
 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
 507
 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
 512
 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
 517
 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
 522
 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
 531
 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
 536
 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
 543
 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
 556
 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
 561
 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
 572
 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
 583
 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
 594
 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
 599
 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
 614
 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
 619
 620
 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
 630
 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
 657
 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:
 661 " anything
 662 " operator -> an expression
 663 " anything
 664
 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
 670
 671
 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
 689
 690 " SPECIAL CASE:
 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
 702
 703 " SPECIAL CASE:
 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
 712
 713 " SPECIAL CASE:
 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
 720 " the create command
 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
 759
 760 " postscript
 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
 764
 765 " SPECIAL CASE:
 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
 771
 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
 778
 779 " Syntax: from photo
 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
 806
 807 " SPECIAL CASE:
 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
 815
 816
 817 " SPECIAL CASE:
 818 syn keyword tkWidget           contained listbox skipwhite nextgroup=tkWidgetPredicate
 819
 820
 821
 822 " -------------------------
 823 " Tcl: Packages
 824 " -------------------------
 825
 826 if exists("s:tcl_snit_active")
 827     runtime! syntax/tcl_snit.vim
 828 endif
 829
 830 if exists("s:tcl_sqlite_active")
 831     runtime! syntax/tcl_sqlite.vim
 832 endif
 833
 834 if exists("s:tcl_critcl_active")
 835     runtime! syntax/tcl_critcl.vim
 836 endif
 837
 838 if exists("s:tcl_togl_active")
 839     runtime! syntax/tcl_togl.vim
 840 endif
 841
 842 if exists("s:tcl_itcl_active")
 843     runtime! syntax/tcl_itcl.vim
 844 endif
 845
 846 if exists("s:tcl_ttk_active")
 847     runtime! syntax/tcl_ttk.vim
 848 endif
 849
 850 " -------------------------
 851
 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
 859 endif
 860
 861 if version >= 508 || !exists("s:did_tcl_syn_inits")
 862     if version <= 508
 863         let s:did_tcl_syn_inits = 1
 864         command -nargs=+ HiLink hi link <args>
 865     else
 866         command -nargs=+ HiLink hi def link <args>
 867     endif
 868 endif
 869
 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
 884 HiLink tclTodo           Todo
 885 HiLink tclExpand         Underlined
 886 HiLink tclREClassGroup   Special
 887 HiLink tclREClass        Special
 888 " ------------------
 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
 898 endif
 899 " ------------------
 900 if exists("s:tcl_highlight_lcs_are_warnings")
 901     hi! def link tclLContinueOk WarningMsg
 902 endif
 903 " ------------------
 904 if exists("s:tcl_highlight_namespace_bold")
 905     hi! def link tclNamespace      Bold
 906 endif
 907 " ------------------
 908 if exists("s:tcl_highlight_options")
 909     hi! def link tclOption         PreProc
 910 endif
 911 " ------------------
 912 if exists("s:tcl_highlight_secondary")
 913     hi! def link tclSecondary      Type
 914     hi! def link tclSubcommand     Type
 915 endif
 916 " ------------------
 917 if exists("s:tcl_highlight_variables")
 918     hi! def link tclVariable       Identifier
 919 endif
 920 " ------------------
 921 if exists("s:tcl_highlight_expressions")
 922     hi! def link tclEnsemble       Special
 923     hi! def link tclMaths          Special
 924 endif
 925 " ------------------
 926 HiLink tclProcName       Bold
 927 HiLink tclProcDef        Bold
 928 HiLink tclProcType       Bold
 929 " ------------------
 930 HiLink tkColor           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
 939
 940
 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
1033
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
1070
1071 HiLink tkTextWidgetOpts               tclOption
1072 HiLink tkMarkCmds                     tclEnsemble
1073 HiLink tkTagCmds                      tclEnsemble
1074 HiLink tkTagOpts                      tclOption
1075 HiLink tkWidgetSearchOpts             tclOption
1076
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
1084
1085
1086 delcommand HiLink
1087
1088 " -------------------------
1089 " Hoodage:
1090 " -------------------------
1091
1092 let b:current_syntax = "tcl"
1093 " override the sync commands from the other syntax files
1094 syn sync clear
1095 " syn sync minlines=300
1096 syn sync fromstart
1097
1098 " -------------------------
1099
1100 " vim:ft=vim