Adding Tcl support, closes #92

CHANGELOG.md

@@ -1,5 +1,9 @@
 # Change Log
 
+## [1.2.8] (2018-09-03)
+### Features
+* Added support for Tcl ([]()), closes [#92](https://github.com/aaron-bond/better-comments/issues/92)
+
 ## [1.2.7] (2018-09-02)
 ### Features
 * Adding support for Flax ([71f6326](https://github.com/aaron-bond/better-comments/commit/71f6326)), merges [#76](https://github.com/aaron-bond/better-comments/issues/76)

README.md

@@ -122,6 +122,7 @@ The default 5 can be modifed to change the colors, and more can be added.
 * SQL
 * STATA
 * Swift
+* Tcl
 * Terraform
 * TypeScript
 * TypeScript React

package.json

@@ -83,6 +83,7 @@
         "onLanguage:sql",
         "onLanguage:stata",
         "onLanguage:swift",
+        "onLanguage:tcl",
         "onLanguage:terraform",
         "onLanguage:typescript",
         "onLanguage:typescriptreact",

src/parser.ts

@@ -235,6 +235,7 @@ export class Parser {
 				break;
 
 			case "python":
+			case "tcl":
 				this.delimiter = "#";
 				this.ignoreFirstLine = true;
 				break;

src/test/samples/tcl.tcl

@@ -0,0 +1,35 @@
+#!/usr/bin/tclsh
+
+# ! switch_cmd.tcl
+
+set domain x
+switch $domain {
+
+    x { puts "x" }
+    y { puts "y" }
+    z { puts "z" }
+    default { puts "unknown" }
+}
+
+proc power {base p} {
+    set result 1
+    while {$p > 0} {
+        set result [expr $result * $base]
+        set p [expr $p - 1]
+    }
+    return $result
+}
+
+set a 10
+set b 20
+
+if {$a == 10} {
+
+# ? if expression_1 is true then it will go to expression_2
+if {$b == 20} {
+        # * if expression_2 is true then it will print the below string
+        puts "value of a is 10 and b is 20"
+    }
+}
+
+o/p: value of a is 10 and b is 20