1<lexer>
2 <config>
3 <name>Tcl</name>
4 <alias>tcl</alias>
5 <filename>*.tcl</filename>
6 <filename>*.rvt</filename>
7 <mime_type>text/x-tcl</mime_type>
8 <mime_type>text/x-script.tcl</mime_type>
9 <mime_type>application/x-tcl</mime_type>
10 </config>
11 <rules>
12 <state name="command-in-bracket">
13 <rule pattern="\b(namespace|continue|variable|uplevel|foreach|return|update|elseif|global|rename|switch|upvar|error|vwait|catch|break|unset|array|apply|trace|after|while|then|else|expr|eval|proc|for|set|if)\b">
14 <token type="Keyword"/>
15 <push state="params-in-bracket"/>
16 </rule>
17 <rule pattern="\b(platform::shell|pkg::create|pkg_mkIndex|fconfigure|re_syntax|fileevent|platform|fblocked|lreverse|mathfunc|encoding|registry|lreplace|history|bgerror|llength|lsearch|linsert|lassign|lappend|refchan|unknown|package|lrepeat|msgcat|mathop|format|interp|lrange|string|source|lindex|socket|concat|regsub|regexp|loadTk|memory|binary|append|unload|subst|split|lsort|clock|close|flush|fcopy|chan|glob|time|gets|http|dict|file|puts|tell|join|read|exit|exec|open|list|scan|seek|incr|info|lset|load|dde|pwd|pid|eof|tm|cd)\b">
18 <token type="NameBuiltin"/>
19 <push state="params-in-bracket"/>
20 </rule>
21 <rule pattern="([\w.-]+)">
22 <token type="NameVariable"/>
23 <push state="params-in-bracket"/>
24 </rule>
25 <rule pattern="#">
26 <token type="Comment"/>
27 <push state="comment"/>
28 </rule>
29 </state>
30 <state name="command-in-paren">
31 <rule pattern="\b(namespace|continue|variable|uplevel|foreach|return|update|elseif|global|rename|switch|upvar|error|vwait|catch|break|unset|array|apply|trace|after|while|then|else|expr|eval|proc|for|set|if)\b">
32 <token type="Keyword"/>
33 <push state="params-in-paren"/>
34 </rule>
35 <rule pattern="\b(platform::shell|pkg::create|pkg_mkIndex|fconfigure|re_syntax|fileevent|platform|fblocked|lreverse|mathfunc|encoding|registry|lreplace|history|bgerror|llength|lsearch|linsert|lassign|lappend|refchan|unknown|package|lrepeat|msgcat|mathop|format|interp|lrange|string|source|lindex|socket|concat|regsub|regexp|loadTk|memory|binary|append|unload|subst|split|lsort|clock|close|flush|fcopy|chan|glob|time|gets|http|dict|file|puts|tell|join|read|exit|exec|open|list|scan|seek|incr|info|lset|load|dde|pwd|pid|eof|tm|cd)\b">
36 <token type="NameBuiltin"/>
37 <push state="params-in-paren"/>
38 </rule>
39 <rule pattern="([\w.-]+)">
40 <token type="NameVariable"/>
41 <push state="params-in-paren"/>
42 </rule>
43 <rule pattern="#">
44 <token type="Comment"/>
45 <push state="comment"/>
46 </rule>
47 </state>
48 <state name="command-in-brace">
49 <rule pattern="\b(namespace|continue|variable|uplevel|foreach|return|update|elseif|global|rename|switch|upvar|error|vwait|catch|break|unset|array|apply|trace|after|while|then|else|expr|eval|proc|for|set|if)\b">
50 <token type="Keyword"/>
51 <push state="params-in-brace"/>
52 </rule>
53 <rule pattern="\b(platform::shell|pkg::create|pkg_mkIndex|fconfigure|re_syntax|fileevent|platform|fblocked|lreverse|mathfunc|encoding|registry|lreplace|history|bgerror|llength|lsearch|linsert|lassign|lappend|refchan|unknown|package|lrepeat|msgcat|mathop|format|interp|lrange|string|source|lindex|socket|concat|regsub|regexp|loadTk|memory|binary|append|unload|subst|split|lsort|clock|close|flush|fcopy|chan|glob|time|gets|http|dict|file|puts|tell|join|read|exit|exec|open|list|scan|seek|incr|info|lset|load|dde|pwd|pid|eof|tm|cd)\b">
54 <token type="NameBuiltin"/>
55 <push state="params-in-brace"/>
56 </rule>
57 <rule pattern="([\w.-]+)">
58 <token type="NameVariable"/>
59 <push state="params-in-brace"/>
60 </rule>
61 <rule pattern="#">
62 <token type="Comment"/>
63 <push state="comment"/>
64 </rule>
65 </state>
66 <state name="basic">
67 <rule pattern="\(">
68 <token type="Keyword"/>
69 <push state="paren"/>
70 </rule>
71 <rule pattern="\[">
72 <token type="Keyword"/>
73 <push state="bracket"/>
74 </rule>
75 <rule pattern="\{">
76 <token type="Keyword"/>
77 <push state="brace"/>
78 </rule>
79 <rule pattern=""">
80 <token type="LiteralStringDouble"/>
81 <push state="string"/>
82 </rule>
83 <rule pattern="(eq|ne|in|ni)\b">
84 <token type="OperatorWord"/>
85 </rule>
86 <rule pattern="!=|==|<<|>>|<=|>=|&&|\|\||\*\*|[-+~!*/%<>&^|?:]">
87 <token type="Operator"/>
88 </rule>
89 </state>
90 <state name="params-in-bracket">
91 <rule pattern="\]">
92 <token type="Keyword"/>
93 <push state="#pop" state="#pop"/>
94 </rule>
95 <rule>
96 <include state="params"/>
97 </rule>
98 </state>
99 <state name="data">
100 <rule pattern="\s+">
101 <token type="Text"/>
102 </rule>
103 <rule pattern="0x[a-fA-F0-9]+">
104 <token type="LiteralNumberHex"/>
105 </rule>
106 <rule pattern="0[0-7]+">
107 <token type="LiteralNumberOct"/>
108 </rule>
109 <rule pattern="\d+\.\d+">
110 <token type="LiteralNumberFloat"/>
111 </rule>
112 <rule pattern="\d+">
113 <token type="LiteralNumberInteger"/>
114 </rule>
115 <rule pattern="\$([\w.:-]+)">
116 <token type="NameVariable"/>
117 </rule>
118 <rule pattern="([\w.:-]+)">
119 <token type="Text"/>
120 </rule>
121 </state>
122 <state name="command">
123 <rule pattern="\b(namespace|continue|variable|uplevel|foreach|return|update|elseif|global|rename|switch|upvar|error|vwait|catch|break|unset|array|apply|trace|after|while|then|else|expr|eval|proc|for|set|if)\b">
124 <token type="Keyword"/>
125 <push state="params"/>
126 </rule>
127 <rule pattern="\b(platform::shell|pkg::create|pkg_mkIndex|fconfigure|re_syntax|fileevent|platform|fblocked|lreverse|mathfunc|encoding|registry|lreplace|history|bgerror|llength|lsearch|linsert|lassign|lappend|refchan|unknown|package|lrepeat|msgcat|mathop|format|interp|lrange|string|source|lindex|socket|concat|regsub|regexp|loadTk|memory|binary|append|unload|subst|split|lsort|clock|close|flush|fcopy|chan|glob|time|gets|http|dict|file|puts|tell|join|read|exit|exec|open|list|scan|seek|incr|info|lset|load|dde|pwd|pid|eof|tm|cd)\b">
128 <token type="NameBuiltin"/>
129 <push state="params"/>
130 </rule>
131 <rule pattern="([\w.-]+)">
132 <token type="NameVariable"/>
133 <push state="params"/>
134 </rule>
135 <rule pattern="#">
136 <token type="Comment"/>
137 <push state="comment"/>
138 </rule>
139 </state>
140 <state name="params-in-brace">
141 <rule pattern="\}">
142 <token type="Keyword"/>
143 <push state="#pop" state="#pop"/>
144 </rule>
145 <rule>
146 <include state="params"/>
147 </rule>
148 </state>
149 <state name="string-square">
150 <rule pattern="\[">
151 <token type="LiteralStringDouble"/>
152 <push state="string-square"/>
153 </rule>
154 <rule pattern="(?s)(\\\\|\\[0-7]+|\\.|\\\n|[^\]\\])">
155 <token type="LiteralStringDouble"/>
156 </rule>
157 <rule pattern="\]">
158 <token type="LiteralStringDouble"/>
159 <pop depth="1"/>
160 </rule>
161 </state>
162 <state name="bracket">
163 <rule pattern="\]">
164 <token type="Keyword"/>
165 <pop depth="1"/>
166 </rule>
167 <rule>
168 <include state="command-in-bracket"/>
169 </rule>
170 <rule>
171 <include state="basic"/>
172 </rule>
173 <rule>
174 <include state="data"/>
175 </rule>
176 </state>
177 <state name="params-in-paren">
178 <rule pattern="\)">
179 <token type="Keyword"/>
180 <push state="#pop" state="#pop"/>
181 </rule>
182 <rule>
183 <include state="params"/>
184 </rule>
185 </state>
186 <state name="paren">
187 <rule pattern="\)">
188 <token type="Keyword"/>
189 <pop depth="1"/>
190 </rule>
191 <rule>
192 <include state="command-in-paren"/>
193 </rule>
194 <rule>
195 <include state="basic"/>
196 </rule>
197 <rule>
198 <include state="data"/>
199 </rule>
200 </state>
201 <state name="comment">
202 <rule pattern=".*[^\\]\n">
203 <token type="Comment"/>
204 <pop depth="1"/>
205 </rule>
206 <rule pattern=".*\\\n">
207 <token type="Comment"/>
208 </rule>
209 </state>
210 <state name="root">
211 <rule>
212 <include state="command"/>
213 </rule>
214 <rule>
215 <include state="basic"/>
216 </rule>
217 <rule>
218 <include state="data"/>
219 </rule>
220 <rule pattern="\}">
221 <token type="Keyword"/>
222 </rule>
223 </state>
224 <state name="brace">
225 <rule pattern="\}">
226 <token type="Keyword"/>
227 <pop depth="1"/>
228 </rule>
229 <rule>
230 <include state="command-in-brace"/>
231 </rule>
232 <rule>
233 <include state="basic"/>
234 </rule>
235 <rule>
236 <include state="data"/>
237 </rule>
238 </state>
239 <state name="params">
240 <rule pattern=";">
241 <token type="Keyword"/>
242 <pop depth="1"/>
243 </rule>
244 <rule pattern="\n">
245 <token type="Text"/>
246 <pop depth="1"/>
247 </rule>
248 <rule pattern="(else|elseif|then)\b">
249 <token type="Keyword"/>
250 </rule>
251 <rule>
252 <include state="basic"/>
253 </rule>
254 <rule>
255 <include state="data"/>
256 </rule>
257 </state>
258 <state name="string">
259 <rule pattern="\[">
260 <token type="LiteralStringDouble"/>
261 <push state="string-square"/>
262 </rule>
263 <rule pattern="(?s)(\\\\|\\[0-7]+|\\.|[^"\\])">
264 <token type="LiteralStringDouble"/>
265 </rule>
266 <rule pattern=""">
267 <token type="LiteralStringDouble"/>
268 <pop depth="1"/>
269 </rule>
270 </state>
271 </rules>
272</lexer>