From 5ebf0eddd88a1950c2880b5e9a3f4c8fb7d85155 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Boris=20Aranovic=CC=8C?= <nomaed@gmail.com>
Date: Fri, 20 Sep 2019 10:41:51 +0300
Subject: [PATCH 1/2] Add .irule (F5 TCL impl) as extension

---
 Syntaxes/Tcl.plist | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Syntaxes/Tcl.plist b/Syntaxes/Tcl.plist
index 2c0004b..90c1230 100644
--- a/Syntaxes/Tcl.plist
+++ b/Syntaxes/Tcl.plist
@@ -5,6 +5,7 @@
 	<key>fileTypes</key>
 	<array>
 		<string>tcl</string>
+		<string>irule</string>
 	</array>
 	<key>firstLineMatch</key>
 	<string>^#!/.*\btclsh\b</string>

From 1b41fd97aa7596decfc090262edd91c94df92d28 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Boris=20Aranovic=CC=8C?= <nomaed@gmail.com>
Date: Wed, 25 Dec 2019 11:08:26 +0200
Subject: [PATCH 2/2] accept shebang with versioned tclsh

---
 Syntaxes/Tcl.plist | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Syntaxes/Tcl.plist b/Syntaxes/Tcl.plist
index 90c1230..73f412f 100644
--- a/Syntaxes/Tcl.plist
+++ b/Syntaxes/Tcl.plist
@@ -8,7 +8,7 @@
 		<string>irule</string>
 	</array>
 	<key>firstLineMatch</key>
-	<string>^#!/.*\btclsh\b</string>
+	<string>^#!/.*\btclsh</string>
 	<key>keyEquivalent</key>
 	<string>^~T</string>
 	<key>name</key>