Data commit

Task/Strip-block-comments/Tcl/strip-block-comments-1.tcl

@@ -0,0 +1,8 @@
+proc stripBlockComment {string {openDelimiter "/*"} {closeDelimiter "*/"}} {
+    # Convert the delimiters to REs by backslashing all non-alnum characters
+    set openAsRE [regsub -all {\W} $openDelimiter {\\&}]
+    set closeAsRE [regsub -all {\W} $closeDelimiter {\\&}]
+
+    # Now remove the blocks using a dynamic non-greedy regular expression
+    regsub -all "$openAsRE.*?$closeAsRE" $string ""
+}

Task/Strip-block-comments/Tcl/strip-block-comments-2.tcl

@@ -0,0 +1,17 @@
+puts [stripBlockComment "  /**
+   * Some comments
+   * longer comments here that we can parse.
+   *
+   * Rahoo
+   */
+   function subroutine() {
+    a = /* inline comment */ b + c ;
+   }
+   /*/ <-- tricky comments */
+
+   /**
+    * Another comment.
+    */
+    function something() {
+    }
+"]