blob: c5f1f4c36218ed554ce7c7e3ab5ccc06f3506e36 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
(comment) @comment @spell
(command
name: (simple_word) @function)
"proc" @keyword.function
(procedure
name: (_) @variable)
(set
(simple_word) @variable)
(argument
name: (_) @variable.parameter)
((simple_word) @variable.builtin
(#any-of? @variable.builtin
"argc" "argv" "argv0" "auto_path" "env" "errorCode" "errorInfo" "tcl_interactive" "tcl_library"
"tcl_nonwordchars" "tcl_patchLevel" "tcl_pkgPath" "tcl_platform" "tcl_precision"
"tcl_rcFileName" "tcl_traceCompile" "tcl_traceExec" "tcl_wordchars" "tcl_version"))
"expr" @function.builtin
(command
name: (simple_word) @function.builtin
(#any-of? @function.builtin
"cd" "exec" "exit" "incr" "info" "join" "puts" "regexp" "regsub" "split" "subst" "trace"
"source"))
(command
name: (simple_word) @keyword
(#any-of? @keyword
"append" "break" "catch" "continue" "default" "dict" "error" "eval" "global" "lappend" "lassign"
"lindex" "linsert" "list" "llength" "lmap" "lrange" "lrepeat" "lreplace" "lreverse" "lsearch"
"lset" "lsort" "package" "return" "switch" "throw" "unset" "variable"))
[
"error"
"on"
"set"
"try"
] @keyword
"namespace" @keyword.type
(unpack) @operator
[
"while"
"foreach"
] @keyword.repeat
[
"if"
"else"
"elseif"
] @keyword.conditional
[
"**"
"/"
"*"
"%"
"+"
"-"
"<<"
">>"
">"
"<"
">="
"<="
"=="
"!="
"eq"
"ne"
"in"
"ni"
"&"
"^"
"|"
"&&"
"||"
] @operator
(variable_substitution) @variable
(quoted_word) @string
(escaped_character) @string.escape
[
"{"
"}"
"["
"]"
";"
] @punctuation.delimiter
((simple_word) @number
(#lua-match? @number "^[0-9]+$"))
((simple_word) @boolean
(#any-of? @boolean "true" "false"))
; after apply array auto_execok auto_import auto_load auto_mkindex auto_qualify
; auto_reset bgerror binary chan clock close coroutine dde encoding eof fblocked
; fconfigure fcopy file fileevent filename flush format gets glob history http
; interp load mathfunc mathop memory msgcat my next nextto open parray pid
; pkg::create pkg_mkIndex platform platform::shell pwd re_syntax read refchan
; registry rename safe scan seek self socket source string tailcall tcl::prefix
; tcl_endOfWord tcl_findLibrary tcl_startOfNextWord tcl_startOfPreviousWord
; tcl_wordBreakAfter tcl_wordBreakBefore tcltest tell time timerate tm
; transchan unknown unload update uplevel upvar vwait yield yieldto zlib
|
