|
7
|
1 " Vim syntax file
|
|
|
2 " Language: TCL/TK
|
|
1125
|
3 " Maintainer: Brett Cannon <brett@python.org>
|
|
|
4 " (previously Dean Copsey <copsey@cs.ucdavis.edu>)
|
|
7
|
5 " (previously Matt Neumann <mattneu@purpleturtle.com>)
|
|
|
6 " (previously Allan Kelly <allan@fruitloaf.co.uk>)
|
|
|
7 " Original: Robin Becker <robin@jessikat.demon.co.uk>
|
|
1125
|
8 " Last Change: 2006 Nov 17
|
|
7
|
9 "
|
|
|
10 " Keywords TODO: format clock click anchor
|
|
|
11
|
|
|
12 " For version 5.x: Clear all syntax items
|
|
|
13 " For version 6.x: Quit when a syntax file was already loaded
|
|
|
14 if version < 600
|
|
|
15 syntax clear
|
|
|
16 elseif exists("b:current_syntax")
|
|
|
17 finish
|
|
|
18 endif
|
|
|
19
|
|
|
20 " A bunch of useful keywords
|
|
1125
|
21 syn keyword tclStatement tell socket subst open eof pwd glob list exec pid
|
|
|
22 syn keyword tclStatement auto_load_index time unknown eval lrange fblocked
|
|
|
23 syn keyword tclStatement lsearch auto_import gets lappend proc variable llength
|
|
|
24 syn keyword tclStatement auto_execok return linsert error catch clock info
|
|
|
25 syn keyword tclStatement split array fconfigure concat join lreplace source
|
|
|
26 syn keyword tclStatement fcopy global auto_qualify update close cd auto_load
|
|
|
27 syn keyword tclStatement file append format read package set binary namespace
|
|
|
28 syn keyword tclStatement scan trace seek flush after vwait uplevel lset rename
|
|
|
29 syn keyword tclStatement fileevent regexp upvar unset encoding expr load regsub
|
|
|
30 syn keyword tclStatement interp exit puts incr lindex lsort tclLog string
|
|
7
|
31 syn keyword tclLabel case default
|
|
|
32 syn keyword tclConditional if then else elseif switch
|
|
|
33 syn keyword tclRepeat while for foreach break continue
|
|
|
34 syn keyword tcltkSwitch contained insert create polygon fill outline tag
|
|
|
35
|
|
|
36 " WIDGETS
|
|
|
37 " commands associated with widgets
|
|
|
38 syn keyword tcltkWidgetSwitch contained background highlightbackground insertontime cget
|
|
|
39 syn keyword tcltkWidgetSwitch contained selectborderwidth borderwidth highlightcolor insertwidth
|
|
|
40 syn keyword tcltkWidgetSwitch contained selectforeground cursor highlightthickness padx setgrid
|
|
|
41 syn keyword tcltkWidgetSwitch contained exportselection insertbackground pady takefocus
|
|
|
42 syn keyword tcltkWidgetSwitch contained font insertborderwidth relief xscrollcommand
|
|
|
43 syn keyword tcltkWidgetSwitch contained foreground insertofftime selectbackground yscrollcommand
|
|
|
44 syn keyword tcltkWidgetSwitch contained height spacing1 spacing2 spacing3
|
|
|
45 syn keyword tcltkWidgetSwitch contained state tabs width wrap
|
|
|
46 " button
|
|
|
47 syn keyword tcltkWidgetSwitch contained command default
|
|
|
48 " canvas
|
|
|
49 syn keyword tcltkWidgetSwitch contained closeenough confine scrollregion xscrollincrement yscrollincrement orient
|
|
|
50 " checkbutton, radiobutton
|
|
|
51 syn keyword tcltkWidgetSwitch contained indicatoron offvalue onvalue selectcolor selectimage state variable
|
|
|
52 " entry, frame
|
|
|
53 syn keyword tcltkWidgetSwitch contained show class colormap container visual
|
|
|
54 " listbox, menu
|
|
|
55 syn keyword tcltkWidgetSwitch contained selectmode postcommand selectcolor tearoff tearoffcommand title type
|
|
|
56 " menubutton, message
|
|
|
57 syn keyword tcltkWidgetSwitch contained direction aspect justify
|
|
|
58 " scale
|
|
|
59 syn keyword tcltkWidgetSwitch contained bigincrement digits from length resolution showvalue sliderlength sliderrelief tickinterval to
|
|
|
60 " scrollbar
|
|
|
61 syn keyword tcltkWidgetSwitch contained activerelief elementborderwidth
|
|
|
62 " image
|
|
|
63 syn keyword tcltkWidgetSwitch contained delete names types create
|
|
|
64 " variable reference
|
|
|
65 " ::optional::namespaces
|
|
|
66 syn match tclVarRef "$\(\(::\)\?\([[:alnum:]_.]*::\)*\)\a[a-zA-Z0-9_.]*"
|
|
|
67 " ${...} may contain any character except '}'
|
|
|
68 syn match tclVarRef "${[^}]*}"
|
|
|
69 " menu, mane add
|
|
|
70 syn keyword tcltkWidgetSwitch contained active end last none cascade checkbutton command radiobutton separator
|
|
|
71 syn keyword tcltkWidgetSwitch contained activebackground actveforeground accelerator background bitmap columnbreak
|
|
|
72 syn keyword tcltkWidgetSwitch contained font foreground hidemargin image indicatoron label menu offvalue onvalue
|
|
|
73 syn keyword tcltkWidgetSwitch contained selectcolor selectimage state underline value variable
|
|
|
74 syn keyword tcltkWidgetSwitch contained add clone configure delete entrycget entryconfigure index insert invoke
|
|
|
75 syn keyword tcltkWidgetSwitch contained post postcascade type unpost yposition activate
|
|
|
76 "syn keyword tcltkWidgetSwitch contained
|
|
|
77 "syn match tcltkWidgetSwitch contained
|
|
|
78 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<button\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
79 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<scale\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
80
|
|
|
81 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<canvas\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
82 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<checkbutton\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
83 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<entry\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
84 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<frame\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
85 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<image\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
86 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<listbox\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
87 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<menubutton\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
88 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<message\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
89 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<radiobutton\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
90 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\<scrollbar\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
91 " These words are dual purpose.
|
|
|
92 " match switches
|
|
|
93 "syn match tcltkWidgetSwitch contained "-text"hs=s+1
|
|
|
94 syn match tcltkWidgetSwitch contained "-text\(var\)\?"hs=s+1
|
|
|
95 syn match tcltkWidgetSwitch contained "-menu"hs=s+1
|
|
|
96 syn match tcltkWidgetSwitch contained "-label"hs=s+1
|
|
|
97 " match commands - 2 lines for pretty match.
|
|
|
98 "variable
|
|
|
99 " Special case - If a number follows a variable region, it must be at the end of
|
|
|
100 " the pattern, by definition. Therefore, (1) either include a number as the region
|
|
|
101 " end and exclude tclNumber from the contains list, or (2) make variable
|
|
|
102 " keepend. As (1) would put variable out of step with everything else, use (2).
|
|
|
103 syn region tcltkCommand matchgroup=tcltkCommandColor start="^\<variable\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tclString,tclNumber,tclVarRef,tcltkCommand
|
|
|
104 syn region tcltkCommand matchgroup=tcltkCommandColor start="\s\<variable\>\|\[\<variable\>"hs=s+1 matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tclString,tclNumber,tclVarRef,tcltkCommand
|
|
|
105 " menu
|
|
|
106 syn region tcltkWidget matchgroup=tcltkWidgetColor start="^\<menu\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
107 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\s\<menu\>\|\[\<menu\>"hs=s+1 matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
108 " label
|
|
|
109 syn region tcltkWidget matchgroup=tcltkWidgetColor start="^\<label\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
110 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\s\<label\>\|\[\<label\>"hs=s+1 matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
111 " text
|
|
|
112 syn region tcltkWidget matchgroup=tcltkWidgetColor start="^\<text\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidget,tcltkWidgetSwitch,tcltkSwitch,tclNumber,tclVarRef,tclString
|
|
|
113 syn region tcltkWidget matchgroup=tcltkWidgetColor start="\s\<text\>\|\[\<text\>"hs=s+1 matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidget,tcltkWidgetSwitch,tclString,tcltkSwitch,tclNumber,tclVarRef
|
|
|
114
|
|
|
115 " This isn't contained (I don't think) so it's OK to just associate with the Color group.
|
|
|
116 " TODO: This could be wrong.
|
|
|
117 syn keyword tcltkWidgetColor toplevel
|
|
|
118
|
|
|
119
|
|
|
120 syn region tcltkPackConf matchgroup=tcltkPackConfColor start="\<configure\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tcltkPackConfSwitch,tclNumber,tclVarRef keepend
|
|
|
121 syn region tcltkPackConf matchgroup=tcltkPackConfColor start="\<cget\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"me=e-1 contains=tclLineContinue,tcltkWidgetSwitch,tclString,tcltkSwitch,tcltkPackConfSwitch,tclNumber,tclVarRef
|
|
|
122
|
|
|
123
|
|
|
124 " NAMESPACE
|
|
|
125 " commands associated with namespace
|
|
|
126 syn keyword tcltkNamespaceSwitch contained children code current delete eval
|
|
|
127 syn keyword tcltkNamespaceSwitch contained export forget import inscope origin
|
|
|
128 syn keyword tcltkNamespaceSwitch contained parent qualifiers tail which command variable
|
|
|
129 syn region tcltkCommand matchgroup=tcltkCommandColor start="\<namespace\>" matchgroup=NONE skip="^\s*$" end="{\|}\|]\|\"\|[^\\]*\s*$"me=e-1 contains=tclLineContinue,tcltkNamespaceSwitch
|
|
|
130
|
|
|
131 " EXPR
|
|
|
132 " commands associated with expr
|
|
|
133 syn keyword tcltkMaths contained acos cos hypot sinh
|
|
|
134 syn keyword tcltkMaths contained asin cosh log sqrt
|
|
|
135 syn keyword tcltkMaths contained atan exp log10 tan
|
|
|
136 syn keyword tcltkMaths contained atan2 floor pow tanh
|
|
|
137 syn keyword tcltkMaths contained ceil fmod sin
|
|
|
138 syn region tcltkCommand matchgroup=tcltkCommandColor start="\<expr\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"me=e-1 contains=tclLineContinue,tcltkMaths,tclNumber,tclVarRef,tclString,tcltlWidgetSwitch,tcltkCommand,tcltkPackConf
|
|
|
139
|
|
|
140 " format
|
|
|
141 syn region tcltkCommand matchgroup=tcltkCommandColor start="\<format\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"me=e-1 contains=tclLineContinue,tcltkMaths,tclNumber,tclVarRef,tclString,tcltlWidgetSwitch,tcltkCommand,tcltkPackConf
|
|
|
142
|
|
|
143 " PACK
|
|
|
144 " commands associated with pack
|
|
|
145 syn keyword tcltkPackSwitch contained forget info propogate slaves
|
|
|
146 syn keyword tcltkPackConfSwitch contained after anchor before expand fill in ipadx ipady padx pady side
|
|
|
147 syn region tcltkCommand matchgroup=tcltkCommandColor start="\<pack\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkPackSwitch,tcltkPackConf,tcltkPackConfSwitch,tclNumber,tclVarRef,tclString,tcltkCommand keepend
|
|
|
148
|
|
|
149 " STRING
|
|
|
150 " commands associated with string
|
|
|
151 syn keyword tcltkStringSwitch contained compare first index last length match range tolower toupper trim trimleft trimright wordstart wordend
|
|
|
152 syn region tcltkCommand matchgroup=tcltkCommandColor start="\<string\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkStringSwitch,tclNumber,tclVarRef,tclString,tcltkCommand
|
|
|
153
|
|
|
154 " ARRAY
|
|
|
155 " commands associated with array
|
|
|
156 syn keyword tcltkArraySwitch contained anymore donesearch exists get names nextelement size startsearch set
|
|
|
157 " match from command name to ] or EOL
|
|
|
158 syn region tcltkCommand matchgroup=tcltkCommandColor start="\<array\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkArraySwitch,tclNumber,tclVarRef,tclString,tcltkCommand
|
|
|
159
|
|
|
160 " LSORT
|
|
|
161 " switches for lsort
|
|
|
162 syn keyword tcltkLsortSwitch contained ascii dictionary integer real command increasing decreasing index
|
|
|
163 " match from command name to ] or EOL
|
|
|
164 syn region tcltkCommand matchgroup=tcltkCommandColor start="\<lsort\>" matchgroup=NONE skip="^\s*$" end="]\|[^\\]*\s*$"he=e-1 contains=tclLineContinue,tcltkLsortSwitch,tclNumber,tclVarRef,tclString,tcltkCommand
|
|
|
165
|
|
|
166 syn keyword tclTodo contained TODO
|
|
|
167
|
|
|
168
|
|
|
169 " String and Character contstants
|
|
|
170 " Highlight special characters (those which have a backslash) differently
|
|
|
171 syn match tclSpecial contained "\\\d\d\d\=\|\\."
|
|
|
172 " A string needs the skip argument as it may legitimately contain \".
|
|
|
173 " Match at start of line
|
|
|
174 syn region tclString start=+^"+ end=+"+ contains=tclSpecial skip=+\\\\\|\\"+
|
|
|
175 "Match all other legal strings.
|
|
|
176 syn region tclString start=+[^\\]"+ms=s+1 end=+"+ contains=tclSpecial skip=+\\\\\|\\"+
|
|
|
177
|
|
|
178 syn match tclLineContinue "\\\s*$"
|
|
|
179
|
|
|
180 "integer number, or floating point number without a dot and with "f".
|
|
|
181 syn case ignore
|
|
|
182 syn match tclNumber "\<\d\+\(u\=l\=\|lu\|f\)\>"
|
|
|
183 "floating point number, with dot, optional exponent
|
|
|
184 syn match tclNumber "\<\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\=\>"
|
|
|
185 "floating point number, starting with a dot, optional exponent
|
|
|
186 syn match tclNumber "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
|
|
|
187 "floating point number, without dot, with exponent
|
|
|
188 syn match tclNumber "\<\d\+e[-+]\=\d\+[fl]\=\>"
|
|
|
189 "hex number
|
|
|
190 syn match tclNumber "0x[0-9a-f]\+\(u\=l\=\|lu\)\>"
|
|
|
191 "syn match tclIdentifier "\<[a-z_][a-z0-9_]*\>"
|
|
|
192 syn case match
|
|
|
193
|
|
|
194 syn region tclComment start="^\s*\#" skip="\\$" end="$" contains=tclTodo
|
|
|
195 syn region tclComment start=/;\s*\#/hs=s+1 skip="\\$" end="$" contains=tclTodo
|
|
|
196
|
|
|
197 "syn sync ccomment tclComment
|
|
|
198
|
|
|
199 " Define the default highlighting.
|
|
|
200 " For version 5.7 and earlier: only when not done already
|
|
|
201 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
202 if version >= 508 || !exists("did_tcl_syntax_inits")
|
|
|
203 if version < 508
|
|
|
204 let did_tcl_syntax_inits = 1
|
|
|
205 command -nargs=+ HiLink hi link <args>
|
|
|
206 else
|
|
|
207 command -nargs=+ HiLink hi def link <args>
|
|
|
208 endif
|
|
|
209
|
|
|
210 HiLink tcltkSwitch Special
|
|
|
211 HiLink tclLabel Label
|
|
|
212 HiLink tclConditional Conditional
|
|
|
213 HiLink tclRepeat Repeat
|
|
|
214 HiLink tclNumber Number
|
|
|
215 HiLink tclError Error
|
|
|
216 HiLink tclStatement Statement
|
|
|
217 "HiLink tclStatementColor Statement
|
|
|
218 HiLink tclString String
|
|
|
219 HiLink tclComment Comment
|
|
|
220 HiLink tclSpecial Special
|
|
|
221 HiLink tclTodo Todo
|
|
|
222 " Below here are the commands and their options.
|
|
|
223 HiLink tcltkCommandColor Statement
|
|
|
224 HiLink tcltkWidgetColor Structure
|
|
|
225 HiLink tclLineContinue WarningMsg
|
|
|
226 HiLink tcltkStringSwitch Special
|
|
|
227 HiLink tcltkArraySwitch Special
|
|
|
228 HiLink tcltkLsortSwitch Special
|
|
|
229 HiLink tcltkPackSwitch Special
|
|
|
230 HiLink tcltkPackConfSwitch Special
|
|
|
231 HiLink tcltkMaths Special
|
|
|
232 HiLink tcltkNamespaceSwitch Special
|
|
|
233 HiLink tcltkWidgetSwitch Special
|
|
|
234 HiLink tcltkPackConfColor Identifier
|
|
|
235 "HiLink tcltkLsort Statement
|
|
|
236 HiLink tclVarRef Identifier
|
|
|
237
|
|
|
238 delcommand HiLink
|
|
|
239 endif
|
|
|
240
|
|
|
241 let b:current_syntax = "tcl"
|
|
|
242
|
|
|
243 " vim: ts=8
|
