Add syntax file for tcl language

2 files changed, 69 insertions, 0 deletions

diff --git a/README.md b/README.md
index a31c13a..9142365 100644
--- a/README.md
+++ b/README.md
@@ -81,6 +81,7 @@ Plugin | Description
 [`language_ruby`](plugins/language_ruby.lua?raw=1) | Syntax for the [Ruby](https://www.ruby-lang.org/) programming language
 [`language sass`](plugins/language_sass.lua?raw=1) | Syntax for the [Sass](https://sass-lang.com/) CSS preprocessor
 [`language_sh`](plugins/language_sh.lua?raw=1) | Syntax for shell scripting language
+[`language_tcl`](plugins/language_tcl.lua?raw=1) | Syntax for the [Tcl](https://www.tcl.tk/) programming language
 [`language_teal`](plugins/language_teal.lua?raw=1) | Syntax for the [Teal](https://github.com/teal-language/tl) programming language, a typed dialect of Lua.
 [`language_tex`](plugins/language_tex.lua?raw=1) | Syntax for the [LaTeX](https://www.latex-project.org/) typesetting language
 [`language_v`](plugins/language_v.lua?raw=1) | Syntax for the [V](https://vlang.io/) programming language
diff --git a/plugins/language_tcl.lua b/plugins/language_tcl.lua
new file mode 100644
index 0000000..31efa84
--- /dev/null
+++ b/plugins/language_tcl.lua
@@ -0,0 +1,68 @@
+-- mod-version:1 -- lite-xl 1.16
+local syntax = require "core.syntax"
+
+syntax.add {
+  files = { "%.tcl$" },
+  comment = "#",
+  patterns = {
+    { pattern = "#.-\n",                 type = "comment" },
+    { pattern = { '"', '"', '\\' },      type = "string"  },
+    { pattern = "0x%x+",                 type = "number"  },
+    { pattern = "%d+[%d%.eE]*f?",        type = "number"  },
+    { pattern = "%.?%d+f?",              type = "number"  },
+    { pattern = "%$[%a_][%w_]*",         type = "literal" },
+    { pattern = "[%+%-=/%*%^%%<>!~|&]",  type = "operator" },
+    { pattern = "::[%a_][%w_]*",         type = "function" },
+    { pattern = "[%a_][%w_]*%f[:]",      type = "function" },
+    { pattern = "[%a_][%w_]*",           type = "symbol" },
+  },
+  symbols = {
+    ["set"]       = "keyword",
+    ["unset"]       = "keyword",
+    ["rename"]       = "keyword",
+    ["upvar"]     = "keyword",
+    ["incr"]      = "keyword",
+    ["source"]     = "keyword",
+    ["expr"]     = "keyword",
+    ["gets"]     = "keyword",
+    ["puts"]     = "keyword",
+    ["package"]   = "keyword",
+    ["list"]   = "keyword",
+    ["dict"]   = "keyword",
+    ["split"]    = "join",
+    ["concat"]    = "join",
+    ["lappend"]   = "keyword",
+    ["lset"]   = "keyword",
+    ["lassign"]   = "keyword",
+    ["lindex"]   = "keyword",
+    ["llength"]  = "keyword",
+    ["lsearch"]   = "keyword",
+    ["lrange"]   = "keyword",
+    ["linsert"] = "keyword",
+    ["lreplace"] = "keyword",
+    ["lrepeat"] = "keyword",
+    ["lsort"]   = "keyword",
+    ["lreverse"]   = "keyword",
+    ["array"]   = "keyword",
+    ["concat"]   = "keyword",
+    ["regexp"]   = "keyword",
+    ["for"]       = "keyword",
+    ["foreach"]       = "keyword",
+    ["while"]     = "keyword",
+    ["case"]     = "keyword",
+    ["proc"]     = "keyword",
+    ["if"]    = "keyword",
+    ["else"]      = "keyword",
+    ["elseif"]      = "keyword",
+    ["break"]    = "keyword",
+    ["continue"] = "keyword",
+    ["return"]   = "keyword",
+    ["eval"]   = "keyword",
+    ["try"]      = "keyword2",
+    ["on"]      = "keyword2",
+    ["finally"]      = "keyword2",
+    ["throw"]    = "keyword2",
+    ["error"]    = "keyword2",
+  },
+}
+